您现在的位置是:首页 > Word教程

Word教程

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

2020-01-02 08:27:21 413
  Dim Adoc As String, PsDoc As Document  On Error Resume Next  ChDrive "C" ‘设置当前驱动器盘符  ChDir "C:Documents and SettingsMy DocumentsTemp" &l

   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

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