Объединить поля Bold Word 2010

Question

Как мы можем сделать все поля слияния полужирным шрифтом в Microsoft Word 2010? Пожалуйста, предложите метод с использованием VBA. Кроме того, поля слияния появляются в том случае, если условия также должны быть выделены жирным шрифтом.

Answer 1

Вы можете записать макрос, используя поиск и замену. Используйте ^d, чтобы найти все поле и заменить его тем же текстом, используя ^&, и установите для него формат Полужирный. Перед записью переключите все коды полей, выбирая все и используя Shift + F9. Запись этого процесса дает следующий код VBA:

Sub MergeBold() 
' 
' MergeBold Macro 
' 
' 
    Selection.WholeStory 
    Selection.Fields.ToggleShowCodes 
    Selection.MoveRight Unit:=wdCharacter, Count:=1 
    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.ClearFormatting 
    Selection.Find.Replacement.Font.Bold = True 
    With Selection.Find 
     .Text = "^d" 
     .Replacement.Text = "^&" 
     .Forward = True 
     .Wrap = wdFindContinue 
     .Format = True 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchWildcards = False 
     .MatchSoundsLike = False 
     .MatchAllWordForms = False 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 
    Selection.WholeStory 
    Selection.Fields.ToggleShowCodes 
    Selection.MoveRight Unit:=wdCharacter, Count:=1 
End Sub