Dim Adoc As String，word教程视频全集自学， 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，或者没有此文件，word办公软件使用教程，则会返回""

‘ MsgBox Adoc

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

PsDoc.Protect Type：=wdAllowOnlyFormFields， Password：="Password"

PsDoc.Close True

Adoc = Dir()

Loop

Application.ScreenUpdating = True

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

上一篇：电脑教程word入门：Word排序中文的方法 下一篇：word做表格教程基本操作：Word搜索指定位置的所有DOC文档

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