Automatisierung einer SPEZIFISCHEN Word-Instanz bei Vorhandensein mehrerer Instanzen

[Bernhard73]

Hallo Chemiker, hallo Himitsu,

danke für Eure Beiträge.

Eine neue Instanz bringt leider nichts, da mir die Instanz, die ich benutzen muss durch die externe Software vorgegeben ist. Das Wordfenster ist in das Userinterface eingebettet, aber ansonsten ganz normal ansprechbar. Wenn ich die Befundsoftware als erstes starte (oder alle anderen Word-Instanzen manuell schließe), dann funktioniert es mit der "easy Methode", ansonsten aber leider nicht.

Eine API gibt es wahrscheinlich nicht. Es handelt sich um eine Befundsoftware für (deutschsprachige) Pathologen, da ist der Markt so klein, so dass sich Ausarbeitung einer solchen Schnittstelle nicht lohnen würde.
Das in die Software eingebettete Worddokument funktioniert ganz so wie ein separat vorliegendes, für Windows macht die Einbettung offenbar keinen Unterschied. Ist alles in der Running Object Table registriert, das passiert seitens Word automatisch, wenn die Fremdsoftware das Word-Fenster einbettet und hierzu Word nichtvisuell startet. Nur kann ich die Reihenfolge, in der die Word-Instanzen gestartet werden, leider nicht vorhersehen, so dass meine Texteinfügungen dann eventuell an unerwarteter Stelle auftauchen...

Mit AccessibleObjectFromWindow bin ich - so glaube ich zumindest - der Lösung ganz nahe. Ich bekomme zumindest als Ergebnis des Funkionsaufrufes keinen Fehlercode, sondern 0 (= S_OK). Wenn ich nur einen der anderen Parameter, z.B. das vorher ermittelte Handle des Dokumentfensters, ändere, dann ergibt sich -2147467259 (= ERROR). Als Rückgabewert bekomme ich je nach Dokumentinstanz auch unterschiedliche "Zahlen", wenn ich den letzten Parameter "rueckgabewert" als Integer deklariere.
Was mir fehlt, ist der Weg vom Rückgabewert zum automatisierbaren Objekt, hier fehlt vermutlich nur noch ein Schritt oder vielleicht auch nur das korrekte Verständnis, was der "ruckgabewert" eigentlich ist, denn eigentlich gibt die Funktion ja vor, die "Adresse einer Pointervariable zurückzuliefern, welche die Adresse des spezifizierten Interface enthält".

In C# und für Excel habe ich folgendes gefunden: https://www.codeproject.com/Articles...xcel-instances
werde aber nicht so ganz schlau draus im Hinblick auf die Umsetzung in Delphi.


Gruß
Bernhard

[mmw]

hallo,

hier noch ein Beispiel in VB für Word

http://www.office-loesung.de/ftopic586949_0_0_asc.php

Gruß

[Bernhard73]

Hallo mmw,

danke für den Link. In VB ist das automatisierbare Objekt scheinbar der Output von AccessibleObjectFromWindow mit dem Anhängsel ".Application". In Delphi finde ich da leider keine Entsprechung...

Gruß
Bernhard

[Chemiker]

Hallo,

aber selbst, wenn man auf alle offenen WORD- Instanzen zugreifen kann, so fehlt ja immer noch die Information, welche WORD- Instanz ist die Richtige?

Bis bald Chemiker

[Bernhard73]

Hallo Chemiker,

nein, die kenne ich aufgrund eines glücklichen Umstandes: Wenn man im Befundsystem einen neuen "Fall" öffnet (was man muss, da sich der generierte Text natürlich auf einen spezifischen Patient/Befund/Fall bezieht), wird ein Befunddokument geöffnet, das mit dem Layout sowie Patientendaten aus einer Datenbank befüllt wird. Das speichert die externe Software sofort beim Aufrufen erstmal unter C:\Temp zwischen. Anhand des Dateinamens habe ich einen Teil der Caption der Word-Instanz und kann mich von da zum eigentlichen Dokument vorarbeiten.
Ich habe also das Handle der jeweiligen Word-Instanz und auch das Handle des zugehörigen Dokument-Windows. AccessibleObjectFromWindow soll mir laut Funktionsbeschreibung aus dem Dokument-Window-Handle ein automatisierbares Objekt liefern, was es wahrscheinlich auch macht...die konkrete Verwertung der Rückgabe in Delphi ist für mich das Problem.

Gruß
Bernhard

[mmw]

hallo,
vielleicht hilft das weiter.

Delphi-Quellcode:

procedure TForm1.btnGetAccInfoClick(Sender: TObject);
var
vWSTemp: WideString;
vAccObj: IAccessible;
begin
FAccProperties := TStringList.Create;
if (AccessibleObjectFromWindow(aEdit.Handle, OBJID_CLIENT, IID_IAccessible, vAccObj) = S_OK) then

von hier kopiert
https://android.developreference.com...Screen+Readers

https://docs.microsoft.com/en-us/win...essible-object

gruß

[Uwe Raabe]

In der Word2010.pas gibt es ein Interface _Global, das man über CoWordGlobal erhalten kann. Dort gibt es ein Property Documents. Wenn du diese Liste iterierst, solltest du alle offenen Word-Dokumente bekommen, aus denen du dann das passende aussuchst. Das _Document-Interface hat wiederum ein Property Application, das die zugehörige Word-Instanz zurückgibt. Vielleicht brauchst du die aber ja gar nicht mehr, wenn du das Dokument hast.

[Bernhard73]

Hallo Uwe,

DANKE! Ja, so funktioniert's tatsächlich...erfreulich unkompliziert!

Delphi-Quellcode:

uses Word2010;

procedure TForm1.Button1Click(Sender: TObject);
var wrdApp : _Global;
    wrdDoc : _Document;
    target : _Application;
begin
  wrdApp:=CoWordGlobal.Create;
  wrdDoc:=wrdApp.Documents.Item('C:\Temp\nx-434557890dfad323a44.doc');
  wrdDoc.Activate;
  target:=wrdDoc.Application;
  target.Selection.TypeText('HALLO!');
end;

Herzlichen Dank an alle, die sich Gedanken gemacht haben!

Bernhard