Excel VBA代码，搜索多个文档的文本

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对象为你的目的文本，看看文档

https://msdn.microsoft.com/en-us/vba/word-vba/articles/find-object-word