.doc ファイルを結合するにはどうすればいいですか?

Question

500 個以上の doc ファイルを 1 つのファイルにマージする必要があります。どうすればいいですか? テキスト ファイルから挿入 --> を試みましたが、最初の 50 個のみがマージされます。何かアイデアはありますか?

Answer 1

ユーザー インターフェイスが機能しない場合は、マクロをお勧めします。Word 文書にファイル名を 1 段落 1 名ずつリストできますか? そうすると、次のマクロによってファイル名がファイルの内容に置き換えられます。

Sub Include()
    With ActiveDocument
        For i = .Paragraphs.Count To 1 Step -1
            Set oRange = .Paragraphs(i).Range
            sFname = oRange.Text
            sFname = Left(sFname, Len(sFname) - 1)
            sFname = "c:\tmp\" & sFname
            oRange.InsertFile FileName:=sFname
        Next
    End With
End Sub

c:\tmp\パスに置き換えます。