DominoArea.org [Archive]

Bonjour

Je souhaite accéder à un fichier word qui est embedded dans mon document.
Mais je n'arrive pas à instancier la classe EmbeddedObjects. Voici un petit bout de code qui essaye de le faire.

Code : Tout sélectionner

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim Doc As NotesDocument
   Dim object As NotesEmbeddedObject
   
   Set uidoc = ws.CurrentDocument
   Set Doc = ws.CurrentDocument.Document
   
   If Doc.HasEmbedded Then
      Forall o In Doc.EmbeddedObjects
         Messagebox( o.Name )
         Set object = Doc.GetAttachment ( o.name ) ' Ne MARCHE PAS
         Messagebox ( object.class )
      End Forall
   Else
      Messagebox "No embedded objects found"
   End If
   
End Sub

Auriez vous une piste pour instancier NotesEmbeddedObjects ?

Merci !

il est instancier dans ton code, c'est la variable o

Merci Michael,

Je sollicite votre bienveillance pour m'aider à completer cette programmation.
J'ai ajouté la bibliothèque de script "Word" et "Divers" dans la base.
Je voudrais remplacer le texte d'un signet ; il y a une fonction de la bibliothèque Word qui le fait mais je n'arrive pas à l'invoquer.

Code : Tout sélectionner

   Public Sub UpdateTextBookmark (bookmark As String, value As String)
      ActiveDocument.Bookmarks(bookmark).Range.Text=value
   End Sub

J'ai mis dans les déclaration du Bouton:

Code : Tout sélectionner

Option Public
Use "Word"
Use "Divers"


Voici mon début de code :

Code : Tout sélectionner

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim Doc As NotesDocument
   Dim object As NotesEmbeddedObject
   Dim handle As Variant
   Dim Wapp As Variant
   
   
   Set uidoc = ws.CurrentDocument
   Set Doc = ws.CurrentDocument.Document
   
   Set object = Doc.EmbeddedObjects(0)       
   Set WApp = object.Activate( True )

   Call UpdateTextBookmark ("S_OSA1", "Rue de la Fontaine")   

Et il y a erreur à cette dernière ligne : lotus me dit "Not a function or a Sub name UPDATETEXTBOOKMARK"

Pourquoi ne voit-il pas cette fonction de la bibliothèque ? A quel endroit mettre la bibliothèque ou la déclaration "Use Word" pour que LotusScript la voit ?

Merci pour votre aide.

Mettre le use dans le globals du masque pas dans le bouton
En supposant que la lib soit bonne

Je l'avais déjà mis dans les globals du masque et la lib je suppose qu'elle est bonne je l'ai prise ici. Bon ca n'est pas grave je vais directement utiliser les méthodes dans les objets (ici c'est le bouton).

Merci pour votre aide.