Word宏复制文本丢失格式，如何实现带格式复制并隐藏原内容？

问题根源 #

你当前使用的代码存在两个核心缺陷：

• 仅提取Range的Text纯文本属性插入内容，会直接丢失所有字体格式、段落样式、表格、嵌入对象等信息
• Selection.Range仅覆盖当前选中的正文区域，无法捕获页眉、页脚、文本框、浮动形状等非正文分区的元素

修正后代码 #

Sub 全文档带格式复制并隐藏原内容()
    Dim originalDoc As Document
    Dim targetRange As Range
    Dim storyRange As Range
    Dim shape As Shape
    
    Set originalDoc = ActiveDocument
    ' 定位到文档末尾作为插入点
    Set targetRange = originalDoc.Content
    targetRange.Collapse Direction:=wdCollapseEnd
    
    ' 遍历所有文档分区，复制全内容带格式
    For Each storyRange In originalDoc.StoryRanges
        targetRange.FormattedText = storyRange.FormattedText
        ' 处理连续分区（如不同节的页眉页脚）
        Do While Not (storyRange.NextStoryRange Is Nothing)
            Set storyRange = storyRange.NextStoryRange
            targetRange.FormattedText = storyRange.FormattedText
        Loop
    Next storyRange
    
    ' 处理文本框、浮动形状内的文本
    For Each shape In originalDoc.Shapes
        If shape.TextFrame.HasText Then
            targetRange.FormattedText = shape.TextFrame.TextRange.FormattedText
        End If
    Next shape
    
    ' 隐藏原文档所有内容（保留格式）
    ' 如果需要隐藏新复制的内容，将下面的originalDoc.Content替换为上述插入的targetRange即可
    originalDoc.Content.Font.Hidden = True
    ' 同步隐藏所有形状/文本框
    For Each shape In originalDoc.Shapes
        shape.Visible = msoFalse
    Next shape
End Sub

核心优化点 #

• 使用FormattedText属性实现带格式复制，完整保留字体、段落、表格、嵌入对象等所有格式属性
• 遍历StoryRanges集合覆盖正文、页眉、页脚、脚注、尾注等所有文档分区内容
• 额外处理Shapes集合，覆盖文本框、浮动形状内的文本内容
• 隐藏操作仅修改元素的可见属性，不会修改任何原有格式

使用说明 #

• 运行宏前请先备份原文档，避免操作失误造成内容丢失
• 若不需要隐藏形状，可删除最后遍历Shapes设置Visible的代码段
• 隐藏的内容可通过Word选项-显示-勾选「隐藏文字」重新查看

内容的提问来源于stack exchange，提问作者Satanas