批量把图片名称插入word

A. 求编一个程序，把照片批量插入到word文档中

关于本问题的具体解决的方法如下：
1、将word打开，找到“插入”菜单——>“图片”——>“来自文件”,此时弹出的插入图片对话框；
2、此时你可以从[查找范围]（左边的黑色小三角下拉列表或者下方的位置）进入到你的图片存放位置（此时应能看到缩略图了）；
2、①、按住ctrl键不放，移动鼠标到你所需插入的图片，单击左键选中若干所需的图片，选完才可以放开ctrl键，然后点“插入”即可在word中插入大批量图片；
2、②、按住shift键选中第一幅需插入的图片（此时shift键也不要放开），拖动右边的滚动条至看见所需插入的图片最后一张，鼠标移动到所需插入的最后一张图片并单击选中，此时应该选择了自第一张图至最后一张图之间的所有图片，再点“插入”即可。
最后介绍一种最简单、最懒的方法（我就是用这种的）：
3、①、打开word；
3、②、将所需图片选中（选取的方法参照2），然后移动鼠标至选中的图片任意一张的上方，按住鼠标左键不放将图片“拖/拉”到word文档中，此时所有选中的图片均“拖/拉”到了文档之中了；

B. 关于office word的批量图片及其图片名插入并且排序的问题

1、打开WORD→插入→图片→来自文件→选择图片保存位置→选定你要插入的图片→确定
2、若批量粘贴扫描后的图片顺序被打乱，请设置对象格式，具体为：单击图片--鼠标右键--设置对象格式--文字环绕--紧密型--确定。

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

D. 将多套图片批量分别插入对应的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

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

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

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

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

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

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

F. 教你在Word 中批量快速插入图片的技巧

教你在Word 2007中批量快速插入图片的技巧

我们知道，对于某些特定的字符，可以通过“自动更正”的方法实现快速替换，其实图片也是可以自动更正的，这在需要经常调用某些图片时相当实用，这样就不需要每次逐个手工插入了。这里以Word 2007为例进行说明，让你在输入“1”、“2”这些数字时，能够自动替换为相关的.图片（例如频繁出现的公司LOGO图片等）。

首先将相关的图片插入到Word文档的窗口中，然后按下“Ctrl+C”组合键将它们复制到剪贴板中备用。这一步至关重要，否则下面的操作将无法正常完成。

接着单击Office按钮打开“Word选项”对话框，然后切换到“校对”选项卡，在这里你会发现一个“自动更正选项”的按钮，单击后即可打开如图所示的对话框，在“替换”后面的文本框中输入图片名称“1”。此时我们会发现原来右下角的“添加”按钮已经可以正常使用，接下来直接单击“添加”按钮，添加图片就可以了。

需要提醒的是，如果前面的步骤没有进行的话，那么即使在“替换”下面的文本框中输入了相关的字符，也会看到“添加”按钮仍然呈现不可用的灰色状态。

按照类似的步骤，你可以继续添加常用的图片到其他自动更正的项目，以后插入相关图片时就方便多了（虽然“替换为”文本框中没有任何反应，而且确认后“替换为”一列也只是显示为“*”号，但这只是显示的问题）。

以后，当我们在Word文档中输入1、2……这样的数字时，按下回车键后，相关的图片就会自动出现在Word文档中，大大提高了工作效率。 ;

G. word如何将插入图片名自动作为图片标注

我们有个文件夹，里面是图片，每个图片都 有名称；如果在word中批量插入图片,如何让现有的图片名称成为word里的图片标题呢？

首先，我们打开一个word文本（

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

I. 多个word按名称插入图片，将不同图片分别插入对应相同名称的word中

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

J. Word 中批量快速插入图片技巧步骤

Word 2007中批量快速插入图片技巧步骤

我们知道，对于某些特定的字符，可以通过“自动更正”的方法实现快速替换，其实图片也是可以自动更正的，这在需要经常调用某些图片时相当实用，这样就不需要每次逐个手工插入了。这里以Word 2007为例进行说明，让你在输入“1”、“2”这些数字时，能够自动替换为相关的图片（例如频繁出现的公司LOGO图片等）。

首先将相关的图片插入到Word文档的窗口中，然后按下“Ctrl+C”组合键将它们复制到剪贴板中备用。这一步至关重要，否则下面的操作将无法正常完成。

接着单击Office按钮打开“Word选项”对话框，然后切换到“校对”选项卡，在这里你会发现一个“自动更正选项”的按钮，单击后即可打开如图所示的对话框，在“替换”后面的文本框中输入图片名称“1”。此时我们会发现原来右下角的“添加”按钮已经可以正常使用，接下来直接单击“添加”按钮，添加图片就可以了。

需要提醒的是，如果前面的步骤没有进行的话，那么即使在“替换”下面的文本框中输入了相关的字符，也会看到“添加”按钮仍然呈现不可用的灰色状态。

按照类似的.步骤，你可以继续添加常用的图片到其他自动更正的项目，以后插入相关图片时就方便多了（虽然“替换为”文本框中没有任何反应，而且确认后“替换为”一列也只是显示为“*”号，但这只是显示的问题）。

以后，当我们在Word文档中输入1、2……这样的数字时，按下回车键后，相关的图片就会自动出现在Word文档中，大大提高了工作效率。 ;