vba如何批量删除当前目录下多个文件夹中的所有word的最后一页并保

1.vba如何批量删除当前目录下多个文件夹中的所有word的最后一页并保

使用Dir函数，把你的文件夹中的word文档名全部找出来。然后用documents.open方法，逐个打开文档改字体颜色。

参考：

Dim MyDoc$MyDoc = Dir("C:\Documents and Settings\user\My Documents\*.doc")Debug.Print MyDocDo While MyDoc <> "" MyDoc = Dir Debug.Print MyDocLoop

open方法是这样：

Documents.Open FileName:=ThisDocument.Path & "\" & MyDoc

你自己整合一起吧，这就不多说了。

你的那些关键字，没必要用字典保存啊，用Array函数更方便了。

Dim KeyWords as Variant

KeyWords=Array（"关键词1"，“关键词2”，……）