vba如何批量删除当前目录下多个文件夹中的所有word的最终一页并保证前几页格式不发生变化

word

用Dir函数把你文件夹里的word文档名都找出来，然后用documents.open一个个打开文档改字体颜色。代码可以这样写：先用Dir查文档：Dim MyDoc$MyDoc = Dir(C:Documents and SettingsuserMy Documents*.doc)Debug.Print MyDocDo While MyDoc MyDoc = Dir Debug.Print MyDocLoop打开文档用这个方法：Documents.Open FileName:=ThisDocument.Path & & MyDoc你自己把这两段代码合一块就行，我就不多说了。还有你那几个关键词，没必要用字典存，直接用Array更省事：Dim Keywords as VariantKeywords=Array(关键词1,关键词2,……)