特定の文字列の1文字のVBAフォントを変更する（MSWORD MACRO）

Question

特定の文字列の1文字のフォントサイズを置き換えようとしています。

この1つは私がしたい単語を作成しますが、私はそれを交換する機能を組み込むことができません。

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 

これらの2つをマージする方法はありますか。

Answer 1

次のコードは、MSワードマクロでこれを実装する方法はあります文字列「これは」と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