对于某些文档，您可能需要在引号中加下划线信息。例如，对于某些法律文件，您可能需要查找所有用引号括起来的材料，然后使引号之间的信息带有下划线。这与常规的散文写作不同，在常规的散文写作中，您将使用下划线或引号，但不能同时使用两者。

如果需要搜索所有带引号的文本并使其带有下划线，则可以使用以下宏。它搜索引号，当找到引号时，它会将所有内容加底线，直到下一个引号。请注意，它实际上不会在引号本身下划线。

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_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1589）适用于Microsoft Word 97、2000、2002和2003。您可以找到Word（Ribbon 2007）的功能区界面的本技巧版本。和更高版本）在这里：

带引号的文字下划线。