Word插入照片到空白的表格内

ronmandy

工作需要的格式， 目前的代码只能做到一次性插入三张照片， 插入四张照片时候就跳错误，
想法有1.插入三张照片后光标移到第四个方框的位置，继续插入三张照片
2.弹错错误后忽略错误，光标移动到第四给方框位置继续插入

但是研究了挺久还是没有一个可行的，特来求助一下各位大佬
望各位不惜赐教 拜谢

413191246se

1. Sub InsertPicture2Table()
   
2. 'Please select all and copy, then put focus to the end and paste, so only one table!
   
3. 'This macro is not perfect! Sorry!
   
4.     Dim i&, j&
   
5.     With Selection
   
6.         .HomeKey 6
   
7.         Do
   
8.             i = i + 1
   
9.             j = j + 1
   
10.             .InlineShapes.AddPicture FileName:="D:\ppp" & "0" & j & ".JPG", LinkToFile:=False, SaveWithDocument:=True
    
11.             .MoveRight Unit:=wdCell
    
12.             If i = 3 Then i = 0: .MoveRight Unit:=wdCell, Count:=3
    
13.         Loop
    
14.     End With
    
15. End Sub
    

复制代码