如何将图片批量插入word表格？

ming0018

1. Sub 插入图片test()
   
2. 
   
3.     Dim fso As Object
   
4.     Dim fd As Object
   
5.     Dim ff As Object
   
6.     Dim picPath$
   
7.     picPath = "C:\Users\Keivn\Desktop\pic" '图片路径,此路径只放图片，不可以有其它类型的文件，如果有要修改代码另作判断
   
8.     Set fso = CreateObject("scripting.filesystemobject")
   
9.     Set fd = fso.getfolder(picPath)
   
10.     Dim picArr
    
11.     Dim picCount%, n%
    
12.     picCount = fd.Files.Count
    
13.     ReDim picArr(1 To picCount)
    
14.     n = 1
    
15.     For Each ff In fd.Files
    
16.         picArr(n) = ff.Path
    
17.         n = n + 1
    
18.     Next
    
19.    
    
20.     Dim myCell As Cell
    
21.     Dim myTable As Table
    
22.     Dim myDoc As Document
    
23.     Set myDoc = ActiveDocument
    
24.     Dim Rng As Range
    
25.     n = 1
    
26.     For Each myTable In myDoc.Tables
    
27.         For Each myCell In myTable.Range.Cells
    
28.             If Len(myCell.Range.Text) = 2 Then
    
29.                 Set Rng = myCell.Range
    
30.                 Rng.InlineShapes.AddPicture filename:=picArr(n), LinkToFile:=False, SaveWithDocument:=True
    
31.                 With Rng.InlineShapes(1)
    
32.                     .LockAspectRatio = msoFalse
    
33.                     .Height = 184.8
    
34.                     .Width = 246.6
    
35.                 End With
    
36.                 n = n + 1
    
37.                 If n > UBound(picArr) Then End
    
38.             End If
    
39.         Next
    
40.     Next
    
41. End Sub
    

复制代码

kuomickey

ming0018 发表于 2018-5-7 15:36

感謝大師的相救
但很抱歉, 我對 word 不熟, 請問這些代碼要怎麼使用??