Use the following to include the picture in the document:
ActiveDocument.InlineShapes.AddOLEObject ClassType:="Paint.Picture", FileName:= _
"C:\Documents and Settings\My Documents\My Pictures\untitled.bmp", _
LinkToFile:=True, DisplayAsIcon:=False
And use the followng to change
ActiveDocument.InlineShapes(1).Field.Code = "LINK Paint.Picture" & Chr(34) & "C:\\Documents and Settings\\160831\\My Documents\\My Pictures\\untitled.bmp" & Chr(34) & Chr(34) & "\a \p"
Replace activedocument with your document and position it to some paragraph or placeholder
Cheers:)
Shasur
http://www.vbadud.blogspot.com