如何正确访问 Word 2013 VBA 中的旧表单字段复选框？

Question

来自this question 我正在尝试获取和设置旧表单字段复选框（MS Word 2013）的值 - 无需在文档上奇怪地滚动/跳转。对于文本字段，这可以由

执行

myField = ActiveDocument.Bookmarks("myField").Range.Fields(1).Result ' get
ActiveDocument.Bookmarks("myField").Range.Fields(1).Result.Text = myValue ' set

但这不适用于复选框。我可以采取哪些命令来相应地访问复选框并且不会奇怪地跳来跳去？

Answer 1

我对此进行了一些测试，看起来您可以简单地使用CheckBox.Value 属性来访问复选框的值，而无需更改文档中的焦点。将以下代码粘贴到常规模块中，测试这两种方式获取文本框值的区别。

Public Sub TestCheckboxAccess()

    Dim ctl As FormField

    For Each ctl In ActiveDocument.FormFields

        ' Loop through check boxes in current document
        If ctl.Type = wdFieldFormCheckBox Then

            ' This does not scroll the document
            Debug.Print ctl.CheckBox.Value

            ' This does scroll the document
            'Debug.Print ctl.Result

        End If
    Next ctl
End Sub

请注意，在我的系统上，即使不关闭 ScreenUpdating，此代码示例也可以工作。

试试这个，看看能不能解决你的问题！