Prikazi cijelu temu 21.05.2025 19:30
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


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
Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 21.05.2025 19:37 od strane Amelasar.