分类：电脑/网络-软件-办公软件
问题：请修改WORD宏。Sub图片版式转换()DimoShapeAsV 
Sub 图片版式转换()    Dim oShape As Variant, shapeType As WdWrapType    On Error Resume Next    If MsgBox("Y将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式", 68) = 6 Then        shapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _                                         "3=衬于文字下方,4=浮于文Sub 图片版式转换()    Dim oShape As Variant, shapeType As WdWrapType    On Error Resume Next    If MsgBox("Y将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式", 68) = 6 Then        shapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _                                         "3=衬于文字下方,4=浮于文字上方", Default:=0))        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去掉两个要用户响应的对话框，直接把一个中的所有图片版式调整为 四周型，右对齐。原提问： 
回答：看看这样是否可行~~

Sub 图片版式转换()
Dim oShape As Variant, shapeType As WdWrapType
On Error Resume Next

For Each oShape In ActiveDocument.InlineShapes
Set oShape = oShape.ConvertToShape
With oShape
oShape.WrapFormat.Type = 0 '四周型
oShape.WrapFormat.AllowOverlap = False '不允许重叠
oShape.Left = wdShapeRight '右对齐
End With

Next
End Sub