マクロを使用してWordのテキストを自動的に書式設定する方法はありますか？

Question

私はHeading1、Heading2などのようなテキストスタイルを持つ単語文書を持っているとしましょう。これらのスタイルをマクロごとに適用したいと思います。また、正しいスタイルがマクロを使用して使用されているかどうかを確認したい。私はこれらを行う方法がありますか？

Answer 1

あなたの質問から私が理解したところで、自動的にスタイルを置き換えたいと思います。ここで

は、あなたがそれをやって助けることができるマクロです：

Public Sub SearchReplaceStyles() 

Dim search_style As String ' the style which apparently seem out of style 
Dim replace_style As String ' the desired style 

search_style = "Heading 1" 
replace_style = "Heading 2" 

With Selection.Find 
    .ClearFormatting 
    .Style = ActiveDocument.Styles(search_style) 
    .Replacement.ClearFormatting 
    .Replacement.Style = ActiveDocument.Styles(replace_style) 
    .Wrap = wdFindContinue 
    .Execute Replace:=wdReplaceAll 
End With 

End Sub