Word导出PDF时隐藏CommandButton按钮避免二次导出报错的方案问询

问题根因 #

你用到的CommandButton属于Word ActiveX控件，既不属于普通形状，也没有老式表单控件的PrintObject属性，你之前用的删除后撤销的方案不稳定，多次操作后控件引用会丢失，才会触发Select行报错。 #

最优实现方案 #

不需要删除按钮，直接修改ActiveX控件的Visible属性即可，导出前隐藏，导出完成后恢复，完全不会影响原有宏功能，也不会出现二次导出报错的问题。
你只需要把原有代码中「删除按钮+导出+撤销」的部分替换为如下逻辑即可：

' ========== 替换原有的Select删除逻辑开始 ==========
' 隐藏所有需要隐藏的按钮
Me.CommandButton1.Visible = False
Me.CommandButton2.Visible = False
Me.CommandButton3.Visible = False
Me.Refresh.Visible = False
' ========== 替换结束 ==========

' 原有导出PDF的代码保持不变
ActiveDocument.ExportAsFixedFormat OutputFileName:=FilePath & _
                                MyDate & "_" & Title & "_i_0" & Version & "_" & User & ".pdf", _
                                ExportFormat:=wdExportFormatPDF, _
                                OpenAfterExport:=False, _
                                OptimizeFor:=wdExportOptimizeForPrint, _
                                Range:=wdExportAllDocument, _
                                IncludeDocProps:=True, _
                                CreateBookmarks:=wdExportCreateWordBookmarks, _
                                BitmapMissingFonts:=True

' ========== 替换原有的多次Undo逻辑开始 ==========
' 导出完成后恢复按钮显示
Me.CommandButton1.Visible = True
Me.CommandButton2.Visible = True
Me.CommandButton3.Visible = True
Me.Refresh.Visible = True
' ========== 替换结束 ==========

如果后续新增了同类按钮不想逐个修改代码，可以用遍历通用写法：

' 导出前隐藏所有ActiveX命令按钮
Dim oleObj As OLEObject
For Each oleObj In Me.OLEObjects
    If TypeName(oleObj.Object) = "CommandButton" Then
        oleObj.Visible = False
    End If
Next

' 导出逻辑放这里

' 导出后恢复所有按钮显示
For Each oleObj In Me.OLEObjects
    If TypeName(oleObj.Object) = "CommandButton" Then
        oleObj.Visible = True
    End If
Next

关于叠放层级方案的说明 #

你提到的用形状遮挡调整叠放层级的方案是可行的，操作逻辑为：插入和页面背景同色、无边框的矩形，调整大小覆盖所有按钮后置于顶层，导出PDF后删除该矩形即可。但该方案需要额外处理矩形的位置、大小适配按钮布局，复杂度远高于直接隐藏控件，没有特殊需求不推荐使用。 #

原有方案失效原因说明 #

1. 遍历Shapes的代码不生效：ActiveX控件默认属于InlineShapes（嵌入型）或OLEObjects集合，不属于普通Shape类型，同时你的判断逻辑存在错误，同一个对象的Type不可能同时等于msoFormControl和wdButtonControl，所以匹配不到目标按钮。
2. 删除后撤销的方案报错：撤销操作恢复的控件会丢失原有代码中的对象引用，二次操作时Me.CommandButton3指向的对象已经失效，所以会触发Select行报错。

内容的提问来源于stack exchange，提问作者Jens1411