Announcement

**Andreas Kosch** · 05.03.2004, 08:18

Hallo,

>..in der verkehrten Reihenfolge weiter gegeben werden. Kann das sein ?

Ja - das ist ein bekannter Delphi-Bug (6/6.01/6.02), der erst in Delphi 7 beseitigt wird. Bei �lteren Delphi-Versionen muss man von Hand eingreifen. Au�erdem werden var-Paramter falsch behandelt, ein vom Client neu gesetzter Wert wird nicht an den Automation-Server weitergegeben.

>..muss ich ihn irgendwie wieder in ein TWordDocument "verwandeln", ...

Das folgende Beispiel demonstriert das Prinzip:
<pre>
var
Quelle : _Document;
vPar : OleVariant;
Ziel : _Document;
begin
Quelle := WordDocument1.DefaultInterface;
vPar := Quelle;
Ziel := IDispatch(vPar) as _Document;
WordDocument1.ConnectTo(Ziel)
end;
</pre&gt

**Dagmar Berger** · 05.03.2004, 08:53

Hallo Herr Kosch, 
leider funktioniert das von Ihnen gezeigte Beispiel bei mir nicht. Mein Ereignis sieht jetzt so aus:
<pre>
procedure TMainFrm.OnDocumentBeforeSave(Sender: TObject;
var Doc, SaveAsUI, Cancel: OleVariant);
var
Dok : _Document;
ovParam : OleVariant;
begin
Dok := IDispatch(Cancel) as _Document; // Cancel wegen der verkehrten Reihenfolge
ovParam := 'Irgendwas';
If Dok.Variables.Item(ovParam).Value = 'True' Then
Begin
...
// Anweisungen zum Speichern in die DB
...
End;
end;
</pre>

Schon bei der ersten Zuweisung Dok := IDispatch(Cancel) as _Document; kracht es. Es �ffnet sich das CPU-Fenster, mit dem ich nun wirklich nichts anfangen kann. Ich habe es auch mit dem Doc-Parameter versucht, gleiches Ergebnis. Was mache ich falsch ? 
Sch�ne Gr��e Dagmar

**Mario.Noack** · 05.03.2004, 15:38

Nat�rlich knallt es. Bevor Andreas die TypUmwandlung auf (vPar/Cancel) anwendet, initialisiert er diese Variable. Den Teil hast Du einfach weggelassen.
Sch�ne Gr��e, Mario Noac

**Dagmar Berger** · 08.03.2004, 09:46

Hallo Mario, 
Cancel kommt doch als Parameter beim Ereignis mit. Wenn ich das initialisiere, ist doch der Inhalt der Variablen weg, oder nicht? 
Sch�ne Gr��e Dagmar

**Mario.Noack** · 08.03.2004, 09:51

OK, dass habe ich �bersehen. Nat�rlich hast Du in diesem Falle recht. Aber wenn ich das so sehe, w�rde ich Cancel als eine Art boolschen Wert erwarten. Du willst es aber als Dokument ansprechen?
Mari

**Dagmar Berger** · 08.03.2004, 10:53

Hallo Mario, 
ich nehme Cancel, weil die Parameter von Delphi vertauscht werden (siehe meine urspr�ngliche Frage und Antwort 1 von Andreas Kosch). Aber auch mit dem Parameter Doc vom Ereignis funktioniert es nicht. 
Du hast Dich sicher schon mehr als ich mit der Automation von Word besch�ftigt (wegen der beiden Artikel im Entwickler). Hast Du nicht ein funktionierendes Beispiel f�r diesen Fall ? Das Problem: Ich muss ja bei OnBeforeSave erst mal pr�fen, ob das zu speichernde Dokument �berhaupt in die Datenbank soll. Es k�nnte ja auch eins sein, das der Benutzer einfach so mit Word angelegt hat, das soll ja dann nicht in Datenbank. Ich f�ge dazu eben beim Anlegen eines Dokument von meinem Clientprogramm aus eine benutzerdefinierte Variable ins Dokument ein. Wie k�nnte man denn das sonst unterscheiden ? 
Sch�ne Gr��e Dagmar

**Mario.Noack** · 08.03.2004, 12:18

Also bei mir ging es problemlos: 
 ShowMessage((IDispatch(Doc) as _Document).Name);
Es wurde der Dokumentenname angezeigt. Nur Vertauschen war nicht notwendig. Lade Dir mal das Beispiel hier herunter:
http://www.entwickler.com/itr/ausgaben/psfile/datei/78/noack_word3f2e2edacd879.zip
Die Unit 1 habe ich wie folgt ge�ndert. Ich verwende Delphi 6, Update 2.
<pre class="sourcecode"><code>
unit Unit1;

