[求助]如何将WORD中所有嵌入式图片选中后统一改变大小？

求助原因：

文档中图片很多，而且分布在文档中的各个角落，为了排版好看，我想把所有的图片统一一下宽度，但现在图片都是嵌入式图片。

在网上找了好多，也没解决。

如果能把所有嵌入型的图片全部替换为四周型或紧密型图片，解决应该就没太大问题了。

在百度知道找到的一段程序：

利用word中的宏可以解决这个问题。 

打开VB编辑器，将这个过程分为两个宏来处理： 
1.将所有inlineshapes转变为shapes类型； 
for each ishapes in selection.inlineshapes 
ishapes.converttoinlineshape 
next ishapes 

2.将所有转化的shapes类型放大一定倍数然后还原为inlineshapes类型： 
selection.shaperange.shapewidth 3,false 
selection.shaperange.shapeheight 3,false 
for each n in selection.shaperanges 
n.converttoinlineshape 
next n 


上式中的两个三代表将长和宽分别扩大三倍。其他的性质可以自己探索~~最后选中图形执行宏就行了！

但运行时提示对像错误！请高手指点一二！

补充：VB ,  多媒体