Creating an Object which is the same as CreateObject

[heedaf]

I would like to create an object that is identical to

Private Sub Command0_Click() 
    Dim wApp As Object 
    Dim oRng As Word.Range 
    Dim lngFileNum As Long 
    Dim lngErr As Long 
     
    On Error Resume Next 
    lngFileNum = FreeFile() 
    Open "c:/temp/test.docm" For Input Lock Read As #lngFileNum 
    Close lngFileNum 
    filestatus = Err 
     
    If filestatus = 0 Then 
        Set wApp = CreateObject("Word.Application") 
        wApp.Documents.Open "c:/temp/test.docm" 
        wApp.Visible = True 
        Set oRng = wApp.ActiveDocument.Content 
    Else 
        Set wApp = GetObject(, "Word.Aplication") 
        Set wApp = GetObject("C:/temp/test.docm") 
        Set oRng = wApp.Sections(1).Range 
    End If 
     
    Debug.Print oRng.Text 'Used to verify it works
End Sub

[macropod]

You already have this matter under discussion in your other thread: http://www.vbaexpress.com/forum/show...s-already-open
Kindly don't start threads that duplicate discussions elsewhere. Thread closed.