word批量插入图片

① 如何在WORD一次插入多张图片且图片顺序不变

打开word文档后缩小窗口，再打开图片文件夹，选中多个图片，然后鼠标放第一个图片上，将多个图片拖动到WORD窗口中。这样就能在WORD一次插入多张图片且图片顺序不变。具体操作请参照以下步骤。

1、在电脑上打开一个word文档，在界面右上角点击“向下还原”按钮缩小word窗口大小。

② 如何在word不同单元格中批量插入不同图片

其实这个不是不可仪，虽然没那么灵便，但是可以先作个根本，
插入图片，用连接的，注意图片文件是可以替换的，但是文件名没变，那么这次一批，下次可以直接换一批，然后复制结果出来。
还有可能就是按做网页的方法，文件可以批量放置。
重点可能就是搜集图片名，用网页方式做；用动态网站模式，……
细节别问我，如果是我自己的任务，才可能给找个技巧来，现在只能这么说说

③ Word批量完成图片插入及文字编辑

如果你使用word2003版的就有办法解决，方法如下【先看最后一条】：
1、新建word文档一个
2、选中所有图片，用鼠标拖拽第一张图片并保持拖拽状态，按alt+tab组合键切换到word文档，鼠标拖拽到正文部分，放开鼠标左键，即可将所有图片一次性插入word文档中；
3、ctrl+h调出替换对话框，查找内容输入：(^g)
替换为输入：\1^t^p
高级或更多选择“使用通配符”，点击全部替换
4、ctrl+a选中全文，点击“表格”→“插入”→“表格”即可将所有图片放到一个两列的表格的第一列中，然后在第一个第一个中输入你的文字。
5、文字输入完成后按住shift键的同时按方向键的→键选中该单元格，ctrl+c复制
6、鼠标放到第一行第二列上边线上一点点，鼠标变成向下的黑箭头时点击鼠标左键，ctrl+v粘贴即可
【7、图片大小的调整，你可以先用ps软件的批处理功能将图片提前处理到符合你要求的尺寸，然后再用上述方法操作】

④ 怎样往word文件上批量添加图片（要每页一张的）

您可以点击插入菜单-图片-来自文件（将您要批量插入的图片放入一个文件夹，用鼠标点击
第一张
图片按住shift再点击最后一张图片，松开shift点击插入即可）如果您的图片统一大小相同，在文件菜单找到页面设置调整页面大小就可以实现每页一张的添加效果！

⑤ 如何实现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一页中快速插入多张图片并设置同样大小

1、打开word文档，点击工具栏中的“插入”并选择“图片”按钮。

⑦ 怎么在word中连续插入多张图片,且大小一致

工具：word2013

1、打开word 2013，选择“页面布局”选项卡，并单击“页边距”按钮。

⑧ word如何批量插入图片

word中连续插入多张图片方法：

1、单击插入---->图片，如图所示；

4、在上图中的高度和宽度输入框中输入需要的大小即可。