Hilary merkt an, dass die meisten Dokumente, die das Unternehmen verwendet, auf einer Times Roman-Schrift standardisiert sind. Hin und wieder bearbeitet jedoch jemand ein Dokument und wendet eine andere Schriftart auf einen Teil des darin enthaltenen Textes an. Sie möchte diese „Formatierungsanomalien“ leicht finden. Hilary fragt sich, ob es eine Möglichkeit gibt, ein Dokument nach Text zu durchsuchen, der keine bestimmte Schriftart verwendet.

Es gibt verschiedene Möglichkeiten, um das zu finden, was Sie benötigen, und möglicherweise das Problem zu beheben. Erstens können Sie Suchen und Ersetzen auf folgende Weise verwenden:

  1. Drücken Sie Strg + F. Word zeigt die Registerkarte Suchen des Dialogfelds Suchen und Ersetzen an.

  2. Klicken Sie auf die Schaltfläche Mehr, falls verfügbar.

  3. Stellen Sie sicher, dass das Feld Suchen nach leer ist.

  4. Klicken Sie auf Format und wählen Sie dann Schriftart. Word zeigt das Dialogfeld Schriftart suchen an. (Siehe Abbildung 1.)

  5. Verwenden Sie die Steuerelemente im Dialogfeld, um anzugeben, dass Sie die von Ihnen verwendete Times Roman-Schriftart suchen möchten. (Wählen Sie einfach die Schriftart. Sie müssen keine anderen Einstellungen vornehmen, es sei denn, Sie möchten.)

  6. Klicken Sie auf OK. Die gesuchten Schriftartenspezifikationen werden direkt unter dem Feld Suchen nach angezeigt.

  7. Aktivieren Sie das Kontrollkästchen Alle Elemente hervorheben.

  8. Klicken Sie auf Alle finden.

Zu diesem Zeitpunkt wird das Dialogfeld geschlossen und Word hebt pflichtbewusst alle Instanzen von Times Roman in Ihrem Dokument hervor. Sie können einfach durch das Dokument scrollen, um zu sehen, was nicht hervorgehoben ist – dies sind die „Anomalien“, die Sie suchen.

Sie können auch Suchen und Ersetzen verwenden, um herausragende Formatierungen auf Text anzuwenden, der nicht in der Schriftart Times Roman vorliegt. Stellen Sie einfach einige Formatierungen fest, die Sie im Dokument nicht verwenden, z. B. doppelte Unterstreichungen oder roter Text. Wählen Sie das gesamte Dokument aus (Strg + A) und wenden Sie diese Formatierung auf das gesamte Dokument an. Verwenden Sie dann Suchen und Ersetzen, um alle Instanzen von Times Roman zu finden (siehe die obigen Schritte) und ersetzen Sie es durch Times Roman ohne die zuvor angewendete herausragende Formatierung. Am Ende haben Sie nur den Text, der nicht mit der herausragenden Formatierung von Times Roman formatiert ist.

Wenn Sie möchten, können Sie die im Dokument verwendete Schriftart mithilfe eines Makros ändern. Das folgende kleine Makro zeigt die Schriftart, die für jedes Wort in Ihrem Dokument verwendet wird:

Sub FixFormatAnomalies()

Dim aWord

For Each aWord In ActiveDocument.Words         If aWord.Font.Name <> "Times Roman" Then             aWord.Font.Name = "Times Roman"

End If     Next aWord End Sub

Wenn die für ein Wort verwendete Schriftart nicht Ihren Wünschen entspricht, ändert die Routine die Schriftart. Das einzige, was Sie tun müssen, damit das Makro in Ihrem Fall funktioniert, ist, den gewünschten Schriftnamen in zwei Zeilen zu ändern.

(Sie sollten den Schriftnamen genau so verwenden, wie er in der Liste der von Word verwendbaren Schriftarten angezeigt wird. Achten Sie besonders auf die Großschreibung.)

Ein anderer Ansatz besteht darin, einfach jedes Zeichen im Dokument zu überprüfen und das Zeichen hervorzuheben, wenn es nicht die gewünschte Schriftart verwendet. Das folgende Makro hebt die fehlerhaften Zeichen gelb hervor:

Sub HighlightOtherFonts()

Dim iCounter As Integer     Dim sFontName As String     Dim sPrompt As String     Dim sTitle As String     Dim sDefault As String     Dim c As Range

' Gets the name of the font as typed by the user     sPrompt = "Type the name of the font that is OK to "

sPrompt = sPrompt & "have in the document."

sTitle = "Acceptable Font Name"

sDefault = ActiveDocument.Styles(wdStyleNormal).Font.Name     sFontName = InputBox(sPrompt, sTitle, sDefault)



' Verifies that the name of the font is valid     For Each sFont In Application.FontNames         If UCase(sFontName) = UCase(sFont) Then             ' Changes the user-typed name of the font to             ' the version recognized by the application             ' Example: 'times new roman' (user-typed) is             ' changed to 'Times New Roman' (application version)

sFontName = sFont             Exit For         Else             ' Terminates the loop if the name of the font is invalid             iCounter = iCounter + 1             If iCounter = FontNames.Count Then                 sPrompt = "The font name as typed does not match "

sPrompt = sPrompt & "any fonts available to the "

sPrompt = sPrompt & "application."

sTitle = "Font Name Not Found"

MsgBox sPrompt, vbOKOnly, sTitle                 Exit Sub             End If         End If     Next sFont

' Checks each character in the document, highlighting     ' if the character's font doesn't match the OK font     For Each c In ActiveDocument.Characters         If c.Font.Name <> sFontName Then             ' Highlight the selected range of text in yellow             c.FormattedText.HighlightColorIndex = wdYellow         End If     Next c End Sub

Eine der netten Funktionen dieses Makros ist, dass Sie zur Eingabe der Schriftart aufgefordert werden, die Sie für akzeptabel halten. Anschließend wird überprüft, ob die von Ihnen eingegebenen Schriftarten mit einer der im System verfügbaren Schriftarten übereinstimmen. Da das Makro jedes Zeichen im Dokument einzeln überprüft, müssen Sie möglicherweise Geduld haben, während es ausgeführt wird. Je länger das Dokument ist, desto länger dauert es, bis das Makro seine Arbeit abgeschlossen hat.

Wenn Sie einfach das nächste Auftreten einer Schriftartenänderung suchen möchten, ist das folgende sehr kurze Makro sehr praktisch:

Sub FindDifferentFont()

Selection.SelectCurrentFont   Selection.Collapse wdCollapseEnd End sub

Die SelectCurrentFont-Methode erweitert die aktuelle Auswahl, bis sich entweder die Schriftart (Schriftart) oder die Schriftgröße ändert. Wenn Sie also am Anfang des Dokuments beginnen und das Makro ausführen (möglicherweise können Sie es einer Tastenkombination zuweisen), wird die Einfügemarke an die Stelle verschoben, an der die aktuelle Schriftart endet und eine neue Schriftart beginnt.

_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 (11069) 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:

Suchen von Text ohne bestimmte Schriftart.