(完整word版)用宏批量调整word中图片版式、大小、方向

1、Sub 图片对齐 () Sub 图片大小 () Sub 浮于文字上方 ()Sub 浮于文字上方 () 错误! 未定义书签。 4Sub 连续 () 4Sub 版式转换 () 4Sub 图片方向 () 5Sub 图片对齐 ()Application.ScreenUpdating = False ' 关闭屏幕更新Dim nOn Error Resume NextFor n = 1 To ActiveDocument.Shapes.CountActiveDocument.Shapes(n).SelectSelection.ShapeRange.RelativeHorizontalPositio

2、n = _ wdRelativeHorizontalPositionMarginSelection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionMarginSelection.ShapeRange.Left = wdShapeRightSelection.ShapeRange.Top = wdShapeBottomSelection.ShapeRange.LockAnchor = False Selection.ShapeRange.LayoutInCell = TrueSelection.ShapeRan

3、ge.WrapFormat.AllowOverlap = FalseSelection.ShapeRange.WrapFormat.Side = wdWrapBothNextApplication.ScreenUpdating = True ' 恢复屏幕更新End SubSub 图片大小 () On Error Resume NextDim mywidthDim myheightApplication.ScreenUpdating = False ' 关闭屏幕更新,宽度根,高度根mywidth = Val(InputBox(Prompt:=" 单位为厘米 (cm);

4、如果输入为 0，则图片保持原始纵横比 据输入的高度数值自动调整； ", Title:=" 请输入图片宽度 ", Default:="0") * 28.35 myheight = Val(InputBox(Prompt:=" 单位为厘米 (cm); 如果输入为 0，则图片保持原始纵横比 据输入的宽度数值自动调整； ", Title:=" 请输入图片高度 ", Default:="0") * 28.35 '调整嵌入式图形Dim pic As InlineShapeFor Each

5、pic In ActiveDocument.InlineShapesIf mywidth = "0" Then pic.Height = myheight pic.ScaleWidth = pic.ScaleHeightElseIf myheight = "0" Then pic.Width = mywidth pic.ScaleHeight = pic.ScaleWidthElsepic.Width = mywidthpic.Height = myheightEnd IfNext'调整浮动式图形Dim tu As ShapeFor Each t

6、u In ActiveDocument.ShapesIf mywidth = "0" Thentu.Height = myheightElseIf myheight = "0" Thentu.Width = mywidthElse tu.LockAspectRatio = msoFalse tu.Width = mywidthtu.Height = myheight End IfNextApplication.ScreenUpdating = True ' 恢复屏幕更新End SubSub 浮于文字上方 ()Dim oShape As Varia

7、nt, tu As Shape, iApplication.ScreenUpdating = False ' 关闭屏幕更新On Error Resume Next '调整嵌入图形为浮于文字上方，并旋转90 度For Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertToShapeActiveDocument.InlineShapes(i).SelectWith oShape.WrapFormat.Type = 3' (去除 .Zorder 行 .WrapFormat .Type =

8、shapeType 四周 形 .WrapFormat .Type = wdWrapTight 紧密形 改为 .ConvertToInlineShape 嵌入形 ).ZOrder 4'4 浮于文字上方 5 衬于下方.Rotation = -90#End WithNext'调整其它图形为浮于文字上方，并旋转90 度For Each tu In ActiveDocument.ShapesActiveDocument.Shapes(i).SelectWith tu.WrapFormat.Type = 3 ' (去除 .Zorder 行 .WrapFormat .Type = s

9、hapeType 四周 形 .WrapFormat .Type = wdWrapTight 紧密形 改为 .ConvertToInlineShape 嵌入形 ).ZOrder 4'4 浮于文字上方 5 衬于下方.Rotation = -90#End WithNextApplication.ScreenUpdating = True ' 恢复屏幕更新 End SubSub 浮于文字上方 ()Dim oShape As Variant, iApplication.ScreenUpdating = False ' 关闭屏幕更新On Error Resume NextFor E

10、ach oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertToShapeActiveDocument.InlineShapes(i).Select '选中图片With oShape.ZOrder 4'选中图片版式调为浮于文字上方.Rotation = -90#'选中图片向左旋转 90 度End WithNextApplication.ScreenUpdating = True ' 关闭屏幕更新End SubSub 连续 ()Call 浮于文字上方Call 图片大小Call 图片对齐En

11、d SubSub 版式转换 ()Dim oShape As Variant, shapeType As WdWrapTypeOn Error Resume NextIf MsgBox（"Y 将图片由嵌入式转为浮动式 ,N 将图片由浮动式转为嵌入式 ", 68） = 6 ThenshapeType = Val(InputBox(Prompt:=" 请输入图片版式 :0= 四周型 ,1= 紧密型 , " & vbLf & _ "3=衬于文字下方 ,4=浮于文字上方 ", Default:=0) For Each oShap

12、e In ActiveDocument.InlineShapesSet oShape = oShape.ConvertToShapeWith oShapeSelect Case shapeTypeCase 0, 1.WrapFormat.Type = shapeTypeCase 3.WrapFormat.Type = 3.ZOrder 5Case 4.WrapFormat.Type = 3.ZOrder 4Case ElseExit SubEnd Select.WrapFormat.AllowOverlap = FalseEnd WithNextElseFor Each oShape In ActiveDocum