Printing All Open Documents with WordBasic

Periodically you may be working with multiple documents on the screen at the same time, and you want to print them all. This can be cumbersome, at best, but manually switching between documents and then choosing to print each one. The following WordBasic macro allows you to print all open documents, and then returns you to the document you were viewing when you ran the macro.

Sub MAIN
' Note the current window name
CurWin$ = WindowName$()

' Step through the open document windows
For J = 1 To CountWindows()
   FilePrint
   NextWindow
Next J

' Go back to original window
Activate CurWin$
End Sub