Datenübergabe an Word
Volker
Hallo zusammen,
folgende Frage: Ich übergebe mittels des nachstehenden Codes Zellwerte einer Excel-Tabelle in Textmarken eines aufgerufenen Word-Dokuments. Ich habe in dem Word Dokument 204 zu
berücksichtigende Textmarken. Soweit funktioniert alles. Allerdings dauert es auch eine Weile.
Es sind aber nicht immer alle Textmarken zu befüllen.
Es kann genau so gut sein das nur nur die Hälfte gebraucht wird. Hier kommt der eigentlich Knackpunkt:
Wie kann ich es einrichten, daß wenn die Daten aus der Tabelle an Word übergeben wurden der Ablauf des Codes ab bzw. unterbrochen wird? Soll heissen: Wenn z.B. in Zeile 4 Spalte1 nichts mehr steht
soll erkannt werden das nichts mehr zu übergeben ist und somit der Code endet.
Ich hoffe mich halbwegs verständlich ausgedrückt zu haben.
Hier der Code:
wdAnw.ActiveDocument.FormFields.Item("Text101").Result = Cells(2, 1) 'Eingabe1 Zeile1
wdAnw.ActiveDocument.FormFields.Item("Text102").Result = Cells(2, 2)
wdAnw.ActiveDocument.FormFields.Item("Text103").Result = Cells(2, 3)
wdAnw.ActiveDocument.FormFields.Item("Text104").Result = Cells(2, 4)
wdAnw.ActiveDocument.FormFields.Item("Text105").Result = Cells(2, 5)
wdAnw.ActiveDocument.FormFields.Item("Text106").Result = Cells(2, 6)
'-------------------------------------------------------------------------------------
wdAnw.ActiveDocument.FormFields.Item("Text2101").Result = Cells(2, 1) 'Eingabe2 Zeile1
wdAnw.ActiveDocument.FormFields.Item("Text2102").Result = Cells(2, 2)
wdAnw.ActiveDocument.FormFields.Item("Text2103").Result = Cells(2, 3)
wdAnw.ActiveDocument.FormFields.Item("Text2104").Result = Cells(2, 4)
wdAnw.ActiveDocument.FormFields.Item("Text2105").Result = Cells(2, 5)
wdAnw.ActiveDocument.FormFields.Item("Text2106").Result = Cells(2, 6)
Danke und Gruß
Volker