添加开发工具 选项——自定义——开发工具 点击Visual Basic 添加模块 Sub a() For Each xxx In ThisDocument.Tables xxx.Rows(1).HeadingFormat = wdToggle On Error Resume Next Next MsgBox ("完成") End Sub On Error Resume Next:忽略错误,以免中断运行 左上运行