Ich möchte (aus einem VB6-Programm heraus) eine Zeile in einer Tabelle "vervielfältigen". Also eine bestehende Tabellen-Zeile z.B. drei Mal nach dieser Zeile einfügen. Die Schwierigkeit ist, dass die Tabellen-Zeile Textmarken enthält. Ich muss mir also die Zeile (mit allen Formatierungen usw.) irgendwie merken, die Textmarken ausfüllen, dann die gemerkte Zeile als neue Zeile einfügen, Textmarken ausfüllen usw. Bei MS Word mache ich das über einen Autotext:
Set RowRange = PosTable.Rows(RowIndex).Range
Set RowAuto = myDocument.AttachedTemplate.AutoTextEntries.Add(Name:=AutoTextName, Range:=RowRange)
den ich dann mit
Set oDot = myDocument.AttachedTemplate
Set oRng = PosTable.Rows(RowIndex - 1).Range
oRng.Collapse wdCollapseEnd
oDot.AutoTextEntries(AutoTextName).Insert Where:=oRng, RichText:=True
in die Tabelle einfüge und damit eine neue Zeile bekomme.
Gibt es etwas ähnliches im Writer? Oder wie kann ich das Problem sonst lösen?
Lothar Geyer
Tabellen erweitern
Moderator: Moderatoren