Mahmudは、ドキュメントのパーソナライズされたコピーを印刷する方法を求めました。彼は、通常のテキストファイル内の名前のリストを1行に1つずつ作成することから始め、それらの名前ごとに現在のWord文書のコピーを1部印刷したいと考えていました。さらに、彼はその人の名前をドキュメントのヘッダーに配置することを望んでいました。

このようなタスクを実行するプロセスは非常に簡単です。テキストファイルを開き、名前を取得してヘッダーに配置し、ドキュメントを印刷します。別の名前が取得され、ファイルに名前がなくなるまでこのプロセスが繰り返されます。次のマクロはそのようなプロセスを実装します：

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

マクロのトリッキーな部分は、.SeekViewプロパティを使用して、ドキュメント内のどのストーリーを操作するかを指定することです。ここで実装されているように、.SeekViewプロパティは、ヘッダー領域とメインドキュメントを切り替えるために繰り返し使用されます。ループの後（名前を取得して印刷する）

が完了すると、ヘッダー領域がクリアされ、.SeekViewがメインドキュメントに戻ります。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（152）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

link：/ wordribbon-Printing_Personalized_Copies_of_a_Document [ドキュメントのパーソナライズされたコピーの印刷]。