vba - 使用 vba 根据用户选择添加特定引用

Question

我正在尝试创建一个用户表单，其中用户选择一年并根据该选项插入特定书籍的引文。我尝试在文本中插入一个 DOCVARIABLE（称为“BookYear”）字段，然后通过 VBA 更改变量值（为“Aus15”）。下面的代码不起作用，但我认为我在正确的道路上

Sub Macro2()
    If myComboBox = 2015 Then
        ActiveDocument.Variable("BookYear").Value = "Aus15"
        ActiveDocument.Fields.Update
    end if
End Sub

Answer 1

找到了答案

MyText = "Aus15"

选择示例：''选择书签的代码 Selection.Fields.Add Range:=Selection.Range, _

类型：=wdFieldCitation，文本：=MyText