WD: Macro to Save Selection to New File

ID: Q71461

The information in this article applies to:

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 "Nothing is selected."
      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 "Nothing is selected." If the selection is one character or more, the selected text will be copied to a new file based on the Normal template.

REFERENCES

"Microsoft Word for Windows Technical Reference," version 1.0, pages 77 and 88.

"Microsoft Word for Windows and OS/2 Technical Reference," version 1.0, pages 223-224 and 250.

"Using WordBasic" by WexTech Systems, Inc. and Microsoft Corporation,Microsoft Press, 1992.

Additional query words: document

Keywords          : kbmacro kbmacroexample winword macword word6 winword2 
Version           : WINDOWS:1.0,1.1,1.1a,2.0,2.0a,2.0a- CD,2.0b,2.0c,6.0,6.0a,6.0c,7.0,7.0a; MACINTOSH:6.0,6.0.1,6.0.1a
Platform          : MACINTOSH Win95 WINDOWS winnt
Issue type        : kbinfo

Last Reviewed: February 4, 1998