如何打开嵌入在 Excel 文件中的 Word object？

Question

我想打开并修改嵌入在 Excel 文件中的 Word 文档。

我需要打开 Word 文档，从范围 A24:C 和 lastRow 的 Excel 文件中添加表格，将所有内容复制粘贴到 Outlook Z0C83F57C786A0B4A39EFAB23731C7EB 中，最后关闭 Word。

我收到错误 13。

Sub SendMail()

    Dim ol As Outlook.Application
    Dim olm As Outlook.MailItem

    Dim wd As Word.Application
    Dim doc As Word.Document
    Dim rng As Range

    Dim oleObject As Object
    Dim wordDocument As Object

    Set ol = New Outlook.Application
    Set olm = ol.CreateItem(olMailItem)
    
    Set wd = New Word.Application
    wd.Visible = True
    
    Set doc = wd.Documents.Open(ActiveWorkbook.Sheets("Webinars").OLEObjects(1))
    doc.Verb Verb:=xlPrimary

    lr = Sheet4.Range("A" & Application.Rows.Count).End(xlUp).Row

    ThisWorkbook.Worksheets("Webinars").Range("A24:C" & lr).Copy
    doc.Paragraphs(12).Range.PasteExcelTable _
                                LinkedToExcel:=False, _
                                WordFormatting:=False, _
                                RTF:=False
                                
    doc.Content.Copy
    
    With olm
        .Display
        .To = ""
        .Subject = "Test"
    
        Set Editor = .GetInspector.WordEditor
        Editor.Content.Paste
        CutCopyMode = False
        '.Send
    End With

    Set olm = Nothing
    Application.DisplayAlerts = False
    CutCopyMode = False
    doc.Close SaveChanges:=False
    Set doc = Nothing
    wd.Quit
    Set wd = Nothing
    Application.DisplayAlerts = True
    
End Sub

一切似乎都有效，除了

Set doc = wd.Documents.Open(ActiveWorkbook.Sheets("Webinars").OLEObjects(1))
doc.Verb Verb:=xlPrimary

Answer 1

尝试这个：

Sub Demo()
    Dim wApp As Word.Application
    Dim doc As Word.document
    
    ActiveSheet.Shapes.Range(Array("Object 1")).Select
    Selection.Verb Verb:=xlPrimary
    
    Set wApp = GetObject(, "Word.Application")
    Set doc = ActiveDocument
    MsgBox doc.Paragraphs(1).Range.Text
End Sub