如何将图片和名称批量导入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中

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

❸ 怎么批量把图片放到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批量导入图片和图片名，并生成多列表格，怎么操作

一、批量导入图片：创建表格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文档中

把图片文件进行编号就可以了。如果是上千张图，假设格式都是jpg，那么就把第一张图命名为0001.jpg，第二张命名为0002.jpg，……
用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

1，首先，同时按下键盘上的win+r键，输入“cmd”，然后按下回车，打开命令行窗口。