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