VBA导出Excel表格到Word：保留格式且去除关联链接的方法

要实现保留Excel区域的完整格式（含行高）且导出到Word后无关联/可编辑对象，你需要替换wdPasteOLEObject为增强型图元文件（wdPasteEnhancedMetafile）作为粘贴类型。

原因说明 #

wdPasteOLEObject的特性是将Excel区域作为嵌入对象插入Word，即使设置Link:=False，它依然是一个可编辑的Excel对象（双击会唤起Excel编辑器），这是嵌入对象的本质属性，和是否链接原文件无关。而增强型图元文件会把Excel区域渲染为矢量格式的静态内容，既完整保留格式细节，又不会关联原Excel文件。

修改后的VBA代码 #

Sub ExportRangeToWord()
    Dim objWord As Object
    Dim newDoc As Object
    Dim targetRange As Range
    
    ' 创建Word应用并新建文档
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    Set newDoc = objWord.Documents.Add
    
    ' 复制目标Excel区域
    Set targetRange = ThisWorkbook.Sheets("FinalContent").UsedRange
    targetRange.Copy
    
    ' 以增强型图元文件粘贴，保留格式且无关联
    newDoc.Range.PasteSpecial Link:=False, _
                              DataType:=wdPasteEnhancedMetafile, _
                              Placement:=wdInLine, _
                              DisplayAsIcon:=False
    
    ' 清理剪贴板并切换窗口
    Application.CutCopyMode = False
    objWord.Activate
    ThisWorkbook.Sheets("MainSheet").Activate
    
    ' 释放对象
    Set targetRange = Nothing
    Set newDoc = Nothing
    Set objWord = Nothing
End Sub

额外说明 #

如果需要粘贴后仍能作为Word表格编辑（而非静态图），可以尝试使用wdPasteHTML作为DataType参数，但部分复杂格式（如精确行高）可能会有细微偏差。增强型图元文件是兼顾格式完整性和静态性的最优选择。

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