Es kann vorkommen, dass Sie ein Dokument entwickelt haben und eine Gliederung – Ihre Überschriften – mit anderen Personen teilen möchten. Glücklicherweise können Sie dies mit Word ziemlich einfach tun. Am einfachsten ist es natürlich, einfach die Gliederung auszudrucken. Gehen Sie dazu folgendermaßen vor:

  1. Wechseln Sie zur Gliederungsansicht Ihres Dokuments.

  2. Verwenden Sie die Gliederungssymbolleiste, um die Überschriftenebenen anzugeben, die angezeigt werden sollen.

  3. Klicken Sie in der Standardsymbolleiste auf das Druckwerkzeug oder wählen Sie im Menü Datei die Option Drucken.

Beachten Sie, dass beim Anzeigen einer Gliederung das Drucken sehr wichtig ist. Wenn Sie Druckvorschau wählen, zeigt Word nicht nur die Überschriften in Ihrem Dokument an, was bedeutet, dass Sie nicht sehen, was wirklich gedruckt wird. Wenn Sie in der Seitenansicht die Option Drucken auswählen, werden mehr als nur Ihre Überschriften gedruckt. Dies kann einige Leser zu der Annahme führen, dass Sie nicht nur Ihre Gliederung drucken können. Das ist einfach irreführend; Wenn Sie den obigen Anweisungen folgen, können Sie Ihre Gliederung problemlos ausdrucken.

Diese Gliederung kann dann nach Bedarf mit anderen geteilt werden.

Aber was ist, wenn Sie ein Dokument (keinen Ausdruck) freigeben möchten, das nur aus der Gliederung besteht? Hier wird es etwas klebriger. Die Idee ist, dass Sie einen Weg finden müssen, um alles außer den Überschriften zu entfernen. Der naheliegende Weg, dies zu tun, ist die Verwendung eines Inhaltsverzeichnisses oder der Verwendung von RD-Feldern. (Diese beiden Techniken wurden in anderen Ausgaben von WordTips behandelt.)

Wenn Sie nur die Überschriften ziemlich oft teilen müssen, besteht eine einfachere Lösung darin, ein Makro zu schreiben, das alles außer den Überschriften aus dem Dokument entfernt. Das folgende VBA-Makro macht den Trick ganz gut:

Sub ReduceToHeadings()

Dim docActive As Document     Dim objPara As Paragraph     Dim objShape As Shape

' set fixed ref to the working document     Set docActive = ActiveDocument

' loop and remove any non-"Heading" paragraphs     For Each objPara In docActive.Content.Paragraphs         If LCase(Left(objPara.Style, 7)) <> "heading" Then             objPara.Range.Delete         End If     Next objPara End Sub

Dieses Makro führt einfach eine Schleife durch, um Absätze im Hauptteil des Dokuments zu entfernen, wenn der Absatz keinen Überschriftenstil verwendet. Es wird natürlich davon ausgegangen, dass die Überschriftenstile nicht umbenannt wurden. Wenn der Vorgang abgeschlossen ist, bleiben nur die Überschriften übrig. Sie sollten sicherstellen, dass Sie den Befehl Speichern unter sofort verwenden, um ein Dokument zu erhalten, das Sie für andere freigeben können. Verwenden Sie nicht den Befehl Speichern, da Sie sonst Ihr Originaldokument überschreiben (definitiv eine schlechte Sache).

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

Überschriften mit anderen teilen.