VBA更改复选框上的文本答案

【问题标题】：VBA Change text on checkboxVBA更改复选框上的文本
【发布时间】：2013-12-04 10:27:16
【问题描述】：

我正在处理 MS-Word 中的宏。我有一个名为 WeaponsChecked 的复选框和一个名为 WeaponsText 的文本字段。 Onclick，我想在文本字段中添加文本。这是我的新手尝试。当然它不会编译。我收到一条消息错误：“end if without block if” :) 我该去哪里？

Sub WeaponsMacro()

If WeaponsChecked.Checked = True Then WeaponsText.Text = "Time"
End If

End Sub

【问题讨论】：

我能做到，谢谢。

标签： vba checkbox ms-word

【解决方案1】：

您可以：

If WeaponsChecked.Checked = True Then WeaponsText.Text = "Time"

或

If WeaponsChecked.Checked = True Then 
    WeaponsText.Text = "Time"
End If

【讨论】：

所以？我有布局问题？这就是为什么我得到“如果没有阻塞则结束”？我复制粘贴了您的第二个示例，我得到“需要对象”作为错误？ :D（完全是在猜测。）
是的，您遇到了语法问题。既然已经解决了，你还有另一个问题。听起来您要么没有名为“WeaponsChecked”的CheckBox，要么没有名为“Weapons.Text”的TextBox，或者两者都没有。
嗯。谁知道。现在 MSWord 崩溃了。
我正在使用 word2000。也许它太脆弱了？我有一个名为 WeaponsChecked 的复选框和一个名为 WeaponsText 的文本框。我用word 2013打开它，重新保存为docm文件，我得到了同样的错误。我已在复选框的“输入时运行宏”中选择了我的宏名称。
那我该如何命名一个对象呢？