Tabellen erweitern

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Tabellen erweitern

Tabellen erweitern

von Lothar » Mo, 21.04.2008 12:25

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

Nach oben