Seriendruck-Felder
Datenfelder können u.a. als Seriendruckfelder in die Textbausteine integriert werden. Hierzu wird die leistungsfähige Datenschnittstelle von Microsoft Word genutzt. So lassen sich die Platzhalter im freien Text mit fast jeder Datenquelle verbinden. Die Datenabfrage kann individuell über ein Menü oder über ein einfaches Makro gesteuert werden. Dieses Makro kann mit einem Textbaustein oder mit dem Dokumentengenerator aufgerufen werden, sodass die Befüllung der Platzhalter automatisch im Hintergrund durchgeführt wird. Das Makro startet automatisch sobald der entsprechende Textblock eingefügt oder ein Dokument generiert wird.
Mit Hilfe des Makro-Recorders können Sie die Zugriff-Prozedur aufzeichnen und als editierbaren Makrocode abspeichern.
Beispiel für den Zugriff auf die Daten in einer Microsoft Access-Datenbank:
************************************
Sub Demo_Database_Zugriff()
Dim cDemoDatabase As String
Speicherort der Access-Datenbank
cDemoDatabase = "C:\Program Data\texManager CP\Example\Angebote.mdb"
Verbindung herstellen und Datensätze auswählen
ActiveDocument.MailMerge.OpenDataSource Name:=cDemoDatabase, _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source= cDemoDatabase;Mode=Read; _
Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path=""""; _
Jet OLEDB:Engine Type=6; Jet OLEDB:Database Locking Mode=0;Jet " , _
SQLStatement:="SELECT * FROM `Office Address List`", SQLStatement1:="", _
SubType:=wdMergeSubTypeOAL
Gefundene Datensätze auflisten und auswählen
Application.Dialogs(wdDialogMailMergeRecipients).Show
Ergebnisse in die Platzhalter bzw. Seriendruckfelder anzeigen
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
Datenverbindung der Felder entfernen
Application.Run ("tm_Cut_MM_Fields")
End Sub
************************************
Hier finden Sie eine weitere Erläuterung wie man einen Textbaustein mit Platzhaltern über die Datenschnittstelle der Seriendruckfunktionalität erstellt:
Weitere Informationen zu Daten- bzw. Seriendruckfeldern und Word-Makros finden Sie in der Microsoft Word Dokumentation.
Wie erstellen für Sie gerne ein entsprechende Makro für einen automatisierten Datenzugriff.
Fragen Sie nach!