批量处理word中图片的格式

使用Word进行批量图片插入和调整

使用Word进行批量图片插入和调整Word是一款功能强大的文字处理软件，不仅可以编辑文字、排版文档，还可以方便地插入和调整图片。

本文将介绍如何使用Word进行批量图片插入和调整的方法。

一、批量图片插入在需要插入图片的位置，依次点击“插入”、“图片”按钮，选择要插入的图片文件，在弹出的对话框中点击“插入”按钮即可将图片插入到文档中。

如果需要批量插入多张图片，可以将所有图片文件放置在同一个文件夹中。

然后，按住“Ctrl”键，同时点击需要插入图片的位置，选中插入点。

接下来点击“插入”选项卡上的“对象”按钮，在弹出的对话框中选择“相机”选项。

在弹出的“浏览”对话框中，进入存放图片的文件夹，按住“Shift”键并点击需要插入的多张图片文件，然后点击“插入”按钮，Word将会一次性插入所有选中的图片。

二、批量图片调整插入图片后，我们可以对图片进行调整，以满足文档的需求。

以下是几种常见的批量调整图片的方法。

1. 调整大小：选中要调整的图片，点击鼠标右键，在弹出的菜单中选择“大小和布局”，在弹出的对话框中选择“大小”选项卡，输入所需的宽度和高度数值，并勾选“锁定纵横比”选项，最后点击“确定”。

这样就可以批量调整图片的大小。

2. 裁剪图片：选中要裁剪的图片，点击鼠标右键，在弹出的菜单中选择“裁剪”，然后根据需要拖动图片边框进行裁剪。

裁剪后的图片可以调整大小，以适应文档布局。

3. 图片边框和样式：选中要调整边框和样式的图片，点击鼠标右键，在弹出的菜单中选择“格式形状”，在“格式形状”对话框中，选择“线条颜色”、“线条样式”和“线条宽度”，并可进行调整。

还可以选择“效果”进行图片样式、边框圆角、阴影等的设置。

4. 调整图片位置：选中要调整位置的图片，点击鼠标右键，在弹出的菜单中选择“格式形状”，在“格式形状”对话框中的“布局”选项卡中，可以选择图片的相对位置、文字环绕方式等。

总结：通过上述方法，我们可以轻松地使用Word进行批量图片插入和调整。

将Word文档中所有图片统一修改大小，无论多少张都可以一键搞定！

将Word⽂档中所有图⽚统⼀修改⼤⼩，⽆论多少张都可以⼀键搞定！我们平时在写论⽂，或者给长篇⽂档进⾏排版时，难免会对插⼊的图⽚进⾏格式设置。

⽐如说图⽚的环绕格式、图⽚的尺⼨⼤⼩等。

⽽⽂档⾥⾯的图⽚⼜⾮常多，⼀张张去修改确实很⿇烦。

有什么⽅法可以⼀键修改图⽚的环绕格式、图⽚的尺⼨⼤⼩呢？这个问题也是这⼏天粉丝经常问我的⼀个问题。

下⾯我给⼤家讲解详细的步骤，记得要转发收藏⼀份哦~具体操作步骤如下：第⼀步：在插⼊图⽚之前先将图⽚环绕格式设置为“四周型”或“浮于⽂字上下⽅”。

1、⾸先我们应该知道Word⽂档插⼊的图⽚默认是“嵌⼊型”的，这种格式图⽚不能任意拖动拖动。

2、点击左上⾓“⽂件” -- 点击“选项”。

3、弹出“Word选项”对话框 -- 点击“⾼级”选项卡 -- 在右边找到“剪切、复制和粘贴” -- 将下⽅的“将图⽚复制/粘贴为”选择“四周型” -- 点击“确定”按钮。

4、设置完成之后，我们以后插⼊的图⽚默认就是“四周型”的了，⽽且图⽚可以随意的拖动，看看动图演⽰。

第⼆步：激活“选择多个对象”这个功能按钮。

1、我们都知道在Excel中可以通过对象选择表格中的所有图⽚。

当然Word也可以，你只需激活下图中的“选择多个对象”这个功能按钮即可。

2、点击左上⾓“⽂件” -- 点击“选项”。

3、弹出“Word选项”对话框 -- 点击“⾃定义功能区” -- “从下列位置选择命令”选择“不在功能区中的命令” -- 找到“选择多个对象” -- 点击“添加”按钮添加到“开始”选项卡的“新建组”中 -- 点击“确定”按钮即可。

