如何通过Word宏将RTF字符串还原为表格或图片等原格式？

可以通过Word宏实现将RTF字符串转换为原格式内容插入，核心思路是借助剪贴板传递RTF格式内容——Word会自动解析剪贴板中的RTF编码，渲染出对应格式（纯文本、表格、图片均支持）。

直接用InsertAfter插入RTF字符串会被当作纯文本处理，因为该方法不会解析RTF编码。以下是修改后的宏代码，替换原代码中处理full_text的部分：

Sub InsertSPElement(iRow, arrTables)
    Dim text, full_text As String
    Dim originalClipboard As Object
    Dim rtfDataObj As Object
    
    text = arrTables(iRow, 8)
    full_text = arrTables(iRow, 10) ' RTF String
    
    ' 初始化剪贴板对象，保存原有内容（后期绑定，无需额外引用）
    Set originalClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    originalClipboard.GetFromClipboard
    
    With Selection
        If StrComp(arrTables(iRow, 6), "Important", 1) = 0 Then
            .InsertAfter text:=text
            .Font.Bold = True
            '.Range.SetListLevel Level:=CInt(arrTables(iRow, 3))
            .Style = ActiveDocument.Styles("Header " & arrTables(iRow, 3))
            .InsertParagraphAfter
            .Collapse Direction:=wdCollapseEnd
            
            If Len(full_text) > 0 Then
                ' 处理RTF字符串插入
                Set rtfDataObj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
                ' 将RTF字符串以RTF格式写入剪贴板
                rtfDataObj.SetText full_text, vbCFRTF
                rtfDataObj.PutInClipboard
                
                ' 粘贴剪贴板中的RTF内容（Word自动解析格式）
                .Paste
                
                .Font.Bold = False
                .InsertParagraphAfter
                .Collapse Direction:=wdCollapseEnd
            End If
        End If
    End With
    
    ' 恢复原有剪贴板内容，避免覆盖用户数据
    originalClipboard.PutInClipboard
    Set originalClipboard = Nothing
    Set rtfDataObj = Nothing
End Sub

关键说明： #

• 采用后期绑定创建剪贴板对象，无需手动添加Microsoft Forms 2.0 Object Library引用，适配更多场景。
• vbCFRTF是RTF格式的剪贴板常量，确保剪贴板识别内容为RTF编码而非纯文本。
• 保存并恢复剪贴板内容，避免覆盖用户之前复制的内容，提升宏的实用性。
• 粘贴操作会自动解析RTF中的所有格式，包括你关注的纯文本、表格、图片类型。

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