Copy
Is a method exposed by various objects like Selection, Range, Document which copies selection in clipboard memory. Let’s write code to copy/paste entire document contents to another document.
Code Example
Sub CopyPasteContent() 'bind document reference Dim cDocument As Document Set cDocument = ActiveDocument 'Select contents cDocument.Content.Select 'bind selection Dim oSelection As Selection Set oSelection = Selection Dim tDocument As Document 'Check selection type If oSelection.Type = wdSelectionNormal Then 'Copy content oSelection.Copy 'Paste contents in new document and hold the reference Set tDocument = Documents.Add tDocument.Content.Paste 'Activate the target document tDocument.Activate End If tDocument.SaveAs2 "d:\mytest.docx" 'Memory cleanup Set tDocument = Nothing Set oSelection = Nothing End Sub
Please leave your comments or queries under comment section also please do subscribe to out blogs to keep your self upto date.