Branestan 20.05.2025 12:02
Predmet:Access izvjestaj u word-u ili eksport podataka u word obrazac

Postoji li negdje na forumu primjer za eksport podataka u word?

Konkretno, imam program za plate radnika i zelio bih da na osnovu podataka iz programa odstampam ugovor o radu.

Access-ov report mi ne odgovara iz razloga sto je vrlo cesto potrebno dijelove ugovora izmijeniti tj dodati ili brisati dio teksta.

Amelasar 21.05.2025 18:28
Predmet:Re:Access izvjestaj u word-u ili eksport podataka u word obrazac

DoCmd.OutputTo acOutputReport, "rptUgovor", acFormatRTF, "C:\Temp\Ugovor.rtf", True

Amelasar 21.05.2025 18:30
Predmet:Re:Access izvjestaj u word-u ili eksport podataka u word obrazac

Ako bas hoces u docx:

PreuzmiIzvorni kôd (Text):
  1. Public Sub ExportReportToWord()
  2.  
  3.     Dim wdApp As Object
  4.     Dim wdDoc As Object
  5.     Dim rtfPath As String
  6.     Dim docxPath As String
  7.  
  8.     rtfPath = "C:\Ugovori\Ugovor.rtf"
  9.     docxPath = "C:\Ugovori\Ugovor.docx"
  10.  
  11.     ' Exportuj Access report kao RTF
  12.     DoCmd.OutputTo acOutputReport, "rptUgovor", acFormatRTF, rtfPath, False
  13.  
  14.     ' Otvori u Wordu i sacuvaj kao DOCX
  15.     Set wdApp = CreateObject("Word.Application")
  16.     Set wdDoc = wdApp.Documents.Open(rtfPath)
  17.  
  18.     wdDoc.SaveAs2 docxPath, FileFormat:=16 ' 16 = wdFormatDocumentDefault (docx)
  19.     wdDoc.Close False
  20.     wdApp.Quit
  21.  
  22.     Set wdDoc = Nothing
  23.     Set wdApp = Nothing
  24.  
  25.     MsgBox "Izvezeno kao DOCX u: " & docxPath
  26.  
  27. End Sub

Amelasar 21.05.2025 18:35
Predmet:Re:Access izvjestaj u word-u ili eksport podataka u word obrazac

Isto mozes u .pdf:

DoCmd.OutputTo acOutputReport, "rptUgovor", acFormatPDF, "C:\Temp\Ugovor.pdf", False

Poslije Ugovor.pdf mozes editovati sa PDF-XChange editorom ili sa drugim editorima.

Branestan 21.05.2025 21:17
Predmet:Re:Access izvjestaj u word-u ili eksport podataka u word obrazac

Uz drugu funkciju dodao sam ovo, da mi odmah otvori dokument:

Private Sub Command1_Click()

Dim LWordDoc As String
Dim oApp As Object

'Path to the word document
LWordDoc = "C:\Ugovori\Ugovor.docx"

If Dir(LWordDoc) = "" Then
MsgBox "Document not found."

Else
'Create an instance of MS Word
Set oApp = CreateObject(Class:="Word.Application")
oApp.Visible = True

'Open the Document
oApp.Documents.Open filename:=LWordDoc
End If

End Sub

Branestan 21.05.2025 21:19
Predmet:Re:Access izvjestaj u word-u ili eksport podataka u word obrazac

Hvala puno!