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)

相关推荐

  • word如何创建有目录的doc文档？

    有目录的文档能够提高阅读体验和效率,那么如何利用word和创建有目录的文档?下面只要跟着我节奏,一步一步的往下操作就可以了. 操作方法 01 首先标题的选择上要规律.比如图中的第一章.第二章.第三章等 ...

  • 运行Word软件时自动打开上次使用后关闭的DOC文档的方法

    Microsoft Word是非常常用的文档编辑文件。有些朋友可能会长期使用编辑一个文档，所以经常需要在运行Word时自动打开上次使用后闭过的那个Word文档。一般都会先运行Word，然后再从最近使用 ...

  • word怎么插入目录 WPS怎么给doc文档添加目录

    怎么能做出条理清晰的材料呢，除了有清晰的思路，清新的格式，是不是还需要一个规范的目录呢？word怎么插入目录?WPS怎么给doc文档添加目录，下面简单的介绍一下。 工具/原料 WPS2013个人版 方 ...

  • 怎么将Microsoft Office Word设为doc文档默认打开方式

    怎么将Microsoft Office Word设为doc文档默认打开方式

    doc是一种十分常见的文件格式,有些用户想知道怎么将Microsoft Office Word设为doc文档默认打开方式,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步根据下图所 ...

  • Word2007文档快速存为.DOC文档操作设置

    但这往往需要单击Office按钮，依次选择另存为/Word97-2003文档，或者在另存为对话框的保存类型中选择Word97-2003文档，无论选择哪一种方法都相当麻烦。 当然，如果你只需要将文档保存 ...

  • 怎么打开手机wps中保存doc文档的文件夹

    怎么打开手机wps中保存doc文档的文件夹

    随着科技的发展,手机已经成为人们日常生活中必不可少的工具,除了使用电脑来制作word,我们还可以使用wps手机客户端来完成,那么手机中制作的doc文档被保存到哪里了呢?应该如何进行查看呢?接下来就由小 ...

  • 利用百度DOC在线编辑本地doc文档

    这里介绍的是利用DOC来编辑doc文档的方法 操作方法 01 打开百度DOC网站(http://word.baidu.com),点击网页中部的"立即使用"登录百度帐号,进入百度DO ...

  • 在word中如何创建有目录的文档?

    在word中如何创建有目录的文档? 步骤 1.首先标题的选择上要规律.比如图中的第一章.第二章.第三章等,选择标题1的规范. 2.而在大标题下如何还有小标题,可以使用标题2 ,标题3等依次类推. 比如 ...

  • word怎样将一张图片插入到文档里?

    word作为编辑文档软件,在编辑好了文档之后怎样将一张图片插入到文档里,其实这个很简单,如下图教您操作步骤. 方法1: 1.如下图看到,这里编辑好的文档之后在后面输入一张图片. 2.首先单击“插入”- ...