Word搜索指定位置的所有DOC文档
时间:2022-02-06 15:51:14
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
使用的时候,请将如上的代码放在宏中来使用。
标签:Word搜索指定位置的所有DOC文档
0
投稿
猜你喜欢
Win10 21H1系统安全中心怎么彻底卸载?
2023-11-25 03:49:27
Win10系统如何禁止自动安装捆绑软件?
2023-11-12 06:04:03
PPT怎么转换为Word文档
2023-12-08 20:52:33
Microsoft Word 2003打开里面多了横线怎么清除?
2023-11-30 11:01:40
怎样设置Word下次打开时跳转到上次阅读的位置
2023-12-12 06:28:47
Win10 20H2系统怎么开启虚拟键盘?
2023-12-10 21:01:03
win10更新后开机变慢怎么办
2023-06-10 20:28:04
电脑word中w键不能用了,怎么办?
2023-11-29 22:56:00
巧妙去掉word文档中的水印
2023-12-06 15:15:05
Win10提示已从异常关机中恢复怎么解决?
2023-12-13 20:48:40
怎么解决Win10系统盘符错乱的问题?
2023-11-23 10:17:42
手机CPU天梯图2023年2月最新版
2023-03-07 09:16:38
Vscode重构功能使用方法教程
2023-06-07 18:25:32
win10critical_process_died蓝屏怎么解决
2023-11-10 07:23:09
word格式刷在哪?
2023-12-08 21:09:18
Win10xbox登录账号一直转圈 Win10xbox登陆时一直加载解决方法
2023-11-24 11:02:41
iOS 14 教程:如何隐藏和显示「照片」中的隐藏相册?
2023-10-10 01:52:43
wps是什么格式的文件
2023-12-04 18:44:08
WPS2013表格如何通过SUMPRODUCT函数统计数据
2023-06-11 16:02:54
word表格不会重新计算的解决办法
2023-12-13 11:59:31