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