AddFromRange Method Example

This example creates one or more subdocuments from the selection.

ActiveDocument.ActiveWindow.View.Type = wdMasterView
ActiveDocument.SubDocuments.AddFromRange Range:=Selection.Range