Reply to Word automation mit Word_2K_SRVR on Wed, 03 Jan 2007 10:14:12 GMT

MyOwnShadow — Wed, 03 Jan 2007 10:14:12 GMT

Ich bin am verzweifeln.
Ich möchte aus meiner Applikation heraus ein Word Dokument erstellen. Dabei bin ich auf die Komponenten TWordApplication, TWordDocument etc. gestoßen.
Scheinbar arbeitet niemand damit, sonst wären bestimmt irgendwo Beispiele verfügbar. Nachdem ich nun schon Text ausgeben und formatieren kann wollte ich eine Tabelle einfügen.

[code]
	// Dokument öffen
	WdApp->Documents->Add(Template, NewTemplate, myDocTyp, isVisible);
	WdDoc->ConnectTo(WdApp->Documents->Item(ItemIndex));
	// Seite einrichten
	WdDoc->PageSetup->LeftMargin   = WdApp->MillimetersToPoints(25);
	WdDoc->PageSetup->RightMargin  = WdApp->MillimetersToPoints(25);
	WdDoc->PageSetup->TopMargin    = WdApp->MillimetersToPoints(20);
	WdDoc->PageSetup->BottomMargin = WdApp->MillimetersToPoints(20);

	// Überschrift zentriert
	WdApp->Selection->Font->Bold = (int) true;
	WdApp->Selection->Paragraphs->Alignment = wdAlignRowCenter;
	WdApp->Selection->Font->Size = 18;
	WdApp->Selection->TypeText((Variant) ("Maschinenoptionen Software\n"));

	// 2. Überschrift etwas kleiner
	WdApp->Selection->Font->Bold = (int) false;
	WdApp->Selection->Font->Size = 14;
	WdApp->Selection->Paragraphs->Alignment = wdAlignRowCenter;
	WdApp->Selection->TypeText((Variant) ("Elektronikentwicklung\n"));

	// Absatz mit speziellen Tabulatoren
	Leader    = wdTabLeaderSpaces;
	Alignment = wdAlignTabLeft;
	WdApp->Selection->Paragraphs->TabStops->ClearAll();
	WdApp->Selection->Paragraphs->TabStops->Add(WdApp->MillimetersToPoints(20), Alignment,Leader);
	WdApp->Selection->Paragraphs->TabStops->Add(WdApp->MillimetersToPoints(90),Alignment,Leader);
	WdApp->Selection->Paragraphs->TabStops->Add(WdApp->MillimetersToPoints(110),Alignment,Leader);
	WdApp->Selection->Font->Bold = (int) false;
	WdApp->Selection->Font->Size = 10;
	WdApp->Selection->Paragraphs->Alignment = wdAlignParagraphLeft;
	WdApp->Selection->TypeText((Variant) (AnsiString("|Kunde:\t") + "|Überschrift" +"\t|Komm-Nr.:\t" + "|991234" + "\n"));

	// so, nun soll hier eine Tabelle von 3x3 Zellen eingefügt werden
	WdDoc->Tables->Add(WdApp->Selection->Range, (long) 3, (long) 3, wdWord8TableBehavior, wdAutoFitFixed);
	WdDoc->Tables->Add(WdDoc->Content, 3, 3, wdWord8TableBehavior, wdAutoFitFixed);

[/code]

Beim einfügeversuch erscheint die Meldung:
HRCHECK: 'this->Add(Range, NumPows, NumColumns, DefaultTableBehavior, AutoFitBehavior, (Word_2K::Table**)&prop)': An den Stub wurde ein Nullzeiger übergeben.

Wo kommt dieser 6. Parameter her ? Was ist ein Stub ?
Geht das alles viel einfacher ?

Natürlich ziehe ich auch die VBAWRD9.CHM Hilfe zu Rate. Aber die ist wohl nur was für Insider, nicht für jemanden, der sich hier einarbeiten muss.
Hoffentlich hat jemand hier Hinweise für mich.
Vielen Dank