Bruce sucht nach einer Möglichkeit, dass Word lange Sätze in einem Dokument automatisch markiert. Zum Beispiel möchte er vielleicht, dass diese Sätze mit mehr als 20 Wörtern in einer bestimmten Farbe markiert sind, damit sie leicht gefunden werden können.

Glücklicherweise unterhält Word eine über VBA zugängliche Satzsammlung, die aus jedem Satz in einem Dokument besteht. Sie können jedes Element in dieser Sammlung (jeden einzelnen Satz) untersuchen, um festzustellen, ob es länger als Ihre gewünschte Länge ist. Das folgende Makro zeigt ein Beispiel dafür.

Sub Mark_Long()

Dim iMyCount As Integer     Dim iWords As Integer

If Not ActiveDocument.Saved Then         ActiveDocument.Save     End If

'Reset counter     iMyCount = 0

'Set number of words     iWords = 20

For Each MySent In ActiveDocument.Sentences         If MySent.Words.Count > iWords Then              MySent.Font.Color = wdColorRed             iMyCount = iMyCount + 1         End If     Next     MsgBox iMyCount & " sentences longer than " & _       iWords & " words."

End Sub

Beachten Sie, dass jeder Satz untersucht wird. Wenn er länger als die gewünschte Länge ist (definiert durch die Variable iWords), wird der Satz in eine rote Schriftfarbe geändert. Auf diese Weise können Sie das Dokument leicht untersuchen und feststellen, welche Sätze die von Ihnen angegebene Länge überschreiten.

_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 (3381) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Lange Sätze finden.