如何持久存储Word Range选区内容，实现复选框控制文本显隐？

问题本质 #

Word的Range对象是引用类型，存的是文本在文档里的位置指针，原选区一删除，这个指针就指向空值，自然没法复原。所以不能直接存Range，得把「文本内容（带格式）+ 原位置标记」分开存储。

具体实现方案 #

方案一：书签+临时文档存格式文本 #

靠书签标记原位置，用隐藏的临时文档保存带格式的文本，不会丢失排版：

1. 标记原位置：在要隐藏的文本前后插入两个书签，比如HideText_Start和HideText_End，不管文本是否删除，书签都能准确定位原位置。
2. 存储带格式文本：把目标选区的格式文本复制到临时文档的Range中（临时文档设为不可见，不影响正常操作）。
3. 删除/恢复文本：复选框未勾选时删除原文本，勾选时从临时文档把格式文本插回书签标记的位置。

示例VBA代码：

' 全局变量存储格式文本和书签名称
Dim savedText As Range
Dim startMark As String, endMark As String

Sub ToggleTextVisibility()
    Dim currDoc As Document
    Set currDoc = ActiveDocument
    
    ' 复选框未勾选→隐藏文本
    If CheckBox1.Value = False Then
        Dim targetRange As Range
        Set targetRange = Selection.Range
        
        ' 插入书签标记位置
        startMark = "HideText_Start"
        endMark = "HideText_End"
        currDoc.Bookmarks.Add startMark, currDoc.Range(targetRange.Start, targetRange.Start)
        currDoc.Bookmarks.Add endMark, currDoc.Range(targetRange.End, targetRange.End)
        
        ' 创建临时文档存储带格式文本
        Dim tempDoc As Document
        Set tempDoc = Documents.Add(Visible:=False)
        Set savedText = tempDoc.Range
        savedText.FormattedText = targetRange.FormattedText
        
        ' 删除原选区文本
        targetRange.Delete
    ' 复选框勾选→恢复文本
    Else
        Dim insertPos As Range
        Set insertPos = currDoc.Bookmarks(startMark).Range
        
        ' 插回带格式的文本
        insertPos.FormattedText = savedText.FormattedText
        
        ' 清理临时文档和书签
        savedText.Parent.Close SaveChanges:=wdDoNotSaveChanges
        currDoc.Bookmarks(startMark).Delete
        currDoc.Bookmarks(endMark).Delete
    End If
End Sub

方案二：书签+XML存储格式文本 #

更轻量，无需打开临时文档，把带格式的文本转成XML字符串存储，恢复时再转回原格式：

1. 用书签标记位置，步骤和方案一一致。
2. 存储XML字符串：通过Range.WordOpenXML把带格式的文本转成XML格式的字符串，存在全局变量中。
3. 恢复时插入XML：勾选复选框时，在书签位置用InsertXML将XML转回原格式文本。

示例VBA代码：

' 全局变量存储XML格式文本和书签名称
Dim savedXML As String
Dim startMark As String, endMark As String

Sub ToggleTextVisibility()
    Dim currDoc As Document
    Set currDoc = ActiveDocument
    
    If CheckBox1.Value = False Then
        Dim targetRange As Range
        Set targetRange = Selection.Range
        
        ' 插入书签标记位置
        startMark = "HideText_Start"
        endMark = "HideText_End"
        currDoc.Bookmarks.Add startMark, currDoc.Range(targetRange.Start, targetRange.Start)
        currDoc.Bookmarks.Add endMark, currDoc.Range(targetRange.End, targetRange.End)
        
        ' 存储XML格式的带格式文本
        savedXML = targetRange.WordOpenXML
        
        ' 删除原选区文本
        targetRange.Delete
    Else
        Dim insertPos As Range
        Set insertPos = currDoc.Bookmarks(startMark).Range
        
        ' 插入XML恢复格式文本
        insertPos.InsertXML savedXML
        
        ' 清理书签
        currDoc.Bookmarks(startMark).Delete
        currDoc.Bookmarks(endMark).Delete
    End If
End Sub

注意事项 #

• 书签命名要唯一，避免和文档内现有书签重名，可加专属前缀（比如MyHide_）
• 方案二的XML存储不占用额外窗口，适合多文本块控制的场景
• 若批量控制多个文本块，需为每个块分配独立的书签和存储变量

内容的提问来源于stack exchange，提问作者L.Kaegi