word VBA按所选内容存为新文档

Sub SaveSelected()

    Dim doc As PageSetup
    Set doc = ActiveDocument.PageSetup
    Selection.Copy
    
    Dim newdoc As Document
    
    Set newdoc = Documents.Add(, , wdNewBlankDocument)
    newdoc.PageSetup = doc
    Selection.Paste
    newdoc.Save

End Sub