Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#1

Word OLE ReadOnly, Meldung beim Beenden unterdrücken

  Alt 19. Jun 2012, 07:54
Hallo #,

folgender Code öffnet ein Dokument ReadOnly in Word.

Delphi-Quellcode:
FWordApp.Documents.Open(DocTemplate,ConfirmConversions,
      ReadOnly,AddToRecentFiles,
      PasswordDocument,PasswordTemplate,
      Revert,WritePasswordDocument,
      WritePasswordTemplate,Format,
      Encoding, Visible);
FWordApp.ActiveDocument.Protect(wdAllowOnlyFormFields,EmptyParam,EmptyParam);
FWordApp.DisplayAlerts:= wdAlertsNone;
Dummerweise kommt immer noch die Meldung "Dokument speichern?",
wenn ich Word beende.

Den Code habe ich hier noch gefunden,
bekomme ihn aber unter Delphi nicht zum Laufen ?

http://www.a-m-i.de/tips/office/officeautomation.php
VARIANT vArgsClose;
vArgsClose.vt = VT_BOOL;
vArgsClose.boolVal = FALSE;
spDocuments.Invoke1(L"Close", &vArgsClose, &vResult);

Hat jemand noch einen Tip für mich ?

Danke


Heiko
Heiko
  Mit Zitat antworten Zitat