400-099-0376

在线试用
微信扫码联系专属客服
安企神软件官网
首页
下载中心
客户列表
关于安企神

Word搜索指定位置的所有DOC文档

2024-10-31

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

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

  • TAG: