|   |   | 
| 
 | Чтение документа MS Word | ☑ | ||
|---|---|---|---|---|
| 0
    
        Amfiaray 29.10.14✎ 11:46 | 
        Добрый день, стоит задача сделать обработку, которая проверяла бы наличие файла *.doc в указанной папке, и если он там есть то считывала его и показывала в окне формы.
 Сделал форму, разместил там реквизит с типом "ФорматированныйДокумент". Вот код который есть на данный момент: Word = Новый COMОбъект("Word.Application"); Док = Word.Documents.open(ФайлНаДиске.ПолноеИмя); Что делать дальше я не знаю, ни разу с ms word не работал программно :( | |||
| 1
    
        Chameleon1980 29.10.14✎ 12:01 | 
        гугглили?     | |||
| 2
    
        Amfiaray 29.10.14✎ 12:04 | 
        гуглил, там только как писать в ворд, а вот как прочитать нет     | |||
| 3
    
        dk 29.10.14✎ 12:10 | 
        запиши макрос и погляди что там     | |||
| 4
    
        Amfiaray 29.10.14✎ 12:14 | 
        (3) да кабы умел, то написал бы )     | |||
| 5
    
        Amfiaray 29.10.14✎ 12:15 | 
        может есть какой то другой способ вывести документ MS Word на форму?     | |||
| 6
    
        Chameleon1980 29.10.14✎ 12:49 | 
        нафига на форму. аналог ворд хочешь писать на 1С
 про макросы обычно в офисе макросы-записать. делаешь действия, смотришь методы и свойства | |||
| 7
    
        Amfiaray 29.10.14✎ 12:55 | 
        (6) Начальнику вот надо чтобы он в ворде писал какие изменения в конфе были сделаны, а при запуске 1С у пользователей окошко вылазило с тем что он написал     | |||
| 8
    
        Amfiaray 29.10.14✎ 12:55 | 
        +(6) И как в макросе показать что я читаю строки?     | |||
| 9
    
        Chameleon1980 29.10.14✎ 12:58 | 
        а конфа какая?
 и вообще - принципиально в ворд? и начальник чего он? если не отдела ит - почему он должен сообщать юзерам какие новшества в программе, если нач ит - че не может в 1С писать? счас дальше напишу | |||
| 10
    
        Chameleon1980 29.10.14✎ 13:01 | 
        и еще - буква "Я" в правом верхнем углу     | |||
| 11
    
        dk 29.10.14✎ 13:04 | 
        Ну и храни этот файл где нить в сети, тока право на редактирование у всех отбери (акромя себя)
 ну а приначалеработы Word = Новый COMОбъект("Word.Application"); Док = Word.Documents.open(ФайлНаДиске.ПолноеИмя); Word.Visible = Истина | |||
| 12
    
        Amfiaray 29.10.14✎ 13:11 | 
        (9) Начальник как раз отдела ит, конфа полностью самописка
 (11) Нет, ему надо чтобы в окне 1С, чтобы там галочка была "Больше не показывать", вобщем вот как то так :( | |||
| 13
    
        Amfiaray 29.10.14✎ 13:12 | 
        Насчет буквы "Я", смотрел там и не нашел :(     | |||
| 14
    
        Chameleon1980 29.10.14✎ 13:14 | 
        не пробовал, но вот что-то:
 Wk = Новый COMОбъект("Word.Application"); //Покажем открываемый документ Wk.Visible = Истина; Wk.Documents.Open("D:\file.doc"); Документ = Wk.ActiveDocument(); // перебирая строки выводим текст Для н = 1 по Документ.Sentences.Count Цикл Текст=Документ.Sentences(н).Text; Сообщить(Текст); КонецЦикла; Документ.Close(); Wk.Quit(); | |||
| 15
    
        Amfiaray 29.10.14✎ 13:30 | 
        (14) Спасибо, всё заработало, только без  Wk.Visible = Истина; зависает на этой строке почему то, убрал и всё нормально стало     | |||
| 16
    
        Chameleon1980 29.10.14✎ 13:38 | 
        ну да - видимым не обязательно делать. в данном случае вообще не нужно     | |||
| 17
    
        thezos 29.10.14✎ 13:54 | 
        Начальник знает толк в извращениях. Форматирование текста не требовал?     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |