使用Excel VBA追加Word文档内容报错及PDF转Word优化求助

一、复制粘贴报错修复 #

你遇到的Selection.EndKey wdStory报错，核心原因是Excel VBA中默认的Selection是Excel对象，而非Word对象，Excel的Selection没有EndKey方法，同时依赖Activate和Selection的操作本身就不稳定。

直接改用Word对象模型操作，完全避免Selection和Activate，代码更可靠：

' 假设FinalWording是已打开的Word.Document对象，doc是目标Word.Document对象
' 复制FinalWording的全部内容
FinalWording.Content.Copy
' 在目标文档末尾粘贴内容
doc.Content.InsertAfter vbCrLf ' 可选：添加换行分隔
doc.Content.PasteAndFormat wdPasteDefault

或者更高效的无剪贴板方式，直接插入内容：

' 仅复制文本
doc.Content.InsertAfter FinalWording.Content.Text
' 保留格式的复制
doc.Content.FormattedText = doc.Content.FormattedText & FinalWording.Content.FormattedText

另外，原代码中FinalWording.Content.WholeStory是多余的，FinalWording.Content本身就代表整个文档的内容范围，直接调用Copy即可完成复制。

二、PDF转Word流程优化 #

不需要关闭再重新打开，直接在转换时保留Word文档对象即可。示例代码如下：

Dim wordApp As Object
Dim pdfPath As String
Dim tempWordDoc As Object

Set wordApp = CreateObject("Word.Application")
pdfPath = "C:\你的PDF文件路径.pdf"

' 直接打开PDF，Word会自动转换为可编辑文档
Set tempWordDoc = wordApp.Documents.Open(pdfPath, ReadOnly:=True)

' 这里对tempWordDoc执行你的操作（替换日期等）
' ...

' 操作完成后，关闭文档且不保存
tempWordDoc.Close SaveChanges:=False
wordApp.Quit
Set tempWordDoc = Nothing
Set wordApp = Nothing

如果需要在宏中多次处理PDF，建议全局声明wordApp并保持打开，避免反复创建销毁应用实例，提升运行效率。

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