在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是復制文檔所需的唯一代碼。 根據將其復制到的位置，您可能還需要確保使用正確的粘貼命令來獲取原始格式。