cat和添柏岚:WORD宏的问题:请问如何用宏把图片的版式由"嵌入型"转为"浮于文字上方"?

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/06 12:03:05
这个问题有些奇怪,这个需求无法用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