一部のドキュメントでは、引用符で囲まれた情報に下線を引く必要がある場合があります。たとえば、一部の法的文書では、引用符で囲まれたすべての資料を見つけて、引用符の間の情報に下線を引く必要がある場合があります。これは、下線または引用符のいずれかを使用するが、両方を使用しない通常の散文の記述とは異なります。

引用されたすべてのテキストを検索して下線を引く必要がある場合は、次のマクロを使用できます。引用符を検索し、見つかった場合は、次の引用符までのすべてに下線を引きます。実際には引用符自体に下線を引くことはないことに注意してください。

Sub UnderlineQuoted()

Dim bDelQuotes As Boolean     Dim bMvRt As Boolean     Selection.HomeKey Unit:=wdStory

' controls deletion of quote marks     bDelQuotes = False          With Selection.Find         .ClearFormatting         .Text = Chr(34)

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .Execute     End With

While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         ' switch on selection extend mode         Selection.ExtendMode = True         bMvRt = True         ' find second quote of this pair         Selection.Find.Execute         If Selection.Find.Found Then             Selection.MoveLeft Unit:=wdCharacter, Count:=1             If Len(Selection.Range.Text) > 0 Then                 ' make it underlined                 Selection.Font.Underline = True                 ' delete quote marks, if appropriate                 If bDelQuotes Then                     Selection.Cut                     Selection.TypeBackspace                     Selection.Delete Unit:=wdCharacter, Count:=1                     Selection.Paste                     bMvRt = False                 End If             End If         End If         Selection.ExtendMode = False         If bMvRt Then             Selection.Collapse Direction:=wdCollapseEnd             Selection.MoveRight Unit:=wdCharacter, Count:=1         End If         Selection.Find.Execute     Wend End Sub

bDelQuotes変数の設定に注意してください。 Falseに設定されている場合（ここにあるように）、引用符自体はマクロによって削除されません。変数の値をTrueに変更すると、マクロはドキュメント内の引用符を削除します。引用符の間のテキストに実際に下線が引かれている場合にのみ、引用符が削除されることに注意してください。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（10473）は、Microsoft Word 2007、2010、2013、および2016に適用されます。Wordの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ word-Underlining_Quoted_Text [Underlining QuotedText]。