VBAマクロを使って単語文書に追加する方法

Question

マクロをMSワードで書いています。
ファイル名とページ番号とメモのリストを解析し、ファイル名とページ番号だけをフィルタリングするためにマクロが必要です。ドキュメントの各段落（行）は別のファイルを参照しているので、For/Nextステートメントをループしています。

新しい行ごとに、ファイル名とpagenumbersを取り出して文字列に配置しています。これに加えて、各ファイル名の文字列にいくつかのノートを追加します。

文書の次の行に進む前に、私が作成した文字列を単語文書に出力したいと思います。

は、私は現在、このコードのオープンWord文書があります。これは私が成功した文書を開くことができます

Dim oWord as Object 
Set oWord = CreateObject("Word.Application") 
oWord.Documents.Open "C:\document.doc" 
oWord.visible = true 

を、私は、この文書にどのように出力を考え出すといくつかの助けを必要としています。

概念的には、まずアクティブなドキュメントにしてから、ドキュメントの最後に移動してから追加する必要があることは分かっています。

ご協力いただければ幸いです。ありがとう！

Answer 1

これはどうですか... here。

Sub test() 
    Dim app As Word.Application 
    Dim doc As Word.Document 

    Set app = CreateObject("Word.Application") 
    app.Visible = True 
    Set doc = app.Documents.Open("C:\test.doc") 
    doc.Content.InsertAfter "Hello World" 
    doc.Save 
    doc.Close 
    app.Quit 
End Sub 

Answer 2

これは

Sub ProcessDocs() 
    Dim rng As Range 
    Dim MainDoc As Document 
    Dim strFile As String 
    Const strFolder = "d:\Userfiles\yourname\testFiles\" 'change to suit 
    Set MainDoc = Documents.Add 
    strFile = Dir$(strFolder & "*.doc") ' can change to .docx 
    Do Until strFile = "" 
     'Extract your filename, pagenum here, and build a string 
     'write string into the file 
     strFile = Dir$() 
    Loop 

ループしながら、あなたはなど、ファイル名を抽出することができ、指定したディレクトリ内のファイルのリストをあなたにループをするのに役立ちます。 文字列を作成してファイルに書き込みます。 私はそれが助けてくれるといいです