Derek braucht eine Möglichkeit, in einem Dokument zu finden, wann sich die Schriftart (Schriftartname) das nächste Mal ändert. Befindet sich die Einfügemarke beispielsweise in der Mitte des Dokuments, möchte er, dass Word ihn ab dem Punkt informiert, an dem die nächste Änderung erfolgt. Derek fragt sich, ob es einen Weg gibt, eine solche Aufgabe zu erfüllen.

Es gibt keine integrierte Möglichkeit, diese Aufgabe auszuführen, obwohl Sie möglicherweise visuell erkennen können, wann sich die Schriftart geändert hat. Ich kann es oft erkennen, indem ich einfach den Zoomfaktor für das Dokument erhöhe (z. B. auf 200% oder 250%) und dann das Dokument visuell scanne, um nach Änderungen im Erscheinungsbild zu suchen. Dies hängt natürlich von der visuellen Ungleichheit zwischen den beiden benachbarten Schriftarten ab.

Wenn Sie eine makrobasierte Lösung bevorzugen, können Sie eine erstellen, die den Schriftnamen an der aktuellen Position der Einfügemarke speichert und dann jedes verbleibende Zeichen des Dokuments durchläuft. Wenn sich die Schriftart von der Originalschrift unterscheidet, können Sie den Benutzer benachrichtigen. Hier ist ein Beispiel für ein solches Makro:

Sub ChangeOfFont()

Dim fntName As String     Dim aRange As Range

Set aRange = Selection.Range     aRange.Collapse Direction:=wdCollapseStart     aRange.MoveEnd Unit:=wdCharacter     fntName = aRange.Font.Name     Do         aRange.MoveEnd Unit:=wdCharacter         aRange.MoveStart Unit:=wdCharacter     Loop Until aRange.Font.Name <> fntName Or _       aRange.Bookmarks.Exists("\EndOfDoc")

aRange.Select     If aRange.Bookmarks.Exists("\EndOfDoc") Then         MsgBox "End of document"

Else         MsgBox "Font change from " & fntName & " to " & aRange.Font.Name     End If End Sub

Der Großteil der Arbeit wird in der Do-Schleife erledigt, in der die Schriftart jedes Zeichens überprüft wird, um festzustellen, ob sie sich geändert hat. Beachten Sie, dass die Schleife auch prüft, ob das Ende des Dokuments erreicht ist und an welchem ​​Punkt das Makro gestoppt werden soll.

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