闵行区苹果手机维修点:WORD宏的问题:请问如何用宏把图片的版式由"嵌入型"转为"浮于文字上方"?

来源:百度文库 编辑:神马品牌网 时间:2024/05/13 14:35:18
这个问题有些奇怪,这个需求无法用WORD的录制宏功能完成
这个问题我自己解决了。可以用ConvertToShape命令把对象转为Shape。

Sub Float()
'
' Float Macro
'
Dim i
On Error Resume Next
For i = 1 ToActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).ConvertToShape
Next i
For i = 1 ToActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).ConvertToShape
Next i
End Sub