VBA更改特定字符串中一个字符的字体大小(MSWORD宏)

Sub ChangeFontSize()
    Dim rng As Range
    Dim strToFind As String
    Dim charToChange As String
    Dim fontSize As Integer
    
    ' 设置要查找和更改的字符串
    strToFind = "要更改的字符串"
    charToChange = "要更改的字符"
    fontSize = 14 ' 设置字体大小
    
    ' 查找要更改的字符串
    Set rng = ActiveDocument.Content
    With rng.Find
        .Text = strToFind
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    ' 循环查找并更改字符的字体大小
    Do While rng.Find.Execute
        rng.Collapse wdCollapseEnd
        rng.MoveStartUntil charToChange
        rng.MoveEndUntil charToChange
        rng.Font.Size = fontSize
    Loop
End Sub