oRng.MoveEnd wdWord, 1 On Error Resume Next Selection.InlineShapes.AddPicture FileName:=PixPathandName & Trim(oRng.Text) & ".JPG", LinkToFile:=False, SaveWithDocument:=True