interface

{$i delphi.inc}

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls, WinSpool, Printers,
{$IFDEF DELPHI6_UP} Variants, {$ENDIF}
Word2000;

type
TFormWord1 = class(TForm)
PageControlWord: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
ButtonStartWord: TButton;
ButtonStartWord2: TButton;
LabelStatusWord: TLabel;
Bevel1: TBevel;
Label1: TLabel;
Label2: TLabel;
ButtonCloseWord: TButton;
ButtonOpenNewDoc: TButton;
Label3: TLabel;
LabelStatusDokument: TLabel;
Label4: TLabel;
ButtonCloseDoc: TButton;
ButtonOpenExistDoc: TButton;
Bevel2: TBevel;
ButtonPrint: TButton;
ButtonSaveAs: TButton;
TabSheet3: TTabSheet;
ButtonNewDokFromTemplate: TButton;
Label5: TLabel;
LabelStatusTemplate: TLabel;
Label7: TLabel;
ButtonFillTable1: TButton;
ButtonFillTextEnd: TButton;
Bevel3: TBevel;
ComboBoxPrinter: TComboBox;
ButtonPrintTo: TButton;
ButtonProtect: TButton;
Bevel4: TBevel;
Bevel5: TBevel;
Button1: TButton;
procedure ButtonStartWordClick(Sender: TObject);
procedure ButtonStartWord2Click(Sender: TObject);
procedure ButtonCloseWordClick(Sender: TObject);
procedure ButtonOpenNewDocClick(Sender: TObject);
procedure ButtonCloseDocClick(Sender: TObject);
procedure ButtonOpenExistDocClick(Sender: TObject);
procedure ButtonPrintClick(Sender: TObject);
procedure ButtonSaveAsClick(Sender: TObject);
procedure ButtonNewDokFromTemplateClick(Sender: TObject);
procedure ButtonFillTable1Click(Sender: TObject);
procedure ButtonFillTextEndClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ButtonPrintToClick(Sender: TObject);
procedure ButtonProtectClick(Sender: TObject);
private
FWordDoc: TWordDocument;
FWordApp: TWordApplication;
public
procedure OnWordAppClose(Sender: TObject);
procedure OnWordDocClose(Sender: TObject);
procedure OnWordAppBeforeSave(Sender: TObject; var Doc, SaveAsUI, Cancel: OleVariant);
end;

var
FormWord1: TFormWord1;

implementation

{$R *.dfm}

</code></pre&gt

**Mario.Noack** · 08.03.2004, 12:20

<pre class="sourcecode"><code>
procedure TFormWord1.ButtonStartWordClick(Sender: TObject);
begin
if not Assigned(FWordApp)
then FWordApp := TWordApplication.Create(Self);
try
FWordApp.Connect;
FWordApp.Visible := True;
finally
FreeAndNil(FWordApp);
end;
end; // proc ButtonWordStart.OnClick
//-----------------------------------------------------------

procedure TFormWord1.ButtonStartWord2Click(Sender: TObject);
begin
if not Assigned(FWordApp) then FWordApp := TWordApplication.Create(Self);
try
FWordApp.Connect;
except
on E: Exception do begin
FreeAndNil(FWordApp);
LabelStatusWord.Caption := 'Die Verbindung zu Word konnte nicht ' +
'hergestellt werden:' + #10#13 +
E.Message;
Raise;
end; // on E
end; // try except
FWordApp.Visible := True;
FWordApp.WindowState := wdWindowStateMinimize;
FWordApp.OnDocumentBeforeSave := OnWordAppBeforeSave;
FWordApp.OnQuit := OnWordAppClose;
LabelStatusWord.Caption := 'Word wurde gestartet und minimiert.';
end; // proc ButtonWordStart2.OnClick
//-----------------------------------------------------------

procedure TFormWord1.OnWordAppClose(Sender: TObject);
begin
FreeAndNil(FWordApp);
LabelStatusWord.Caption := 'Word wurde geschlossen.';
end;
//-----------------------------------------------------------

procedure TFormWord1.ButtonCloseWordClick(Sender: TObject);
begin
if Assigned(FWordApp) then begin
// Evtl. kommen bei Quit Rueckfragen,
// dazu darf unsere Anwendung nicht
// stoeren, wird also minimieren
if FWordApp.Documents.Count > 0
then Application.Minimize;
FWordApp.Quit;
end; // if Assigned(FWordApp)
end; // proc ButtonCloseWord.OnClick
//-----------------------------------------------------------

