如何在Word文檔中使用VBA宏更改不包括標題，子標題，目錄，標題的字體大小

Question

我的情況是我想使用VBA宏更改內容主體的字體大小（不包括標題，標題，子標題，目錄），僅意味着使用宏更改字體實際內容主體（將標准樣式應用於實際內容）

這是我的VBA代碼：

Private Sub Document_Open()
   With ActiveDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Text = ""
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll
        .ClearFormatting
        .Replacement.ClearFormatting
        .Font.Name = "Arial"
        .Replacement.Font.Name = "Calibri"
        .Execute Replace:=wdReplaceAll         
         .ClearFormatting
        .Replacement.ClearFormatting
        .Font.Name = "Times New Roman"
        .Replacement.Font.Name = "Calibri"
        .Execute Replace:=wdReplaceAll      
        .ClearFormatting
        .Replacement.ClearFormatting
        .Font.Size = 11
        .Replacement.Font.Size = 10
        .Execute Replace:=wdReplaceAll                
    End With
End Sub

使用此代碼，整個文檔的字體大小正在更改，但是僅使用上述宏，字體名稱僅更改實際內容。

是否可以使用VBA宏來更改文檔的實際內容？

您能建議我如何使用VBA宏嗎？

Answer 1

如果您確定將Normal樣式應用於文檔，並且希望使用Normal樣式更改這些部件的字體屬性，則可以在“ Find ”中指定樣式，如下所示：

ActiveDocument.Content.Find.Style = ActiveDocument.Styles("Normal") 。

另外， .Replacement.Text = ""將從文檔中刪除所有匹配的文本。 確保使用.Replacement.Text = "^&" 。 ^&將替換找到的相同文本。

Sub FormatNormal()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Style = ActiveDocument.Styles("Normal")
        .Text = ""
        .Replacement.Text = "^&"
        .Replacement.Font.Size = 10
        .Replacement.Font.Name = "Calibri"
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub