Examples: GetObject function

The following script works on the Mac with Microsoft™ Word installed.

Sub Initialize
    Dim myDoc As Variant
    Dim filename As String

    filename = "MKashG4HD:MSTestDoc"

    'Get the Word.Document object from a file. 
    Set myDoc = GetObject(filename,"Word.Document")

    ' Make the object visible
    myDoc.Application.Visible = True
End Sub