Sub test()
Dim obj As Shape
For Each obj In ActiveDocument.Shapes
If obj.Name Like "Text Box*" Or obj.Name Like "文本框*" Then
obj.ConvertToFrame
End If
Next
End Sub
把WORD中的文本框批量转换为图文框
最新推荐文章于 2019-07-07 17:18:29 发布
Sub test()
Dim obj As Shape
For Each obj In ActiveDocument.Shapes
If obj.Name Like "Text Box*" Or obj.Name Like "文本框*" Then
obj.ConvertToFrame
End If
Next
End Sub
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
扫一扫
7147
