単語の文書で見出し、副見出し、目次、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マクロを使用してどのようにすればよいですか？あなたは、スタイルNormalがドキュメントに適用されていることを確信している、あなたがNormalスタイルでそれらの部品のフォントプロパティを変更したい場合は

Answer 1

、あなたは以下のように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