Word VBA可复制某些突出显示的颜色并粘贴到新文档中，而不会丢失格式

Sub CopyColor()
    Dim sourceDoc As Document
    Dim targetDoc As Document
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 设置源文档和目标文档
    Set sourceDoc = ActiveDocument
    Set targetDoc = Documents.Add
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceDoc.Content
    Set targetRange = targetDoc.Content
    
    ' 复制源范围的格式和颜色
    sourceRange.Copy
    targetRange.PasteAndFormat wdFormatOriginalFormatting
    
    ' 清除剪贴板
    Application.CutCopyMode = False
    
    ' 保存目标文档
    targetDoc.SaveAs "目标文档路径"
    
    ' 关闭目标文档
    targetDoc.Close
End Sub