Aktuelles Dokument in Word auslesen

[toms]

Delphi-Quellcode:

if WordApp.Documents.Count = 0 then
 ShowMessage('Kein Worddokument geöffnet');