如何使用VBA宏附加到Word文档

Question

我在MS word中写了一个宏.
我需要宏来解析文件名,页码和注释列表,并过滤掉文件名和页码.文档中的每个段落(行)引用不同的文件,因此我循环遍历For/Next语句.

对于每个新行,我将提取文件名和pagenumbers并将其放入字符串中.除此之外,我还在每个文件名的字符串中添加了一些注释.

在转到文档的下一行之前,我想将我构建的字符串输出到word文档中.

我目前使用此代码打开word文档:

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

这让我可以成功打开文档,但我需要一些帮助来确定如何输出到这个文档.

从概念上讲,我知道我需要首先使它成为活动文档,然后转到文档的末尾,然后附加到它.

任何帮助,将不胜感激.谢谢!

Answer 1

那怎么样......更多在这里.

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