Word搜索指定位置的所有DOC文档
Admin | 2011-4-3 8:41:10 | 被阅次数 | 6623
本示例通过DIR来遍历指定文件夹中的所有WORD文档并且加上指定密码后保存并退出。
Dim Adoc As String， PsDoc As Document
On Error Resume Next
ChDrive "C" ‘设置当前驱动器盘符
ChDir "C：\Documents and Settings\My Documents\Temp" ‘进入指定目录
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
使用的时候，请将如上的代码放在宏中来使用。