David ist Schriftsteller und verwendet häufig die Rechtschreib-, Stil- und Grammatikprüfungen von Word. Manchmal findet er, dass die Vorschläge von Word zur Korrektur der Grammatik schlecht sind und er hat gelernt, sie zu ignorieren. Eine Sache, mit der er Probleme hat, ist die Verwendung von Anführungszeichen um den Dialog.

Word erkennt nicht, ob David am Ende oder am Anfang eines Satzes ein Anführungszeichen weggelassen hat. Er erinnert sich, dass er vor Jahren ein Textverarbeitungsprogramm verwendet hat, das grüne Anführungszeichen in Ihrem Dokument hinterlassen hat, um auf ein fehlendes Anführungszeichen hinzuweisen. Er fragt sich, ob Word dazu gebracht werden kann, fehlende Anführungszeichen zu erkennen.

Es gibt keine Möglichkeit, dies nativ in Word zu tun. Der Grund liegt wahrscheinlich darin, dass es fast unmöglich ist zu bestimmen, wo ein Zitat beginnen und enden soll. Wenn Sie beispielsweise einen Absatz mit vier Sätzen haben und irgendwo in diesem Absatz ein Anführungszeichen setzen, wie kann Word dann feststellen, ob dieses Zeichen den Anfang oder das Ende eines Anführungszeichens kennzeichnet? Wenn es der Anfang ist, wie würde Word wissen, ob die Endmarke am Ende des Satzes, am Ende des zweiten Satzes oder am Ende des Absatzes stehen sollte? (Das gleiche Rätsel tritt auf, wenn das Zitat das Endzitat ist, die Platzierungsschwäche sich jedoch nach links statt nach rechts erstreckt.)

Kombinieren Sie diese potenzielle Verwirrung mit der Tatsache, dass sich das schließende Anführungszeichen möglicherweise nicht einmal im aktuellen Absatz befindet – es könnte sich am Ende eines späteren Absatzes befinden, wenn der markierte Dialog tatsächlich endet.

Sie könnten jedoch ein Makro entwickeln, das zumindest einige elementare Überprüfungen für Sie durchführt. Das folgende Makro springt zum Anfang des Dokuments und sucht nach dem ersten Anführungszeichen. Es wird dann alles von diesem Zeichen bis zum Ende des Absatzes untersucht. Wenn Sie nicht intelligente Anführungszeichen verwenden, wird grundsätzlich geprüft, ob eine gerade Anzahl von Anführungszeichen vorhanden ist. Wenn Sie intelligente Anführungszeichen verwenden, wird geprüft, ob für jedes Startzitat ein Endzitat vorhanden ist. Wenn sich herausstellt, dass eine der beiden Bedingungen falsch ist, wird der Text hervorgehoben.

Sub MarkUnevenQuotes()

Dim sRaw As String     Dim iNorm As Integer     Dim iSmart As Integer     Dim J As Long

Selection.HomeKey Unit:=wdStory     Application.ScreenUpdating = False     Selection.Find.ClearFormatting     With Selection.Find         .Text = """"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .Format = True         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute

While Selection.Find.Found         Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend         Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend         sRaw = Selection.Text         iNorm = 0         iSmart = 0         For J = 1 To Len(sRaw)

If Mid(sRaw, J, 1) = Chr(34) Then                 If iNorm > 0 Then                     iNorm = iNorm - 1                 Else                     iNorm = iNorm + 1                 End If             End If             If Mid(sRaw, J, 1) = Chr(147) Then                 iSmart = iSmart + 1             End If             If Mid(sRaw, J, 1) = Chr(148) Then                 iSmart = iSmart - 1             End If         Next J         If iNorm > 0 Or iSmart > 0 Then             Selection.Range.HighlightColorIndex = wdYellow         End If         Selection.Collapse Direction:=wdCollapseEnd         Selection.Find.Execute     Wend     Selection.HomeKey Unit:=wdStory     Application.ScreenUpdating = True End Sub

Wenn das Makro fertig ist, erhalten Sie eine Reihe von Textauswahlen, die hervorgehoben werden, wenn sie visuell überprüft werden müssen. Das Makro findet jedoch keine Endzitate, die außerhalb des Absatzes liegen, in dem das erste Anführungszeichen steht.

_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 (13293) gilt für Microsoft Word 2007, 2010, 2013, 2016 und Word in Office 365.