首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 办公应用 > OFFICE教程 >

怎么把WORD中的文本框批量转换为图文框

2012-01-18 
如何把WORD中的文本框批量转换为图文框?在一个复杂版式的WORD文件中有大量的文本框(几百个),因为希望在保

如何把WORD中的文本框批量转换为图文框?
在一个复杂版式的WORD文件中有大量的文本框(几百个),因为希望在保持版式不变的情况下转成能够完整统计字数的WORD文档(字数统计的时候,文本框里的文字是不会被统计进去的),所以希望将这些文本框全部转成图文框。但是WORD本身似乎只能一个个文本框分别转换,太麻烦了。不知道有没有什么办法可以批量将文本框转换为图文框?通过宏或者VBA实现也可以。 

补充一下:
刚才我仔细研究了一下,录制宏的时候,无法选择文本框,但是可以选中以后录制下转为图文框的操作。我感觉,VBA应该是可以实现我的要求的。
仔细研究了一下VBA宏,下面这句应该就是转换为图文框
Selection.ShapeRange.ConvertToFrame 
我感觉基本思路应该是从WORD文件的开头开始搜索TextFrame,找到一个之后,选中,转为Frame,然后再去搜索下一个TextFrame。
不知道有没有VBA高手能解决这个问题?

[解决办法]

VB code
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 

热点排行