‘壹’ 怎么在word中连续插入多张图片,且大小一致
工具:word2013
1、打开word 2013,选择“页面布局”选项卡,并单击“页边距”按钮。
‘贰’ 如何实现Word 中批量插入图片
Sub批量添加图片()
'程序功能:批量添加图片宏
'作者Q:766110727
'日期:2017.06.07
'使用步骤1:word中ALT+11进入VBA宏界面;
'使用步骤2:将本段代码从sub到endsub,全部粘到代码框最后的空白处;
'使用步骤3:按F5执行代码。
'说明:代码按最直观的逻辑写的,也方便大家使用修改。
'OnErrorResumeNext
Dimn,图片路径1(),图片路径2(),图片路径3(),图片路径4(),图片数量最大值
DimmyTableAsTable
'###################################################################
'#######第一部分:获取每个文件夹下所有jpg图片名,写入相应数组#######
'###################################################################
n=0
图1=Dir("I: tjbt插入图片图片*.jpg")
DoWhile图1<>""
n=n+1
ReDimPreserve图片路径1(1Ton)
图片路径1(n)="I: tjbt插入图片图片"&图1
图1=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
n=0
图2=Dir("I: tjbt插入图片图片2*.jpg")
DoWhile图2<>""
n=n+1
ReDimPreserve图片路径2(1Ton)
图片路径2(n)="I: tjbt插入图片图片2"&图2
图2=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
n=0
图3=Dir("I: tjbt插入图片图片3*.jpg")
DoWhile图3<>""
n=n+1
ReDimPreserve图片路径3(1Ton)
图片路径3(n)="I: tjbt插入图片图片3"&图3
图3=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
n=0
图4=Dir("I: tjbt插入图片图片4*.jpg")
DoWhile图4<>""
n=n+1
ReDimPreserve图片路径4(1Ton)
图片路径4(n)="I: tjbt插入图片图片4"&图4
图4=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
'###################################################################
'##################第二部分:插入图片到word表格中###################
'###################################################################
'新建一个一行两列表格
SetmyTable=ActiveDocument.Tables.Add(Range:=ActiveDocument.Range(Start:=0,End:=0),NumRows:=1,NumColumns:=2)
'设定后续操作的目标表格为文档的第一个表格
SetmyTable=ActiveDocument.Tables(1)
n=0
DoWhilen<图片数量最大值
n=n+1
之前表格行数=myTable.Rows.Count
myTable.Rows.Last.Select
Selection.InsertRowsBelow4'下方插入4行
'第一行两列,图片序号12
myTable.Cell(Row:=之前表格行数+1,Column:=1).Range.InsertAfterText:="图片1"
myTable.Cell(Row:=之前表格行数+1,Column:=2).Range.InsertAfterText:="图片2"
myTable.Cell(Row:=之前表格行数+3,Column:=1).Range.InsertAfterText:="图片3"
myTable.Cell(Row:=之前表格行数+3,Column:=2).Range.InsertAfterText:="图片4"
'第二行两列,插入图片并设置图片大小
myTable.Cell(Row:=之前表格行数+2,Column:=1).Range.InlineShapes.AddPictureFileName:=_
图片路径1(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行数+2,Column:=2).Range.InlineShapes.AddPictureFileName:=_
图片路径2(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行数+4,Column:=1).Range.InlineShapes.AddPictureFileName:=_
图片路径3(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行数+4,Column:=2).Range.InlineShapes.AddPictureFileName:=_
图片路径4(n),LinkToFile:=False,SaveWithDocument:=True
Loop
ActiveDocument.Tables(1).Rows(1).Delete'刚开始建的表格中第一行是空行,删掉
'###################################################################
'######################第三部分:图片格式处理#######################
'###################################################################
'统一设置图片长宽,美化文档。这里会卡好久时间,按需要是否添加本段代码
Forn=1ToActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height=210'设置高度
ActiveDocument.InlineShapes(n).Width=110'设置宽度
Nextn
EndSub
‘叁’ 如何在WORD一次插入多张图片且图片顺序不变
打开word文档后缩小窗口,再打开图片文件夹,选中多个图片,然后鼠标放第一个图片上,将多个图片拖动到WORD窗口中。这样就能在WORD一次插入多张图片且图片顺序不变。具体操作请参照以下步骤。
1、在电脑上打开一个word文档,在界面右上角点击“向下还原”按钮缩小word窗口大小。
‘肆’ 什么软件可以在word中批量插图
三种方案(以插入10张图片为例):
一、用分栏工具。顺次插入10张图片,在第五张后面插入分栏符,第10张后面插入分节符。
二、用表格。插入一个2列5行的表格,把图片依次插入到每个单元格中,表格边框设置成“无”,单元个内四个边距设置成0(或按自己喜好设置)。
三、photoshop。打开后算好高和宽,建个新图片,把10张图拽进去调整下大小,保存就可以。
‘伍’ 如何在word一页中快速插入多张图片并设置同样大小
1、打开word文档,点击工具栏中的“插入”并选择“图片”按钮。
‘陆’ 怎样批量插入图片,在word中,8张图片1页
既然图片都是一样大小,你试着先把图片批量改成适合排版的页面,然后一次性插入图片试一下。
‘柒’ word文档如何批量插入图片
您好,方法
1、首先我们打开word文档,现在文档中是空白的,没有文字也没有图片。
2、我们在上方点击【插入】-【图片】选择【本地图片】。
3、我们在图片文件夹里,把所有的图片一起选中,点击【打开】。
4、发现插入进行来的图片大小一样,
5、我们拖动图片边上的四个点,即可调整图片大小,
6、因为图片的高度问题,这里一页纸上默认显示两张图片。把所有的图片宽度调整成一样的大小就完成了。
‘捌’ 怎样往word文件上批量添加图片(要每页一张的)
您可以点击插入菜单-图片-来自文件(将您要批量插入的图片放入一个文件夹,用鼠标点击
第一张
图片按住shift再点击最后一张图片,松开shift点击插入即可)如果您的图片统一大小相同,在文件菜单找到页面设置调整页面大小就可以实现每页一张的添加效果!
‘玖’ 如何在word里面排版9个健康码图
操作步骤如下:
1、打开Word文档,点击工具栏的“插入”选择“形状”中的方形图形。
2、在页面拖动鼠标,画出一个合适的方形图案。
3、复制画好的方形图案,排版成为一行三个,一共三行的格式,组成九个相同的图形。
4、选择一个图形,点击“形状填充”中的“图片”。
5、将需要排版的图片插入进文档的图形中。
6、按照同样的方法,即可将九张图片放入排版好的图形中。
‘拾’ word如何批量插入图片
方法一:
1、单击插入---->图片,如图所示;
方法二:
1、打开存放图片的位置,然后选中你的插入的全部图片;
2、在按下鼠标右键,选择“复制”;
3、Word文档中,按下鼠标再按下右键,选择“粘贴”,即可快速想插入的多个图片。