图片文件名批量导入word

‘壹’ 如何把大量照片快速全部导入到word文档中

如何将图片批量导入word中并附加文件名？其实只要活用word的“宏”这一功能就好了，下面为大家详细讲解。
新建一个空白的word文档。
工具——》宏——》vb编辑器——》打开this document ——》把下面代码粘入编辑窗口——》保存
打开这个word文档——》工具——》宏——》执行
下面的不用我说了，最后记得通配符批量替换照片就可以一行显示多张了。

Sub InsertPic()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "F:\"
If .Show = -1 Then
For Each fn In .SelectedItems
Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
'按比例调整相片尺寸
WidthNum = mypic.Width
c = 10 '在此处修改相片宽,单位厘米
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
Selection.Text = Basename(fn) '函数取得文件名
Selection.EndKey
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中

可以在WORD中批量插入图片即可。

‘叁’ 关于图片批量导入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

摘要 一、新建一个word文档，选择要复制的多个文件名，通过右键拉到word文档中，选“在此创建超级链接”；

‘伍’ 如何将图片批量导入word中并附加文件名

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

‘陆’ 如何把图片批量导入word文档用手机

将大量照片按照顺序一次性导入word文档中的方法如下（以windows10系统的word2016版为例，需要准备大量照片）：；1、将宣传册的照片放入一个文件夹中，并将第一张图片命名为1.jpg，第二页命名为2.jpg，依次类推。；2、打开word文档，点击界面上方的“插入”按钮。；3、在随后弹出的页面中点击“图片”按钮。；4、在接着自动弹出的界面中点击“插入”按钮即可。
首先审题，题主的需求是将WORD的图片一次性的、大量的、修改为同一尺寸。

我有两个方法，一个简便，一个批量。

一、简便方式——适用于10张以内的批量修改

首先打开预先准备了三张美图文档，哈哈

然后对其中一张图片点选右键，在弹出的菜单中点选“大小和位置”

弹出一个对话框，为了统一修改尺寸，我们去掉“锁定纵横比”前面的勾，然后在“高度和宽度”里输入需要的数值

这是第一张图片修改好了，然后用鼠标点选第二张图片（不能框选，只能点选），按F4键（重复上一次命令的快捷键），以此类推，重复点选，F4，就能把这几张照片统一修改了。

二、批量修改——适合大批量修改

有人会问，上面那个点点点的方法，还是麻烦，我要是有1000张图片怎么办？

别急，再来教大家一个批量修改方法。

首先依旧是打开三张美图文档，我们开始演示

然后点开“文件菜单”，就在wore窗口的左上角，在下拉列表中选择“选项”

在选项窗口，选择“级—将图片插入/黏贴为—四周型”

再在选项窗口，选择“快速访问工具栏—所有命令—选择多个对象—添加”

这个时候先不急，我们先将文档另存为，“保存类型选择Word97-2003文档”，为什么呢？因为我们等下就要使用“选择多个对象”工具，该工具不支持word2016以上版本，所以和我一样，使用新版本的朋友，这一步请记得另存为。

然后我们看向WORD串口左上角，红色框框里的图片，点击“选择多个对象”按钮

在弹出的窗口里，我们选择“全选”，点确定，我们第二个方法操作了这么多步，其实就是为了一次选中所有图片。（WORD不能框选图片）

好，到了这一步，我们已经框选了所有图片了，不管是两张，还是两千张，接下来一次搞定，统统搞定。

点击WORD窗口右上角，我红色框框圈起来的位置，会弹出“设置图片格式”窗口，和第一种简便方法一样，我们去掉“锁定纵横比”前面的勾，然后在“高度和宽度”里输入需要的数值。

好，搞定啦！

【补充】我用的是WORD2019版，可能和很多人的界面不一样，但是大概位置是差不多了，如果我又标识不清楚，或者说得不明白的地方，欢迎大家在评论区里帮我提供建议。

‘柒’ 多个文件夹中有多个图片，怎样快速把图片导入对应文件夹名的WORD中

假如要一次性在word中插入如下多张图片，应该如何完成呢?

方法1：先打开一个word文档，利用工具栏，在文档下面的工具栏中找到“插入图片”按钮点击，在弹出“插入图片”对话框中选择存放图片的位置，此时按住 Ctrl 键，就可以用鼠标选择多张图片了或者你也可以按 Shift 键，然后单击选择多个图片，最后“插入”即可，当然如果想要路径下全部是需插入的图片，那么直接按快捷键 Ctrl+A 全选，全部插入即可

方法2：先打开一个word文档，利用菜单栏，在打开的文档中，选择“插入”----->“图片”----->“来自文件”，在弹出“插入图片”对话框中选择存放图片的位置，此时按住 Ctrl 键，就可以用鼠标选择多张图片了即可，实际上在弹出“插入图片”对话框中做法跟上面方法1一样。

方法3：利用直接复制，利用鼠标右键想插入的图片的图标，打开存放图片的位置，然后选中插入的全部图片，跟着按下鼠标右键，选择“复制”，最后在打开的文档中，鼠标再按下右键，选择“粘贴”，即可快速想插入的多个图片.

方法4：利用菜单栏右键调出“图片”工具栏，然后点击“插入图片”，下面做法跟方法1，方法2一样，大家可以试试。

‘捌’ 如何将大量照片按照顺序一次性导入WORD文档中

将大量照片按照顺序一次性导入word文档中的方法如下（以windows10系统的word2016版为例，需要准备大量照片）：

1、将宣传册的照片放入一个文件夹中，并将第一张图片命名为1.jpg，第二页命名为2.jpg，依次类推。

‘玖’ 如何将JPG文件名称批量倒出到excel表格或word文档里

在菜单栏---插入---对象---由文件创建---浏览---找到需要插入的文件---勾选选择为图片或链接到文件--确定---ok搞掂
说明:如果勾选选择图片,可以再选择更改图标和名称.
完成后只要在文栏当中双击就可以打开相应的文档了.
希望是你找的

‘拾’ 将多套图片批量分别插入对应的word中

打开word
插入——图片——来自文件

选定所有需要的插入后
用回车键在各图片间建立空行

新建一个空白的word文档。
工具——》宏——》vb编辑器——》打开this document ——》把下面代码粘入编辑窗口——》保存

打开这个word文档——》工具——》宏——》执行 下面的不用我说了，最后记得通配符批量替换照片就可以一行显示多张了。

Sub InsertPic()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "F:\"
If .Show = -1 Then
For Each fn In .SelectedItems
Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
'按比例调整相片尺寸
WidthNum = mypic.Width
c = 10 '在此处修改相片宽,单位厘米
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
Selection.Text = Basename(fn) '函数取得文件名
Selection.EndKey
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