word vba 复制本文档所有内容至一个新建的文档中

Sub copyall()
'
' 复制本文档所有内容至一个新建的文档中
'
'
    Selection.WholeStory
    Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdPasteDefault)
End Sub