从Word表格单元格提取带格式文本的最优解决方案咨询

从Word文档的表格单元格中复制带格式文本时，遇到两难问题：

• 若删除文本最后一个字符来避免选中单元格，会丢失最后一段的格式
• 若保留最后一个字符，复制时会连带把表格单元格结构也粘过去

Word表格单元格的Range默认包含末尾的单元格结束标记（由Chr(13)+Chr(7)组成），直接用MoveEnd wdCharacter, -1会误删文本的段落标记，导致格式丢失。正确做法是精准调整Range范围，只选中单元格内的有效文本（保留段落标记，排除单元格结束符），具体有两种高效实现方式：

方式1：精准调整Range边界（兼容所有Word版本） #

通过定位单元格结束标记的位置，把Range的结束点设到该标记之前，既不选中单元格结构，又完整保留文本格式。

方式2：使用FormattedText属性赋值（更高效） #

跳过复制粘贴步骤，直接将单元格文本的格式内容赋值到目标Range，避免剪贴板操作的潜在问题。

方式1实现（调整Range边界） #

Private Sub DeInsert_Click()
    If De_List.ListIndex = -1 Then
        LBL DeInfoLB, " 请从上方列表中选择一个标题。", True
    Else
        Dim r As Long
        Dim dTBL As Word.Table
        Dim CelRange As Word.Range
        Dim cSelection As Word.Range
        
        r = De_List.List(De_List.ListIndex, 4)
        Set dTBL = oDoc.Tables(1)
        Set CelRange = dTBL.Cell(r, 4).Range
        
        ' 调整Range到单元格结束标记之前（保留文本的段落标记）
        CelRange.End = CelRange.End - 1
        
        CelRange.Copy
        Set cSelection = Selection.Range
        cSelection.PasteAndFormat wdFormatOriginalFormatting
    End If
End Sub

方式2实现（用FormattedText直接赋值） #

Private Sub DeInsert_Click()
    If De_List.ListIndex = -1 Then
        LBL DeInfoLB, " 请从上方列表中选择一个标题。", True
    Else
        Dim r As Long
        Dim dTBL As Word.Table
        Dim CelRange As Word.Range
        Dim cSelection As Word.Range
        
        r = De_List.List(De_List.ListIndex, 4)
        Set dTBL = oDoc.Tables(1)
        Set CelRange = dTBL.Cell(r, 4).Range
        
        ' 排除单元格结束标记
        CelRange.End = CelRange.End - 1
        
        Set cSelection = Selection.Range
        ' 直接将带格式文本赋值到目标位置，无需复制粘贴
        cSelection.FormattedText = CelRange.FormattedText
        ' 可选：将光标移到粘贴内容末尾
        cSelection.Collapse wdCollapseEnd
    End If
End Sub

• 两种方式都通过CelRange.End = CelRange.End - 1精准排除了单元格结束标记，避免复制单元格结构
• 方式2无需使用剪贴板，执行效率更高，也不会干扰用户剪贴板内容

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