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")
Leave a Reply