4、设置完成之后可以看到在“开始”选项卡下多了⼀个“选择多个对象”的功能。

看看动图演⽰。

以上的2步设置完成之后，以后你插⼊的图⽚都是“四周型”格式，⽽且可以⼀次性选中⽂档中的所有图⽚。

第三步：如果你的Word⽂档后缀名是“.docx”，修改为“.doc”。

因为“选择多个对象”是早期的功能，不⽀持“.docx”后缀格式的，只⽀持“.doc”格式的。

800张图片如何一键统一大小？按下Word的这个键，瞬间统一格式

800张图片如何一键统一大小？按下Word的这个键，瞬间统一格式我们在撰写一些篇幅比较长的文章的时候，图文的排版一直都是一大难题，特别是图片多的时候，一张张调整格式那真的是要命，那么在Word中如何才能快速对图片进行排版呢？其实很简单，只要稍微设置一下，我们就可以一键统一所有图片的格式了！无论多少张图片都一键搞定！一、准备工作1、设置图片格式我们将图片插入Word之后就会发现，图片一般都是以【嵌入型】的方式插入的，这样的图片是没办法挪动位置的，那么我们可以点击【文件】——【选项】——【高级】，在下方的【将图片复制/粘贴为】选择【四周型】，这样我们再插入图片就是以四周型插入的，可随意拖动位置~2、选择多个对象接下来我们要激活【选择多个对象】的功能，这样才能一键选择所有图片，点击【文件】——【选项】——【自定义功能区】，在左侧一栏中找到【选择多个对象】的功能，添加到右侧的选项卡中，这样我们回到界面就可以在工具栏中找到这个功能了~3、修改文件后缀名接下来，很重要的一点，如果你的文档时“.docx”格式的话是无法使用【选择多个对象】功能的，你需要将格式另存为“.doc”格式~二、图片设置1、选中所有图片准备工作做好之后，我们就来试试这个功能啦，打开一篇图片很多的文章，然后我们点击【开始】——【选择多个对象】——【全选】——【确定】，就可以一键选中所有图片~2、设置图片格式然后我们右键点击任意一张图片，选择【设置自选图形/图片格式】，根据自己的需要在【大小】——【绝对值】中输入一个数值，这样所有图片的大小就都设置好了~3、效果预览最后我们调整一下图片的位置，即可得到这样的效果~好啦，这就是小编今天要分享的内容啦！如果你有更好的办法的话也可以在评论区分享哦！。

VBA操作WORD（五）批量调整图片大小、居中设置

VBA操作WORD（五）批量调整图⽚⼤⼩、居中设置需求：经常阅读⽹上的研报（没钱买排版漂亮的⾼质量研报），有些需要保存的复制下来到word⾥，图⽚很⼤都超出word的边界了，也没有居中，⼿⼯⼀张张调整不现实，上百页的研报，⼏⼗张图⽚。

解决⽅案：利⽤VBA宏批量解决。

第⼀种⽅法经过测试，只是前⾯部分有些，后⾯部分⽆效。

Sub setpicsize() '设置图⽚尺⼨'第⼀种⽅法，经测试，⽂档前⾯部分图⽚有效，后⾯部分⽆效'Dim n '图⽚个数'On Error Resume Next '忽略错误'For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图⽚'ActiveDocument.InlineShapes(n).Height = 198.45 '设置图⽚⾼度为 7cm'ActiveDocument.InlineShapes(n).Width = 455 '单位是像素，设置图⽚宽度 16cm'Next nEnd Sub第⼆种⽅法，经测试，对整篇⽂档图⽚有效：Sub设置图⽚格式()'1.如果图⽚⾏间距设置为固定值，那么⽆论图⽚设置什么格式，图⽚嵌⼊⽂字会重叠，只显⽰部分图⽚。

