代码及颜色值高亮显示所有的修订内容的代码，如下所示' 高亮显示所有的修订内容 Sub highlightModifyContent() Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oRevision As Revisio...

打开 开发工具 ，选择 宏  ，弹出窗口开发者工具 - 宏在弹出的窗口中输入 宏名 :  highlightStrikeThroughContent ，点击下方的 + 号按钮(Windows 系统中为 创建 按钮)，弹出代码编辑器界面创...

Sub Summary_Click() '定义合并文件夹目录; Dim path As String '标题头只运行一次 Dim once As Integer once = 1 '定义合并总表的文件名 Dim activeName As String '定义当前文件夹当前检查获...