procedure TFormWord1.ButtonOpenNewDocClick(Sender: TObject);
begin
// Word starten (falls noch nicht geschehen)
// und sicherstellen, das die Verbindung zu FWordApp i.O. ist
ButtonStartWord2.Click;

if not Assigned(FWordDoc) then begin
FWordDoc := TWordDocument.Create(Self);
FWordDoc.ConnectTo(FWordApp.Documents.Add(EmptyPar am,EmptyParam,EmptyParam,EmptyParam));
FWordDoc.OnClose := OnWordDocClose;
LabelStatusDokument.Caption := 'Ein neues Dokument wurde ge&#246ffnet.';
end;
end; // proc ButtonOpenNewDoc.OnClick
//-----------------------------------------------------------

procedure TFormWord1.OnWordDocClose(Sender: TObject);
begin
FreeAndNil(FWordDoc);
LabelStatusDokument.Caption := 'Dokument wurde geschlossen.';
LabelStatusTemplate.Caption := 'Dokument wurde geschlossen.';
end;
//-----------------------------------------------------------

procedure TFormWord1.ButtonCloseDocClick(Sender: TObject);
begin
if Assigned(FWordDoc) then begin
// Evtl. kommen bei Close Rueckfragen,
// dazu darf unsere Anwendung nicht
// stoeren, wird also minimieren
Application.Minimize;
FWordDoc.Close;
end; // if Assigned(FWordDoc)
end; // proc ButtonCloseDoc.OnClick
//-----------------------------------------------------------

procedure TFormWord1.ButtonOpenExistDocClick(Sender: TObject);
var OleStrFileName,
OleFalse: OleVariant;
aDocument: _Document;
begin
OleStrFileName := '';
OleFalse := False;

with TOpenDialog.Create(Self) do
try
Filter := 'Word-Dokumente|*.doc';
if Execute then OleStrFileName := FileName;
finally
Free;
end; // with OpenDialog

if OleStrFileName = '' then Exit;

// Word starten, falls noch nicht geschehen
ButtonStartWord2.Click;

if not Assigned(FWordDoc) then begin
aDocument := FWordApp.Documents.Open(OleStrFileName,
EmptyParam,
EmptyParam,
OleFalse, // Recent
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam);
FWordDoc := TWordDocument.Create(Self);
FWordDoc.ConnectTo(aDocument);
FWordDoc.OnClose := OnWordDocClose;
LabelStatusDokument.Caption := 'Ein bestehendes Dokument wurde ge&#246ffnet.';
end;
end; // proc ButtonOpenExistDoc.OnClick
//-----------------------------------------------------------

</code></pre&gt

**Mario.Noack** · 08.03.2004, 12:20

<pre class="sourcecode"><code>
procedure TFormWord1.ButtonPrintClick(Sender: TObject);
var OleFalse: OleVariant;
begin
OleFalse := False;
if Assigned(FWordDoc) then begin
FWordDoc.PrintOut(OleFalse);
LabelStatusDokument.Caption := 'Das mit dieser Anwendung ge&#246ffnet Dokument wurde gedruckt.';
end; // if Assigned(FWordDoc)
end; // proc ButtonPrint.OnClick
//-----------------------------------------------------------

procedure TFormWord1.ButtonSaveAsClick(Sender: TObject);
var OleStrFileName : OLEVariant;
begin
if Assigned(FWordDoc) then begin
OleStrFileName := '';

with TSaveDialog.Create(Self) do
try
Filter := 'Word-Dokumente|*.doc';
DefaultExt := '.doc';
Options := Options + [ofOverwritePrompt];
if Execute then OleStrFileName := FileName;
finally
Free;
end; // with SaveDialog

if OleStrFileName = '' then Exit;

FWordDoc.SaveAs(OleStrFileName);
LabelStatusDokument.Caption := 'Das Dokument wurde gespeichert.';
end; // if Assigned(FWordDoc)
end; // proc ButtonOpenExistDoc.OnClick
//-----------------------------------------------------------

procedure TFormWord1.ButtonNewDokFromTemplateClick(Sender: TObject);
var OleStrFileName,
OleFalse: OleVariant;
aDocument: _Document;
begin
OleStrFileName := IncludeTrailingPathDelimiter(ExtractFilePath(Param Str(0))) +
'office2.dot';
OleFalse := False;