'2.如果图⽚超出边界才进⾏处理，设置全⽂图⽚⼤⼩不超过某个规格，超过则等⽐例缩⼩Dim picMaxWidth, picMaxHeight, picWith, picHeight As Long'纸张宽减去左右边距，不⽤再乘以28.35，已经是像素picMaxWidth = (ActiveDocument.PageSetup.PageWidth - ActiveDocument.PageSetup.LeftMargin - ActiveDocument.PageSetup.RightMargin)picMaxHeight = (ActiveDocument.PageSetup.PageHeight - ActiveDocument.PageSetup.TopMargin - ActiveDocument.PageSetup.BottomMargin)Dim oILS As InlineShapeFor Each oILS In ActiveDocument.InlineShapes 'Selection.InlineShapesIf oILS.Type = wdInlineShapePicture ThenoILS.SelectoILS.LockAspectRatio = msoTrue '锁定纵横⽐，防⽌默认没有锁定修改了图⽚变形；不锁定纵横⽐是msoFalseSelection.Range.ShapeRange.LockAspectRatio = msoTrue'MsgBox("图⽚宽度" & oILS.Width) '测试，提⽰图⽚⼤⼩以便判断单位'此处单位是像素。

word里如何批量处理图片的大小_不知道你就out啦(有公式时会把公式也搞坏了)

[手把手]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 ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为5cm （1cm等于28.35px）ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度4cmNext nEnd Sub'其中图片本例中图片尺寸为5cm和4cm4. 4点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮（类似播放器里的播放按钮）或者按键盘“F5”键等待一会儿……（等待时间取决于你插入图片的多少和你电脑的运算速度）……5. 5待标题栏上方的[正在运行]消失后，点击右上角小叉关闭“Microsoft Visual Basic”窗口。

批量设置word 里图片的大小及版式的技巧

批量设置word 里图片的大小及版式的技巧1.批量设置固定大小工具-宏-新建Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 70 '设置图片高度为70px ActiveDocument.Shapes(n).Width = 80 '设置图片宽度80pxNext nEnd Sub运行即可2.批量按比率缩小或放大新建宏Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍Next nEnd Sub3批量将图片转成嵌入型新建宏Sub 图片转嵌入型()Dim apic As ShapeApplication.ScreenUpdating = FalseFor Each apic In ActiveDocument.Shapesapic.ConvertToInlineShape '转换为嵌入型NextApplication.ScreenUpdating = TrueSelection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend With Selection.ParagraphFormat.LeftIndent = MillimetersToPoints(0).RightIndent = MillimetersToPoints(0).SpaceBefore = 6.SpaceBeforeAuto = False.SpaceAfter = 6.SpaceAfterAuto = False.LineSpacingRule = wdLineSpaceSingle.Alignment = wdAlignParagraphCenter.WidowControl = False.KeepWithNext = False.KeepTogether = False.PageBreakBefore = False.NoLineNumber = False.Hyphenation = True.FirstLineIndent = MillimetersToPoints(0).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 0.LineUnitBefore = 0.LineUnitAfter = 0.AutoAdjustRightIndent = True.DisableLineHeightGrid = False.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False.AddSpaceBetweenFarEastAndAlpha = True.AddSpaceBetweenFarEastAndDigit = True.BaseLineAlignment = wdBaselineAlignAuto End WithEnd Sub4.批量将图片转四周型新建宏Sub 图片版式转换四周型()Dim apic As Variant, shapeType As WdWrapTypeOn Error Resume NextFor Each apic In ActiveDocument.InlineShapesapic.ConvertToShapeWith oShapeoShape.WrapFormat.Type = 0 '四周型oShape.WrapFormat.AllowOverlap = False '不允许重叠End WithNextEnd Sub。

Word文档批量把所有图片调整为相同大小，这个方法简单又实用

Word文档批量把所有图片调整为相同大小，这个方法简单又
实用
在我们的工作中，编辑Word文档的时候，如何将插入的图片，批量调整为相同的大小、相同的尺寸呢？如果你一个个修改这些图片，那就太浪费时间了，今天就跟大家分享一个简单又实用的方法。

1.首先打开Word文档，点击【文件】-【选项】-【高级】，找到“将图片插入/粘贴为”，选择【四周型】。

（PS：图片要求为非嵌入式的任何一种环绕方式都可以）
2.然后再次点击【文件】-【选项】-【自定义功能区】，先选择【所有命令】，再找到【选择多个对象】，选中后点击【添加】到右边的自定义功能区。

3.接着需要将Word格式另存为Doc，在键盘上按下功能键【F12】另存为，保存类型改为：“Word97-2003文档*.doc”。

4.最后我们就可以一键批量修改图片大小了，在Word文档里插入大量图片，点击【选择多个对象】快捷按钮，右键图片【设置自选图形/图片格式】，修改图片高度、宽度，点击【确定】，图片尺寸瞬间统一。

