Gmaxey thank you very much I worked around and finally I solved thanks to your help ....
Quote:
Originally Posted by gmaxey
Use an error handler:
Code:
oRng.MoveEnd wdWord, 1
On Error Resume Next
Selection.InlineShapes.AddPicture FileName:=PixPathandName & Trim(oRng.Text) & ".JPG", LinkToFile:=False, SaveWithDocument:=True
|