VBA 直接从 Excel 打开嵌入的 Word 文档

Question

我想将 Word 文档嵌入到我的 Excel 文件中，并让 VBA 打开它，添加我从 Excel 文件中获得的表格，然后将所有内容复制粘贴到电子邮件中。有没有办法用 VBA 打开嵌入的 Word 文档而不是提供文件夹路径？这是我的 VBA（它工作正常）。我想方法是添加为对象（？）。谢谢！

Private Sub ToggleButton1_Click()

Dim ol As Outlook.Application
Dim olm As Outlook.MailItem
Dim wd As Word.Application
Dim doc As Word.Document
Dim rng As Range
Set ol = New Outlook.Application
Set olm = ol.CreateItem(olMailItem)
Set wd = New Word.Application
wd.Visible = True
Set doc = wd.Documents.Open(Environ$("USERPROFILE") & "\Desktop\US - Dec.docx")
lr = Sheet4.Range("A" & Application.Rows.Count).End(xlUp).Row
ThisWorkbook.Worksheets("Webinars").Range("A27:D" & lr).Copy
doc.Paragraphs(17).Range.PasteExcelTable _
                        LinkedToExcel:=False, _
                        WordFormatting:=False, _
                        RTF:=False
doc.Content.Copy
With olm
.Display
.To = ""
.Subject = ""
Set Editor = .GetInspector.WordEditor
Editor.Content.Paste
Application.CutCopyMode = False
'.Send
 End With
 Set olm = Nothing
 Application.DisplayAlerts = False
doc.Close SaveChanges:=False
 Set doc = Nothing
wd.Quit
 Set wd = Nothing
 Application.DisplayAlerts = True

End Sub

Answer 1

我在您之前发布的同一问题中为您提供了工作代码的答案。

VBA Excel open Word Object