㈠ word怎样批量插入图片
在Word中批量插入图片而不出现任何形式的表格或图片之外的额外元素，可以通过以下步骤实现：
1. **准备图片**：首先，确保所有需要插入的图片都存放在同一个文件夹中，这样便于批量选择。
2. **打开Word文档**：打开或新建一个Word文档，这是将要插入图片的目标文档。
3. **批量插入图片**：
- 点击Word文档上方的“插入”选项卡。
- 在“插入”菜单中选择“图片”选项，并点击“来自文件”或“本地图片”（具体选项可能因Word版本而异）。
- 在弹出的文件选择窗口中，导航到存放图片的文件夹，然后使用Ctrl键或Shift键配合鼠标点击来选择多张图片。选好后，点击“插入”按钮。
- 所有选中的图片将依次插入到Word文档中当前光标所在的位置。
4. **调整图片**：插入后，可以根据需要调整图片的大小、位置或进行其他编辑。但请确保不添加任何表格或额外的图片说明。
通过这种方法，可以高效地将多张图片批量插入到Word文档中，同时保持文档的整洁和专注于图片内容本身。
㈡ word表格怎么批量插图
在资源管理器中按住Ctrl键。
word表格批量插图的方法如下：首先打开word文档，点击“插入”-“图片”-“此设备指凳前”；最后打开资源管理器，按住Ctrl键，依次点击选中图片，点击“插入”，即可把全部的图片插粗悄入到word文档中。
word页面铺满图片可以进入图片工具中的图片格式菜单，点击环绕文字选项，再选择衬于文字下方后通过拖动图片四周的端点将图片铺满唯清页面即可。
㈢ 如何实现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