如何用vba遍历word文档的图形对象?





在word中的图形对象有InlineShape对象和Shape对象,其中InlineShape对象表示的是嵌入到文本层的图片,就像是文字的一部分一样,而Shape对象是悬浮于文本之上位于图形层,两者有区别。

如果需要将所有除了文字以外的对象都清除,需要同时遍历InlineShape对象和Shape对象。

基于以上的认识,可以使用如下的代码删除word文档中的所有图形对象:

以上代码只能删除word文档的正文中的所有图形对象,如果要删除页眉、页脚中的所有图形对象,还可以使用如下的代码:

 

 

打赏
       

发表评论