WD: Macro to Save Selection to New File

 Last reviewed: February 2, 1998
Article ID: 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 95, version 7.0, 7.0a
  • 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 "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 : kbmacroexample macword winword winword2 word6 kbmacro
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

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: February 2, 1998
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.