从邮件正文中的单词粘贴范围，包括格式

Question

我正在处理邮件合并宏，我正在尝试从我的 Word 文档中复制文本，包括邮件正文中的格式，不幸的是它不接受那里的 range.paste 功能。期待任何建议。

    Set oWord = CreateObject("Word.Application")

    oWord.Documents.Open FileName:="*\Flightticket.docx", ReadOnly:=True
    Set oDoc = oWord.ActiveDocument
    Set oRange = ActiveDocument.Range(Start:=0)
    oWord.Visible = False
    oRange.Copy

*
*
*
           With oMail
               .To = oContact.Email1Address
               .Subject = Left(oDoc.Name, Len(oDoc.Name) - 5) & " " & mText
               .GetInspector.Activate 'Signatur
               olOldBody = .HTMLBody
               'The content of the document is used as the body for the email
                .HTMLBody = oRange.Paste  & olOldBody               'Here is the error
             End With

Answer 1

.HTMLBody = oRange.FormattedText  & olOldBody

Answer 2

我现在通过将 html 代码添加到我的 word 文档来解决这个问题，并在没有复制粘贴的情况下包含了全部内容。效果还不错。

.HTMLBody = oDoc.Content & olOldBody

从邮件正文中的单词粘贴范围，包括格式

Paste range from word in mail body including the format

outlook

vba

ms-word

paste