Inserire una immagine in un documento Word da Lotus Notes

Il punto di partenza è un segnalibro in Word, che si chiama “immagine”.

Il codice per aprire il word è sempre quello:

Set wordAppObject = CreateObject("Word.Application.8")
Set wordDocObject = wordAppObject.Documents.Open("mioWord.doc")

Calcolo la posizione del segnalibro:

For i = 1 To wordDocObject.formFields.Count

If "immagine" = Ucase(wordDocObject.formfields(i).name) Then

IndiceBookMark = i
Exit For

End If

Next

Selezione il segnalibro trovato:

wordDocObject.formFields(IndiceBookMark).select

Inserisco l’immagine:

Call wordAppObject.Selection.InlineShapes.AddPicture("c:\miaImmagine.gif")