记录宏，然后到VB里修改使用
doc.Shapes.AddPicture App.Path & "\位移.jpg", False, True, 0, 120, 450, 200后面的数字分别代表在word的左、高，以及图片本身的长度和高度
