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中的文本框批量转换为图文框
最新推荐文章于 2021-01-14 18:46:49 发布
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