WPS Word是文字处理器，主要功能是文字排版和表格制作。有上千张图片要批量修改图片大小，建议使用Adobe Photoshop专业的图像处理软件。
第一步:先将所有图片放在一个文件夹中，再建立一个空的文件夹存放处理好的图片。
第二步:在Adobe Photoshop中新建“动作”，录制第一张图片处理的全过程，包含从哪个文件夹打开，图像大小调整，保存到哪个文件夹等。
第三步:在Adobe Photoshop中点击“文件”/“自动”/“批处理”，选择要执行的动作和源文件夹之后确定，批处理就开始执行了，你可以喝完茶再来看，图像已经处理好了。
请采纳！
文档中如何 批量修改修改图片大小或者使用WORD来完成成，用宏:Sub FormatPics() Dim iSha As InlineShape For Each iSha In If = wdInlineShapePicture Then = msoFalse '不锁定纵横比 = CentimetersToPoints(5) '宽5CM = CentimetersToPoints(5) '高5CM End If NextEnd Sub。
文本里批量插入图片（嵌入式）如何批量修改大小步骤一:点击插入-图片。找到图片所在文件夹
步骤阅读
2
步骤二:按住Ctrl，左键单击，注意文件名排列和表格里名字一致，点击打开
3
步骤三: 按住鼠标左键，所有图片拖动到第一行内容和最后一行中间， 点击高度，宽度设置数值，批量调整大小。
4
步骤四:左键单击，取消全选。最底下一张拖到第一行，最上面一张拖到最后一行
5
步骤五:Ctrl+f，找到定位，点击对象。（为了让照片是全选的）
6
步骤六:找到对齐-左对齐，再次对齐-纵向分布。
7
补充说明:函数导出步骤二所需文件名。
1.左键单击C2，输入函数:=C1&””””&A2&”.jpg”&”””””&” ”，按enter键（回车键）。
2.把箭头放在C2右下角，变成实心箭头，往下复制。得到最后一行，右键单击复制，得到文字，点击插入-图片，把文字粘贴进去，重复步骤二。
备注:=表示函数开始，C1表示需要套用前一列的东西，& 文本连接符号（hift+7），”” 双引号内输入文字数字是需要添加的内容，””内再输入两个英文状态的双引号表示要添加一个双引号，””内输入一个空格是要添加一个空格，版本不同，函数可以适当修正。
点击任意一张图片，Ctrl+A，全选图片，鼠标拖动调整即可
可以用VBA做，能把所有的图片都改为一样大小
批量修改照片大小,要说的细点word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！1、打开word，工具-宏-宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 Sub setpicsize（) '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To 'InlineShapes类型图片 (n).Height = 400 '设置图片高度为 400px (n).Width = 300 '设置图片宽度 300px Next n For n = 1 To 'Shapes类型图片 (n).Height = 400 '设置图片高度为 400px (n).Width = 300 '设置图片宽度 300px Next n End Sub3、返回word，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下:Sub setpicsize（) '设置图片大小 Dim n '图片个数 Dim picwidth Dim picheight On Error Resume Next '忽略错误 For n = 1 To 'InlineShapes类型图片 picheight = (n).Height picwidth = (n).Width (n).Height = picheight * '设置高度为倍 (n).Width = picwidth * '设置宽度为倍 Next n For n = 1 To 'Shapes类型图片 picheight = (n).Height picwidth = (n).Width (n).Height = picheight * '设置高度为倍 (n).Width = picwidth * '设置宽度为倍 Next n End Sub虽然小一的代码不是好代码，但确实能解决小一的问题，瞬间就把word文档里所有图片放大了倍，各种公式、坐标轴都比原来清楚多了， 自动批量处理Word中图片，主要完成的工作是:重置所有图片，对所有图片做裁剪。
代码很简单，但值得记录，以后可以参考。For Each iShape In '1cm = pt Dim pic If = wdInlineShapePicture Then = * = * = * = * End If Next iShape End Sub。
