FP2000: How to Add a Save All Command to the File Menu Using VBA (256080)

MORE INFORMATION

To add a Save All command to the File menu, follow these steps:

1. On the Tools menu, point to Macro, and then click Visual Basic Editor (or press ALT+F11).
2. Insert a new module by clicking Module on the Insert menu.
3. In the Properties window (press F4), change the name of the module to SaveAll.
4. Type the following in the Microsoft_FrontPage - SaveAll (Code) window:
   

   Sub SaveAll() 
      Dim page As PageWindow 
      For Each page In Application.ActiveWebWindow.PageWindows
         page.Save
      Next 
   End Sub
   						

5. On the File menu, click Close and Return to Microsoft FrontPage.
6. On the Tools menu, click Customize, and click the Commands tab.
7. In the Categories list, click Macros.
8. Use the drag-and-drop operation to copy Custom Menu Item from the Commands list to the File menu.
9. Click Modify Selection, and change the Name box from &Custom Menu Item to Save A&ll.
10. Click Modify Selection again, and click Assign Macro.
11. Click SaveAll on the list, and then click OK.
12. In the Customize dialog box, click Close.

For more information about how to use the sample code in this article, click the article number below to view the article in the Microsoft Knowledge Base: