批量导入带有名字图片word

1. 如何把图片批量导入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版，可能和很多人的界面不一样，但是大概位置是差不多了，如果我又标识不清楚，或者说得不明白的地方，欢迎大家在评论区里帮我提供建议。

2. 怎么批量把图片放到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

3. 怎么批量把图片放到word里面去。

WPS批量导入图片的方法如下：

1、打开一个需要枝核批量导入图片的wps文档，并在界面左上角点击“插入”按钮。

4. word文档如何批量插入图片

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

5. 如何把大量照片快速全部导入到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

6. word批量导入图片并自动排版

word批量导入图片并自动排版方法如下：

工具：联想笔记本电脑e460、Windows10系统答带、WPS Office 2018.8.24.20794。

1、打开一个需要批量图片知链排版的word文档，文档中图片排版无序，需要调整排版。

7. 怎样在WORD中批量插入图片

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

8. 怎样将图片批量导入到WORD中

2、此时你可以从[查找范围]（左边的黑色小三角下拉列表或者下方的位置）进入到你的图片存放位置（此时应能看到缩略图了）； 2、①、按住Ctrl键不放，移动鼠标到你所需插入的图片，单击左键选中若干所需的图片，选完才可以放开Ctrl键，然后点“插入”即可在word中插入大批量图片； 最后介绍一种最简单、最懒的方法（我就是用这种的）：3、①、打开Word； 3、②、将所需图片选中（选取的方法参照2），然后移动鼠标至选中的图片任意一张的上方，按住鼠标左键不放将图片“拖/拉”到Word文档中，此时所有选中的图片均“拖/拉”到了文档之中了；

9. 关于图片批量导入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会进入无响应状态。图片越多，无响应的时间越长。

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

以WPS2019版本为例：

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

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