Вставить диапазон от слова в теле письма, включая формат

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

Теперь я решил проблему с добавлением кода html в мой текстовый документ и включил весь контент без копирования-вставки. Это сработало довольно хорошо.

.HTMLBody = oDoc.Content & olOldBody

Answer 2

.HTMLBody = oRange.FormattedText  & olOldBody