ワードに画像連続貼り付け

画像を大量に撮影してアルバムのようにコメントをつけたいときの使用方法
画像と同じ数だけの表を作成して、マクロを下記のように設定する

For i = 1 To 48
    If i <10 Then     Else
        j = "Z:\画像\工場見学_0" & i & ".jpg"
    End If
    
    Selection.InlineShapes.AddPicture FileName:= _
        j, LinkToFile:= _
        False, SaveWithDocument:=True
    Selection.MoveDown Unit:=wdLine, Count:=1
Next