【ワードマクロ】下線の色を変更：作業が3倍速くなる方法

ワードマクロで、下線の色を変更するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

下線の色を変更

以下のWordVBAを実行すると、下線の色を変更します。

Sub 下線の色を変える()

    '検索条件クリア
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    
    '検索
    With Selection.Find
        .Font.Underline = wdUnderlineSingle
        .Wrap = wdFindContinue
        
        '下線の色を設定
        .Replacement.Font.UnderlineColor = wdColorRed
    End With
    
    '下線の色を変更
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

マクロ実行後

下線の色を「黒 → 赤」に色付けしました。

【ワードマクロ】下線を引く1行コード：4つの使用例を紹介するよ

...