请教，如何在word 里实现“给一串数字批量加百分比号”？

请教，如何在word 里实现“给一串数字批量加百分比号”？

如果数字少，就用ctrl+C，ctrl+v的方式，如果数字多，建议先把数字贴在excel里面，选定数字后点击“%”，数字就都加上百分比了，然后在拷贝回WORD中。

如果大批量的，建议在EXCEL中处理，然后再复制到word中。

代码可以用，当中少了几个空格。 sub setpicsize() '设置图片大小 dim n '图片个数 dim picwidth dim picheight on error resume next '忽略错误 for n = 1 to activedocument.inlineshapes.count 'inlineshapes类型图片 picheight = activedocument.inlineshapes(n).height picwidth = activedocument.inlineshapes(n).width activedocument.inlineshapes(n).height = picheight * 0.5 '设置高度为0.5倍 activedocument.inlineshapes(n).width = picwidth * 0.5 '设置宽度为1.1倍 next n for n = 1 to activedocument.shapes.count 'shapes类型图片 picheight = activedocument.shapes(n).height picwidth = activedocument.shapes(n).width activedocument.shapes(n).height = picheight * 0.5 '设置高度为0.5倍 activedocument.shapes(n).width = picwidth * 0.5 '设置宽度为0.5倍 next n end sub