FP2000: How to Invoke a New FrontPage Window Using Visual Basic for Applications (240904)

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The FrontPage Application object is a single-instance object. Therefore, if you attempt to programmatically create a new instance of FrontPage 2000 when an instance is already running, a new instance is not created.

Using the code below, you can create a new FrontPage window to create the appearance of a new instance of FrontPage.

To use this macro, create a new user form and place a Command Button control on it. Name the Command Button "myButton" and add the following code to the form:

'**********************************************************************
'What we do is attempt to get a 
'reference to an instance of FrontPage.  If FrontPage is not running, 
'this will generate an error and take us to our error handling routine.
'The error handling routine checks to make sure that the error number
'is what we would expect if an instance of FrontPage is not running.
'We then create a new instance of FrontPage.
'**********************************************************************
Private Sub myButton_Click()
    'Set up variables 
    Dim myFPApp As FrontPage.Application
    
    'Error handler in case FrontPage is not already running
    On Error GoTo ErrorHandler

    'Get a reference to a running FrontPage Application object
    Set myFPApp = GetObject(, "FrontPage.Application")

    'Execute the New Window command on the Window menu
    myFPApp.CommandBars.FindControl(Id:=303).Execute
    

    'Exit the sub procedure
    Exit Sub

ErrorHandler:

    'Check for the Error Number
    If Err.Number = 429 Then

        'Error 429 is a "Can't Create Object" error
        'This means that an instance of FrontPage is not running
        'Therefore, create an instance of FrontPage
        Set myFPApp = CreateObject("FrontPage.Application")

        'Make our new instance visible
        myFPApp.WebWindows(0).Visible = True

    End If 
End Sub
				

This code is intended to be run outside of FrontPage to create a new FrontPage application window using automation. This can be done with this code from another Office 2000 application or using Microsoft Visual Basic for Applications to automate FrontPage 2000.