macword批量插入图片带文件名

『壹』 如何将图片批量导入word中并附加文件名

选择插入图片，选择多张图片，确定就可以了
不过文件名没法导入

『贰』 word文档中每一张图片都带有名字,怎么批量带名称导出图片

以WPS2019版本为例：

打开文档，找到任意一张图片，单复击选中该图回片，鼠标右键单答击【提取图片】，

目前不支持批量修改名称的功能，您需要修改名称的，可以导出图片后，找到该文度件夹中，对每个图片进行编辑文件名，即可、

『叁』 关于图片批量导入word中并在图片上方附加文件名的VBA代码编辑

Sub 批量插入图片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "E:\工作文件" ‘这里输入你要插入图片的目标文件夹
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '这两句移到这里
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例调整相片尺寸
WidthNum = MyPic.Width
c = 6 '在此处修改相片宽,单位厘米
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
执行此代码后，弹出的选择对话框， 全选目标文件夹下的所有图片文件之后，点击确定。然后静静的等待电脑完成处理工作，次数word会进入无响应状态。图片越多，无响应的时间越长。

『肆』 word文档如何批量插入图片

您好，方法
1、首先我们打开word文档，现在文档中是空白的，没有文字也没有图片。
2、我们在上方点击【插入】-【图片】选择【本地图片】。
3、我们在图片文件夹里，把所有的图片一起选中，点击【打开】。
4、发现插入进行来的图片大小一样，
5、我们拖动图片边上的四个点，即可调整图片大小，
6、因为图片的高度问题，这里一页纸上默认显示两张图片。把所有的图片宽度调整成一样的大小就完成了。

『伍』 word批量导入图片和图片名，并生成多列表格，怎么操作

一、批量导入图片：创建表格1、点击插入——表格——选择两列一行即可

2、全选表格后右键设置属性——点击选项——取消自动重调尺寸以适应内容——点击确定3、将鼠标放在第一个单元格内——点击插入——图片——按住ctrl+a全选图片——插入4、看一下效果，图片是不是都在一列了，而且大小也相同了，选择右侧空白列——右键删除列5、最重要的一步就是选中表格所有内容，按CTLR+H调出查找替换窗口在查找内容中输入(?)

替换内容中输入1^p

选中搜索选项中的使用通配符全部替换

2、将鼠标放在新建的题注"图1"后按 alt+f9 键显示域代码—— 按CTRL+H调出查找替换窗口

查找内容为：^g

替换内容为：^&^p^c

选择全部替换完成后删除一个多余的域代码

注意：前面已经做过查找替换的操作，别忘记通配符要去掉勾选！

3、按Ctrl+A全选整篇文档后按Alt+F9更新域代码，图片下的编号已全部添加完成（全部显示为图1），再按一次F9刷新后所有编号自动更新

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里并附上该图的名称

Sub 选择重命名文件夹()

Application.ScreenUpdating = False

With Application.FileDialog(msoFileDialogFolderPicker) '运行后出现标准的选择文件夹对话框

If .Show Then myPath = .SelectedItems(1) Else Exit Sub '如选中则返回=-1 / 取消未选则返回=0

End With

If Right(myPath, 1) <> "" Then myPath = myPath & ""

'返回的是选中目标文件夹的绝对路径,但除了本地C 盘、D 盘会以"C:"形式返回外，其余路

径无""需要自己添加

Getfd (myPath)

Application.ScreenUpdating = True

End Sub

Sub Getfd(ByVal pth)

On Error Resume Next

Dim strPath As String

'插入两行

Columns("A:B").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

'设置B 行内容

Range("B1") = "目标名称"

Range("B2").Select

ActiveCell.FormulaR1C1 = "=RC[1]&"" ""&RC[2]&"".JPG""" '设置B 行内容为目标名称

Range("B2").Select

m = Range("C65536").End(xlUp).Row

Selection.AutoFill Destination:=Range("B2:B" & m) '填充B 行

'设置A 行内容为所选文件下所有图谱名称

Range("A1") = "原名称"

strPath = pth & "\"

f = Dir(strPath & "*.jpg")

k = 1

Do While f <> ""

k = k + 1

Range("A" & k) = f

f = Dir

Loop

'调整AB 列宽

Cells.Select

Cells.EntireColumn.AutoFit '调整AB 列宽

'重命名

a = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 3 'A 列最后可见单元的行号

For b = 2 To a

c = Range("a" & b).Value

cc = Range("b" & b).Value

Name strPath & c As strPath & cc '重命名

Next

MsgBox ("重命名完成")

End Sub

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

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

『玖』 怎样在WORD中批量插入图片

方法一：
1、单击插入---->图片，如图所示；
2、在弹出“插入图片”对话框中选择存放图片的位置，此时按住
ctrl
键，你就可以用鼠标选择多张图片了；或者你也可以按 shift
键，然后单击选中一张图片，再单击另一张图片，则自动选中了这两张图片为对角线的矩形范围内的所有图片；或者直接按快捷键 ctrl+a
全选，全部选中。最后“插入”即可，如图所示。
方法二：
1、打开存放图片的位置，然后选中你的插入的全部图片；
2、在按下鼠标右键，选择“复制”；
3、word文档中，按下鼠标再按下右键，选择“粘贴”，即可快速想插入的多个图片。