VBA WORD 关于版式替浮于文字上方和下方

2013-03-26

VBA WORD 关于版式为浮于文字上方和下方Dim myShape As Word.ShapeSet myShape ActiveDocument.Shapes.A

VBA WORD 关于版式为浮于文字上方和下方
Dim myShape As Word.Shape
Set myShape = ActiveDocument.Shapes.AddShape(App.Path & "\Ripple.jpg", 40, 50, 100, 100, Selection.Range)
With myShape
.WrapFormat.Type = 3
.ZOrder 4
End With

这个好象做不能,上方和下方是怎样的呢,谢谢
[解决办法]
录个宏看下代码，