⑴ 如何在Word中批量插入图片,分左右两栏,左右各5张,或者图片拼接软件也可以。
三种方案:
一、用分栏工具。顺次插入10张图片,在第五张后面插入分栏符,第10张后面插入分节符。
二、用表格。插入一个2列5行的表格,把图片依次插入到每个单元格中,表格边框设置成“无”,单元个内四个边距设置成0(或按自己喜好设置)。
三、photoshop。打开后算好高和宽,建个新图片,把10张图拽进去调整下大小,保存就可以。
⑵ word如何批量插入图片
word中连续插入多张图片方法:
1、单击插入---->图片,如图所示;
4、在上图中的高度和宽度输入框中输入需要的大小即可。
⑶ 如何实现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文档中的方法如下(以windows10系统的word2016版为例,需要准备大量照片):
1、将宣传册的照片放入一个文件夹中,并将第一张图片命名为1.jpg,第二页命名为2.jpg,依次类推。
⑸ 如何在word中批量插入图片
1、在文档中插入剪贴画的操作是通过执行“插入”→“图片”→“剪贴画”菜单命令实现的。
2、插入图片文件的方法是:执行“插入”→“图片”→“来自文件”菜单命令,在“插入图片”对话框中,找到存放图片的文件夹和相应的图片后,单击“插入”按钮。
3、设置图片格式的方法有两种:一是执行“格式”→“图片”菜单命令,出现“设置图片格式”对话框,进行设置;二是可以使用“图片”工具栏中的设置图片格式按钮。
4、插入艺术字可以通过执行“插入”→“图片”→“艺术字”菜单命令实现。
5、文本框是一种包含文字的图形对象,在文本框中可以输入文本、插入图片。
6、执行“插入”→“文本框”菜单命令,选择“横排”或“竖排”,将鼠标指针移到需要插入文本框的起始点,按住并拖动鼠标到需要的位置,松开鼠标左键,就可在所选的位置插入文本框。然后在文本框中输入文字。
⑹ 如何在word 的表格中批量插入图片
1、例如:把网络经验的LOGO批量插入到表格每一个单元格里。
⑺ 怎么在word中连续插入多张图片,且大小一致
工具:word2013
1、打开word 2013,选择“页面布局”选项卡,并单击“页边距”按钮。
⑻ 如何在word不同单元格中批量插入不同图片
其实这个不是不可仪,虽然没那么灵便,但是可以先作个根本,
插入图片,用连接的,注意图片文件是可以替换的,但是文件名没变,那么这次一批,下次可以直接换一批,然后复制结果出来。
还有可能就是按做网页的方法,文件可以批量放置。
重点可能就是搜集图片名,用网页方式做;用动态网站模式,……
细节别问我,如果是我自己的任务,才可能给找个技巧来,现在只能这么说说