как из Ворда получить весь текст целиком, через COMОбъект("Word.Application")?

Word = New COMОбъект("Word.Application");
Текст = Word.GetAllText();

наверно я что-то не понимаю, но он у меня не получает, говорит медода нет - я делаю такЖ

WordПриложение = Новый COMОбъект("Word.Application");
WordФайл = WordПриложение.Documents.Open(мИмяФайла);
WordФайл.Close(0,,);
WordПриложение.Quit();

как тут текст получить можно?

upp

никто не знает что-ли?

Selection.WholeStory //выделить все
   Selection.Text //обратиться к выделенному тексту

а через WSH ну там контрол-А послать и еще что? фигню говорю?

вот пример из моей обработки (открывает файл (doc), записывает в его начало содержимое другого файла (doc), ну, и вставляет некоторые данные из БД:
Процедура Сформировать()
   
   ОкноWord  = СоздатьОбъект("Word.Application");
   
   Попытка
       
       ОкноWord.Documents.Open(ПолноеИмяФайла);
       //ОкноWord.Visible = 1; //делаем окно видимым  
       
       ОкноWord.Selection.TypeParagraph();
       ОкноWord.Selection.MoveUp();  
       
       Если Константа.ДобавлениеШапкиИзФайла = 1 Тогда
           
           ОкноWord.Documents.Open(КаталогИБ() + "СЦГ\_Разное\Шапка.doc");
           ОкноWord.Selection.WholeStory();
           ОкноWord.Selection.Copy();
           ОкноWord.Windows(1).Activate();
           ОкноWord.Selection.Paste();//AndFormat();
           ОкноWord.Windows(2).Close();
           
       Иначе
           
           ОкноWord.Selection.Text = """" + "Соответствующий текст" + """";
           ОкноWord.Selection.Font.Name = "Arial";
           ОкноWord.Selection.Font.Size = 16;
           ОкноWord.Selection.Font.Color = 16737843;
           ОкноWord.Selection.Font.Italic = 1;
           ОкноWord.Selection.Font.Bold = 1;
           ОкноWord.Selection.ParagraphFormat.Alignment = 0; // 0 - по левому краю
           ОкноWord.Selection.EndKey();
           ОкноWord.Selection.TypeParagraph();
           ОкноWord.Selection.Font.Name = "Arial";
           ОкноWord.Selection.Font.Color = 0;
           ОкноWord.Selection.Font.Size = 10;
           ОкноWord.Selection.Font.Italic = 1;
           ОкноWord.Selection.ParagraphFormat.Alignment = 0; // 0 - по левому краю
           ОкноWord.Selection.Text = "информирует Вас о ........:";
           ОкноWord.Selection.EndKey();
           ОкноWord.Selection.TypeParagraph();
           
           
       КонецЕсли;
       
       ОкноWord.Selection.Font.Name = "Arial";
       ОкноWord.Selection.Font.Size = 10;
       ОкноWord.Selection.Font.Italic = 1;
       ОкноWord.Selection.Font.Bold = 0;
       ОкноWord.Selection.ParagraphFormat.Alignment = 0; // 0 - по левому краю
       ОкноWord.Selection.Text = "Внутренний номер: " + СокрЛП(Файл);
       ОкноWord.Selection.EndKey();
       ОкноWord.Selection.TypeParagraph();
       ОкноWord.Selection.Font.Name = "Arial";
       ОкноWord.Selection.Font.Size = 10;
       ОкноWord.Selection.Font.Italic = 1;
       ОкноWord.Selection.ParagraphFormat.Alignment = 0; // 0 - по левому краю
       ОкноWord.Selection.Text = "Исходящий номер документа отправки: К" + СокрЛП(НомерДок) + "   от: " + ДатаДок;
       ОкноWord.Selection.EndKey();
       ОкноWord.Selection.TypeParagraph();
       
       ОкноWord.Selection.Font.Name = "Arial";
       ОкноWord.Selection.Font.Size = 10;
       ОкноWord.Selection.Font.Italic = 1;
       ОкноWord.Selection.ParagraphFormat.Alignment = 0; // 0 - по левому краю  
       
       ОкноWord.Selection.InsertParagraphAfter();
       ОкноWord.ActiveDocument.Select();
       ОкноWord.Selection.EndKey();
       ОкноWord.Selection.TypeParagraph();
       ОкноWord.Selection.TypeParagraph();
       ОкноWord.Selection.Font.Size = 8;
       ОкноWord.Selection.Text = "СЦГ:  " + Проект;
       ОкноWord.ActiveDocument.SaveAs(ГотовыйКонкурс);
       
       РазмерТекКонкурса = "";
       ФС.АтрибутыФайла(ГотовыйКонкурс,РазмерТекКонкурса);
       Сообщить("Тендер для отправки (с шапкой) " + ГотовыйКонкурс + "записан.   Размер: " + РазмерТекКонкурса);
       
       ОкноWord.ActiveDocument.Close();
       
   Исключение
       Предупреждение("Ошибка обработки Word !",2);
   КонецПопытки;
   
КонецПроцедуры

то же самое я сделал и для Exel, только синтаксис немного другой, удачи :)