用宏批量调整word中图片版式、大小、方向.pdfVIP

Su图片对齐()1

Su图片大小()1

Su浮于文字上方()错!未定义书签。

Su浮于文字上方()4

Su连续()4

Su版式转换()4

Su图片方向()5

Su图片对齐()

Application.ScreenUpdating=False关闭屏幕更新

Dimn

OnErrorResumeNext

ActiveDocument.Shapes(n).Select

orizontalPosition=_

wdRelativeHorizontalPositionMargin

Selection.ShapeRange.RelativeVerticalPosition=_

wdRelativeVerticalPositionMargin

Selection.ShapeRange.Left=wdShapeRight

Selection.ShapeRange.Top=wdShapeBottom

Selection.ShapeRange.LockAnchor=False

Selection.ShapeRange.LayoutI