Automatisierung einer SPEZIFISCHEN Word-Instanz bei Vorhandensein mehrerer Instanzen

[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