Word利用VBA批量

yjwdjfqb

老师们，怎么样让下面这段代码，插入图片时，户主图片放第一张，本人图片放第二张
谢谢老师们了！

1. Sub test()
   
2.     Dim Fso, Fld
   
3.     Dim j, k, i As Integer
   
4.     Dim path, Name, str1, f As String
   
5.     Dim doc As Document
   
6.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
7.     path = ThisDocument.path & ""
   
8.     For Each Fld In Fso.getfolder(path).subfolders
   
9.         For k = 1 To Len(Fld)
   
10.             'MsgBox k, , "提示"
    
11.             If Left(Right(Fld, k), 1) = "" Then
    
12.                 Name = Right(Fld, k - 1)
    
13.                 k = 500
    
14.             End If
    
15.         Next
    
16.         f = Dir(Fld & "" & "*.*")
    
17.         'MsgBox f, , "提示"
    
18.         Set doc = Application.Documents.Add
    
19.         Do While f <> ""
    
20.             
    
21.             If InStr(f, "户口本－户主页.jpg") Then
    
22.                 'MsgBox Fld & "", , "提示"
    
23.                 doc.InlineShapes.AddPicture FileName:=Fld & "" & f
    
24.             End If
    
25.             
    
26.             
    
27.             If InStr(f, "户口本－本人页.jpg") Then
    
28.                 'MsgBox Fld & "", , "提示"
    
29.                 doc.InlineShapes.AddPicture FileName:=Fld & "" & f
    
30.             End If
    
31.             
    
32.             
    
33.             f = Dir()
    
34.         Loop
    
35.         doc.SaveAs Fld & "" & Name & ".doc"
    
36.         doc.Close
    
37.     Next
    
38. End Sub
    

复制代码

Word利用VBA批量.rar (70.69 KB, 下载次数: 19)

2022-4-17 18:06 上传

点击文件名下载附件