VBA代码异常：Outlook邮件正文文本与Excel区域粘贴顺序颠倒

问题原因 #

调整代码顺序后内容不显示，是因为wordDoc.Range.PasteAndFormat默认对整个文档范围操作，粘贴时会覆盖之前插入的文本，甚至因为Range定位错误导致内容无法正确渲染。

正确代码写法 #

需要先插入文本，再将文档Range收缩到末尾，确保粘贴操作在现有内容之后执行：

' 插入邮件文本到正文末尾
wordDoc.Range.InsertAfter vbCrLf & vbCrLf & emailMessage
' 将Range收缩至文档末尾，避免覆盖已有内容
wordDoc.Range.Collapse Direction:=wdCollapseEnd
' 粘贴Excel筛选区域为图片格式
wordDoc.Range.PasteAndFormat wdChartPicture

或者用With语句简化代码，确保操作的是同一个Range对象：

With wordDoc.Range
    .InsertAfter vbCrLf & vbCrLf & emailMessage
    .Collapse wdCollapseEnd
    .PasteAndFormat wdChartPicture
End With

额外注意事项 #

• 执行这段代码前，必须确保已经执行过filteredRange.Copy，将Excel筛选区域复制到剪贴板，否则粘贴操作会失败。
• 若未引用Word对象库，可将常量替换为对应数值：wdCollapseEnd = 0，wdChartPicture = 13。

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