利用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 谢谢采纳!~
温馨提示:答案为网友推荐,仅供参考