登 录
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
抱歉!评论已关闭.