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中的文本框批量轉換爲圖文框
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.