Le module ci-après montre le principe de construction d'un module utilisant VBA Automation pour charger une image dans un document Word :
ox_word=createobject('word.application')
ox_word.documents.add
ox_word.visible=.T.
ox_word.selection.InlineShapes.AddPicture("C:\sql.bmp",.F.,.T.)
Le cas échéant, le nom de l'image (avec les guillemets) peut être remplacé par une variable de Mercator faisant référence à une image.
Exemple :
ox_word.selection.InlineShapes.AddPicture(alltrim(stock.s_image),.F.,.T.)
Les autres méthodes et propriétés VBA de Word sont reprises dans le fichier d'aide inclus dans le ZIP. (VBAWD10CHM)
A télécharger : 0000000726.zip (1984 Kb - 11/02/2004)