在循环中创建活动文档？

Question

我试图从多个文档中提取一个段落，通过获取一个子来解析每个文档，寻找总是在两个术语之间的段落。但是我无法获得“activedocument”或打开文档？以前我能够使用open函数，但现在每次都会出现Object Errors。文件夹目录和文件名由用户输入到单独的单元格中，因此必须组合单元格中的文本以形成完整的文档地址。这是代码

NULL

Answer 1

不要依赖ActiveDocument。声明一个Word.Document对象并将您打开的文档分配给它。然后使用该对象而不是ActiveDocument - 更可靠！

Dim oDoc as Word.Document
Set oDoc = Documents.Open(filename)
Dim oRng as Word.Range
Set oRng = oDoc.Content 
'Preferred over oDoc.Range for getting content of entire document
oDoc.Close

注意：我不知道您尝试使用Close Document做什么，这可能是您问题的一部分？