Sub Test()
' Set a VBE reference to Microsoft Word Object Library

    Dim WDApp As Word.Application
    Dim WDDoc As Word.Document

    ' Open new instance of Word
    Set WDApp = CreateObject(Class:="Word.Application")
    ' Open a Word document
    Set WDDoc = WDApp.Documents.Open(Filename:="c:\test.doc")
    
    ' Manipulate
    With WDDoc.Tables( 1 )
        .Cell( 2 ,  1 ).Select
        WDApp.Selection.InsertRowsBelow  12 
        For i =  1  To  12 
            .Cell(i +  2 ,  1 ).Range.Text = Format(DateSerial( 1900 , i,  1 ), "MMM")
        Next i
    End With
    
    ' Close the document
    WDDoc.Close SaveChanges:=True
    ' Clean up the variable
    Set WDDoc = Nothing
    ' Close the application
    WDApp.Quit
    ' Clean up the variable
    Set WDApp = Nothing
End Sub

Dim appWD As Object
Set appWD = CreateObject("Word.Application")

appWD.Documents.Open (tpath + "\obrazec.dot")
appWD.Visible = True

With appWD
    .Selection.MoveDown Unit:=wdLine, Count:= 9 
    .Selection.MoveRight Unit:=wdCharacter, Count:= 43 
    .Selection.TypeText Text:="Hello"
    .Selection.MoveDown Unit:=wdLine, Count:= 6 
    .Selection.MoveLeft Unit:=wdCharacter, Count:= 19 
End With