【ワードマクロ】下線の色を変更：作業が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