【ワードマクロ】文字列を下線・斜体・太字にする｜文字装飾を自動化８選

ワードマクロで、文字列を下線・斜体・太字にするVBAコードをご紹介します。

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

Word VBAで文字に下線を引く方法
Word VBAで文字に二重下線を引く方法
Word VBAで文字に太い下線を引く方法
Word VBAで文字に点線下線を引く方法
Word VBAで文字を斜体に設定する方法
Word VBAで特定の文字列を斜体にする方法
Word VBAで文字を太字（ボールド）にする方法
Word VBAで複数の文字列を一括で太字にする方法

Word VBAで文字に下線を引く方法

以下のWordVBAを実行すると、下線を引きます。


Sub 下線を設定()
 
　Selection.Font.Underline = wdUnderlineSingle

End Sub

マクロ実行後

選択している文字に下線を追加しました。

Word VBAで文字に二重下線を引く方法

以下のWordVBAを実行すると、二重下線を引きます。


Sub 二重下線を設定()
 
　Selection.Font.Underline = wdUnderlineDouble

End Sub

マクロ実行後

選択している文字に二重下線を追加しました。

Word VBAで文字に太い下線を引く方法

以下のWordVBAを実行すると、太い下線を引きます。


Sub 太い下線を設定()
 
　Selection.Font.Underline = wdUnderlineThick

End Sub

マクロ実行後

選択している文字に太い下線を追加しました。

Word VBAで文字に点線下線を引く方法

以下のWordVBAを実行すると、点線下線を引きます。


Sub 点線下線を設定()
 
　Selection.Font.Underline = wdUnderlineThick

End Sub

マクロ実行後

選択している文字に点線下線を追加しました。

Word VBAで文字を斜体に設定する方法

以下のWordVBAを実行すると、文字を斜体にします。


Sub 斜体に変更()
 
　Selection.Font.Italic = wdToggle

End Sub

マクロ実行後

選択している文字を斜体にしました。

※フォント種類によっては、斜体に設定しても適用されないようです。（メイリオなど）

Word VBAで特定の文字列を斜体にする方法

以下のWordVBAを実行すると、文字を斜体にします。


Sub 特定文字に斜体を設定()
 
  Dim Target As String
 
  '文書の先頭を選択
  ActiveDocument.Range(0, 0).Select
     
  '対象文字列を変数に格納
  Target = "ゴールド"
  
  '条件クリア
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  
  '斜体設定
  Selection.Find.Replacement.Font.Italic = True
 
  '斜体設定を実行
  With Selection.Find

    .Text = Target
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .MatchCase = True
    .Execute Replace:=wdReplaceAll

  End With
 
End Sub

マクロ実行後

特定の文字に斜体を設定しました。

※フォント種類によっては、斜体に設定しても適用されないようです。（メイリオなど）

Word VBAで文字を太字（ボールド）にする方法

以下のWordVBAを実行すると、文字を太文字に設定します。


Sub 太文字に変更()
 
Dim Target As String

    '文書の先頭を選択
    ActiveDocument.Range(0, 0).Select
    
    '太文字にしたい文字を変数に格納
    Target = "会員"
    
    '太文字を適用
    With Selection.Find
        .Text = Target

        Do While .Execute
            Selection.Font.Bold = wdToggle
        Loop
    End With

End Sub

マクロ実行後

「会員」という文字を、太文字にしました。

Word VBAで複数の文字列を一括で太字にする方法

以下のWordVBAを実行すると、文字を一括で太文字に変更します。


Sub 複数の単語に太文字を設定()
 
Dim i As Long
Dim Target() As Variant
     
    '複数単語を配列に格納
    Target = Array("会員", "ゴールド", "主婦")
     
    '配列分ループ
    For i = 0 To UBound(Target)
     
        '文書の先頭を選択
        ActiveDocument.Range(0, 0).Select
     
        '太文字を適用
        With Selection.Find
            .Text = Target(i)
          
            Do While .Execute
                Selection.Font.Bold = wdToggle
            Loop
             
        End With
     
    Next i
    
    Erase Target
 
End Sub