我希望有人可以帮助使用 MS Word 宏。
基本上,我有一个 MS Word 文档,其中列出了几个文本文件以及每个文件中感兴趣的特定页面。
文件格式类似于:
textdocument1.txt 第 6, 12 页 - 问题 1
textdocument2.txt P. 5 - 问题 1
第 13、17 页 - 第 3 期
textdocument3.txt 第 10 页
我想将每一行作为字符串读入我的宏。
然后遍历它来识别文件名。有了文件名,我就可以打开文件,转到页码,然后复制我需要的数据。
但我陷入了步骤 1,如何将该行捕获到 MS Word 宏中的字符串中?
任何帮助将不胜感激。
我在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
Run Code Online (Sandbox Code Playgroud)
这让我可以成功打开文档,但我需要一些帮助来确定如何输出到这个文档.
从概念上讲,我知道我需要首先使它成为活动文档,然后转到文档的末尾,然后附加到它.
任何帮助,将不胜感激.谢谢!