Word Document offen?

[Beck93]

Hi,

ich bins schon wieder, ich stoße jeden Tag auf neue Probleme in meinen verschiedenen Programmen.

Also ich öffne ein Word Document über Delphi. Nur möchte ich vorher schauen ob es nicht schon geöffnet ist, da sonst immer diese Meldung mit Schreibgeschütz öffnen kommt, was ich aber nicht möchte

Hier ist der Quelltext wie ich word öffne:

Delphi-Quellcode:

try
    WordObj := ComObj.CreateOleObject('Word.Application');
    WordObj.documents.open(Exe);
    Doc := WordObj.ActiveDocument;
except
    ShowMessage('Die Datei konnte nicht geöffnet werden!');
    Exit;
  end;

Wie könnte ich jetzt überprüfen ob die Datei schon offen ist?

Bin für jede Hilfe sehr Dankbar

Grüße

Beck93

[Andreas Schilling]

Ich benutze die function "isfileinuse" um von mir temporär auf die festplatte geschriebene Worddokumente (welche ich mit Delphi dann öffne) zu prüfen ob Word das Dokument nach dem Beenden endlich wieder freigegeben hat, damit ich sie zurück in die Datenbank speichern kann. Funktioniert ganz zuverlässig.
http://www.delphipraxis.net/84637-sc...tzung-ist.html

[Lemmy]

Hi,

WordObj.Documents ist ein Container der alle offenen Word-Dokumente enthält. Den kannst Du doch durchlaufen und alle Dokumente prüfen ob deren Namen mit dem Dateinamen über ein stimmt...

Grüße

[Beck93]

Danke für eure Antworten

@lemmy: Wie kann ich den Container denn durchlaufen?

Danke

Beck93

[p80286]

Versuch es mal mit:

Delphi-Quellcode:

for i:=1 to WordObj.Documents.Count do
  WordObj.Documents.Item(i).fullname

ungetestet
Gruß
K-H

[Lemmy]

Codebeispiel siehst Du ja oben - ich bin mir nur über die Dimensionen nicht sicher ob das mit 1 oder 0 beginnt... seis drum, das siehst Du.

Wenn Du so Zeugs suchst, kannst Du über die VB-Hilfe (unter den Word-Makros - musst Du ggf. nachinstallieren) auch die notwendigen Aufrufe für VB finden, die du einfach in Delphi umsetzen kannst.

ALternativ machst Du die frühe Bindung und erstellst oder nutzt die Wrapper-Komponenten von Delphi (ab Delphi 7 sind die mit dabei)

Grüße

[p80286]

Excel und Word zählen immer(?) ab 1.
(gab es da nicht mal eine Diskussion uber die Standardzählung in arrays und Verwandten?)
Gruß
K-H

[Beck93]

DAs hört sich gut an mit der frühen Bindung und Wrapper komponenten wenn ich dann mehr alleine Rausfinden kann Nur leider weiß ich überhaupt nichts DAmit anzufangen.
Ich habe noch Nie Davon gehört.

Vieleicht wäre ja einer so nett und könnte mir etwas dazu erklären oder beschreiben

Grüße

Beck93

[Lemmy]

Hi,

geh in deine Projektoptionen, dort auf die Option "Packages". In der Liste rechts scrollst Du dann nach unten bis Du "Microsoft Office 2000 Beispiele für gekapselte Komponmenten..." findest. Die sind deaktiviert. einfach aktivieren und gut ist. Alternativ kannst Du auch die Office XP komponenten nehmen. Aufwärtskompatibel sind die alle.


Die Auswahl welche Komponenten Du verwendest hängt stark von deinem Zielmarkt ab. Mit der Auswahl von office 2000 hast Du auf jeden Fall den kleinsten gemeinsamen Nenner, d.h. das sollte auf neueren Office-Versionen funktionieren.

Wenn Du die Funktionen von einer aktuelleren Office-Version nutzen willst, dann kannst Du dir die Wrapper auch selber erzeugen: Komponente - Komponente importieren - Typbibliothek importieren. Dann die entsprechende Word-DLL oder Office-DLL suchen oder notfalls hinzufügen. Ich habe hier kein MS OFfice - deshalb kann ich dir das nicht genau sagen.

Und wenn Du dann noch Interesse hast, das was Du mit MS Office machst auch mit OpenOffice/LibreOffice zu machen, dann schau dich auf meiner Homepage um...

Grüße