Wordの標準の差し込み印刷機能を使用すると、プリンタ、新しいドキュメント、または一連の電子メールメッセージに直接差し込み印刷できます。

ただし、データソースレコードごとに個別のドキュメントを作成する必要がある場合があります。残念ながら、Wordはこれを行う方法を提供していません。幸い、タスクを処理するマクロを作成できます。以下は、差し込み印刷機能によって作成されたドキュメントを「引き離す」マクロです。ドキュメントの各セクション(データソースレコードごとに1つのセクションがあります)が取り出され、独自のドキュメントファイルに保存されます。

Sub Splitter()

Dim numlets As Integer     Dim Counter As Integer     Dim BaseName As String     Dim DocName As String

Selection.EndKey Unit:=wdStory     numlets = Selection.Information(wdActiveEndSectionNumber)

If numlets > 1 Then numlets = numlets - 1     Selection.HomeKey Unit:=wdStory     BaseName = "c:\Let"

For Counter = 1 To numlets         DocName = BaseName & Right("000" & LTrim(Str(Counter)), 3)

ActiveDocument.Sections.First.Range.Cut         Documents.Add         Selection.Paste         Selection.MoveLeft Unit:=wdCharacter, Count:=1         Selection.Delete Unit:=wdCharacter, Count:=1         ActiveDocument.SaveAs FileName:=DocName         ActiveWindow.Close     Next Counter End Sub

マクロを実行すると、Ltr001からLtrxxxという名前の一連のファイルが作成されます。xxxは元のドキュメントのセクション数です。

実際、マクロは、ドキュメント内のセクション数よりも少ない1つの「Ltr」ファイルを作成します。ドキュメントの最後のセクションは、元のファイル(処理中のファイル)に残ります。ファイル名またはファイルの保存場所を変更する場合は、マクロのBaseName変数の設定を変更します。

注:

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

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

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

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(11593)は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス:

link:/ word-Creating_Files_with_Mail_Merge [差し込み印刷によるファイルの作成]