Word宏，存储当前选择（VBA）

Question

我有一个 Word 文档，其中包含大约 4000 个表单字段，之后我必须将其导出到数据库。 问题是，4000 个字段中没有一个在“书签”字段中包含信息，因此我无法获取其中存储的信息。

我正在尝试创建一个宏来帮助编写书签（FormField.Name）的过程，但无法正确执行。 问题是我想更改用户选择中包含的 FormField 的名称，并且仅更改它们。 我设法找到了这个解决方案：

Sub Macro2()
    Dim myFile As String
    Dim fnum As Integer
    Dim sFileText As String
    Dim currentField As FormField

    myFile = "c:\testMacro.txt"
    fnum = FreeFile()
    Open myFile For Input As fnum

    For Each currentField In Selection.FormFields
        Input #fnum, sFileText

        With currentField
            .StatusText = sFileText
            .OwnStatus = True
        End With

        currentField.Select
        Application.WordBasic.FormFieldOptions Name:=sFileText
    Next currentField
End Sub

但它不起作用，因为 Selection 对象在 For Each 循环中发生了更改，之后它只包含选择的第一个 FormField 。

所以这是我的问题，有没有办法保存当前选择并在更改后将其加载回来。

我已经尝试过：

Dim mySelection as Selection
Set mySelection = Selection

但是如果我更改选择，变量 mySelection 也会更改（这很正常......）并且我没有找到任何方法来克隆该对象。

有人知道如何做到这一点吗？

谢谢

Answer 1

对您的“副本”使用不同的参考：

Dim selBkUp As Range
Set selBkUp = ActiveDocument.Range(Selection.Range.Start, Selection.Range.End)

或使用副本：

Dim selBkUp As Range
selBkUp = Selection.Range.Duplicate

Answer 2

Selection.Range 自动是重复的，所以你可以这样做：

Dim selBkUp As Range
Set selBkUp = Selection.Range