Marginalien in Winword

Ich schreibe mit Winword 7.0 kleine Expertisen. Die Texte haben einen Einzug von drei Zentimetern, und ich ergänze sie oft durch Tabellen und Grafiken. Um auf die eingefügten Objekte referenzieren zu können, numeriere ich die Beschriftungen, die neben dem Objekt im eigentlichen Einzugsbereich stehen sollen. Das läßt sich nur mit Positionsrahmen realisieren. Dann funktioniert allerdings die automatische Verzeichniserstellung nicht. Wie bekomme ich dennoch ein automatisches Verzeichnis?

Tatsächlich kann Winword den Text im Positionsrahmen zum Beispiel für Verzeichnisse nicht richtig verarbeiten. Insgesamt hat Microsoft die Positionsrahmen in Winword wohl mehr als ein Hilfskonstrukt eingebaut, um wie in Lotus-Programmen die variable Plazierung von Objekten wie Grafiken anbieten zu können. Mit der Verarbeitung von Text gibt es immer wieder Probleme. Deshalb sollten Sie statt dessen unsichtbare Tabellen für Ihre Expertisen einsetzen.
Das Makro im Listing-Kasten unten fügt beispielsweise eine Tabelle ein, die am linken Seitenrand beginnt und aus zwei Spalten mit drei Zentimeter und 13 Zentimeter Breite besteht. Mit 16 Zentimeter Breite ist der übliche Druckbereich abgedeckt; die linke Spalte mit drei Zentimeter Breite entspricht Ihrem Einzug. Der Marginaltext beziehungsweise die Bildbeschriftung kommt dann in die linke Spalte, das Objekt in die rechte. Wenn Sie die Tabelle nicht mit Rahmen formatieren, sieht sie auf dem Ausdruck niemand, und die automatische Verzeichnis- erstellung funktioniert innerhalb der Tabelle trotzdem.
Um das Makro anzuwenden, fügen Sie zunächst Ihre Grafik ein und geben ihr eine Beschriftung, wie Sie es bisher gewohnt sind. Anschließend steht der Cursor am Ende der gerade eingefügten Beschriftung. An dieser Stelle starten Sie das Makro. Es schneidet zunächst die gerade eingefügte Beschriftung aus und fügt eine Tabelle mit nur einer Zeile und zwei Spalten ein. Anschließend fügt es die Beschriftung in die linke Spalte ein.
Danach löscht es die unnötige Absatzmarke und paßt die Absatzformatierung der Zelle an. Im nächsten Schritt formatiert das Makro die Spaltenbreiten gemäß Ihrem Einzug: die linke Spalte drei Zentimeter, die rechte 13 Zentimeter. Falls Sie andere Maße verwenden, sollten Sie die Größen entsprechend anpassen.
Sobald die Tabelle die richtige Form hat, schneidet das Makro die betroffene Grafik aus und kopiert sie in die rechte Spalte. Nach getaner Arbeit verschiebt es noch die Cursorposition unter die neu angelegte Tabelle, und Sie können sofort Ihre Arbeit fort- setzen. Die automatische Verzeichnis- erstellung wird dann keine Probleme mehr bereiten.

Makro-Listing: Marginalien in Winword
Sub MAIN¶
BeginnZeile¶
EndeZeile 1¶
BearbeitenAusschneiden¶
TabelleTabelleEinfügen .AnzSpalten =  ä2ô, .AnzTabZeilen =  ä1ô¶
BearbeitenEinfügen¶
BearbeitenLöschen - 1¶
ZeichenRechts 1, 1¶
FormatAbsatz .EinzugLinks =  ä0 cmô, .EinzugRechts =  ä0 cmô, .Vor =  ä6 ptô, .Nach =  ä6 ptô¶
TabelleSpaltenBreite .SpaltenBreite =  ä3 cmô, .AbstandZwischenSpalten =  ä0,25 cmô, .NächsteSpalte¶
TabelleSpaltenBreite .SpaltenBreite =  ä13 cmô, .AbstandZwischenSpalten =  ä0,25 cmô¶
ZeileOben 1¶
ZeichenLinks 1, 1¶
BearbeitenAusschneiden¶
BearbeitenLöschen¶
NächsteZelle¶
BearbeitenEinfügen¶
ZeileUnten 1¶
End Sub¶