VBScript无法将复制的Excel内容插入Word指定单词后问题求助

核心问题原因 #

• 逻辑错误：原有代码并未定位文档中已有的特定单词，而是直接在文档末尾新增了Ending文本，不符合需求
• 语法错误：InsertAfter是无返回值的过程，不支持链式调用.Paste，且VBScript中调用无返回值的方法时，参数不能用括号包裹，否则会触发语法异常

修复代码 #

将你标注的问题段替换为如下代码即可实现“将Excel内容插入到已有Ending单词之后”的需求：

' 定位Word文档中指定单词的位置
Set FindRange = ObjDoc.Content
With FindRange.Find
    .Text = "Ending"
    .MatchWholeWord = True ' 匹配完整单词，可按需调整为False
    .MatchCase = False ' 不区分大小写，可按需调整为True
    ' 找到目标单词后执行粘贴
    If .Execute Then
        ' 将光标移动到目标单词的末尾
        FindRange.Collapse 0 ' 0对应Word常量wdCollapseEnd
        ' 粘贴Excel复制的内容，需要调整表格格式可替换为下一行注释的代码
        FindRange.Paste
        ' 格式调整示例：FindRange.PasteExcelTable False, False, False
    End If
End With

补充场景适配 #

如果你的需求是先在文档末尾插入Ending文本，再粘贴Excel内容，可使用如下代码替换问题段：

Set InsertRange = ObjDoc.Content
' 移动光标到文档末尾
InsertRange.Collapse 0
' 插入Ending文本
InsertRange.InsertAfter "Ending"
' 移动光标到新插入的Ending文本之后
InsertRange.Collapse 0
' 执行粘贴
InsertRange.Paste

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