<![CDATA[Problem mit Ole zugriff]]>Hallo, ich habe die Anbindung an das Worddokument schon hinbekommen. Habe mich dabei an dieversen Posts die hier im Forum waren orientiert.
Heute morgen war bei der Compelierung des Projekts alles super. Alle Textstellen wurden in Textmarken des Dokuments eingefügt.
Als ich dann den Projektordner anpasste, und die Compilierung neu durchführte, sah es so aus als würde das Programm normal funktionieren. Leider fügte das Programm die Textmarken nicht mehr mit den Texten. Stattdessen gab es eine Fehlermeldung durch meinen try- und catch-Block. EAccessViolation lautete der genaue Text.
Ich stelle mal die entscheidenen Stelle des Quelltextes Online:

void __fastcall TFormCertificate::CreateDocument(Variant &vOLEWord,
  AnsiString slTemplateFile, AnsiString slSaveFile, bool blPrint)
{
  try
  {
	// falls Word-Fenster sichtbar sein soll,
	// muss folgende Zeile aktiviert werden:
	vOLEWord.OlePropertySet("Visible", true);

	// Falls die Vorlagen-Datei nicht existiert, schimpfen und beenden:
	if(!FileExists(slTemplateFile))
	{
	  Application->MessageBox("Vorlagendatei nicht gefunden !",
		"Abbruch",MB_ICONERROR);
	  return;
	}

	// Referenz auf die "Documents"-Eigenschaft besorgen
	Variant vDokuments = vOLEWord.OlePropertyGet("Documents");
	// neues Dokument mit slTemplateFile als Dokumentenvorlage erzeugen:
	vDokuments.Exec(Procedure("Add") << slTemplateFile << 0);

	//--------------------------------------------------
	// Formular-Felder ausfüllen
	//--------------------------------------------------

	// Referenz auf die "Selection"-Eigenschaft besorgen
	Variant vSelection = vOLEWord.OlePropertyGet("Selection");   // <<<<--- Hier tritt der Fehler auf und der Sprung zum Catch-Block folgt
...

...
    // Datei schließen:
    vActiveDocument.Exec(Procedure("Close"));
  }
  catch(Exception& e)
  {
	Application->MessageBox( e.Message.c_str(),"OLE-Error",MB_ICONERROR);
  }
}

Kann mir einer sagen, ob ich im Quellsext einen fehler mache oder ob ich etwas übersehen habe? Es ist für mich schon sehr wichtig, da ich für die Lösung der bisherigen Aufgabe schon drei Tage gebraucht habe. Bitte helft mir. 😞 😞 😞

]]>https://www.c-plusplus.net/forum/topic/192943/problem-mit-ole-zugriffRSS for NodeMon, 17 Aug 2026 22:49:46 GMTThu, 20 Sep 2007 10:41:18 GMT60<![CDATA[Reply to Problem mit Ole zugriff on Thu, 20 Sep 2007 10:41:18 GMT]]>Hallo, ich habe die Anbindung an das Worddokument schon hinbekommen. Habe mich dabei an dieversen Posts die hier im Forum waren orientiert.
Heute morgen war bei der Compelierung des Projekts alles super. Alle Textstellen wurden in Textmarken des Dokuments eingefügt.
Als ich dann den Projektordner anpasste, und die Compilierung neu durchführte, sah es so aus als würde das Programm normal funktionieren. Leider fügte das Programm die Textmarken nicht mehr mit den Texten. Stattdessen gab es eine Fehlermeldung durch meinen try- und catch-Block. EAccessViolation lautete der genaue Text.
Ich stelle mal die entscheidenen Stelle des Quelltextes Online:

void __fastcall TFormCertificate::CreateDocument(Variant &vOLEWord,
  AnsiString slTemplateFile, AnsiString slSaveFile, bool blPrint)
{
  try
  {
	// falls Word-Fenster sichtbar sein soll,
	// muss folgende Zeile aktiviert werden:
	vOLEWord.OlePropertySet("Visible", true);

	// Falls die Vorlagen-Datei nicht existiert, schimpfen und beenden:
	if(!FileExists(slTemplateFile))
	{
	  Application->MessageBox("Vorlagendatei nicht gefunden !",
		"Abbruch",MB_ICONERROR);
	  return;
	}

	// Referenz auf die "Documents"-Eigenschaft besorgen
	Variant vDokuments = vOLEWord.OlePropertyGet("Documents");
	// neues Dokument mit slTemplateFile als Dokumentenvorlage erzeugen:
	vDokuments.Exec(Procedure("Add") << slTemplateFile << 0);

	//--------------------------------------------------
	// Formular-Felder ausfüllen
	//--------------------------------------------------

	// Referenz auf die "Selection"-Eigenschaft besorgen
	Variant vSelection = vOLEWord.OlePropertyGet("Selection");   // <<<<--- Hier tritt der Fehler auf und der Sprung zum Catch-Block folgt
...

...
    // Datei schließen:
    vActiveDocument.Exec(Procedure("Close"));
  }
  catch(Exception& e)
  {
	Application->MessageBox( e.Message.c_str(),"OLE-Error",MB_ICONERROR);
  }
}

Kann mir einer sagen, ob ich im Quellsext einen fehler mache oder ob ich etwas übersehen habe? Es ist für mich schon sehr wichtig, da ich für die Lösung der bisherigen Aufgabe schon drei Tage gebraucht habe. Bitte helft mir. 😞 😞 😞

]]>https://www.c-plusplus.net/forum/post/1369106https://www.c-plusplus.net/forum/post/1369106Thu, 20 Sep 2007 10:41:18 GMT<![CDATA[Reply to Problem mit Ole zugriff on Thu, 20 Sep 2007 18:07:07 GMT]]>Richter Code schrieb:

Stattdessen gab es eine Fehlermeldung durch meinen try- und catch-Block.

Bei welcher Zeile tritt der Fehler auf?

]]>https://www.c-plusplus.net/forum/post/1369594https://www.c-plusplus.net/forum/post/1369594Thu, 20 Sep 2007 18:07:07 GMT<![CDATA[Reply to Problem mit Ole zugriff on Fri, 21 Sep 2007 06:32:49 GMT]]>Hey, sorry das ich das nicht eindeutig beschrieben habe. Die Zeile habe ich aber im Quellcodeauszug gekenntzeichnet.

]]>https://www.c-plusplus.net/forum/post/1369841https://www.c-plusplus.net/forum/post/1369841Fri, 21 Sep 2007 06:32:49 GMT<![CDATA[Reply to Problem mit Ole zugriff on Fri, 21 Sep 2007 08:46:50 GMT]]>Hallo nochmal,
ich habe es nun mit dem TWordDocument und TWordApplication gelöst. Klappt super. Nun drucke ich das Dokument gleich aus und schließe es. Leider gibt es beim schließen ein Problem.

...
	vBookmark =  Datum.c_str();
		WordApplication1->Selection->GoTo(vWhat, EmptyParam, EmptyParam, vBookmark);
		WordApplication1->Selection->TypeText(StringToOleStr(EditDatum->Text));
		WordDocument1->PrintOut();
		Sleep(3000);

		WordDocument1->Close();
		WordDocument1->Disconnect();
		WordApplication1->Quit();
		WordApplication1->Disconnect();
	}

Bei

WordDocument->Colese();

wird das Dokument so gespeichert wie es gerade ist. Es soll aber nicht gespeicher werden. Was kann ich tun?

]]>https://www.c-plusplus.net/forum/post/1369926https://www.c-plusplus.net/forum/post/1369926Fri, 21 Sep 2007 08:46:50 GMT<![CDATA[Reply to Problem mit Ole zugriff on Fri, 21 Sep 2007 08:52:35 GMT]]>Ah, habe es schon selber hinbekommen. Habe der Methode eine Variant Variable mit false übergeben.

]]>https://www.c-plusplus.net/forum/post/1369928https://www.c-plusplus.net/forum/post/1369928Fri, 21 Sep 2007 08:52:35 GMT