'WORD 加载项 代码模板 Dim cmdBar As CommandBar, cmdBtn As CommandBarControl Const cmdBtnCap As String = "批量提取操作步骤" Sub AutoExec() Call DelCmdBtn Call AddCmdBtn End Sub Sub AutoExit() Call DelCmdBtn End Sub Sub AddCmdBtn() Set cmdBar = Application.Comma…