WORD图片的批量导入批量修改word图片大小和压缩图片方法
实现WORD图片的批量导入、批量修改图片大小和批量压缩图片方法
实现在WORD图片的批量导入：如果图片都存在同一个文件夹中，那么我们可以按住shift键批量插入图片~
一、批量修改word图片大小
1、菜单——“工具”——“宏”——“宏”，也可以用快捷键ALT+F8调出，
2、在“宏”窗口中，“宏名”改成“批量调整图片大小”
再点“编辑”
复制、粘贴以下代码：
Sub 批量调整图片大小()
'
' 调整图片大小Macro
' 宏在2011-5-22 由User 创建
'
Dim iShape As InlineShape, WidthNum As Long For Each iShape In ActiveDocument.InlineShapes With iShape
WidthNum = .Width
.Width = 13 * 28.35
.Height = (13 * 28.35 / WidthNum) * .Height
End With
Next
' 注：1厘米＝28.35磅值
' 以上为同比例缩放的近似算法
End Sub
再点工具栏里的“保存”，保存修改。
3、选择宏名——运行，就可以自动批量修改图片大小。
二、批量压缩word图片大小
1、选中某一张图片——右键“设置图片格式”——“图片”——“压缩”——
选择上面的应用于“文档中的所有图片”。
word中批量修改图片大小
这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！ 方法一： 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽! 1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行! 2、宏名起好了，单击"创建"进入Visual Basic 编辑器，输入如下代码并保存 Sub setpicsize() '设置图片大小 Dim n ' 图片个数 On Error Resume Next ' 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n)。Height = 400 '设置图片高度为400px ActiveDocument.InlineShapes(n)。Width = 300 '设置图片宽度300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 ActiveDocument.Shapes(n)。Height = 400 '设置图片高度为400px ActiveDocument.Shapes(n)。Width = 300 '设置图片宽度300px Next n End Sub 3、返回word,工具-宏-宏(或者直接按Alt+F8)，再次进入宏的界面，选择刚才编辑好的宏，并单击"运行"按钮，就可以了!(图片多时，可能会花一些时间)
方法二： 1、在word中按alt+f11组合键，进入VBA模式 2、在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块 3、把下面代码复制，粘贴进去。 4、更改数值，改一下宽度和高度数值(10)，点运行(类似播放按钮。)或f5,即可设置文档中全部图片 Sub Macro() Mywidth=10 '10为图片宽度(厘米) Myheigth=10 '10为图片高度(厘米) For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * Myheigth iShape.Width = 28.345 * Mywidth Next iShape End Sub word批量修改图片大小--按比例缩放篇 这部分要说的是把word中的所有图片按比例缩放! 具体操作同上，只是代码部分稍做修改，代码如下： Sub setpicsize() '设置图片大小 Dim n '图片个数 Dim picwidth
(完整版)Word中的图片批量统一大小及同比例缩放
Word宏：Word中的图片批量统一大小及同比例缩放（图） 有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。 实现代码： Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next'忽略错误 For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300'设置图片宽度 300px Next n For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 400'设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度 300px Next n End Sub [Ctrl+A 全部选择提示：你可先修改部分代码，再按运行] 使用方法和[Word宏:Word中英文标点符号互换-VBA源码实现（图）] 中介绍的一样，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”命令。 操作步骤如下： 1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal编辑器。
Word2013文档中如何批量调整图片大小
Word2013文档中如何批量调整图片大小 在我们用Word2013 编辑器文档的时候，经常会遇到打印一些图片的情况，但是手工插入后图片后，打印出来有些乱，很不美观，特别是有多个图片的情况时。以下是学习啦小编为您带来的关于Word2013批量调整图片大小，希望对您有所帮助。 Word2013批量调整图片大小 1、新建一个Word文档，然后点击菜单栏上的“布局”菜单 2、接下来点击工具栏上的箭头所指的位置，打开Word页面设置窗口 3、在页面设置窗口中，我们把页边距设置为0.5厘米，然后调整纸张方向为横向 4、接着点击菜单栏上的“插入”菜单项，在打开的插入工具栏上点击“图片”按钮，在打开的窗口选择要插入的图片文件，把需要打印的图片全部插入到文档中 5、然后点击菜单栏上的“视图”菜单项，接着点击工具栏上的“宏”按钮 6、在打开的宏设置窗口中，为要编辑的宏设置一个名称，如“调整照片大小”，然后点击右侧的“创建”按钮 7、在打开的代码输入框中输入以下代码： Dim i As Integer For i = 1 To ActiveDocument.InlineShapes.Count With ActiveDocument.InlineShapes(i) .Height = 238 * 0.7 .Width = 315 * 0.8 .Borders(wdBorderTop).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineWidth = wdLineWidth050pt .Borders(wdBorderTop).Color = wdColorAutomatic End With Next i 其中Height与Width可以根据实际情况重新调整，一般默认就可以了 8、关闭刚刚的代码输入框，回到Word文档后，点击宏下拉菜单，然后选中并点击“查看宏”菜单项 9、在打开的宏窗口中在左侧窗口中选中刚刚创建的宏，点击“运行”按钮 10、这时所有的图片就自动排列到一个A4纸上了，使用打印功能就可以快速方便的打印出一副整齐美观的照片了
Word_邮件合并如何批量打印带照片
Word 邮件合并如何批量打印带照片 准备工作：准备一份考生信息数据库，可以是Word 创建的数据源，也可以像Excel 工作簿、 Access 数据库、Query 文件、Foxpro 文件，都可以作为邮件合并的数据源。只要有这些文件存在，邮件合并时就不需要再创建新的数据源，直接打开这些数据源使用即可。 需要注意的是：在使用Excel 工作簿时，必须保证数据文件是数据库格式，即第一行必须是字段名，数据行中间不能有空行等。这样可以使不同的数据共享，避免重复劳动，提高办公效率。我最常用的是Excel 簿，里面包含了编号、准考证号、考生姓名及其他相关信息的字段，要批量打印照片的话，还需要加一个照片的路径和文件名的字段（如果照片的文件名正好是考生的准考证号或姓名的话，可免），假设照片放在e:\photo 文件夹里，每位考生的照片文件名和准考证号相对应（如果用姓名的话可能会碰到同名同姓的问题）。数据准备工作的正确与否，关系到以后打印出来的证件正确与否，所以必须要仔细校对正确。 接下来的工作就是要设计邮件合并的模板了，步骤如下： 1．启动word 程序，从菜单栏中选择“工具\邮件合并”，将出现“邮件合并帮助器”对话框； 2．在“邮件合并帮助器” 对话框中的第一步“主文档”中单击“创建” 下拉按钮，选择“套用信函” （如果想在一张纸上打印多份的话，选择“分类”），再在出现的对话框中点击“活动窗口（A）” 按钮。 3．在“邮件合并帮助器”对话框中点击“获取数据（G）”下拉按钮，选择“打开数据源(O)…”，在出现打开文件对话框中打开刚保存的Excel 电子表格，点击“确定”并在弹出的对话框中点击“编辑主文档（M）”，这时你会发现在工具栏中多了一栏邮件合并工具栏4．然后画好表格填好项目，进行排版、设置纸张，再把光标置于要插入相应项目的位置，点击“邮件合并”工具栏的“插入合并域”下拉菜单（下拉菜单中的相应选项与Excel 数据表格中的标题行是一一对应的），然后单击下拉菜单中的相应选项，直至插入所有只包含文字的域。 5．下面是实现批量打印照片的关键一步，就是照片域的实现： 先把光标定位在要插入照片的地方，按Ctrl+F9 插入一个域，输入“IncludePicture "e:\\photo\\”（不包含外侧双引号），再按
word表格批量插入图片
竭诚为您提供优质文档/双击可除word表格批量插入图片 篇一：word20xx中批量快速插入图片技巧 word20xx中批量快速插入图片技巧 我们知道，对于某些特定的字符，可以通过“自动更正”的方法实现快速替换，其实图片也是可以自动更正的，这在需要经常调用某些图片时相当实用，这样就不需要每次逐个手工插入了。这里以word20xx为例进行说明，让你在输入“1”、“2”这些数字时，能够自动替换为相关的图片（例如频繁出现的公司logo图片等）。 首先将相关的图片插入到word文档的窗口中，然后按下“ctrl+c”组合键将它们复制到剪贴板中备用。这一步至关重要，否则下面的操作将无法正常完成。 接着单击office按钮打开“word选项”对话框，然后切换到“校对”选项卡，在这里你会发现一个“自动更正选项”的按钮，单击后即可打开如图所示的对话框，在“替换”后面的文本框中输入图片名称“1”。此时我们会发现原来右下角的“添加”按钮已经可以正常使用，接下来直接单击“添加”按钮，添加图片就可以了。
需要提醒的是，如果前面的步骤没有进行的话，那么即使在“替换”下面的文本框中输入了相关的字符，也会看到“添加”按钮仍然呈现不可用的灰色状态。 按照类似的步骤，你可以继续添加常用的图片到其他自动更正的项目，以后插入相关图片时就方便多了（虽然“替换为”文本框中没有任何反应，而且确认后“替换为”一列也只是显示为“*”号，但这只是显示的问题）。 以后，当我们在word文档中输入1、2这样的数字时，按下回车键后，相关的图片就会自动出现在word文档中，大大提高了工作效率。 20xx-07-27来源：it168 篇二：word与excel连接邮件合并批量插入照片 word与excel数据连接邮件合并批量照片自动插入方法 一、建立“照片名”的excel数据文件 1.建立文件夹：在d盘根目录下建立名为：yjhebing的文件夹,在这个文件夹里面在建立一个名为：zhaopianku的文件夹，所有照片放在zhaopianku的文件夹(word表格批量插入图片)里面 图-1：zhaopianku文件夹 2.开始——运行——输入cmd,按回车键，打开dos命令框。输入d:按回车建 再输入：cdyjhebing按回车键，再输入:cdzhaopianku
批量修改多个Word资料文档内容
同时批量修改多个word文档步骤1把要批量修改的文档都放在同一个文件夹中 同时批量修改多个word文档步骤2在修改前，先确定多个word文档文件要被修改的内容如小小要修改的内容是多个word文档中的“西平县”，
同时批量修改多个word文档步骤3双击“word文档批量处理大师” 同时批量修改多个word文档步骤4点击“选择目录” 同时批量修改多个word文档步骤5在弹出的窗口中选择点击要批量修改的多个word文档文件所在的文件夹，然后点击“确定”按钮
同时批量修改多个word文档步骤6此时，系统会自动添加该文件中的所有文档文件 同时批量修改多个word文档步骤7点击“保存列表”
同时批量修改多个word文档步骤8在弹出窗口输入框随便输入一个名字，然后点击“保存”按钮 同时批量修改多个word文档步骤9在word文档批量处理选项中点击选择“1、内容批量替换”
同时批量修改多个word文档步骤10在右边弹出'批量替换文档内容'框体中，在”把文字：“标签下输入要被修改的内容，如“西平县”，在“替换为：”标签下输入要改成的内容，如“我在这”。然后点击“添加为待处理任务”按钮 同时批量修改多个word文档步骤11如果，要被批量修改的内容还有其他的，则先点击“添加到列表”按钮，然后再在”把文字：“标签下输入下一个要被修改的内容，如“啊”，在“替换为：”标签下输入下一个要改成的内容，如“哈“，然后点击“添加到列表”按钮。如此反复把所有要修改的文档内容全部添加到列表后再点击“添加为待处理任务”按钮
同时批量修改多个word文档步骤12在弹出窗口点击”确定“按钮 同时批量修改多个word文档步骤13在弹出窗口点击”是“按钮 同时批量修改多个word文档步骤14在弹出窗口点击”确定“按钮
给Word快速插入常用图片技巧
给Word快速插入常用图片技巧 系统下载打开Word2007，先插入一张公司标志图片，并调整好适当尺寸。再选中插入的图片，单击Office 按钮，选择“Word选项”。在“Word选项”窗口中选择“校对”，单击“自动更正选项”按钮。在“自动更正”窗口的“替换”输入框中输入“公标1”，单击“添加”按钮后（如图1），确定返回。以后不管在哪个文档中你只要输入“公标1”后再继续输入，“公标1”就会自动变成公司标志的图片。 图1 在此，“替换为”一项后面不用输入，Word默认会把选中内容当成替换为内容，只是当选中的是图片时“替换为”中会显示成空白，但其实已经有图片在里面了。此外，自动更正可以设置的对象不仅限于图片，还包括文字的格式和表格。你甚至可以同时选中包括图片、表格、文字等多种对象的内容进行设置。此招最大的缺点就是只能对“文字环绕”格式为“嵌入型”的图片有效，也只能插入“嵌入型”的图片。 文档部件，用鼠标插入图片 在Word2007中也可把常用图片保存成文档部件，即可通过鼠标单击选择快速插入常用图片。其优点是比较直观，操作上更顺手，而且对图片没有任何格式限制。 在Word文档选中一张图片（例：公司标志图），切换到“插入”选项卡，单击“文档部件”，选择“将所选内容保存到文档部件库”。在“新建构件基块”窗口中输入“名称”，比如“公标1”（如图2），确定后完成设置。以后编辑时，只要单击“插入”选项卡的“文档部件”即可在下拉列表中找到添加的公司标志图，单击选择即可插入。
图2 设置后关闭Word会提示是否保存到Building Blocks.dotx文档，此时一定要选择“是”。这招对图片、表格、文字等对象也同样有效。其缺点是不适合用键盘输入，而且当添加太多文档部件后比较难找到需要图片，反而不容易输入了。 录制宏，用快捷键插入图片 通过录制宏可以用快捷键插入常用图片，也可以把图片直接添加到快速工具栏上通过鼠标单击插入，兼具前两招的效果。由于可在工具栏上显示插入图片按钮，用鼠标插入图片时要比文档部件更方便，对图片格式也没有任何限制。适于插入少数特别常用的图片，比如公章、签名等等。另一优点是对原图进行修改后，下次插入的就是修改后的新图，无需重复设置，因此也适于插入经常修改的图片。 打开Word2007，切换到“视图”选项卡，单击“宏”选择“录制宏”。在“录制宏”对话框输入宏名为“公标1”，单击下面的“键盘”按钮。在弹出“自定义键盘”窗口中按下你要设置的快捷键“Alt+Ctrl+B”（如图3），单击“指定”按钮添加到“当前快捷键”列表中，“关闭”窗口返回Word。此时Word的状态栏会显示停止录制宏的图标“■”，鼠标指针也多了个录音带图标。
批量调整图片大小两种方法
批量调整图片大小两种方法 1、用acdsee11打开照片，转换到“管理”视图模式；界面如下图所示（其它版本的acdsee）与此类似。 2、按下键盘的ctrl不松手，逐个单击要修改大小的照片；或单击第一张照片，按下shift键再单击最后一张照片，选择它们之间的照片。 3、单击工具栏的调整大小按钮或在选中的照片上右击在弹出的快捷菜单上单击“批处理”→“调整大小” 在弹出的“调整大小”对话框中 ４、选中“以像素计大小”； ５、宽度填入1024，高度填入768； 6、注意点击“选项”按钮，进行深入设置
在弹出的选项对话框中 7、根据选择“替换”或“放入原文件夹”或“放入以下文件夹”（选择此条，可以点击右侧的“浏览”按钮，浏览或新建调整大小后保存的位置，） 8、点击“确定”按钮返回“调整大小”对话框 9、点击“开始调整大小”按钮
提示所有照片调整完大小后，在windows中浏览到在第⑦设定的位置，就可以找到调整大小后的照片。 用photoshop批量调整图片大小的方法 虽然调整图片大小的软件很多，依笔者的经验来看，最好还是专业软件——Photoshop（简称PS）。利用ps中的动作可以批量处理n张图片的大小，速度很快，质量也好，很方便的，不仿试试。 一、打开ps。 二、选择“窗口”→“动作”（前面打上钩）。 三、单击动作窗口中最下面一行倒数第二个“创建新动作”按钮，起一个名称以方便以后调用，如“网页图片800”，单击“好”，开始录制动作。 四、“文件”→“打开”，选择你要修改的图片中的一张。 五、“图像”→“图像大小”，调整图片的宽度和高度到你想要的大小，如800×600像素。 六、保存图片到你想要放的文件夹中。 七、关闭该图片。 八、单击动作窗口中最下面一行的第一个按钮，停止录制动作。至此，一个完整的调整图片大小的动作录制完成，只要不重装系统都可以长期调用。 九、“文件”→“自动”→“批处理”，在打开的的窗口中，“动作”栏选择为刚才录制的动作，“源”选为“文件夹”，单击“选取”到你要调整图片的文件夹。以同样的方法选好目的文件夹（存放调整后的图片）。对话框中几个勾选项目除了“包含所有子文件夹外”其它的都打勾，文件命名框内的内容无须改动，在“错误”栏选择“将错误记录到文件”，单击“存贮为”将错误文件存放
用宏批量调整word中图片版式大小方向
Sub 图片方向()..................................................... Sub 图片对齐() Application.ScreenUpdating = False '关闭屏幕更新 Dim n On Error Resume Next ActiveDocument.Shapes(n).Select orizontalPosition = _ wdRelativeHorizontalPositionMargin wdRelativeVerticalPositionMargin Next Application.ScreenUpdating = True '恢复屏幕更新 End Sub Sub 图片大小() On Error Resume Next Dim mywidth Dim myheight Application.ScreenUpdating = False '关闭屏幕更新 mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35 myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35 '------------------------------------------------------------------ '调整嵌入式图形 Dim pic As InlineShape For Each pic In ActiveDocument.InlineShapes If mywidth = "0" Then
利用excelVBA批量修改文件名以及自动插图到word
前段时间，因编写报告，需要把成果图片修改名字后，将图以及相应的名字插入word文档中。一次报告，至少200张图，花了数个小时才弄完工作，同时难免出现差错。之后就一直寻找捷径，基于excel vba以前有一点基础，现将整理出来的代码分享给大家。可以去下载我编好的excel 小程序，里面有详细代码，地址在最下方。欢迎直接试用下，给个反馈建议. 1.查找文件夹中符合图片格式的文件，返回其名字 Dim fs, f, f1, fc, s Dim arr As String Set fs = CreateObject("") Address = Address = Left(Address, InStrRev(Address, "\", Len(Address))) '获得当前工作表所在文件夹路径 Set f = (Address) Set fc = i = 2 For Each f1 In fc '遍历文件 If FileIspicture Then ' 引用了自定义函数 FileIspicture 判断是否为需要查找的文件格式
phname = '获取文件名 houzhui = Right(phname, Len(phname) - InStrRev(phname, ".", Len(phname)) + 1) (i, 1) = Left(phname, InStrRev(phname, ".", Len(phname)) - 1) (i, 2) = houzhui i = i + 1 End If Next 2.修改文件名称 Sub changename() Dim Address As String Address = Address = Left(Address, InStrRev(Address, "\", Len(Address))) n = , 1).End(xlUp).row For i = 2 To n '修改名称 pname = (i, 1) & (i, 2) textname = (i, 3) houzhui = Right(pname, Len(pname) - InStrRev(pname, ".", Len(pname)) + 1) '获取后缀 Name Address & pname As Address & textname & houzhui Next i
PS中如何批量修改图片大小
PS中如何批量修改图片大小 首先要把你所要处理的图片全部放到同一个文件夹下。 第一步：在Photoshop中打开一张要更改大小的图片，并在菜单窗口中打开‘动作’ 面板（Alt+F9) 。在面板的最下面有一排功能键，点击右边起第二个按钮‘创建新动作’ 会弹出一个对话框，里面显示新建动作的名称，如“动作1” 。再点击“记录”，完毕后我们会看到在动作面板的下面出现一个红色的按钮，表示已经要开始录下我们接下来操作的每一个步骤了。 第二步：进入菜单上“图象 / 图象大小”里面更改你需要的图片大小，点击完成，然后将图片关闭，当问你是否要保存对原文件的更改是，选择“Yes"。然后点击动作面板下面左起第一个按钮将录制停止。录制完毕。 第三步：进入菜单上“文件/自动/批处理”里面，选择动作名称、要处理的文件路径以及‘目的’ 选择“无”。这里要注意：选择“无”就是将处理好的文件直接代替原文件，如果要保留原文件需要再另备份一份或是选择“存储并关闭”和另外选择路径来存储也可以。以上操作完成后请击“好”。软件便会自动对文件进行处理。只要稍等片刻即可完成。 “怎样才能把批处理后的图像保存到另一个文件夹”：步骤和以上说的大致一样，在第二步操作到“然后将图片关闭”时不要直接关闭文件，而是在主菜单“文件”下选择“存储为”将图片存储到你想要存的文件夹里，存完后关闭文件，并停止动作对话框的录制。接着
是第三步：进入菜单上‘文件/自动/批处理’里面，选择动作名称、要处理的文件路径以及‘目的’ ，在‘目的’ 里面选第三项‘文件夹’，并在下面‘选择’里选取图片处理后存储的路径（注意：此路径要和刚才录制过程中存储的路径是一样的）以上操作完成后请击‘好’就可以了。其实还有个苯办法，上面也提过就是将原文件另外备份一份，就可将批处理好的图片任意拷贝到你想要放置的地方了。 用photoshop批量修改图片尺寸 用Photoshop的动作命令和批处理命令就可轻松搞定它们。 一、首先我们得制作自己需要的动作命令 第一步，先打开Photoshop，选中“窗口→动作”命令，打开动作命令窗口。此时，动作命令栏里只有默认命令序列和一些默认动作。 第二步，执行“文件→打开”动作，任意打开一张图片。单击动作命令栏“创建新动作”快捷命令图
word里如何批量处理图片的大小-不知道你就out啦
这两天在整文档，提交过来的文档里面有几百张图片，规格都不一样，堆在文档里面很难看。为美化文档，我决定将图片规范化，都设置成425x320像素大小。手工修改每张图片很费时间也费鼠标，借助word的宏功能可以很好完成这一任务。 打开word，按下Alt+F8，出现宏界面，为新建的宏取名为AdjustPicWidthAndHeight 点击编辑按钮，输入下面红色字体标出的内容 Sub AdjustPicWidthAndHeight() ' ' AdvertisePublishAs 宏 ' 将广告发布导出为 PDF 和 XPS 'Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比
ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.InlineShapes(n).Width = 425 '设置图片宽度 425px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425px Next n End Sub 返回word，工具－宏－宏（或者直接按 Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间） Sub AdjustPicWidthAndHeight() ' 'Sub FormatPics() Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(6.46) '宽5CM iSha.Height = CentimetersToPoints(6.28) '高5CM End If Next End Sub
word文档批量修改图片的方法
[手把手]word批量导入、修改图片大小和压缩图片 工作中，我们不时会需要将大量图片插入word，并对其设置统一的尺寸大小。下面请跟随我，学习批量导入、修改图片尺寸和压缩图片的方法，让你告别重复工作。 工具/原料
?Microsoft Word 2007 一、批量导入图片 1. 1 将所有需要导入的图片放入同一文件夹，修改文件名，使其排列顺序符合我们要求。 2. 2 打开word，依次点击：插入→图片
3. 3 在弹出的窗口，“查找范围”框里找到需要插入图片所在文件夹， 方法一：选中第1张图片，按住键盘Shift键，再选中最后一张图片。 方法二：选中任意一张照片，同时按键盘“Ctrl”键和字母“A”键，全选点击“插入” 4. 4 效果如图
END 批量修改图片尺寸 1. 1 接上面的例子。 方法一：在word软件界面中依次点击：开发工具→宏 方法二：同时按键盘“Alt”键和“F8”键（后面简称Alt+F8）弹出宏创建窗口
2. 2 在宏名栏里任意输入一个宏的名字，本例中我们使用“setpicsize”点击创建
3. 3 弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里替换掉原有内容： Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To 'InlineShapes 类型图片 (n).Height = 5 * '设置图片高度为5cm （1cm等于） (n).Width = 4 * '设置图片宽度4cm Next n End Sub '其中图片本例中图片尺寸为5cm和4cm 4. 4 点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮（类似播放器里的播放按钮）或者按键盘“F5”键 等待一会儿……（等待时间取决于你插入图片的多少和你电脑的运算速度）……
如何批量处理图片的大小
喜爱摄影的朋友可能都有这样的体会，相机里面存了大量的图片，一般都是2048×1536或者更大像素的照片，每张都有1M以上，如果设置的清晰度高，则照片就更大，这样的图片是无法上传到博客中的（博客要求每张图片的大小不能超过300K，宽度超过550像素时也无法全部显示）。这就需要对每张图片进行处理，可是一次拍摄了几十张上百张照片，一张一张处理岂不是太浪费时间。下面就教大家一招，让你轻轻松松批量处理图片，嘻嘻！ 第一步：建立一个文件夹，将需要处理的照片放入这个文件夹中（注意：图片要纵横一致）。不如我上篇文章中拍摄的满洲里照片，将欲发表的照片放入新建的文件夹“边城满洲里” 文件夹中，然后再建一个文件夹，起名“边城满洲里发表”，待用。 第二步：打开PHOTOSHOP处理软件，这个软件现在网上很多，大家可以搜索下载。打开PS处理软件，然后打开欲发表文件夹中的任意一张照片。
第三步：点击PS工具栏的“窗口”，在下拉菜单中找到“动作”面板，将其打开，或者按Alt+F9也能将其打开，一般打开PS软件的时候 动作面板已经打开了
来源：(https://www.360docs.net/doc/229216844.html,/s/blog_503ff9de0100cwcl.html) - 如何批量处理图片大小——学习photoshop动作（转贴）_醉夕阳_新浪博客 第四步：点击“动作面板”上的“创建新动作按钮”，出现新动作的录制面板，给你要录制的动作起一个名字。（如图片调整）其它不要动哦。然后点击“记录”，如下图：
出现了录制按钮，如下图
第五步：前面的这些都是为下面的制作打下一个基础。下面你的每一个操作步骤都会被录制下来，一定要按照我说的去做哦。现在开始调整图像的大小：选图像－图像大小。如下图：将图片设置成需要的大小。在新浪博客中横幅图片一般设置成550像素以内为好，太宽则显示不全。设置好后点击对话框中的“好”按钮。
Word宏：Word中的图片批量统一大小及同比例缩放(图)
?Word宏：Word中的图片批量统一大 小及同比例缩放（图） 有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。 实现代码： Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next'忽略错误 For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 400'设置图片高度 为400px ActiveDocument.InlineShapes(n).Width = 300'设置图片宽 度300px Next n For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度300px Next n End Sub 使用方法，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”命令。 操作步骤如下： 1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal 编辑器。
2）插入normal工程“模块”。
3）在“模块”中粘贴上面的代码。
4）保存，返回你要统一图片大小的Word文档。运行“工具”-“宏”-"宏命令"。 看一下结果，是不是你想要的统一图片大小。
word中批量修改图片大小的两个方法
word中批量修改图片大小的两个方法 各位读友大家好，此文档由网络收集而来，欢迎您下载，谢谢word中批量修改图片大小的两个方法 对于把ppt的内容拷贝到word中： 对ppt的一页进行复制，然后粘贴到word中 如果要的是ppt运行过程中的内容，在qq运行的情况下，按Ctrl+Alt+A截屏，按勾，然后可以直接粘贴到word中(生成的图片已经在剪贴板中了) 1.图片只需要符合文档大小即可 方法：插入图片，word自动处理图片大小。 看一下下方的文件名 按Ctrl+A(全选)，图片的顺序按照电脑文件的顺序排列的
每一次按Ctrl+点击图片，被点击的图片放在首位 效果： 2.图片需要修改为具体的大小 把图片复制，直接在word中粘贴，图片以原始大小显示 按视图 按宏，查看宏，输入setpicsize，按创建 复制并粘贴以下程序并按调试+编译，看看程序有没有错误 Sub setpicsize() Dim i Dim Height, Weight Height = 300 Weight = 200
On Error Resume Next ‘忽略错误 For i = 1 To ‘InlineShapes类型图片 (i).Height = Height ‘设置图片高度为Height_px (i).Width = Weight ‘设置图片宽度Weight_px Next i For i = 1 To ‘Shapes类型图片 (i).Height = Height ‘设置图片高度为Height_px (i).Width = Weight ‘设置图片宽度Weight_px Next i End Sub 如果没有错误，保存(Ctrl+S)并退出(Alt+F4) 然后按宏，查看宏，选择名字为setpicsize的宏，并按运行，稍等片刻即可完成
Word 2007中批量快速插入图片技巧
Word 2007中批量快速插入图片技巧 我们知道，对于某些特定的字符，可以通过“自动更正”的方法实现快速替换，其实图片也是可以自动更正的，这在需要经常调用某些图片时相当实用，这样就不需要每次逐个手工插入了。这里以Word 2007为例进行说明，让你在输入“1”、“2”这些数字时，能够自动替换为相关的图片（例如频繁出现的公司LOGO图片等）。 首先将相关的图片插入到Word文档的窗口中，然后按下“Ctrl+C”组合键将它们复制到剪贴板中备用。这一步至关重要，否则下面的操作将无法正常完成。 接着单击Office按钮打开“Word选项”对话框，然后切换到“校对”选项卡，在这里你会发现一个“自动更正选项”的按钮，单击后即可打开如图所示的对话框，在“替换”后面的文本框中输入图片名称“1”。此时我们会发现原来右下角的“添加”按钮已经可以正常使用，接下来直接单击“添加”按钮，添加图片就可以了。 需要提醒的是，如果前面的步骤没有进行的话，那么即使在“替换”下面的文本框中输入了相关的字符，也会看到“添加”按钮仍然呈现不可用的灰色状态。
按照类似的步骤，你可以继续添加常用的图片到其他自动更正的项目，以后插入相关图片时就方 便多了（虽然“替换为”文本框中没有任何反应，而且确认后“替换为”一列也只是显示为“*”号，但这只是显示的问题）。 以后，当我们在Word文档中输入1、2……这样的数字时，按下回车键后，相关的图片就会自动出现在Word文档中，大大提高了工作效率。 word批量修改图片大小 1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！ 2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 Sub setpicsize() '设置图片大小 Dim n'图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub 3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间） word批量修改图片大小——按比例缩放篇 这部分要说的是把word中的所有图片按比例缩放！ 具体操作同上，只是代码部分稍做修改，代码如下： Sub setpicsize() '设置图片大小
word表格中批量导入照片
利用Word邮件合并批量打印带照片的证书 根据我们以前所学，利用word的邮件合并功能可以批量打印出相关信息，但批量打印带照片的证书，邮件合并能完成这个要求呢？经过一番摸索、查寻，终于找到办法可以解决了，具体过程如下： 准备工作：准备一份考生信息数据库，可以是Word创建的数据源，也可以像Excel工作簿、Access数据库、Query文件、Foxpro文件，都可以作为邮件合并的数据源。只要有这些文件存在，邮件合并时就不需要再创建新的数据源，直接打开这些数据源使用即可。需要注意的是：在使用Excel工作簿时，必须保证数据文件是数据库格式，即第一行必须是字段名，数据行中间不能有空行等。这样可以使不同的数据共享，避免重复劳动，提高办公效率。我最常用的是Excel 簿，里面包含了编号、准考证号、考生姓名及其他相关信息的字段，要批量打印照片的话，还需要加一个照片的路径和文件名的字段（如果照片的文件名正好是考生的准考证号或姓名的话，可免），假设照片放在e:\photo文件夹里，每位考生的照片文件名和准考证号相对应（如果用姓名的话可能会碰到同名同姓的问题）。数据准备工作的正确与否，关系到以后打印出来的证件正确与否，所以必须要仔细校对正确。 接下来的工作就是要设计邮件合并的模板了，步骤如下： 1．启动word程序，从菜单栏中选择“工具――邮件合并――显示栏邮件合并工具栏”，这时你会发现在工具栏中多了一栏邮件合并工具栏 2．然后画好表格填好项目，进行排版、设置纸张，再把光标置于要插入相应项目的位置，点击“邮件合并”工具栏的“插入合并域”下拉菜单（下拉菜单中的相应选项与Excel数据表格中的标题行是一一对应的），然后单击下拉菜单中的相应选项，直至插入所有只包含文字的域。 3．下面是实现批量打印照片的关键一步，就是照片域的实现：
三步完成批量调整图片尺寸
三步完成批量调整图片尺寸 直线网https://www.360docs.net/doc/229216844.html, 用数码相机拍摄的照片，通过数据线传到电脑上后尺寸比较大。为了方便浏览，我们通常都在Photoshop等专业图像处理软件中一张张来调整图片的大小。其实还有更多更方便简捷的方法来完成。 一、在ACDSee中调整 ACDSee是目前最流行的数字图像处理软件，批量调整图片尺寸对它来说简直是“小菜一碟”。 1．打开ACDSee 7.0（至少需5.0版以上），从左上角的“文件夹”中，打开数码照片所在的文件夹，在界面右侧可以适时浏览所有图片的缩略图。你可以将照片全部选中，也可按住“Ctrl”键，用鼠标选中需要更改尺寸的图片。 2．选择“工具→调整图像大小”命令，出现“调整图像大小”对话框（图1），在三种调整方式中选择一种方式，如选择“像素值”请将宽度或高度设置为你想要的尺寸。其他项保持默认就可以了。 3．单击“开始调整大小”按钮，ACDSee会自动进行调整，完成后即可看到实际效果。 二、在IrfanView中调整
尽管ACDSee在批量更改图片尺寸方面表现出色，但并不是所有人都喜欢使用这个“大块头”。我再给大家推荐一款小巧方便的图像处理软件“IrfanView”，它的大小只有4MB左右，体积仅是ACDSee 7.0的五分之一。 1．启动IrfanView后，选择“文件→批量转换/重命名”命令，出现“批量操作”对话框，从“查找范围”中打开存放数码照片的文件夹。 2．将需要更改尺寸的照片添加到左侧的文件列表框中（图2），同时选择好“输出目录”。勾选“使用高级选项”，单击“设置高级选项”按钮，在设置新的大小中，将宽度和高度设置为你想要的尺寸，并勾选下面的“保持外观比例”，然后单击“确定”。 3．回到“批量操作”窗口，单击“开始”按钮，IrfanView会自动转换图像，是不是很方便？直线网https://www.360docs.net/doc/229216844.html,
利用word邮件合并,批量插入照片
利用Word邮件合并，批量插入照片 一、建立Excel数据源文件 建立Excel文件，输入数据，数据包括下面将要建立的主文档所用到的数据。如图： 其中照片名称为身份证号+“.jpg”，方法是在Ｎ2单元格输入公式=C2& “.jpg”,然后向填充。将文件保存在Ｄ:\16学籍卡\hebing\文件夹中，文件名为：学生信息，此文件夹位置任意，文件名称任意。 二、准备照片 将照片放在保存数据源和主文档的文件夹中，此处为D:\\16学籍卡\hebing\，照片名用身份证号命名，你可以用其它命名方法，只要每个学生唯一且相互对应就行了。 三、建立主文档 建立Word主文档，主文档为将来想打印出来的格式，如下图 这是我举例的格式，你可按自己所需的格式制作，然后保存文件到数据源相同的位置，名字为：基本信息。 四、邮件合并 1、链接数据源。打开主文档，即要邮件合并的word文件，存放在：D:\16
学籍卡\hebing\，名为：基本信息.doc，打开邮件选项卡，单击选择收件人，点击使用现有列表，然后选择上面建立的Excel数据源文件学生基本信息。如下图 选择打开，就将Excel数据源文件和主文档进行了链接。 2、插入文字内容合并域。单击输入姓名的单元格，点击插入合并域，选择学生姓名，就插入了姓名的合并域，然后插入其他文字内容的合并域。 3、最后插入照片域。点击照片框，打开插入选项卡——文档部件——域——选择“includepicture”,在文件名或URL里面输入照片属性的存放地址: D:\\16学籍卡\\hebing\\，注意此处要用双斜杠。如图 点击确定后，照片框中出现如图所示域代码。