Temat: Acces do word Bookmarks
Witajcie, potrzebuję pomocy w zmianie kodu. Potrzebuję wypełnić Word danymi z programu Access. Przez FormFields nie mogę tego zrobić bo mam dużo znaków w polu i po prostu nie działa. Zrobiłem wypełnienie przez zakładki (Bookmarks) i wszystko działa ale (z poniższym kodem wyrzuca tylko pierwszy rekord z kwerendy) Potrzebuję zmodyfikować kod tak aby uzupełniać Word bieżącym wyfiltrowanym rekordem z formularza.Ma ktoś jakiś pomysł na zmianę kodu?
Function wypelnijword()
Dim appword As Word.Application
Dim doc As Word.Document
Dim Path As String
On Error Resume Next
Error.Clear
Set appword = GetObject(, "word.application")
If Err.Number <> 0 Then
Set appword = New Word.Application
appword.Visible = True
Set rs = CurrentDb.OpenRecordset("kwerenda_raport")
End If
Path = "C:\Users\zz\Desktop\Baza\wypelniony.docx"
Set doc = appword.Documents.Open(Path, , True)
With wDoc
doc.Bookmarks("NUMER ").Range.Text = Nz(rs!Numer, "")
doc.Bookmarks("NR_PRO").Range.Text = Nz(rs!Nr_pro, "")
doc.Bookmarks("DATA_WNIOSKU").Range.Text = Nz(rs!Data_wniosku, "")
appword.Visible = True
appword.Activate
End With
Set doc = Nothing
Set appword = Nothing
End Function