用vba读取当前活动文档的内容及格式，按相同的格式新建一个word文档

以下是用VBA读取当前活动文档的内容及格式，并按相同的格式新建一个Word文档的代码： Sub CopyFormatAndContent() '获取当前活动文档 Dim sourceDoc As Document Set sourceDoc = ActiveDocument '创建新文档 Dim newDoc As Document Set newDoc = Documents.Add '复制格式 sourceDoc.Content.FormattedText.Copy newDoc.Range.PasteAndFormat wdFormatOriginalFormatting '复制内容 sourceDoc.Content.Copy newDoc.Range.Paste End Sub 该代码首先获取当前活动文档，然后创建一个新文档。接着，它将当前文档的格式复制到新文档中，并将内容复制到新文档中。最后，新文档就会与当前文档具有相同的格式和内容。