从Word向Outlook粘贴原格式触发Error 5097问题求助

方案1：强制激活Outlook窗口后执行粘贴 #

既然手动点击Outlook窗口后粘贴成功，说明问题和窗口焦点有关。可以在粘贴前强制激活邮件窗口，确保焦点落在编辑区域：

' 假设mailItem是你的Outlook邮件对象
mailItem.Display ' 确保邮件窗口处于显示状态
AppActivate mailItem.Subject ' 激活对应主题的邮件窗口
DoEvents ' 让系统完成窗口激活的事件处理

' 执行带格式的粘贴操作
mailWord.Range(0).PasteAndFormat wdFormatOriginalFormatting

如果存在重复主题的邮件，AppActivate可能出错，可改用以下方式确保焦点：

mailItem.Inspector.Activate
DoEvents

方案2：改用PasteSpecial指定格式 #

放弃PasteAndFormat，通过PasteSpecial直接指定源格式类型，规避格式转换冲突：

' 以HTML格式粘贴，匹配wdFormatOriginalFormatting的效果
mailWord.Range(0).PasteSpecial _
    Link:=False, _
    DataType:=wdPasteHTML, _
    Placement:=wdInLine, _
    DisplayAsIcon:=False

若模板是纯Word格式，也可尝试DataType:=wdPasteRTF，根据实际效果调整参数。

方案3：跳过剪贴板，直接插入模板内容 #

如果你的模板是本地Word文档，直接将模板内容插入邮件正文，完全避开剪贴板环节：

Dim templatePath As String
templatePath = "C:\你的模板路径\Template.docx" ' 替换为实际模板路径

' 将模板内容插入到邮件正文起始位置
mailWord.Range(0).InsertFile _
    FileName:=templatePath, _
    ConfirmConversions:=False, _
    Link:=False, _
    Attachment:=False

这种方式无需依赖剪贴板，稳定性更高，且能完整保留模板的原始格式。

方案4：重置剪贴板后重试粘贴 #

有时剪贴板缓存异常会导致格式粘贴失败，可先清空剪贴板再重新复制内容：

' 清空剪贴板
Dim objData As Object
Set objData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
objData.SetText ""
objData.PutInClipboard
Set objData = Nothing

' 重新复制模板内容（这里替换成你复制模板的原有代码）
YourTemplateRange.Copy

' 执行粘贴
mailWord.Range(0).PasteAndFormat wdFormatOriginalFormatting

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