WD: Macro to Save Selection to New File

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, 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 "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 : MACINTOSH:6.0,6.0.1; 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; winnt:6.0
Platform : MACINTOSH WINDOWS winnt
Issue type : kbinfo