Имя: Пароль:
1C
1С v8
Чтение документа 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
Начальник знает толк в извращениях. Форматирование текста не требовал?