这个方法是不是比一张张修改得快多了？如果你的图片不是用于Word文档，也需要修改图片尺寸，可以借助【迅捷图片转换器】。

•在批量处理中找到「批量剪裁」功能；
•一次性最多支持批量修改50张图片；
•有固定的比例可以选择也可以自定义。

当图片体积太大，还可以进行批量「图片压缩」，添加图片后设置压缩模式、清晰度、分辨率、输出格式，以及压缩后的图片大小。

以上就是把所有图片调整为相同大小的方法，简单又实用，希望可以在工作中帮到你。

Word怎样批量修改图片大小、位置？有比这5个方法更全的么？

Word怎样批量修改图⽚⼤⼩、位置？有⽐这5个⽅法更全的么？Word批量修改图⽚⼤⼩、位置，5个⽅法集合召唤神龙！⼀、Word批量修改图⽚位置（⼀）替换功能Word替换功能很强⼤，不仅可以批量替换⽂本、修改⽂本格式，还可以批量修改图⽚位置~Ctrl+H替换——查找内容：光标定位，左下⾓点击【更多】，底部点击【特殊格式】，选择【图形】（根据原⽂对段落格式进⾏相应设置）。

或者直接输⼊^g替换为：左下⾓点击【更多】，左下⾓点击【格式】，选择【段落】——【缩进和间距】⾃定义设置，右下⽅点击确定——点击【全部替换】。

（⼆）借助表格借助表格可以让图⽚固定位置~1、插⼊表格点击【插⼊ - 表格】，根据所需插⼊图⽚数量、排布情况选择⾏、列。

2、设置⾏⾼、单元格边距选中表格右键，选择【表格属性】——点击【⾏】选项卡，【尺⼨】勾选【指定⾼度】，设置图⽚⾼度——点击【确定】。

右键，选择【表格属性】——点击【单元格】选项卡，右下⽅点击【选项】，⾃定义单元格边距——点击【确定】。

3、导⼊图⽚（三）选择多个对象这个⽅法貌似⽐较⾼级⼀点？~1、添加功能点击【⽂件 - 选项 - ⾃定义功能区】，点击【从下列位置选择命令】选择【所有命令】，下⽅找到并点击【选择多个对象】，右侧【主选项卡】下边点击【新建组】，最后点击中间的【添加】按钮。

点击【⽂件 - 选项 - ⾼级】——【剪切、复制和粘贴- 将图⽚插⼊/粘贴为】，设置环绕⽅式。

⽂件后缀格式【.docx】改为【.doc】。

4、图⽚格式【开始】功能区最后⼀项【选择多个对象】——弹窗左下⾓点击【全选】——右键设置图⽚格式。

⼆、Word批量修改图⽚⼤⼩、位置万能的F4重复键~⽅法：双击第⼀张图⽚，修改⼤⼩或位置作为样本——分别选中其它图⽚按F4键。

三、批处理插件批量修改图⽚⼤⼩遇到需要批量修改图⽚⼤⼩，可以⽤⼀个插件~【美图秀秀批处理】，再多图⽚⼀键搞定~⽅法：左侧点击【添加图⽚】——右下⾓设置修改图的保存【路径】——右上⽅设置【修改尺⼨（保持原图⽐例）】，点击【更多】调整【画质】——右下⾓点击【保存】。

完整版Word中的图片批量统一大小及同比例缩放

Word宏：Word中的图片批量统一大小及同比例缩放（图）有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。

下面的方法就是告诉我们如何来实现很多的图片统一大小。

实现代码：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next'忽略错误For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300'设置图片宽度300pxNext nFor n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400pxActiveDocument.Shapes(n).Width = 300'设置图片宽度300pxNext nEnd Sub[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]使用方法和[Word宏:Word中英文标点符号互换-VBA源码实现（图）] 中介绍的一样，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”命令。

操作步骤如下：1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal编辑器。

）插入normal工程“模块”2。

3）在“模块”中粘贴上面的代码。

”尭宏命令文档。

运行“工具”-“宏Word4）保存，返回你要统一图片大小的看一下结果，是不是你想要的统一图片大小。

我用的两张图一个大一个小，统一后400*300还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。

Word中相片批处理

