Сообщения

Здравствуйте! помогите пожалуйста!
Как в ячейке с текстом или в определенном столбце выделить слово жирным "ЗАКАЗЧИК", "ИСПОЛНИТЕЛЯ" и "ИСПОЛНИТЕЛЮ"

или при выгрузке из excel в word, текст который в 65 столбце.

VidStrCen$ = Cells(i%, 65).Text


FileCopy HomeDir$ + "\DOG_Ret.docx", HomeDir$ + "(" + Vids$ + ")" + P$ + Godsokr$ + ".docx"
Set wdDoc = wdApp.Documents.Open(HomeDir$ + "(" + Vids$ + ")" + P$ + Godsokr$ + ".docx")


temp = Left(VidStrCen$, 255)
temp2 = Mid(VidStrCen$, 256, 255)
temp3 = Mid(VidStrCen$, 512, 255)


wdDoc.Range.Find.Execute FindText:="&VidStrCen", ReplaceWith:=temp
wdDoc.Range.Find.Execute FindText:="&V2idStrCen", ReplaceWith:=temp2
wdDoc.Range.Find.Execute FindText:="&V3idStrCen", ReplaceWith:=temp3