Reply to TWordDocument und TWordApplication on Wed, 19 Sep 2007 07:30:22 GMT

Richter Code — Wed, 19 Sep 2007 07:30:22 GMT

Hallo,
ich habe hier so'n Objekt namens TWordDocument und TWordApplication. Nach einiger Recherche im Internet habe mal probiert in markierte Textstellen Strings einzufügen. Leider klappt das so nicht ganz. Die Strings werden nicht an den Markierten Stellen eingefügt sonder irgendwo anders. Ätzend.
Kann mir jemand helfen?

Hier Code

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	OleVariant vWhat;
	OleVariant vBookmark;
	OleVariant FileName;        
String t = "H. Mustermann";
	OpenDialog1->Execute();                                 				// Auswahl der Datei
	FileName = (OpenDialog1->FileName);
	WordApplication1->Connect();                   							// Verbindung zu Word herstellen
	WordApplication1->Documents->OpenOld(FileName,EmptyParam,EmptyParam,   	// Das jeweiligen Dokument öffnet
										EmptyParam,EmptyParam,EmptyParam,
										EmptyParam,EmptyParam,EmptyParam,
										EmptyParam);
	WordDocument1->ConnectTo(WordApplication1->ActiveDocument);
	WordApplication1->Visible = true;
	vWhat 		=	wdGoToBookmark;
	vBookmark	=	StringToOleStr("Name");
	WordApplication1->Selection->GoTo(vWhat,EmptyParam, EmptyParam, vBookmark);
	WordApplication1->Selection->TypeText(StringToOleStr("PhilippSchulze"));
}