VBA更改复选框上的文本

Question

我正在使用MS-Word中的宏。 我有一个名为WeaponsChecked的复选框和一个名为WeaponsText的文本字段。 Onclick，我想在文本字段中添加文本。 这是我的新手尝试。当然它不编译。 我收到一条消息错误：“如果没有阻止就结束” :)我从哪里开始？

Sub WeaponsMacro()

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

End Sub

Answer 1

你可以这样做：

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

或

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