Word VBA

[robin521]

请教各位一个问题,在一个文档里,有很多<b>love</b>这样的文字,如何通过代码让love加粗并把<b></b>都删除.

[kaoziji]

仅供参考

Sub Macro1()

    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .ClearFormatting
        .Text = "<b>love </b>"
        .Replacement.Text = "love"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Replacement.Font.Bold = True
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub