wordの文字サイズを一括変更する(VBA)

こんにちは、沙代です。
wordのスタイルの文字サイズの変更をまとめてするときに手間取ってしまったので、メモとして残そうと思います。

環境
MacOS: macOS Montery 12.6.2 (Apple M1 Pro)

Wordファイルを開く。

やり方省略。

Wordにdeveloperタブを表示させる

やり方省略。

DeveloperタブでVisual Basicを選択する

Windowが立ち上がります。

Insert → Module

Moduleの入力画面が出てきます。

コード入力

Sub ChangeAllStylesFontSizeTo12()
    Dim sty As Style
    
    ' 文書内のすべてのスタイルをループ
    For Each sty In ActiveDocument.Styles
        ' スタイルが段落または文字スタイルの場合に処理を行う
        If sty.Type = wdStyleTypeParagraph Or sty.Type = wdStyleTypeCharacter Then
            ' スタイルのフォントサイズを12ptに設定
            sty.Font.Size = 12
        End If
    Next sty
End Sub

Run

Run(再生ボタンみたいなもの)を押します。
すると、文字サイズが全て変更されました。

上書き保存

上書き保存します。スクリプトは削除しておきます。

最後に

スタイルからいじると詳しい人っぽくて楽しいですよね！