Word搜索指定位置的所有DOC文档
发布时间：2022-02-06 15:51:14
标签：Word搜索指定位置的所有DOC文档
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
使用的时候，请将如上的代码放在宏中来使用。
0
投稿猜你喜欢
在Word2003中新建的文档默认纸张大小为A4纸型，上、下页边距为2.54厘米，左、右页边距为3.17厘米。这样的设置可以满足大多数应用需- 这篇文章主要介绍了Mac中复制文件路径最简单、最快速的方法,本文针对文本文件一类的文件,需要的朋友可以参考下苹果电脑 Mac OS X 系统
- 想必越狱用户都对 GridLock 这款插件相当熟悉，它可以实现屏幕图标随意摆放，满足用户个性化的需求。未越狱的用户现在也无需羡慕嫉妒恨了，
- 具体制作步骤：1、我们先导入一张学生的数学成绩表格，在平均值B14单元格中输入=ROUND(AVERAGE(B3:B13),1)。如图所示。
- 系统启动项过多，会导致电脑的开机速度减慢，我们可以通过禁用一些启动项来恢复电脑的开机速度。下面就和大家演示一下win10系统启设置启动项的方
- ghoststartservice.exe是Norton Systemworks工具集相关程序，Ghost用于制作你的磁盘镜像文件进程文件：
- 作为一款简单易用的万年历软件，人生日历不仅提供了天气预报、日期查询、节气查询，放假安排查询等功能以外，还新推出了一个健康助手功能，可以定时休
- 电脑显示器有波纹是一种十分常见的故障，不过很多朋友仍然不知道该如何解决它。为了帮助大家更好地使用windowsxp系统，现在系统城相比就和大
- 大家平时爱看杂志或其他的一些文章的时候，你会发现有些文字是非常大的，那么在Word中如何把字号设置的越来越大呢?今天，小编就教大家如何设置超
- 在电脑浏览器上使用支付宝时，必须安装支付宝控件才行，但是有用户反映，自己的360浏览器无法安装支付宝控件，这是怎么回事？360浏览器不能安装
- 为什么现在越来越多的人都注意到个人信息和隐私保护呢？因为影响个人信息安全性的因素太多。可能在斯诺登先生“流亡”之前，很多人包括某些企业和政府
- 经常使用电脑的用户应该遇到过这个状况，想要对某个文件夹或者文件进行修改的时候，弹窗提示没有更改权限，这个是因为我们平常登录使用的不是管理员账
- 当我们在使用win10操作系统电脑的时候，有些情况下可能会出现电脑运行的时候卡顿非常严重的问题。对于这种问题小编觉得可能是因为我们电脑的运行
- 这篇文章主要介绍了Win7提示配置windows update失败还原更改怎么办？,一般出现此情况小编建议还是等等系统自动还原更改,如果系统
- Win10系统电脑提示Microsoft注册服务器已停止工作怎么办？最近有用户在Win10系统上安装软件时就会一直提示Microsoft注册
- 经常的听说什么进程这,进程那.那到底什么是进程呢.下面我们就来分析一下吧进程为应用程序的运行实例，是应用程序的一次动态执行。看似高深，我们可
- 主界面和小组件是 iOS 14 最为显著的变化，很多已经成功升级的小伙伴第一件事情就是排列小组件，打造自己喜欢的全新主屏幕。不过也有小伙伴在
- 光影精灵8是惠普游戏本中的旗舰系列，因此在性能方面还是十分强悍的，能够满足现阶段任何主流游戏配置要求，那么当我们想要为光影精灵8换个系统时候
- win10系统，家庭版，使用中，发现E盘莫名其妙的少了100g，这是怎么回事？该如何解决呢？下面小编就为大家带来windows10系统下e盘
- 在操作电脑的时候，如果不开启删除确认提示，可能会导致误删很多东西。那Win11如何设置删除确认提示呢？下面我们就来看看具体的设置方法，只需要
