Показать сообщение отдельно
Старый 31.07.2008, 14:23   #4  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
Чтобы посимвольно не перебирать (а то мало ли какие длинные подстроки для болдирования предстоят в будущем), можно еще как-то вот так:
Код:
 
Sub MSWord_VBA_Macro()

Dim doc As Document
Dim rngCell As Range
Dim rngWord As Range

Set doc = Application.ActiveDocument
Set rngCell = doc.Tables(1).Cell(2, 3).Range
Set rngWord = doc.Range(rngCell.Start, rngCell.Start + Len("Country:"))
rngWord.Bold = True

End Sub
Или покороче:
Код:
Sub MSWord_VBA_Macro_2()

Dim rng As Range

Set rng = ActiveDocument.Tables(1).Cell(2, 3).Range
rng.SetRange rng.Start, rng.Start + Len("Country:")
rng.Bold = True

End Sub