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 <> "" ‘如果是文件夹，或者没有此文件，pdf怎么转换成word，则会返回""

‘ MsgBox Adoc

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

PsDoc.Protect Type：=wdAllowOnlyFormFields，word教程零基础教程， Password：="Password"

PsDoc.Close True

Adoc = Dir()

Loop

Application.ScreenUpdating = True

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

上一篇：word制作简历教程：Word搜索指定位置的所有DOC文档 下一篇：word制作表格教程基础入门：LNMP系列教程之三:SSH安装WordPress博客

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。