Bei einigen Dokumenten müssen Sie möglicherweise Informationen in Anführungszeichen unterstreichen. Beispielsweise müssen Sie für einige Rechtsdokumente möglicherweise das gesamte von Zitaten umgebene Material finden und dann die Informationen zwischen den Zitaten unterstrichen machen. Dies unterscheidet sich vom normalen Schreiben von Prosa, bei dem Sie entweder Unterstreichungen oder Anführungszeichen verwenden würden, aber nicht beide.

Wenn Sie nach dem gesamten zitierten Text suchen und ihn unterstrichen müssen, können Sie das folgende Makro verwenden. Es sucht nach Anführungszeichen und wenn es eines findet, unterstreicht es alles bis zum nächsten Anführungszeichen. Beachten Sie, dass die Anführungszeichen selbst nicht unterstrichen werden.

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

Achten Sie auf die Einstellung der Variablen bDelQuotes. Wenn auf False gesetzt (wie hier), werden die Anführungszeichen selbst vom Makro nicht gelöscht. Wenn Sie den Wert der Variablen in True ändern, werden die Anführungszeichen im Dokument durch das Makro entfernt. Beachten Sie, dass die Anführungszeichen nur entfernt werden, wenn der Text zwischen diesen Anführungszeichen tatsächlich unterstrichen wird.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (10473) gilt für Microsoft Word 2007, 2010, 2013 und 2016. Eine Version dieses Tipps für die ältere Menüoberfläche von Word finden Sie hier:

Unterstrichener zitierter Text.