office 2013 sürümü tüm pcler 

Alıntı:Private Sub Komut61_Click()
Dim WordApp As Word.Application
   Dim strTemplateLocation As String
    
    strTemplateLocation = CurrentProject.Path & "\TUTANAK.docx"
   On Error Resume Next
   Set WordApp = GetObject(, "Word.Application")
   If Err.Number <> 0 Then
     Set WordApp = CreateObject("Word.Application")
   End If
   On Error GoTo ErrHandler
   
   
   WordApp.Visible = True
   WordApp.WindowState = wdWindowStateMaximize
   WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False

hata veren satır kırmızı renkli olan referanslarda Microsoft Word 15.0 Object Library ,Microsoft Office15.0 Object Library ekli