![]() |
#6 |
Moderator
|
А вот еще хорошее решение, когда не нужно вычислять длину слова и можно комфортно заболдить "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 Код: FindText = "Country:" MatchCase = True MatchWholeWord = True MatchWildcards = False MatchSoundsLike = False MatchAllWordForms = False Forward = True Wrap = 0 (константа wdFindStop) Format = True ReplaceWith = "Country:" Replace = 1 (константа wdReplaceOne) |
|