Tvorba a formátovanie dokumentu Word VBA

Sub otvorWordDokument()

    Dim objWord
    Dim objDokument
    Dim objVyber

    Set objWord = CreateObject("Word.Application")
    Set objDokument = objWord.Documents.Open("D:\Subor.docx")

    objWord.Visible = True

'    ' Vytlaè dokument
'    objDokument.PrintOut

'
    Set objVyber = objWord.Selection
    objVyber.Font.Bold = True
    objVyber.Font.Size = "22"

    objVyber.TypeText ("Práve som zapísal nieèo do Wordu2..." & vbCrLf)
    objDokument.Save
'
'    ' Vypni Word

     objWord.Quit

End Sub