Zugriff via Script auf OLE Objekte in Maske

[Glombi]

Ich habe in einer Maske ein eingebettetes OLE Objekt.

Mir will es nun nicht gelingen, wenn ich ein Dokument geöffnet habe, welches mit dieser Maske erstellt wurde, mit Script auf das OLE Objekt zuzugreifen.
Es ist offenbar so, dass Notes das Objekt nicht "kennt".

Mein Script:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim objectName As String
Dim handle As Variant
   
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
   
objectName = ""
If doc.HasEmbedded Then
   Forall o In doc.EmbeddedObjects
      objectName = o.Name
      Exit Forall
   End Forall
End If


Die If Abfrage ist immer false.

Kennt jemand eine Möglichkeit?

Andreas

[Glombi]

Nachtrag: Ich kann es ja irgendwie verstehen, da Notes Daten (Dokument) und Design (Maske) trennt. Aber wenn ich ein Dokument offen habe, sollte doch irgendwie der Zugriff möglich sein.

Andreas

[Axel]

Hi,

was ist denn das für ein Object? Ich habe es mal mit einem Word-Dokument versucht und da hat dein Code funktioniert.

Wenn der Name des Objectes bekannt ist, kannst du doch mit uidoc.GetObject arbeiten.

Oder bin ich auf der falschen Spur?

Axel

[Glombi]

Stimmt, das geht schon. Dazu muss ich allerdings wissen, welchen Namen das Ding hat und das scheint u.a. sprachabhängig.

objectName = "Microsoft Excel-Arbeitsblatt"
geht, aber
objectName = "Microsoft Excel Worksheet"
geht nicht. Nun gut, es gibt ja nur endlich viele Möglichkeiten.

Andreas

[Axel]

Hi,

wie bindest du das Object den ein?


Axel

[Glombi]

Ich kopiere eine Excel-Tabelle in die Zwischenablage und öffne dann die Maske und füge selektiv ein.

Ok, ok: Das Brett ist weg - man kann ja in den Eigenschaften den Namen des Objektes festlegen.

Danke für Deine Hinweise Axel !


Andreas

[Axel]

Hi,

ich hab's bei mir mal probiert und es funktioniert mit deinem Script, allerdings erst nach dem ich das Dokument einmal geschlossen und wieder geöffnet hatte.

Das ist ja die Geschichte mit den RTF-Feldern.


Axel