Code:


On Error GoTo ErrorHandler

   Dim strWordTemplate As String
   Dim strDocsPath As String
   Dim strSaveName As String

   strWordTemplate = "NazivPredloska.dot"
   
   Set pappWord = GetObject(, "Word.Application")

   strDocsPath = CurrentProject.Path & "\"
   strWordTemplate =    strDocsPath & strWordTemplate

   strTestFile = Nz(Dir(strWordTemplate))
   Debug.Print "Provjera datoteke: " & strTestFile
   If strTestFile = "" Then
      MsgBox strWordTemplate & " predložak nije pronađen; ne mogu uraditi izvoz"
      GoTo ErrorHandlerExit
   End If
   
      pappWord.Documents.Add strWordTemplate

      With pappWord.Selection
         .GoTo What:=wdGoToBookmark, Name:="NazivBookmarka1"
         .TypeText Text:=Nz("Vrijednost1", "")
        
         .GoTo What:=wdGoToBookmark, Name:="NazivBookmarka2"
         .TypeText Text:=Nz("Vrijednos2", "")
         
         '....
         '....

      End With
      
      
On Error GoTo ErrorHandler
      strSaveName = "NazivIzvještaj.doc"
      strSaveName = strDocsPath & strSaveName
      
      With pappWord
         .Selection.WholeStory
         .Selection.Fields.Update
         .Selection.HomeKey Unit:=wdStory
         .ActiveDocument.SaveAs strSaveName
      End With
   
   With pappWord
      .ActiveWindow.WindowState = 0
      .Quit
   End With
      
ErrorHandlerExit:
   Set pappWord = Nothing
   Exit Sub

ErrorHandler:
   'Word nije pokrenut; otvori Word sa CreateObject
   If Err.Number = 429 Then
      Set pappWord = CreateObject("Word.Application")
      Resume Next
   Else
      MsgBox "Greška broj: " & Err.Number & "; Opis greške: " & Err.Description
      Resume ErrorHandlerExit
   End If