Die Suche ergab 5 Treffer

von Nicole_DTB
Fr 17. Mär 2017, 11:48
Forum: Einsteigerfragen
Thema: Tabellen in Word-Dokument schreiben
Antworten: 8
Zugriffe: 3789

Re: Tabellen in Word-Dokument schreiben

Habe das Problem gelöst :D :D

Es fehlte der Befehl

WordApp.Selection.EndKey(6);

der dafür sorgt, dass die Cursorposition nicht mehr irgendwo in der Tabelle ist, sondern am Ende des Dokumentes.
Dadurch kann jetzt auch die zweite Tabelle korrekt positioniert werden.

Eigentlich ganz einfach ...
von Nicole_DTB
Do 16. Mär 2017, 18:47
Forum: Einsteigerfragen
Thema: Tabellen in Word-Dokument schreiben
Antworten: 8
Zugriffe: 3789

Re: Tabellen in Word-Dokument schreiben

Habe beide Vorschläge ausprobiert (Zeilenumbruch und unterschiedliche Namen).
Das Problem bleibt unverändert bestehen.
von Nicole_DTB
Do 16. Mär 2017, 18:17
Forum: Einsteigerfragen
Thema: Tabellen in Word-Dokument schreiben
Antworten: 8
Zugriffe: 3789

Re: Tabellen in Word-Dokument schreiben

Meine rudimentären Kenntnisse habe ich von der Wiki-Seite (Wordautomation), die du da erwähnst..
Aber weitere Infos zu meinem Problem finde ich dort eben nicht.

Der erneute Aufruf für die 2. Tabelle führt dazu, dass im Worddokument die 2 Tabelle an die erste "geklatscht" wird, was ich natürlich ...
von Nicole_DTB
Do 16. Mär 2017, 17:34
Forum: Einsteigerfragen
Thema: Tabellen in Word-Dokument schreiben
Antworten: 8
Zugriffe: 3789

Re: Tabellen in Word-Dokument schreiben

Entschuldigung !
Ich bin so "frisch" in Lazarus, dass ich noch nicht mal die Fragen ordentlich stellen kann.

varDokument:oleVariant;
varTabelle:oleVariant;
von Nicole_DTB
Do 16. Mär 2017, 16:01
Forum: Einsteigerfragen
Thema: Tabellen in Word-Dokument schreiben
Antworten: 8
Zugriffe: 3789

Tabellen in Word-Dokument schreiben

Bin Lazarus-Anfänger und versuche mehrere Tabellen in ein Word-Dokument zu schreiben.
Das gelingt mir auch mit einer Tabelle

varTabelle := varDokument.Tables.Add(WordApp.Selection.Range, 7, 2);
varTabelle.Cell(1, 1).Range.Text := widestring(UTF8Decode('X'));
varTabelle.Cell(1, 2).Range.Text ...