Слияние полей Bold Word 2010

Question

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

Answer 1

Вы можете записать макрос, используя поиск и замену. использование ^d найти все поля и заменить тем же текстом, используя ^& и установите формат Bold. Перед записью переключите все коды полей, выбрав все и используя 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