多个word按名称插入图片，将不同图片分别插入对应相同名称的word中？
- 将多套图片批量分别插入对应的word中
- 如何在多页word中的相同位置添加相同图片或内容
- 如何将已编好的照片放入对应的word中。 相同编号的照片对应相同编号的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自带的几种标签类型不太贴切，单击“新建标签”按钮即可新建自己插入内容的标签。随后在“位置”下拉菜单选择题注出现的位置，可选的位置是项目的上方或下方，可根据实际需要选择。经过上述简单的设置，单击“确定”，Word就会自动创建好题注。对于表格的编号，选中整个表格，用鼠标右键单击表格，出现同样的选项，按上述的操作步骤做就可以了
我有多个文件夹中的图片插入分别插入，多个Word中。
有一个办法你试试。将图片打印，到pdf，然后拉文件到word。
因为当初投标的时候要求插入扫描的合同，所以有此方法。差别是忘记细节了，但是一定是有个批量的。是拉文件还是插入还是拉jpg，有点记不清。