個々のファイルへのマージ(Microsoft Word)
Wordの差し込み印刷機能を使用する場合、結果を直接印刷するか、新しいドキュメントを作成するかを選択できます。後者のオプションを選択した場合、結果のドキュメントには、通常はプリンターに送信されるすべての情報が含まれます。たとえば、マージドキュメントが2ページの文字である場合、結果のドキュメントの各文字はセクション区切りで区切られます。したがって、2ページのレターを150の異なるアドレスとマージする場合、150のセクション区切り(2ページに1つ)を含む300ページのドキュメントになります。
一部の人にとっては、個々のファイルにマージできればもっと便利です。たとえば、上記の例では、それぞれ2ページの長さの150個の個別のドキュメントファイルが必要になる場合があります。残念ながら、これはWordの差し込み印刷機能を使用するときに使用できるオプションの1つではありません。このタスクを実行するための唯一の答えは、マージされたドキュメント(上記の300ページのもの)に基づいて各セクションを取得し、それを独自のドキュメントファイルに保存するマクロを作成することです。
マイクロソフトのナレッジベースを見ると、この問題を扱った古い記事があることがわかります。
http://support.microsoft.com/kb/216201
この記事で紹介されているマクロは、Word 97用に作成されたものですが、Word2007以降のバージョンでは問題なく機能します。これにより、セクション区切りに基づいて、マージされたドキュメントを個々のファイルに分割できます。
Sub BreakOnSection() 'Used to set criteria for moving through the document by section. Application.Browser.Target = wdBrowseSection 'A mailmerge document ends with a section break next page. 'Subtracting one from the section count stop error message. For i = 1 To ((ActiveDocument.Sections.Count) - 1) 'Select and copy the section text to the clipboard ActiveDocument.Bookmarks("\Section").Range.Copy 'Create a new document to paste text from clipboard. Documents.Add Selection.Paste 'Removes the break that is copied at the end of the section, if any. Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ChangeFileOpenDirectory "C:\" DocNum = DocNum + 1 ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc" ActiveDocument.Close 'Move the selection to the next section in the document Application.Browser.Next Next i ActiveDocument.Close savechanges:=wdDoNotSaveChanges End Sub
ただし、このマクロは、セクションの区切りが発生する唯一の場所がマージされたドキュメント間である場合にのみ機能することを理解することが重要です。元のドキュメントにセクション区切りが含まれている場合、マクロは満足のいく結果を提供しません。マクロの使用に関する追加情報については、上記のリンクにあるナレッジベースの記事を参照してください。
注:
このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(8435)は、Microsoft Word 2007、2010、および2013に適用されます。
Wordの古いメニューインターフェイスに関するこのヒントのバージョンは、 linkMerging to IndividualFilesにあります。