将格式化文本复制到word-vba中的剪贴板

Question

我想复制我的word文档中的所有文本！而不会丢失格式！有些文本是粗体、下划线等。这是我到目前为止的代码，但它只是复制纯文本。

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是复制文档所需的唯一代码。根据要将其复制到的位置，您可能还需要确保使用正确的粘贴命令来获取原始格式。