如何在VBA中设置命令按钮而不是内容控件？

Question

我在这里遇到了一些麻烦，我试图找到任何资源，但我不认为我能理解它，因为我对我来说太模糊了，因为我使用的是activeX命令按钮。

我有这些代码。

Private Sub NewPage_Click()
    Select Case ContentControl.Title
        Case "NewPage"
            Dim oCC As Range
            Set oCC = ContentControl.Range
            oCC.Start = oCC.Start - 1
            oCC.Collapse 1
            Application.Templates(ThisDocument.FullName). _
                    BuildingBlockEntries("QuestionPage").Insert _
                    Where:=oCC, _
                    RichText:=True
End Sub

当我运行这些时，我在ContentControl上收到错误。这是因为我使用的是activeX命令按钮，但我不知道如何将这些代码更改为命令按钮。

有人可以帮忙吗？

注意：再次，如果您注意到，NewPage_Click（）是一个命令按钮。现在，Select Case用于内容控制。我想做的是将Select Case ContentControl.Title更改为Select Case CommandButton或类似。从现在开始，它正在寻找名为NewPage的contentcontrol，但我想将其设置为命令按钮。只是我不知道并发现如何更改＆＃34; ContentControl.Title＆＃34;和＆＃34; ContentControl.Range＆＃34;用于ActiveX CommandButton。

我希望select case代码执行Command_Button（NewPage_Click（））的代码。