VBA Excel Word

Option Explicit

Sub formatujDokumentWord()

    Dim objWord
    Dim objDokument
    Dim objVyber
    Dim objTvary

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

    objVyber.WholeStory
    objVyber.Font.Name = "Calibri"
    objVyber.Font.Bold = True


End Sub