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