后点击“插入”。
此时，Word会自动将文件夹中的所有图片导入到文档中。
从桌面导入
在“插入”选项卡中，选择 “图片”>“来自文件”。
打开Word文档，点击“插入 ”选项卡。
02
01
03
在弹出的“插入图片”对话框中，选择“桌面”，然后
点击“浏览”。
在弹出的“浏览”对话框中，选择要导入的图片文件，
word中相片批处理
目录
• 批量导入图片 • 图片格式调整 • 图片布局设置 • 图片效果设置 • 图片批量处理
01
批量导入图片
从文件夹导入
01
02
03
04
打开Word文档，点击“插入 ”选项卡。
在“插入”选项卡中，选择“ 图片”>“来自文件”。
在弹出的“插入图片”对话框中，选择要导入的文件夹，然
翻转图片
除了旋转，你还可以翻转图片。只需在“旋转”下拉菜单中选择“水平翻转” 或“垂直翻转”即可。
裁剪图片
裁剪形状
在Word中，你可以通过点击图片，然后选择“格式”菜单，再选择“裁剪”选项来裁剪图片。在弹出的对话框中，你可以选择预设的形状（如圆形、三角形等）或自定义裁剪区域。
裁剪区域
如果你想自定义裁剪区域，只需在对话框中拖动裁剪框的四边和四个角即可。完成后，点击“完成裁剪”按钮即可。
04
图片效果设置
颜色效果
01
02
03
颜色平衡
通过调整亮度和对比度，使图片颜色更加自然或达到特定的视觉效果。
饱和度
控制图片颜色的鲜艳程度，增强或降低图片的色彩强度。
色调
调整图片的整体色调，如将图片偏向暖色或冷色。

如何快捷把文档图片调成统一格式？

要快捷地将文档中的图片调整成统一的格式，你可以使用以下方法：
1. 批量转换工具：使用批量转换工具可以轻松将文档中的多个图片一次性转换为统一的格式。

这些工具可以自动处理多个图片文件，修改它们的格式、大小和质量等参数。

例如，你可以使用专业的图片处理软件，如Adobe Photoshop或GIMP，或者在线工具，如Zamzar或Online-convert，将图片批量转换为统一的格式。

2. 宏或脚本：如果你熟悉使用宏或脚本编程，可以编写一个自动化脚本来处理文档中的图片。

通过定义一组指令和参数，你可以批量修改每个图片的格式并应用统一的设置。

3. 文档编辑软件：有些文档编辑软件（如Microsoft Word或Adobe Acrobat）也提供了图片编辑和格式转换的功能。

你可以选择其中的一个工具来调整所有的图片，使它们符合统一的格式要求。

无论使用哪种方法，都建议在操作前备份原始文档和图片，以防止意外损失。

批量处理word中图片

批量处理word中图片主要实现功能是：自动打开一个硬盘，读者自己选择自己要插入的多张图片（量越大越有效果），在代码中修改好每张图片的大小，程序会将每张图片处理为相同大小，同时还可以将图片名字显现在每张图片的下方。

操作步骤：第一步，新建一个word文档；第二步，按ALT+F11键，打开VBA（此界面就是用来编写代码）；第三步，找到你要处理的word文档，单击右键——插入——模块，将命令复制粘帖到对话框中，单击运行即可；具体操作如下：方法一、批量处理图片大小代码如下：（只需要修改宽度和高度）Sub FormatPics()Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapesIf iSha.Type = wdInlineShapePicture TheniSha.LockAspectRatio = msoFalse '不锁定纵横比iSha.Width = CentimetersToPoints(24.66) '宽5CMiSha.Height = CentimetersToPoints(13.7) '高5CMEnd IfNextEnd Sub方法二、批量处理图片大小（自动为图片命名）代码如下：Sub InsertPic()Dim myfile As FileDialogSet myfile = Application.FileDialog(msoFileDialogFilePicker)With myfile.InitialFileName = "I:\"If .Show = -1 ThenFor Each fn In .SelectedItemsSet mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)mypic.LockAspectRatio = msoFalse '不锁定纵横比mypic.Width = CentimetersToPoints(24.66) '宽5CMmypic.Height = CentimetersToPoints(13.7) '高5CMIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfSelection.Text = Basename(fn) '函数取得文件名Selection.EndKeyIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfNext fnElseEnd IfEnd WithSet myfile = NothingEnd SubFunction Basename(FullPath) '取得文件名Dim x, yDim tmpstringtmpstring = FullPathx = Len(FullPath)For y = x To 1 Step -1If Mid(FullPath, y, 1) = "\" Or _Mid(FullPath, y, 1) = ":" Or _Mid(FullPath, y, 1) = "/" Thentmpstring = Mid(FullPath, y + 1)Exit ForEnd IfNextBasename = Left(tmpstring, Len(tmpstring) - 4)End Function效果缩略图（可以一页一张，也可以一页多张，可以横放也可以竖排，取决于读者的需要）。

