Word で下線の書式を斜体に置き換えるにはどうすればよいですか？

状況によっては、Word 文書内のすべての下線付き文字を斜体に変更したり、その逆を行いたいこともあるでしょう。Word で下線付き文字を素早く斜体に置き換えるには、どうすればよいのでしょうか？以下の2 つの巧妙な方法で簡単に実現できます。

検索と置換で下線付き文字をすべて斜体に置き換える

VBA で下線付き文字をすべて斜体に置き換える

---

検索と置換で下線付き文字をすべて斜体に置き換える

手順1：ホーム＞置換をクリックするか、ショートカットキーCtrl + Hを使用して、「検索と置換」ダイアログボックスを開きます。

手順2：詳細設定ボタンをクリックすると、検索オプションが表示されます。

手順3：検索する文字列ボックスにカーソルを置き、書式ドロップダウンリストから下線のスタイルと色を選択します。

手順4：置換後の文字列ボックスにカーソルを置き、書式ドロップダウンリストからフォントを選択し、フォントスタイルリストで斜体を指定します。

    

手順5：OK＞すべて置換をクリックします。

注：

1．操作前に、書式をクリアをクリックして、検索する文字列ボックスと置換後の文字列ボックスに書式情報が含まれていないことを確認してください。

2．この処理では、下線付きテキストが斜体になりますが、下線自体は削除されません。

---

VBA で下線付き文字をすべて斜体に置き換える

また、VBA を使って下線を斜体に置き換えることも可能です。ただし、マクロに不慣れな方にはこの方法はおすすめしません。以下の手順に従ってください。

手順1：Alt+F11を押して、Word で VBA ウィンドウを開きます。

手順2：標準モジュールを挿入タブからクリックし、VBA コードを標準モジュールウィンドウに貼り付けます。

Word で下線付き文字をすべて斜体に置き換える VBA コード：

Sub ReplaceUnderlineWithItalic()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Font.Underline = wdUnderlineSingle
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Underline = wdUnderlineNone
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

手順3：実行ボタンをクリックして VBA コードを適用するか、F5キーを押してください。

注：

1．このコードは、色なしの単一の下線にのみ対応しています。他の下線スタイル（例：“wdUnderlineDouble”や“wdUnderlineThick”など）をご利用になる場合は、コード内の“wdUnderlineSingle”を該当するスタイルに変更してください。

2．このコードでは、下線付きテキストが斜体になりますが、下線自体は削除されません。

---