Question

我正在寻求帮助，我对VBA有一个非常基本的知识，不能执行复杂的任务，有人能够提供代码的基础，我将能够研究它并扩展它吗？

代码应该能够执行以下任务：

使用excel中的文档名称列表，打开这些文档（word文档）并在第一页搜索特定文本。如果文本存在则返回TRUE，否则返回FALSE。

请注意，这些文件都存储在子文件夹中。

谢谢，

Answer 1

在发布之前你必须问自己一个树不同的问题：

我会按你提出的方式回答：

1 - 从excel文件中读取文档名称

Dim fileNames as new Collection   

For Each name in Range("names")
    fileNames.Add name
Next name

2 - 打开Word文档

将Microsoft Word 12.0对象库添加到您的引用，并使用Word API打开并阅读该文档。

Dim doc As Word.Document
Set doc = Word.Documents.Open(Filename:=DocumentPath, Visible:=False)

3 - 在活动文档中查找文本

Dim myRng as Word.Range
Set myRng = doc.Content

然后将find对象用于您的目的，请查看文档