Array in Word einfügen

[Wolfgang_B]

ich möchte ein XBASE-Array in Word einfügen. Hat jemand einen Tipp?

[Jan]

Var2Char(aArray) gibt Dir einen String zurück.

Jan

[Koverhage]

Es muss sich halt eine Tabelle im Word Dokument befinden

Code: Alles auswählen

  nAnzTables := oDoc:tables:count

//  msgbox(str(nAnzTables))

  if nAnzTables > 1 .and. nAnzElemente > 0
     nAnzCells := len(aArray[1])

     oTable := oDoc:tables(3)
     // Hier z.B. fr ganze Tabelle
     // oTable:Range:Font:Bold := .t.
     for i:=1 to nAnzElemente
        if i > 2
           oTable:rows:add()
        endif
        oCell := oTable:Cell(i,1):range
//        oCell:Font:Bold := .t.
//        oCell:Font:Size := 8
        oCell:text := aArray[i,1]
        oCell := oTable:Cell(i,2):range
        oCell:text := aArray[i,2]
        IF nAnzCells > 2
           oCell := oTable:Cell(i,3):range
           oCell:text := aArray[i,3]
        ENDIF
        IF nAnzCells > 3
           oCell := oTable:Cell(i,4):range
           oCell:text := aArray[i,4]
        ENDIF
        IF nAnzCells > 4
           oCell := oTable:Cell(i,5):range
           oCell:text := aArray[i,5]
        ENDIF
        IF nAnzCells > 5
           oCell := oTable:Cell(i,6):range
           oCell:text := aArray[i,6]
        ENDIF
     next
  endif

[Tom]

Oder durch Tabs getrennt. Oder was auch immer. Heute ist der Tag der möglichst ungenauen Wolfgangfragen.

[Wolfgang Ciriack]

Habe heute noch nichts gefragt

[Wolfgang_B]

Komisch, gerade eine Antwort verfaßt und abgesendet aber nicht angekommen ...

Also nochmal...

erstmal sollte ich meine Fragen auf mehrere Tage verteilen ..

ich möchte Rechnungsdaten in ein Word Formular formatiert einfügen. Diese liegen als Array vor. Adressdaten usw. habe ich schon mit Tokens ersetzt, sowohl in .DOCX als auch in .RTF. Wie kriege ich diese Rechnungsdaten formatiert in das Dokument?

@Klaus, vielleicht ist das schon die Lösung. Probiere ich aus ... -Danke

[Tom]

Ich nehme an, Du willst ein Word-Dokument als eine Art Formular für Rechnungen verwenden, richtig? Da würde ich ein RTF-Dokument als Template mit einer vorformatierten Tabellenzeile generieren, die mit Platzhaltern ausgestattet ist und sich dann wiederholt vom Programm aus gesteuert einfügen lässt (das kann man dann auch mit den Infos drumherum machen, also Empfängerdaten, Rechnungsnummer usw.). Das ist zwar nicht der eleganteste, aber der einfachste Weg. Komplizierte und elegantere gibt es zuhauf. Es fängt bei ActiveX an und hat kein Ende.

[Wolfgang_B]

So habe ich es mit den Adressdaten, Rechnungsnr. usw. schon gemacht. Wie gehe ich dann mit den Platzhaltern für die Rechnungspositionen um? Hier weiss ich ja noch nicht, wieviele Positionen auftauchen...

[Tom]

Du müsstest halt im RTF-Code herausfinden, wo eine Grid-Zeile beginnt und wo sie endet, den Code nimmst Du dann in Deine App und repetierst ihn dort. Er ist je nach Textprogramm mal weniger komplex (Wordpad) und mal etwas umfangreicher (Word). Wie gesagt, elegant geht anders, aber das ist der vermutlich einfachste Weg.

[Wolfgang_B]

das hab ich befürchtet. Martin hat mir schon mal so was Ähnliches in Bezug auf Serienbriefe geschrieben. I

Dann muß ich mich doch mal damit befassen

Schon mal Danke!

[Koverhage]

Hier mal die Doc Datei zu meinem Codebeispiel.

[Rolf Ramacher]

Wolfgang du kannst in die Platzhalter jede Menge Daten aus dem Array reinpacken. Ich mache das so

ich befülle eine Variable . beispiel cText auffüllen mit +=
für die nächste Zeile machst du das dann cText+="\line"+space(1)

und zum schluss ersetzt du den Platzhalter mit strtran.

probier es mal aus.

[Tom]

Bei Tabellenzellen und -zeilen ist das ein wenig komplizierter, Rolf.

[Martin Altmann]

Aber nicht wesentlich, Tom.
Man kann die Informationen über die Spaltenbreiten in den Header der Tabelle packen (der ja im Worddokument steht) und braucht sie nicht bei jeder Zeile wiederholen. Da beschränkt sich das dann im wesentelichen auf \cell, um die nächste Spalte zu beginnen und halt das Ende der Zeile. Klar, wenn man Formatierungen anpassen will (\b, \i oder \font), kommt noch ein wenig mehr dazu.

Viele Grüße,
Martin

[Tom]

Das hängt von der Komplexität ab - und womit man es macht. Ansonsten Zustimmung; im einfachsten Fall endet ein Spalteninhalt mit \cell. Aber wenn ich eine ganze Zeile herstellen und reproduzieren will, brauche ich noch ihren Prolog und Epilog. Wenn ich einfach nur Spalten wiederhole, bekomme ich lediglich eine einzige, sehr lange Zeile.

[Wolfgang_B]

Danke mal an alle ... Hatte noch keine Zeit das alles genauer zu eruieren ...

Habe gerade ein ganz anderes Problem ... ich mache da mal einen neuen Thread auf ..