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
word VBA按所选内容存为新文档
最新推荐文章于 2024-08-30 17:05:27 发布