Question

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

Answer 1

使用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”,……)

Answer 2

西塞山怀古(刘禹锡)