Sao chép nội dung từ đối tượng Word trong excel vào email

tôi có mã bên dưới để gửi bản sao của trang tính đang hoạt động tới một nhóm email. Tôi muốn sao chép nội dung của một tài liệu word mà tôi đã tạo dưới dạng đối tượng trong trang tính có tên "Email" vào nội dung của email. khi tôi chạy mã bên dưới, tôi chỉ nhận được " Lỗi thời gian chạy:'438′: Đối tượng không hỗ trợ thuộc tính hoặc phương thức này" và phần nổi bật gỡ lỗi "Đặt doc = wd.documents.Open(Worksheets("Email").OLEObject("Object1"))". có ai có thể giúp được không?

Thư phụ_ActiveSheet()
Dim FileExtStr dưới dạng chuỗi
Dim FileFormatNum As Long
Dim Sourcewb như sổ làm việc
Dim Destwb dưới dạng sổ làm việc
Dim xWs dưới dạng bảng tính
Dim TempFilePath dưới dạng chuỗi
Dim TempFileName dưới dạng chuỗi
Dim OutApp làm đối tượng
Làm mờ OutMail làm đối tượng
strDate = Định dạng (Ngày – 1, "dddd dd mmm yyyy")
Đặt wd = CreateObject("Word.Application")
Đặt doc = wd.documents.Open(Worksheets("Email").OLEObject("Object1"))
doc.Content.Copy

Đặt Sourcewb = ActiveWorkbook
ActiveSheet.Copy
Đặt Destwb = ActiveWorkbook
Với Destwb
Nếu Val(Application.Version) < 12 thì
FileExtStr=".xls": FileFormatNum = -4143
Khác
Nếu Sourcewb.Name = .Name thì
Với ứng dụng
.ScreenUpdating = Đúng
.EnableEvents = Đúng
Kết thúc bằng
MsgBox "Bạn đã trả lời KHÔNG trong hộp thoại bảo mật."
Thoát phụ
Khác
Chọn trường hợp Sourcewb.FileFormat
Trường hợp 51: FileExtStr=".xlsx": FileFormatNum = 51
Trường hợp 52:
Nếu .HasVBProject thì
FileExtStr = ".xlsm": FileFormatNum = 52
Khác
FileExtStr=".xlsx": FileFormatNum = 51
Kết thúc nếu
Trường hợp 56: FileExtStr=".xls": FileFormatNum = 56
Trường hợp khác: FileExtStr = ".xlsb": FileFormatNum = 50
Kết thúc chọn
Kết thúc nếu
Kết thúc nếu
Kết thúc bằng

TempFilePath = Environ$("temp") & "\"
TempFileName = ActiveSheet.Name & " " & Format(Now, "dd-mm-yy")

Đặt OutApp = CreateObject("Outlook.Application")

Đặt OutMail = OutApp.CreateItem(0)

Với Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
Khi có lỗi Tiếp tục lại

với OutMail
.To = ActiveSheet.Name
.CC = ""
.BCC = ""
.Subject = ActiveSheet.Name & " " & Format(Now, "dd-mm-yy") & " " & "- BẮT BUỘC ĐÀO TẠO"
Đặt trình soạn thảo = .GetInspector.WordEditor
editor.Content.Paste
.Hiển thị

.Attachments.Thêm Destwb.FullName
.Trưng bày
Kết thúc bằng
Khi có lỗi Chuyển tới 0
.Đóng LưuThay đổi:=False
Kết thúc bằng

Kill TempFilePath & TempFileName & FileExtStr

Đặt OutMail = Không có gì
Đặt OutApp = Không có gì

với ứng dụng
.ScreenUpdating = Đúng
.EnableEvents = Đúng
Kết thúc bằng
End Sub

Dưới đây là giao diện của đối tượng được nhúng (nếu điều đó tạo ra sự khác biệt)