Wordファイルの結合

VB6.0から複数のWordファイルを結合したいのですが、具体的な方法がわかりません。
開いてコピーペーストするには大きすぎるファイルなので、何か良い方法はないかと探しています。
aaa
bbb
ccc
とファイルがあった場合に、aaaの最後にbbbを連結し、次にcccといったように処理をしたいと思っています。

http://www.microsoft.com/japan/msdn/library/defa …
こちらを見る限り、可能なように書いてありますが、サンプルへのリンクがなくなっていました。

ご教授、お願いいたします。

No.2 ベストアンサー 回答者： TORYS 回答日時： 2005/11/16 21:12

...コソコソ

'Microsoft Word 9.0 Object Libraryを参照設定

private sub cmd_click()

Dim wordApp As New Word.Application
Dim wordDoc As Word.Document
Dim wordSelect As Word.Selection

Set wordDoc = wordApp.Documents.Add
Set wordSelect = wordApp.Selection
With wordSelect
.InsertFile App.Path & "\aaa.doc"
.InsertBreak wdSectionBreakNextPage
.InsertFile App.Path & "\bbb.doc"
.InsertBreak wdSectionBreakNextPage
.InsertFile App.Path & "\ccc.doc"
End With
wdDoc.SaveAs App.Path & "\NewWordDoc.doc"

wdDoc.Close
wdApp.Quit

Set wdDoc = Nothing
Set wdApp = Nothing

End Sub

この回答へのお礼

具他的なソースをありがとうございました。
やはりこの方法が一般的なようですね。
おかげさまで、プログラムの完成にこぎつけることができました。

お礼日時：2005/11/17 12:01

No.1 回答者： goooood_job 回答日時： 2005/11/16 12:18

外してたらすみません。

ＶＢでやるよりも、
Ｗｏｒｄで aaa.doc ファイルを開き、一番最後に移動します。

メニューバーの挿入 ＝＞ ファイル
bbb.doc を選択

メニューバーの挿入 ＝＞ ファイル
ccc.doc を選択


でいかがでしょうか？

この回答へのお礼

回答ありがとうございます。
VB上で質問内容の処理を行うつもりで質問したのですが、言葉が足りなかったようですね。すいません。
ですが、回答の内容を参考にマクロを組んでプログラムを組むことにした結果うまくいくことができました。

お礼日時：2005/11/17 11:59