Word图片版式批量任意转换（多少都一键处理掉）超简单实用

Word用宏一键批量处理——图片版式转换（多少都一键处理掉）

超简单实用

Sub 图片版式转换() 'Option Explicit Dim oShape As Variant, shapeType As WdWrapType On Error Resume Next If MsgBox(\将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式\68) = 6 Then shapeType = Val(InputBox(Prompt:=\请输入图片版式:0=四周型,1=紧密型, \& vbLf & _ \衬于文字下方,4=浮于文字上方\For Each oShape In ActiveDocument.InlineShapes Set oShape = oShape.ConvertToShape With oShape Select Case shapeType Case 0, 1 .WrapFormat.Type = shapeType Case 3 .WrapFormat.Type = 3 .ZOrder 5 Case 4 .WrapFormat.Type = 3 .ZOrder 4 Case Else Exit Sub End Select .WrapFormat.AllowOverlap = False '不允许重叠 End With Next Else For Each oShape In ActiveDocument.Shapes oShape.ConvertToInlineShape Next End If End Sub

本文来源：https://www.bwwdw.com/article/s6kt.html