求VBA脚本：在Word文档指定位置插入Excel文件

原代码的问题在于插入OLE对象时未绑定到查找后的选中位置，而是基于文档全局插入，导致默认显示在第一页。以下是修正后的代码：

Set wDoc = wApp.Documents.Open(ReportFile)

With wDoc
    .Activate
    ' 查找指定标记文本
    With .Application.Selection.Find
        .Text = "ExcelFile"
        .ClearFormatting
        .MatchWholeWord = True ' 精准匹配整词，避免部分匹配干扰
        .Execute
    End With
    
    ' 确认找到标记后执行插入操作
    If .Application.Selection.Find.Found Then
        ' 删除标记文本
        .Application.Selection.Delete
        ' 在当前选中位置插入Excel对象
        .Application.Selection.InlineShapes.AddOLEObject _
            ClassType:="Excel.SheetMacroEnabled.12", _
            Filename:=ReportFileS102, _
            LinkToFile:=False, _
            DisplayAsIcon:=True, _
            IconFileName:="C:\WINDOWS\Installer\{90160000-000F-0000-0000-0000000FF1CE}\xlicons.exe", _
            IconIndex:=1, _
            IconLabel:=ReportFileNameS102 & ".xlsm"
    Else
        MsgBox "未找到标记文本 ""ExcelFile""，无法插入Excel文件。"
    End If
End With

关键改动说明 #

• 给Find操作增加ClearFormatting和MatchWholeWord，避免格式干扰或部分匹配导致查找失败
• 增加查找结果判断，防止未找到标记时执行插入操作报错
• 将wDoc.InlineShapes.AddOLEObject改为Application.Selection.InlineShapes.AddOLEObject，确保对象插入到查找后的目标位置
• 用Selection.Delete替代原代码的Selection = ""，更规范地清除标记文本

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