COM Word и font.bold(true)

[vadimiron]

И сново получилось ))

cell = table.cell(rowCount, 1);
range = cell.range();
range.bold(false);
rangePart = doc.range(range.start(), range.start() + strlen(Name));
rangePart.bold(true);

[Gustav]

А вот еще хорошее решение, когда не нужно вычислять длину слова и можно комфортно заболдить "Country:" в произвольной фразе типа "Our SuperCountry: Russia":

 
Sub MSWord_VBA_Macro_3() 

Dim rng As Range

Set rng = ActiveDocument.Tables(1).Cell(2, 3).Range

rng.Find.Replacement.Font.Bold = True
rng.Find.Execute "Country:", True, True, False, False, False, True, wdFindStop, True, "Country:", wdReplaceOne

End Sub

Про длинный список параметров Execute можно почитать в справке Word, я же для наглядности перечислю здесь хотя бы их названия:

 
FindText          = "Country:" 
MatchCase         = True
MatchWholeWord    = True
MatchWildcards    = False 
MatchSoundsLike   = False 
MatchAllWordForms = False  
Forward           = True
Wrap              = 0 (константа wdFindStop)
Format            = True
ReplaceWith       = "Country:"
Replace           = 1 (константа wdReplaceOne)