if not FileExists(OleStrFileName) then begin
MessageDlg(Format('Die Vorlagendatei%0:s"%1:s"%0:swurde nicht gefunden.',
[#10#13,OleStrFileName]),
mtError,
[mbOK],
0);
Exit;
end; // Vorlagendatei nicht gefunden

// Word starten, falls noch nicht geschehen
ButtonStartWord2.Click;

if not Assigned(FWordDoc) then begin
aDocument := FWordApp.Documents.Add(OleStrFileName, EmptyParam,EmptyParam,EmptyParam);
FWordDoc := TWordDocument.Create(Self);
FWordDoc.ConnectTo(aDocument);
FWordDoc.OnClose := OnWordDocClose;
LabelStatusDokument.Caption := 'Ein Vorlage wurde ge&#246ffnet.';
LabelStatusTemplate.Caption := 'Ein Vorlage wurde ge&#246ffnet.';
end;
end; // proc ButtonNewDokFromTemplate.OnClick
//-----------------------------------------------------------

procedure TFormWord1.ButtonFillTable1Click(Sender: TObject);
const strTableName = 'TabelleWerte';
var OleStr: OleVariant;
OleRow: OleVariant;
OleRange: OleVariant;
TableWerte: Table;
i: Integer;
begin
if Assigned(FWordDoc) then begin
// Tabelle, die beim Bookmark
// "TabelleWerte" steht w&#228hlen
OleStr := strTableName;
TableWerte := FWordDoc.Bookmarks.Item(OleStr).Range.Tables.Item( 1);

// Table um 20 Zeilen erweitern
OleRow := TableWerte.Rows.Item(1);
for i := 1 to 20 do TableWerte.Rows.Add(OleRow);

// Kopfzeile bef&#252llen
TableWerte.Cell(1,1).Range.Text := 'Wert';
TableWerte.Cell(1,2).Range.Text := 'Quadratzahl';

// Wertezeilen bef&#252llen
for i := 1 to 20 do begin
TableWerte.Cell(i+1, 1).Range.Text := IntToStr(i);
TableWerte.Cell(i+1, 2).Range.Text := IntToStr(i*i);
end; // for i

// Kopfzeile mit Formatvorlage hervorheben
OleStr := 'Hervorhebung';
TableWerte.Rows.Item(1).Range.Set_Style(OleStr);

// Wenn das Bookmark "TableWerte" noch existiert,
// wird es gel&#246scht, bevor es neu gesetzt werden
// kann
OleStr := strTableName;
if FWordDoc.Bookmarks.Exists(strTableName)
then FWordDoc.Bookmarks.Item(OleStr).Delete;

// Setzen eines Bookmarks
OleRange := TableWerte.Range;
FWordDoc.Bookmarks.Add(strTableName, OleRange)
end;
end; // proc ButtonFillTable1.OnClick
//-----------------------------------------------------------

procedure TFormWord1.ButtonFillTextEndClick(Sender: TObject);
var Range1: Word2000.Range;
OleDirection: OleVariant;
begin
if Assigned(FWordDoc) then begin
Range1 := FWordDoc.Content;
OleDirection := wdCollapseEnd;
Range1.Collapse(OleDirection);
Range1.InsertAfter('Ein kleiner Text am Ende des Dokumentes');
end; // if Assigned(FWordDoc)
end; // proc ButtonFillTextEnd.OnClick
//-----------------------------------------------------------

procedure TFormWord1.FormCreate(Sender: TObject);

// ermittelt alle installierten Drucker ohne den
// Anschlusstyp im Namen zu integrieren
PROCEDURE GetPrinterList(Printerlist: TStrings);
VAR
Buffer, PrinterInfo: PChar;
Count, NumInfo: DWORD;
I: Integer;
begin
Count := 0;

EnumPrinters(PRINTER_ENUM_LOCAL + PRINTER_ENUM_CONNECTIONS, nil, 1, nil, 0, Count, NumInfo);
if Count = 0 then Exit;
GetMem(Buffer, Count);
try
if not EnumPrinters(PRINTER_ENUM_LOCAL + PRINTER_ENUM_CONNECTIONS, nil, 1, PByte(Buffer), Count, Count, NumInfo)
then Exit;
PrinterInfo := Buffer;
for I := 0 to NumInfo - 1 do
with PPrinterInfo1(PrinterInfo)^ do
begin
Printerlist.Add(pName);
Inc(PrinterInfo, sizeof(TPrinterInfo1));
end;
finally
FreeMem(Buffer, Count);
end;
END; // SubProc GetPrinterList

begin // proc OnCreate
GetPrinterList(ComboBoxPrinter.Items);
ComboBoxPrinter.ItemIndex := Printer.PrinterIndex;
end; // proc OnCreate
//-----------------------------------------------------------

procedure TFormWord1.ButtonPrintToClick(Sender: TObject);
var OleFalse: OleVariant;
strOldPrinter: String;
begin
OleFalse := False;
if Assigned(FWordApp) and Assigned(FWordDoc) then begin
strOldPrinter := FWordApp.ActivePrinter;
try
FWordApp.ActivePrinter := ComboBoxPrinter.Text;
FWordDoc.PrintOut(OleFalse);
LabelStatusTemplate.Caption := 'Das mit dieser ' +
'Anwendung ge&#246ffnet Dokument wurde gedruckt.';
finally
FWordApp.ActivePrinter := strOldPrinter;
end; // try
end; // if Assigned(FWordApp) and Assigned(FWordDoc)
end; // proc ButtonPrintTo.OnClick
//-----------------------------------------------------------

procedure TFormWord1.ButtonProtectClick(Sender: TObject);
var OleEnum,
OleStr,
OleFalse: OleVariant;
begin
if Assigned(FWordDoc) then begin
FWordDoc.Sections.Item(1).ProtectedForForms := True;
FWordDoc.Sections.Item(2).ProtectedForForms := False;

OleEnum := wdAllowOnlyFormFields;
OleFalse := False;
OleStr := 'testpsw';
FWordDoc.Protect(OleEnum, OleFalse, OleStr);
end; // if Assigned(FWordDoc) then begin
end; // proc ButtonProtect.OnClick 
//-----------------------------------------------------------

procedure TFormWord1.OnWordAppBeforeSave(Sender: TObject; var Doc,
SaveAsUI, Cancel: OleVariant);
begin
ShowMessage((IDispatch(Doc) as _Document).Name);
end;

end.

</code></pre&gt

**Dagmar Berger** · 08.03.2004, 14:02

Hallo Mario, 
Dein Beispiel funktioniert bei mir auch und es hat mir die Augen ge�ffnet. 
Die Variablen, die ich testen wollte, werden n�mlich nicht mit Document.Variables angesprochen, sondern mit CustomDocumentProperties. Wenn Du jetzt den Quellcode siehst, lachst Du Dich kaputt (hoffentlich nicht), denn CustomDocumentProperties muss man �ber die sp�te Bindung ansprechen, und somit brauche ich an der Stelle gar kein _Document.
<pre>
procedure TMainFrm.OnDocumentBeforeSave(Sender: TObject;
var Doc, SaveAsUI, Cancel: OleVariant);
var
ovParam : OleVariant;
begin
ovParam := 'Irgendwas';
Try
If Doc.CustomDocumentProperties[ovParam].Value = 'True' Then
Begin
...
// Anweisungen zum Speichern in die DB
...
End;
Except
End;
end;
</pre>
Also vielen Dank an Dich und Andreas, ich hab wieder was dazugelernt. 
Sch�ne Gr��e Dagmar

**Mario.Noack** · 08.03.2004, 14:07

Und wenn Du dann noch mit 
(IDispatch(Doc) as _Document).CustomDocumentProperties
weiterarbeitest, kannst Du auch noch auf die Vorteile der Code-Vervollst�ndigung zur�ckgreifen. Effektiv arbeitest Du n�mlich mit _Document. Ich habe es jetzt aber nicht getestet, bin aber ziemlich sicher, dass es so geht...
Sch�ne Gr��e, Mari

**Dagmar Berger** · 08.03.2004, 14:46

Das geht nun wieder nicht. Lies Dir mal die Antwort 8 von Andreas in folgendem Thread durch: 
<a href="http://www.entwickler-forum.de/WebX?13@@.ee8535a"><a href="/WebX?13@@.ee8535a">Patrick Weisser "Word Dokname direkt �ber Documentproperties vergeben?" 15.07.2001 13:27</a></a> 
Sch�ne Gr��e Dagmar

**Mario.Noack** · 08.03.2004, 15:07

Ah, auch wieder einen Schritt weiter. Stimmt, dass mit der sp�ten Bindung ist dann ein Rettungsanker, der zum Gl�ck noch �brig bleibt

Sch�ne Gr��e, Mari

Announcement

OleVariant als TWordDocument ansprechen

OleVariant als TWordDocument ansprechen

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment