Копировать форматированный текст в буфер обмена в word-vba

Question

Я хочу скопировать весь текст из моего слова doc !!, не теряя формат! какой-то текст выделен жирным шрифтом, подчеркнут и так далее. Это код, который у меня есть, но он просто копирует простой текст.

Sub CopyTextToClipboard()
    Dim obj As New DataObject
    Dim mainData As String
    mainData = ActiveDocument.Content.Text
    obj.SetText mainData
    obj.PutInClipboard
End Sub

Answer 1

ActiveDocument.Content.Text - это просто строка, содержащая неформатированный текст документа.

ActiveDocument.Content.Copy - единственный код, необходимый для копирования документа. В зависимости от того, куда вы копируете его, вам также может потребоваться использовать правильную команду вставки для получения исходного форматирования.