VBA更改特定字符串中一個字符的字體大小（MSWORD MACRO）

Question

我正在嘗試替換特定字符串中一個字符的字體大小。

這個創建了我想要的單詞，但是我無法將其與替換功能合並。

Sub logo()
Selection.Collapse Direction:=wdCollapseEnd
With Selection.Range
 .Font.Reset
 .Text = "EXAMPLE"
 .Characters(2).Font.Size = 8
End With
End Sub

這個代替了整個單詞。 我無法將其與字符功能合並。

Sub RedoFonts()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Text = "EXAMPLE"
        .Replacement.Text = "EXAMPLE"
        .Font.Size = 12
        .Replacement.Font.Size = 9
        .Execute Replace:=wdReplaceAll
        .ClearFormatting
        .Replacement.ClearFormatting
        .Font.Name = "Times New Roman"
        .Replacement.Font.Name = "Times New Roman"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

有什么辦法合並這兩個？

Answer 1

以下代碼在活動文檔中搜索字符串“ this”，並將其中的“ h”更改為20的字體大小。

Dim myRange As Range

Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="this", Forward:=True
If myRange.Find.Found = True Then
    myRange.Find.Execute FindText:="h", Forward:=True
    If myRange.Find.Found = True Then myRange.Font.Size = 20
End If