Word-OLE. geschütztes Dokument

[bra]

Ist der Schutz ohne Kennwort oder weisst du das Kennwort? Wenn ja, kannst du einfach den Dokumentschutz aufheben und wieder setzen:

Delphi-Quellcode:

doc: Word2002_TLB._Document;

procedure ReProtect(protectType: TOleEnum; pwd: String = '');
var
  v1, v2, v3: OleVariant;
begin
  try
    if protectType <> wdNoProtection then begin
      v1 := protectType;
      v2 := true;
      v3 := pwd;
      doc.Protect(v1, v2, v3);
    end;
  except
  // Fehler bei passwortgeschützten Dokumenten unterdrücken
  end;
end;

function UnProtect(pwd: String = ''): TOleEnum;
var
  v1: OleVariant;
begin
  result := doc.ProtectionType;
  try
    if doc.ProtectionType <> wdNoProtection then begin
      v1 := pwd;
      doc.Unprotect(v1);
    end;
  except
  // Fehler bei passwortgeschützten Dokumenten unterdrücken
  end;
end;

[hoika]

Hallo,
ich würde das ja auch in Word selber aufheben, klappt aber nicht.

[hoika]

Halo,
also ProtectionType ist schon mal wdAllowOnlyFormFields.

[Jumpy]

Manuell kannst du es in Word aber ändern?
Dann zeichne das doch einfach mal mit dem Makro-Editor auf und programmiere das dann in Delphi nach.

[p80286]

Ich hab mir in der Vergangenheit immer so beholfen, daß ich das Doc als .RTF gespeichert habe und dann wieder zurück geholt habe.

Gruß
K-H

[bra]

Zitat von p80286:

Ich hab mir in der Vergangenheit immer so beholfen, daß ich das Doc als .RTF gespeichert habe und dann wieder zurück geholt habe.

Was aber eine schlechte Idee ist, wenn man Wert darauf legt, dass die Formatierung des Dokuments bestehen bleibt. Von sonstigen Dokument-Eigenschaften mal ganz abgesehen.

[p80286]

Die Formatierung wurde immer beibehalten, und die sonstigen Eigenschaften waren ja der Grund für die Aktion.

Gruß
K-H

[hoika]

Hallo,
ich kann es nicht ändern.
Morgen mal sehen, wie das mit dem RTF klappt.

Danke.