Embedded Object in Form

(Can’t believe I can’t figure this out, but here goes…)

I have a Word document embedded in the Form design (not in a RT field).

How in the world do I write script to open it?

Subject: Something along these lines…

Dim ws As New NotesUIWorkspaceDim uidoc As NotesUIDocument

Dim docThis As Notesdocument

Dim handle As Variant

Set uidoc = ws.CurrentDocument

Set docThis = uidoc.document

If docThis.HasEmbedded Then

Forall obj In docThis.EmbeddedObjects

If obj.name = “Microsoft Word Document” Then

Set handle = obj.Activate(True)

’ Code to work with Word goes here

Exit Forall

End If

End Forall

End If

Check the online help for caveats about accessing embedded objects that are part of the form design.