Как через 1С, подчеркнуть слова в WORD

через селекшн

(0) Открой для себя запись макроса.

У меня WORD новый, где там "начать запись макроса" ?

все нашел

А как текст выделить необходимый???

Необходимый - это какой?

ну например подчеркнуть слово "Итоги"

Cells.Find("Итоги")

Макрос записал?

в ворде есть cells?

да пробовал, но он поиск текста не записывает

Документ.Content.Find.Text = "Итоги";
Для Каждого стр Из Объект.ПовесткаСобрания Цикл
  Документ.Content.Find.Execute();
  Документ.Content.Find.Font.Underline = 1;
КонецЦикла;    

Не подчеркивает...

ЯчейкаИтоги = Лист.Cells.Find("Итоги");
   
Если ЯчейкаИтоги = Неопределено Тогда
   Возврат;
КонецЕсли;

ЯчейкаИтоги.Font.Underline = 1;

Лист - это что...
Content.Cells есть, но нет метода Find

(13) Там для excel, пардон.
В Word как-то так:
objWdRange = objWdDoc.Content
With objWdRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "Итоги"
End With
objWdRange = objWdRange.MoveStart(3, 1)
objWdRange = objWdRange.MoveEnd(3, 1)
objWdRange.Font.Underline = 1;

.ClearFormatting
.Replacement.ClearFormatting - это что? Присвоить истина?

или просто не влезно?

*влезло

метод такой?

не работает...

(19)
Процедура КнопкаВыполнитьНажатие(Кнопка)
   Wrd = Новый COMОбъект("Word.Application");
   Wrd.documents.Open("d:\итоги.docx");
   objWdRange = Wrd.ActiveDocument.Content;
   objWdRange.Find.Text = "Итоги";
   objWdRange.Find.Execute();
   Если objWdRange.Find.Found = True Тогда
       Selection = objWdRange.Sentences.First;
       Selection.Font.Underline = 1;
   КонецЕсли;
   Wrd.Visible = True;
КонецПроцедуры

После записи макроса, при переносе его в 1С, иногда возникает узнать значение какой-нибудь константы, которая используется в Excel или Word.
Это можно сделать через Object Browser (View - Object Browser)
http://img252.imageshack.us/img252/910/objectbrowser.png

не работает

(21) А у меня работает.

не присваивается Find.Text

Found = False

Документ.Content.Find.Text = "Итоги";
   Документ.Content.Find.Execute();
   Если Документ.Content.Find.Found = True Тогда
       Selection = Документ.Content.Sentences.First;
       Selection.Font.Underline = 1;
   КонецЕсли;

что не так?

(26) Если текст находится в таблице, искать нужно в таблице.

не в таблице

замена на этот текст работает

Попробуй так:
Процедура КнопкаВыполнитьНажатие(Кнопка)
   Wrd = Новый COMОбъект("Word.Application");
   Wrd.documents.Open("d:\итоги.docx");
   objWdRange = Wrd.ActiveDocument.Content;
   objWdRange.Find.Text = "итоги";
   objWdRange.Find.Execute();
   Count = objWdRange.Sentences.Count;
   Для i = 1 По Count Цикл
       objWdRange.Sentences(i).Font.Underline = 1;
   КонецЦикла;
   Wrd.Visible = True;
КонецПроцедуры

а она не во всех предложениях подчеркнет???

так и есть, все подчеркнет

Count = Документ.Content.Sentences.Count;
   Для i = 1 По Count Цикл
       Если Найти(Документ.Content.Sentences(i).Text, "Итоги") Тогда
           Документ.Content.Sentences(i).Font.Underline = 1;
       КонецЕсли;    
   КонецЦикла;
Вот это работает, но хочется красивый вариант :-)