VBA

Word で表番号・図番号へのリンクを青くする

2023.11.16

by ひつじん
0

Word で論文などをつくっていると、表番号や図番号を相互参照でつくることも多いと思います。

そんな相互参照リンクを、あとでまとめてウェブサイトでよくある青文字のフォントに変えたい時に使うマクロです。

Option Explicit

Sub main()

Dim flds As Fields
Dim i As Integer

Set flds = ThisDocument.Fields

For i = 1 To flds.Count
    If flds(i).Type = wdFieldRef Then
        flds(i).Select
        Selection.Font.Color = wdColorBlue
    End If
Next i

End Sub

やっていることは単純で、

ドキュメント内のフィールドコードをコレクションとして取得
1つずつTypeを確認
wdFieldRef であれば選択して文字色を青に設定

だけです。

なお、フィールドコードのタイプは列挙体で、https://learn.microsoft.com/ja-jp/office/vba/api/word.wdfieldtype で確認できます。

関連