如何通过VBA实现Word存为PDF后自动删除命令按钮？

得先搞清楚你插的是哪种命令按钮，两种常见类型的处理方式如下：

情况1：使用Word表单控件（命令按钮） #

如果你的按钮是通过「开发工具」→「控件」→「表单控件」插入的命令按钮，修改后的代码如下：

Sub Save_to_PDF()
    ' 弹出PDF另存为对话框
    With Dialogs(wdDialogFileSaveAs)
        .Format = wdFormatPDF
        .Show
    End With
    
    ' 删除绑定此宏的表单命令按钮
    Dim btn As Shape
    ' 遍历文档中的所有形状，找到绑定当前宏的按钮
    For Each btn In ActiveDocument.Shapes
        If btn.Type = msoFormControl And btn.FormControlType = xlButtonControl Then
            If btn.OnAction = "Save_to_PDF" Then
                btn.Delete
                Exit For ' 找到后立即退出循环，避免误删其他按钮
            End If
        End If
    Next btn
End Sub

情况2：使用ActiveX控件（CommandButton） #

如果你的按钮是ActiveX类型的命令按钮，修改后的代码如下：

Sub Save_to_PDF()
    ' 弹出PDF另存为对话框
    With Dialogs(wdDialogFileSaveAs)
        .Format = wdFormatPDF
        .Show
    End With
    
    ' 删除触发当前宏的ActiveX命令按钮
    Dim btn As OLEObject
    ' 遍历文档中的所有OLE控件
    For Each btn In ActiveDocument.OLEObjects
        If TypeName(btn.Object) = "CommandButton" Then
            ' 建议给按钮设置唯一名称（在开发工具的「属性」窗口修改Name属性），可直接用 btn.Name = "你的按钮名称" 判断，更精准
            If btn.Object.OnAction = "Save_to_PDF" Then
                btn.Delete
                Exit For
            End If
        End If
    Next btn
End Sub

注意事项 #

• 使用ActiveX控件时，给按钮设置唯一名称能避免遍历判断的误差，定位更准确。
• 执行删除操作前，确保文档处于未保护状态，否则会因权限问题导致删除失败。

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