|
| |
|
|
Jimkoh
Posts: 2
Joined: 12/7/2001
From:
Status: offline
 |
VB Problem - 12/7/2001 13:47:07
Hello,
I copied the following code from a MS KnowledgeBase Article and it works great in FP 2000; but it hangs in FP2002 at the the following line: CommandBars("Add Command").Controls("&File"). _
Controls("Save").Execute
Does anyone have any ideas?
Jim
Sub Save_All() 'Name of the macro
'Checks that the document is in page view in FrontPage
'And that at least one page is open
If (Application.ActiveWebWindow.ViewMode = fpWebViewPage _
And ActiveWebWindow.PageWindows.Count > 0) Then
Dim activePage, page As PageWindow 'Declare variables
'current active page
Set activePage = ActivePageWindow
'Loop through all open pages
For Each page In ActiveWebWindow.PageWindows
page.Activate
'Click the save button for each apge
CommandBars("Add Command").Controls("&File"). _
Controls("Save").Execute
Next
'Display the apge you were working on when
'the Save All command was clicked
activePage.Activate
End If
End Sub
|
|
 New Messages |
 No New Messages |
 Hot Topic w/ New Messages |
 Hot Topic w/o New Messages |
 Locked w/ New Messages |
 Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|
Printable Version 
