如何把WORD中的文本框批量转换为图文框?
在一个复杂版式的WORD文件中有大量的文本框(几百个),因为希望在保持版式不变的情况下转成能够完整统计字数的WORD文档(字数统计的时候,文本框里的文字是不会被统计进去的),所以希望将这些文本框全部转成图文框。但是WORD本身似乎只能一个个文本框分别转换,太麻烦了。不知道有没有什么办法可以批量将文本框转换为图文框?通过宏或者VBA实现也可以。
补充一下:
刚才我仔细研究了一下,录制宏的时候,无法选择文本框,但是可以选中以后录制下转为图文框的操作。我感觉,VBA应该是可以实现我的要求的。
仔细研究了一下VBA宏,下面这句应该就是转换为图文框
Selection.ShapeRange.ConvertToFrame
我感觉基本思路应该是从WORD文件的开头开始搜索TextFrame,找到一个之后,选中,转为Frame,然后再去搜索下一个TextFrame。
不知道有没有VBA高手能解决这个问题?
[解决办法]
Sub test()Dim obj As ShapeFor Each obj In ActiveDocument.Shapes If obj.Name Like "Text Box*" Or obj.Name Like "文本框*" Then obj.ConvertToFrame End IfNextEnd Sub