Versteckter Text ist eine große Hilfe für diejenigen, die bestimmte Teile eines Dokuments entweder vor dem Anzeigen oder vor dem Drucken „verbergen“ möchten. Es ist jedoch nicht sehr gut, um Informationen auszublenden, die andere nicht in einem von Ihnen verteilten Dokument sehen sollen. Sie (diejenigen, an die Sie das Dokument verteilen) können versteckten Text genauso einfach wie möglich anzeigen oder drucken.

Es gibt keine integrierte Funktion in Word, mit der Sie versteckten Text „sperren“ können, damit er nicht angezeigt werden kann. Die beste Lösung besteht also darin, einfach Ihren gesamten verborgenen Text als letzten Schritt zu entfernen, bevor Sie Ihr Dokument verteilen.

Sie können dies tun, indem Sie die Funktionen zum Suchen und Ersetzen von Word wie folgt verwenden:

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

  2. Klicken Sie auf die Schaltfläche Mehr, falls verfügbar. (Siehe Abbildung 1.)

  3. Positionieren Sie die Einfügemarke im Feld Suchen nach und stellen Sie sicher, dass sie leer ist.

  4. Klicken Sie auf die Schaltfläche Format und wählen Sie Schriftart. Word zeigt das Dialogfeld Schriftart suchen an. (Siehe Abbildung 2.)

  5. Aktivieren Sie das Kontrollkästchen Verstecktes Attribut, bis ein durchgehend schwarzes Häkchen angezeigt wird. (Möglicherweise müssen Sie mehrmals darauf klicken.)

  6. Klicken Sie auf OK. Das Dialogfeld „Schriftart suchen“ wird ausgeblendet und die Wörter „Format: Versteckt“ sollten direkt unter dem Feld „Suchen nach“ angezeigt werden.

  7. Stellen Sie sicher, dass das Feld Ersetzen durch leer ist.

  8. Klicken Sie auf Alle ersetzen.

Wenn Sie feststellen, dass versteckter Text häufig entfernt wird, können Sie den Vorgang automatisieren, indem Sie ein Makro aufzeichnen, das die oben genannten Schritte ausführt, oder Sie können das folgende Makro verwenden:

Sub StripAllHidden()

Dim rngsStories As Word.StoryRanges     Dim rngStory As Word.Range

On Error GoTo NoDocOpen         Set rngsStories = ActiveDocument.StoryRanges     On Error GoTo 0

'Need to loop through all 'stories' to     'remove hidden text from footnotes, headers,     'etc. as well as body text.



For Each rngStory In rngsStories         With rngStory.Find             .ClearFormatting             .Font.Hidden = True             Call .Execute(vbNullString, False, False, False, _                 False, False, True, wdFindContinue, True, _                 ReplaceWith:=vbNullString, _                     Replace:=wdReplaceAll)

End With     Next     Exit Sub NoDocOpen:

End Sub

Der andere Vorteil dieses Makros besteht darin, dass es auch an Stellen nach verstecktem Text sucht, an denen die reguläre Such- und Ersetzungsfunktion dies nicht tut: Fußnoten, Endnoten, Kopf- und Fußzeilen usw.

_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.

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

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (625) 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: