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
使用的时候,请将如上的代码放在宏中来使用。
一起学吧部分文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与一起学吧进行文章共享合作。