Так как же запустить Word?

Dim Nal As Recordset
Set Nal = dbMatUch.OpenRecordset("nal", DB_OPEN_TABLE)
Nal.First
Set oApp = Nal.Object.Application
Set WDoc = oApp.ActiveDocument

Dim Nal As Recordset
Set Nal = dbMatUch.OpenRecordset("nal", DB_OPEN_TABLE)
Nal.First 
Set oApp = Nal.Object.Application
Set WDoc = oApp.ActiveDocument

Dim oApp As Object, WDoc As Object

Dim obWord as Object
Dim obWindow as Object
 
Private Sub Knopka_Click() 
StartWordEasy "Doc" 'Doc - imja polja
End SubPrivate 
 
Sub StartWordEasy(FieldName As String) 
Forms!Dokumentes(FieldName) = DLookup("Doc", "Dokumentes", "DocNum = 1") 
Forms!Dokumentes(FieldName).Action = acOLEActivate 
Err.Clear 
On Error Resume Next 
Set obWord = GetObject(, "word.Application") 
If Err = 429 Then 
Set obWord = CreateObject("word.Application") 
End If 
Set obWindow = obWord.ActiveDocument.ActiveWindow obWindow.WindowState = 1 
obWord.WindowState = 1 
obWord.Visible = True
End Sub

Dim oApp As Object
Dim WDoc As Object
Forms![Имя формы]![ТекстДог].Verb = acOLEVerbOpen
Forms![Имя формы]![ТекстДог].Action = acOLEActivate
Set oApp = Forms![Имя формы]![ТекстДог].Object.Application
Set WDoc = oApp.ActiveDocument

Private Sub Form_Load()
    Dim ctl As CommandButton
 
    Set ctl = Me!Command0
    With ctl
        .Visible = False
        .HyperlinkAddress = "c:\proba.doc"
        .Hyperlink.Follow
    End With
End Sub