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

Your email address will not be published.

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>