Creating an Object which is the same as CreateObject

I would like to create an object that is identical to

Code:

---

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

---

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.