word批量修改图片大小格式方框

1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!宏名起好了,单击“创建”进入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 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub这样就可以了!2.按alt+F11。

然后在project右键插入模块,然后粘贴Sub Macro()Mywidth = 4.13Myheigth = 5.69For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub再按F5,就行了。

【Mywidth = 4.13Myheigth = 5.69这里的数字你自己改大小】设定的高度是5.48cmSub Macro()Mywidth = 4.13Myheigth = 5.48For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub批量改word文件中图大小word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!宏名起好了,单击“创建”进入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 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub注:px 是像素 1厘米为25px,可以自行按照自己的实际情况修改代码中像素大小3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放!具体操作同上,只是代码部分稍做修改,代码如下:Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd SubWORD中如何:1、批量插入图片;2、批量修改图片大小;3、使图片在WORD中的位置相同。

（完整word版）用宏批量调整word中图片版式、大小、方向

（完整word版）用宏批量调整word中图片版式、大小、方向Sub 图片对齐() (1)Sub 图片大小() (1)Sub 浮于文字上方() ................................................................................................... 错误!未定义书签。

Sub 浮于文字上方() . (4)Sub 连续() (4)Sub 版式转换() (4)Sub 图片方向() (5)Sub 图片对齐()Application.ScreenUpdating = False '关闭屏幕更新Dim nOn Error Resume NextFor n = 1 To ActiveDocument.Shapes.CountActiveDocument.Shapes(n).SelectSelection.ShapeRange.RelativeHorizontalPosition = _wdRelativeHorizontalPositionMarginSelection.ShapeRange.RelativeVerticalPosition = _wdRelativeVerticalPositionMarginSelection.ShapeRange.Left = wdShapeRightSelection.ShapeRange.Top = wdShapeBottomSelection.ShapeRange.LockAnchor = False/doc/6c8516769.html,youtInCell = TrueSelection.ShapeRange.WrapFormat.AllowOverlap = FalseSelection.ShapeRange.WrapFormat.Side = wdWrapBothNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 图片大小()On Error Resume NextDim mywidthDim myheightApplication.ScreenUpdating = False '关闭屏幕更新mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35'------------------------------------------------------------------'调整嵌入式图形Dim pic As InlineShapeFor Each pic In ActiveDocument.InlineShapesIf mywidth = "0" Thenpic.Height = myheightpic.ScaleWidth = pic.ScaleHeightElseIf myheight = "0" Thenpic.Width = mywidthpic.ScaleHeight = pic.ScaleWidthElsepic.Width = mywidthpic.Height = myheightEnd IfNext'调整浮动式图形Dim tu As ShapeIf mywidth = "0" Thentu.Height = myheightElseIf myheight = "0" Thentu.Width = mywidthElsetu.LockAspectRatio = msoFalsetu.Width = mywidthtu.Height = myheightEnd IfNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 浮于文字上方()Dim oShape As Variant, tu As Shape, iApplication.ScreenUpdating = False '关闭屏幕更新On Error Resume Next'调整嵌入图形为浮于文字上方，并旋转90度For Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertT oShapeActiveDocument.InlineShapes(i).SelectWith oShape.WrapFormat.Type = 3' (去除.Zorder行.WrapFormat.Type = shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOrder 4 '4浮于文字上方5衬于下方.Rotation = -90#End WithNext'调整其它图形为浮于文字上方，并旋转90度ActiveDocument.Shapes(i).SelectWith tu.WrapFormat.Type = 3' (去除.Zorder行.WrapFormat.Type = shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOrder 4 '4浮于文字上方5衬于下方.Rotation = -90#End WithNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 浮于文字上方()Dim oShape As Variant, iApplication.ScreenUpdating = False '关闭屏幕更新On Error Resume NextFor Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertT oShapeActiveDocument.InlineShapes(i).Select '选中图片With oShape.ZOrder 4 '选中图片版式调为浮于文字上方.Rotation = -90# '选中图片向左旋转90度End WithNextApplication.ScreenUpdating = True '关闭屏幕更新End SubSub 连续()Call 浮于文字上方Call 图片大小Call 图片对齐End SubSub 版式转换()Dim oShape As Variant, shapeType As WdWrapTypeOn Error Resume NextIf MsgBox("Y将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式", 68) = 6 Then shapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _"3=衬于文字下方,4=浮于文字上方", Default:=0)) For Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertT oShapeWith oShapeSelect Case shapeTypeCase 0, 1.WrapFormat.Type = shapeTypeCase 3.WrapFormat.Type = 3.ZOrder 5Case 4.WrapFormat.Type = 3.ZOrder 4Case ElseExit SubEnd Select.WrapFormat.AllowOverlap = FalseEnd WithNextElseFor Each oShape In ActiveDocument.ShapesoShape.ConvertToInlineShapeNextEnd IfEnd SubSub 图片方向()Dim nOn Error Resume NextFor n = 1 To ActiveDocument.Shapes.Count ActiveDocument.Shapes(n).IncrementRotation -90# Next nEnd Sub。

word中批量修改图片大小的两个方法.doc

word中批量修改图片大小的两个方法对于把ppt的内容拷贝到word中：对ppt的一页进行复制，然后粘贴到word中如果要的是ppt运行过程中的内容，在qq运行的情况下，按Ctrl+Alt+A 截屏，按勾，然后可以直接粘贴到word中(生成的图片已经在剪贴板中了)1.图片只需要符合文档大小即可方法：插入图片，word自动处理图片大小。

看一下下方的文件名按Ctrl+A(全选)，图片的顺序按照电脑文件的顺序排列的每一次按Ctrl+点击图片，被点击的图片放在首位效果：2.图片需要修改为具体的大小把图片复制，直接在word中粘贴，图片以原始大小显示按视图按宏，查看宏，输入setpicsize，按创建复制并粘贴以下程序并按调试+编译，看看程序有没有错误Sub setpicsize()Dim iDim Height, WeightHeight = 300Weight = 200On Error Resume Next 忽略错误For i = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片ActiveDocument.InlineShapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.InlineShapes(i).Width = Weight 设置图片宽度Weight_pxNext iFor i = 1 To ActiveDocument.Shapes.Count Shapes类型图片ActiveDocument.Shapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.Shapes(i).Width = Weight 设置图片宽度Weight_px Next iEnd Sub如果没有错误，保存(Ctrl+S)并退出(Alt+F4)然后按宏，查看宏，选择名字为setpicsize的宏，并按运行，稍等片刻即可完成或者直接在代码页面按运行+运行子过程(F5)效果：程序二修改第x张图片到第y张图片的大小(可以分成很多段)Sub ModifyPhoto1()Dim i, x, yDim Height, WeightHeight = 80Weight = 100修改第x张图片到第y张图片的大小x = 4y = 13On Error Resume Next 忽略错误For i = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片If i >= x And i ActiveDocument.InlineShapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.InlineShapes(i).Width = Weight 设置图片宽度Weight_pxEnd IfNext iFor i = 1 To ActiveDocument.Shapes.Count Shapes类型图片If i > k ThenActiveDocument.Shapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.Shapes(i).Width = Weight 设置图片宽度Weight_pxEnd IfNext iEnd Sub效果：。

word设置图片格式的方法

word设置图片格式的方法
在使用word的时候会需要用到设置图片格式的技巧，设置图片格式技巧可以让图片更好的融入到文档中，如果不懂得如何使用设置图片格式技巧的朋友不妨一起来研究学习一番，下面是由店铺分享的word设置图片格式的方法，以供大家阅读和学习。

word设置图片格式的方法：
设置图片格式步骤1：打开一片需要插入图片的word文档，点击插入菜单，找到图片工具，去选择要插入的图片。

设置图片格式步骤2：插入后是嵌入文本中的，这样的格式一般不需要，我想把我这张图片放在文字上面。

这时我先选中图片，上方出现图片格式编辑，点位置，这时会出现几种方式供选择，把鼠标放在上面会有预览。

设置图片格式步骤3：这时我选择其他布局选项，弹出对话框，选择文字环绕，然后选择浮于文字上方。

然后拖动图片到想要的位置。

设置图片格式步骤4：还有一种方法就是选中图片后，点击右键后，直接选择图片大小和位置，在对话框中选择文字环绕。

设置图片格式步骤5：注意，我的图片是透明的背景，所以没有遮盖，如果为白色的背景的图片，会遮盖下面的文字。