Word搜索指定位置的所有DOC文档

Dim Adoc As String， PSDoc As Document

On Error Resume Next

ChDrive "C" ‘设置当前驱动器盘符

ChDir "C：Documents and SettingsMy DocumentsTemp" ‘进入指定目录

Adoc = Dir("*.doc")

application.ScreenUpdating = False

Do While Adoc <> "" ‘如果是文件夹，或者没有此文件，则会返回""

‘ MsgBox Adoc

Set PsDoc = Documents.Open(Adoc) ‘打开指定文档

PsDoc.PRotect Type：=wdAllowOnlyFormFields， PassWord：="Password"

PsDoc.Close True

Adoc = Dir()

Loop

Application.ScreenUpdating = True

使用的时候，请将如上的代码放在宏中来使用。