Word VBA-组合框文本重置文本输出

Question

我遇到了组合框的问题，特别是当用户单击下拉菜单中的一个选项时，文本被输入到文档中，但如果他们出错并在组合框中选择另一个选项，它会输入文本从两次（错误和正确答案）。我该如何设置它才能消除错误中的文本。

代码如下：

Private Sub UserForm_Initialize()

With ComboBox1

.AddItem "F1"

.AddItem "G2"

.AddItem "R3"

.AddItem "G4"

End With



End Sub



Private Sub ComboBox1_Change()

Dim ComboBox1 As Range

Set ComboBox1 = Doc1.Bookmarks("bmc1").Range

ComboBox1.Text = Me.ComboBox1.Value

Set ComboBox1 = Doc2.Bookmarks("bmc1").Range

ComboBox1.Text = Me.ComboBox1.Value

End Sub

Answer 1

您的问题是每次调用bmc1 函数时都会创建书签bmc1 的新实例，因此会创建一个新书签，并且这是插入新文本的位置。

将书签变成Public变量，并在Initialize()函数中初始化。

Public CBR As Range

Private Sub ComboBox1_Change()
  CBR.Text = Me.ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
  Set CBR = ActiveDocument.Bookmarks("bmc1").Range
  With ComboBox1
    .AddItem "F1"
    .AddItem "G2"
    .AddItem "R3"
    .AddItem "G4"
  End With
End Sub