Word VBA将突出显示的文本复制到新文档并保留格式

Word VBA是指Microsoft Word的Visual Basic for Applications，它是一种用于自动化和定制Microsoft Office应用程序的编程语言。在Word VBA中，可以使用各种方法和属性来操作文档、段落、文本等对象，实现各种功能。

要将突出显示的文本复制到新文档并保留格式，可以使用以下步骤：

打开Word文档并启用开发工具栏：在Word中，点击顶部菜单栏的“文件”，然后选择“选项”。在弹出的选项窗口中，选择“自定义功能区”选项卡，勾选“开发工具栏”并点击“确定”。
打开Visual Basic编辑器：在Word中，点击开发工具栏上的“Visual Basic”按钮，打开Visual Basic编辑器。
创建新的宏：在Visual Basic编辑器中，点击顶部菜单栏的“插入”，然后选择“模块”。在新建的模块中，编写以下代码：

Sub CopyHighlightedText()
    Dim rng As Range
    Dim newDoc As Document
    
    ' 获取当前选中的文本范围
    Set rng = Selection.Range
    
    ' 创建新文档
    Set newDoc = Documents.Add
    
    ' 将选中的文本复制到新文档
    rng.Copy
    
    ' 在新文档中粘贴并保留格式
    newDoc.Range.PasteAndFormat wdFormatOriginalFormatting
    
    ' 显示新文档
    newDoc.Activate
End Sub