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

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