如何把大量照片快速全部导入到<em>word文档</em>中-图片 批量 word文档,如何批量

在WORD里面有个“插入”→插入图片，然后就有一个对话框让你选择图片

PS：选择图片的时候一起按下Ctrl，可以多选的

如何将图片批量导入word中并附加文件名？其实只要活用word的“宏”e799bee5baa6e59b9ee7ad94335这一功能就好了，下面为大家详细讲解。
　　新建一个空白的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后保存为doc文档的。启动Word，然后按Alt+F11打开宏代码编辑器，然后把如下代码粘贴到编辑器中，然后修改你的输入和输出目录，然后按F5运行即可。

Sub InsertPicAndSaveas()
    Dim InPath As String
    Dim OutPath  As String
    Dim Pos As Long, Fname As String, Ext As String
    InPath = "C:\我的照片集\" '你的照片放在哪个文件夹下，自行修改成真实的
    OutPath = "C:\Out\" 'Word插入一张照片后换名保存在哪个文件夹下，自行修改成真实的
    If Dir(InPath, vbDirectory) = "" Then
      MsgBox "您指定的输入目录不存在！需重新7a64e58685e5aeb9332指定真实存在的。", vbCritical + vbOKOnly, "消息"
      Exit Sub
    End If
    If Dir(OutPath, vbDirectory) = "" Then
      MsgBox "您指定的输出目录不存在！需重新指定真实存在的。", vbCritical + vbOKOnly, "消息"
      Exit Sub
    End If
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1

    Fname = Dir(InPath & "\*.*")
    Do While Fname <> ""
     Pos = InStrRev(Fname, ".")
     Ext = Mid(Fname, Pos + 1)
     Fname = Left(Fname, Pos)
     If InStr("jpg jpeg bmp gif png tif", LCase(Ext)) Then '不是图片文件就忽略了
     Selection.InlineShapes.AddPicture FileName:=InPath & "\" & Fname & Ext, LinkToFile:=False, _
        SaveWithDocument:=True
    ActiveDocument.SaveAs FileName:=OutPath & "\" & Fname & "doc", FileFormat:=0, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
     Selection.WholeStory
     Selection.Delete Unit:=wdCharacter, Count:=1
    End If
     Fname = Dir()
     DoEvents
    Loop
    MsgBox "处理完毕！  更多批量处理功能，请参见《文件  批量  处理  百宝箱 V10.0》", vbInformation + vbOKOnly, "消息"
    ActiveDocument.Saved = True
    ActiveDocument.Close
    Application.Quit
End Sub

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

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

2、打开word文档，点击界面自上方的“插入zd”按钮。

3、在随后弹出的页面中点击“图片”按钮。

4、在接着自动弹出的界面中点击“插入”按钮即可。