Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA代码,用于在多个文档中搜索文本_Vba_Excel - Fatal编程技术网

Excel VBA代码,用于在多个文档中搜索文本

Excel VBA代码,用于在多个文档中搜索文本,vba,excel,Vba,Excel,我正在寻求帮助,我对VBA有非常基本的知识,不能执行复杂的任务,有人能提供代码的基础,我能学习并扩展它吗 代码应该能够执行以下任务: 使用excel中的文档名称列表,打开这些文档(word文档)并在第一页搜索特定文本。如果文本存在,则返回TRUE,否则返回FALSE 请注意,这些文档都存储在子文件夹中 谢谢,在发布之前,您必须问自己以下三个不同的问题: 我将试着用你问的方式回答: 1-从excel文件中读取文档名称 Dim fileNames as new Collection For

我正在寻求帮助,我对VBA有非常基本的知识,不能执行复杂的任务,有人能提供代码的基础,我能学习并扩展它吗

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

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

请注意,这些文档都存储在子文件夹中


谢谢,

在发布之前,您必须问自己以下三个不同的问题:

我将试着用你问的方式回答:

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对象用于您的目的,查看文档

您具体需要哪些帮助?您对流程的哪一部分有问题?现在你的问题对这个网站来说太广泛了。