ワードファイルの分割が出来ない
ワード2007を使用しています。
エクセルデータから差し込みをしたワードファイルがあります。
１００ページ以上あるものを、手っ取り早くページごとに分割したいのです。
私なりにいろいろ調べて、そのようなことができるマクロがあるようなのですが思うように動きません。
http://support.microsoft.com/kb/306348/ja
こちらのサイトのセクションことに分割するマクロを使用してみたのですが、うまくいきません。
マクロを実行するのは差しこみを設定した文書でいいのでしょうか？
それとも差し込み済みで複数ページに出来上がった文書に対して実行するのでしょうか？
後者のほうにマクロを実行すると
実行時エラー’5156’
「文書を作成、または保存することができません。保存先のディスクに十分な空き容量があること、書き込み禁止に設定されていないこと、またディスクが壊れていないことを確認してください。」
というメッセージが出ます。
また、以下のようなプログラムもネットから引用してみたのですがうまくいきませんでした。
Sub データごとにファイルを分ける()
Dim i As Long, LRec As Long
With ThisDocument.MailMerge
.DataSource.ActiveRecord = wdLastRecord
LRec = .DataSource.ActiveRecord
For i = 1 To LRec
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
.DataSource.FirstRecord = i
.DataSource.LastRecord = i
.DataSource.ActiveRecord = i
.Execute Pause:=True
ActiveDocument.SaveAs ThisDocument.Path & "\" & _
.DataSource.DataFields(4).Value & ".doc", wdFormatDocument
'ファイル名に使うフィールド（例では4番目）
ActiveDocument.Close
Next i
End With
End Sub
何をどうしたらできるようになるのかわかりません。
お分かりになる方、是非教えていただきたいです。
よろしくお願いいたします。
お礼
そんなことができるんですか。そうですか。早速、試してみます。ありがとうございました。