使用Word VBA宏在/代替特定字符串之后添加和OLEObject

Question

我试图使用VBA宏在word文档中插入OLE对象。通过使用下面的代码，这个部分工作得很好。

Sub Test()
    Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.12", FileName _
    :="C:\Users\ananyroy\Documents\SDWAN\NRFUAutomation\Trials\TestFile.xlsx", LinkToFile _
    :=False, DisplayAsIcon:=True, IconFileName:= _
    "C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\xlicons.exe" _
    , IconIndex:=100, IconLabel:="Book1.xlsx", Range:=ActiveDocument.Paragraphs(4).Range
End Sub

然而，我正在寻找一个方法来添加这个OLE对象后的一个特定的字符串或取代占位符字符串。使用范围参数似乎是一个冗长的方法来实现它。任何帮助都是非常感谢的。

Answer 1

试试这个：

Sub Test()
    Dim rng As Word.Range
    Set rng = ActiveDocument.Content
    With rng.Find
        .ClearFormatting
        .Forward = True
        .Text = "Placeholder Text"
        .Wrap = wdFindStop
        .Execute
        If .found Then
            rng.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.12", FileName _
            :="C:\Users\ananyroy\Documents\SDWAN\NRFUAutomation\Trials\TestFile.xlsx", LinkToFile _
            :=False, DisplayAsIcon:=True, IconFileName:= _
            "C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\xlicons.exe" _
            , IconIndex:=100, IconLabel:="Book1.xlsx", Range:=rng
        End If
    End With
End Sub