Microsoft KB Archive/71461

{|
 * width="100%"|

WD: Macro to Save Selection to New File

 * }

Q71461

-

The information in this article applies to:


 * Microsoft Word for Windows, versions 1.0, 1.1, 1.1a, 2.0, 2.0a, 2.0a-CD, 2.0b, 2.0c, 6.0, 6.0a, 6.0c
 * Microsoft Word for Windows NT, version 6.0
 * Microsoft Word for Windows, versions 7.0, 7.0a
 * Microsoft Word for the Macintosh, versions 6.0, 6.0.1

-

SUMMARY
The following WordBasic macro copies the selected text from the current Microsoft Word document to a new document based on the Normal template. After copying the selected text to the new document, the Save As dialog box appears so that a file name and format can be entered.

  Sub MAIN If SelType = 1 Then MsgBox &quot;Nothing is selected.&quot; Else EditCopy FileNew EditPaste On Error Resume Next FileSave End If  End Sub If the selection is less than one character (nothing is selected), a message box will display the message &quot;Nothing is selected.&quot; If the selection is one character or more, the selected text will be copied to a new file based on the Normal template.