Mahmud bat um eine Möglichkeit, personalisierte Kopien eines Dokuments zu drucken. Er begann mit einer Liste von Namen in einer regulären Textdatei, eine pro Zeile, und er wollte für jeden dieser Namen eine Kopie des aktuellen Word-Dokuments drucken. Außerdem wollte er, dass der Name der Person in die Kopfzeile des Dokuments aufgenommen wird.

Der Vorgang zum Ausführen einer solchen Aufgabe ist recht einfach: Öffnen Sie die Textdatei, greifen Sie auf einen Namen zu, fügen Sie ihn in die Kopfzeile ein und drucken Sie das Dokument. Ein anderer Name wird abgerufen und der Vorgang wiederholt, bis die Datei keine Namen mehr enthält. Das folgende Makro implementiert einen solchen Prozess:

Sub PutNamesInHeader()

Dim sName As String

Open "c:/names.txt" For Input As #5     Do While Not EOF(5)

' get the name         Line Input #5, sName

ActiveWindow.ActivePane.View.SeekView = _           wdSeekCurrentPageHeader         Selection.WholeStory         Selection.Delete         Selection.TypeText Text:=sName

ActiveWindow.ActivePane.View.SeekView = _           wdSeekMainDocument         ActiveDocument.PrintOut     Loop

Close #5

ActiveWindow.ActivePane.View.SeekView = _       wdSeekCurrentPageHeader     Selection.WholeStory     Selection.Delete     ActiveWindow.ActivePane.View.SeekView = _       wdSeekMainDocument End Sub

Der schwierige Teil des Makros besteht darin, mithilfe der .SeekView-Eigenschaft anzugeben, mit welcher Story im Dokument Sie arbeiten möchten. Wie hier implementiert, wird die .SeekView-Eigenschaft wiederholt verwendet, um zwischen dem Header-Bereich und dem Hauptdokument zu wechseln. Nach der Schleife (Namen greifen und drucken)

abgeschlossen ist, wird der Kopfbereich gelöscht und die .SeekView wird zurück zum Hauptdokument geschaltet.

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