下面是一段word中批量将图片插入表格的vba,运行起来报错,求高人指点
Sub 批量插入图片到表格中()
Dim fd As FileDialog, arr(0 To 1), brr(0 To 1)
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd. Show
ss = InputBox("图片与表格中哪—行哪一列相同(中间用英文逗号隔开)")
arr(0) = VBA. Split(ss, ",")(0)
arr(1) = VBA. Split(ss, ",")(1)
tt = InputBox(”插入图片所在的行与列(行与列中间用英文逗号隔开)")
brr(0) = VBA. Split(tt, ",")(0)
brr(0) = VBA. Split(tt, ",")(1)
12345
nm = Dir(fd.SelectedItems(1)&“\*.*”)
Do
i = s + 1
ww = VBA.Split(nm,".")(0)
On Error Resume Next
wm = Replace(activeDocument.Tables(i).Cell(arr(0), arr(1)).Range, "口", "")
wn = Left(wm, Len(wm)- 1)
If wm = ww Then
ActiveDocument.Tables(i).AllowAutoFit = False
ActiveDocument.Tablee(i).Cell(brr(0), brr(1)).Range.InlineShapes.AddPicture.
fd. SelectedItems(1) &“/"& nm
s=s+ 1
GoTo 12345
If i = ActiveDocument.Tables.Count Then
Exit Do
End If
End If
nm = Dir
Loop Until nm = ""
End Sub
Sub 批量插入图片到表格中()
Dim fd As FileDialog, arr(0 To 1), brr(0 To 1)
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd. Show
ss = InputBox("图片与表格中哪—行哪一列相同(中间用英文逗号隔开)")
arr(0) = VBA. Split(ss, ",")(0)
arr(1) = VBA. Split(ss, ",")(1)
tt = InputBox(”插入图片所在的行与列(行与列中间用英文逗号隔开)")
brr(0) = VBA. Split(tt, ",")(0)
brr(0) = VBA. Split(tt, ",")(1)
12345
nm = Dir(fd.SelectedItems(1)&“\*.*”)
Do
i = s + 1
ww = VBA.Split(nm,".")(0)
On Error Resume Next
wm = Replace(activeDocument.Tables(i).Cell(arr(0), arr(1)).Range, "口", "")
wn = Left(wm, Len(wm)- 1)
If wm = ww Then
ActiveDocument.Tables(i).AllowAutoFit = False
ActiveDocument.Tablee(i).Cell(brr(0), brr(1)).Range.InlineShapes.AddPicture.
fd. SelectedItems(1) &“/"& nm
s=s+ 1
GoTo 12345
If i = ActiveDocument.Tables.Count Then
Exit Do
End If
End If
nm = Dir
Loop Until nm = ""
End Sub