如何将已编辑好的照片依次放入word中，一个照片对应一个word，如何批量进行

发布网友发布时间：2022-04-30 23:20

共2个回答

热心网友时间：2023-10-07 11:28

一张照片对应一个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 "您指定的输入目录不存在！需重新指定真实存在的。", 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

热心网友时间：2023-10-07 11:29

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