使用Dir函式，把你的資料夾中的word文件名全部找出來。然後用documents.open方法，逐個開啟文件改字型顏色。
參考：
Dim MyDoc$MyDoc = Dir("C:\Documents and Settings\user\My Documents\*.doc")Debug.Print MyDocDo While MyDoc <> "" MyDoc = Dir Debug.Print MyDocLoop
open方法是這樣：
Documents.Open FileName:=ThisDocument.Path & "\" & MyDoc
你自己整合一起吧，這就不多說了。
你的那些關鍵字，沒必要用字典儲存啊，用Array函式更方便了。
Dim KeyWords as Variant
KeyWords=Array("關鍵詞1",“關鍵詞2”,……)
使用Dir函式，把你的資料夾中的word文件名全部找出來。然後用documents.open方法，逐個開啟文件改字型顏色。
參考：
Dim MyDoc$MyDoc = Dir("C:\Documents and Settings\user\My Documents\*.doc")Debug.Print MyDocDo While MyDoc <> "" MyDoc = Dir Debug.Print MyDocLoop
open方法是這樣：
Documents.Open FileName:=ThisDocument.Path & "\" & MyDoc
你自己整合一起吧，這就不多說了。
你的那些關鍵字，沒必要用字典儲存啊，用Array函式更方便了。
Dim KeyWords as Variant
KeyWords=Array("關鍵詞1",“關鍵詞2”,……)