要将图片移动到任意位置，将图片的“布局选项”设置为“浮于文字上方”即可。
1、打开需要操作的Word文档，可以看到此时图片所处位置，现在的图片是无法拖动的。
2、选中图片，在图片的右上角点击“布局选项”按钮。
3、在“文字环绕”类型中，将环绕类型选择为“浮于文字上方”。
4、现在，文字就可以被拖动到任意位置了。
先选中要删除的图片，按键盘上的Delete键删除就可以了.再把光标定位在刚删除的那边图片上，选择“插入”菜单——“图片”——“来自文件”，在弹出的对话框中选择你要插入的图片（图片一定要是JPG格式的，在word文档中才能看得到），点确定就可以了。
注：默认插入的图片都是嵌入型的，有时***去的图片只看得到一半，另一半显示不出来，遇到这种情况，你可以选中图片，单击右键，从中选择“设置图片格式”，把类型改为“浮于文字上方”，这样图片就可以全部显示出来了，而且可以随便移动的。如果想定位不移动的话，就用嵌入式的（嵌入式的只能将图片拉大或拉小，它是移不动的）。
帮你稍微修改了一下，使所有嵌入式图片居中。
对于所有图片，可以用ActiveDocument.Shapes.Count
注意：这里的Shapes(InlineShapes)不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Select '选中图片
Selection.ParagraphFormat.Alignment = '图片居中；wdAlignParagraphLeft左对齐
Next j
End Sub
上面，我补充的语句，其实也是录制宏的方式，生成的。（先选中图片，再点居中按钮）
另外，学习宏，多看看Word自带的帮助文档吧。
==========2008-4-16========
Sub setpicsize()
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型也可以为shapes
ActiveDocument.InlineShapes(j).Select '选中图片
'ActiveDocument.InlineShapes(j).Range.Paragraphs(1).m.smtshopping.cn '上一行不行，用这个
With Selection.ParagraphFormat '所选段落的格式
.Alignment = '图片居中
.LeftIndent = 0 '左缩进磅数
.RightIndent = 0 '右缩进磅数
.FirstLineIndent = 0 '首行缩进磅数
. = 0 '左缩进字符数
. = 0 '右缩进字符数
. = 0 '首行缩进字符数
End With
Next j
End Sub
