Hallo Excel-Experten,
ich hatte gestern schon mal einen Anlauf hier im Forum gemacht, leider nicht mit dem richtigen Erfolg. Ich will aus einem größeren Excel-VBA-Programm Word-Briefe erzeugen. Word starten, Dokumentenvorlage öffnen, Texte an Textmarken einfügen, Drucken, Speichern - das habe ich inzwischen prima hinbekommen. Aber die Word-Tabellen.... Ich bekomme keinen Text hinein und schaffe es auch nicht, situationsabhängig neue Zeilen in eine bestehende Tabelle hinzuzufügen.
Hier fragmentarisch der Einstiegscode:
Dim WordObj As Object
....
Set WordObj = GetObject(, "word.application.10")
.....
WordObj.Documents.Add Template:=(ModulDateien.Pfad & "\" & Vorlage.dot)
Ich kann auch die Tabelle ansteuern:
WordObj.ActiveDocument.Tables(1).Rows(2).Select
Aber das Einfügen neuer Zeilen mit dem Word-Code:
Selection.InsertRowsBelow
wird mit Fehler 438 verweigert.
Genauso geht es mir, wenn ich eine Celle der Tabelle ansteuere mit:
WordObj.ActiveDocument.Tables(1).Cell(Row:=2, Column:=4).Select
Das Ansteuern funktioniert, aber alle Experimente, etwas hineinzuschreiben scheitern. z.B. mit :
Selection.TypeText Text:="Testtext"
Auch anderes habe ich probiert, z.B. mit InsertAfter. Immer Fehler 438.
Wie kann man Tabellen in Word erweitern und ausfüllen? Mit Textmarken kann ich m.E. nicht arbeiten, da neue Zeilen ja keine aufweisen. Oder geht das Ganze gar nicht? Muss ich evtl. meine Tabellen erst in Excel aufbereiten und dann komplett nach Word kopieren? Dafür habe ich etliche Beispiele gefunden. Hat jemand eine gute Idee?
Thomas