如何透過vba自動張貼圖片到WORD的表格中

這是網友問的問題，他的工作需要張貼工作的照片到word，每次照片大約有40張，想說可不可以用vba把圖片插入到表格中，每插一個圖片就空一欄後面要寫圖片的內容，這時候把圖片命名為1到40(可以使用工具轉換)，再錄一個貼上圖片，一個使用Tab移動到下一列最後一列時會新增表格，最後再寫一個迴圈把裡面的圖片名稱自動換掉成1到40，再執行就可以。

https://youtu.be/zb5IsmCPRug?si=tfOBg5UerX-cj9HU

Sub 巨集2()
'
' 巨集2 巨集
'
'
    Selection.InlineShapes.AddPicture FileName:="C:\\testjpg\\shop1.jpg", _
        LinkToFile:=False, SaveWithDocument:=True
End Sub
Sub 巨集3()
'
' 巨集3 巨集
'
'
    Selection.MoveRight Unit:=wdCell
End Sub
Sub insert_multi_pic()
    '作者:彰化一整天  <https://https>://skill-bestdaylong.blogspot.com/
    
   Dim i As Integer
   
   For i = 1 To 5
     Selection.InlineShapes.AddPicture FileName:="C:\\testjpg\\shop" & i & ".jpg", LinkToFile:=False, SaveWithDocument:=True
     Selection.MoveRight Unit:=wdCell, Count:=2
   Next
   
End Sub

範例檔案下載: https://drive.google.com/file/d/1IHnopAyKR34Qf69O1ttEzmqWJhH60QPB/view