Napravi u WORD-u neki šablon za taj dokument. Tamo gde želiš da ti se ispisuju sadržaji textbox-ova unesi neke reči, a zatim u kodu za ispis teksta u WORD, koristi funkciju za zamenu tih reči stvarnim sadržajem tekstbox-a.
Evo ti deo primera pa probaj malo da se poigraš sa time. Imaš sigurno gotovih kodova na Internetu.
Code:
Option Explicit
Public WordApp As Word.Application 'WORD PROGRAM
Public WordDoc As Word.Document 'WORD FAJL
Public WordRange As Word.Range 'WORD RANG, BITAN ZA...
________________________________________________
Public Sub otvoriDokument(ByVal nazivTemp As String, ByVal nazivDoc As String)
'OTVARA WORD DOKUMENT (TEMPLATE) I CUVA GA PO NOVOM IMENU
'PARAMETRI:
'nazivtemp - naziv template-a, SA PUTANJOM!!!
'nazivDoc - naziv novosacuvanog dokumenta , SA PUTANJOM!!!
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = True
.Activate
.WindowState = wdWindowStateMaximize
End With
Set WordDoc = WordApp.Documents.Open(nazivTemp)
WordDoc.SaveAs (nazivDoc)
WordDoc.Close
Set WordDoc = WordApp.Documents.Open(nazivDoc)
With WordApp
.Visible = True
.Activate
.WindowState = wdWindowStateMaximize
End With
_________________________________________
Public Sub zameni(ByVal staritext As String, ByVal novitext As String)
'FUNKCIJA KOJA U WORD DOKUMENTU MENJA NEKI TEKST NOVIM TEKSTOM
'PARAMETRI:
'staritekst - tekst u templateu koji zelimo da zamenimo
'novitext - tekst u templateu koji dolazi na mesto novog teksta
WordApp.ActiveDocument.Content.Find.Execute FindText:=staritext, replacewith:=novitext
End Sub
_____________________________________________
________________________________________________
POZIVI FUNKCIJA ("DANASNJI_DATUM" i "NAZIV_FIRME" su reči iz WORD šablona koje se menjaju podacima Date i Firma)
Call otvoriDokument(TEMPLATE, FAJL)
'ZAMENA STRINGOVA NA ODREDJENIM POZICIJAMA U TEMPLEJTU ODGOVARAJUCIM STVARNIM PODACIMA
Call zameni("DANASNJI_DATUM", Date)
Call zameni("NAZIV_FIRME", firma)
Set WordRange = WordDoc.Sections(1).Range
End Sub
edit: dodati code tagovi
[Ovu poruku je menjao Aleksandar Ružičić dana 22.08.2007. u 15:20 GMT+1]