求老师指教，VBA word批量插图片代码修改

yeying329

各位老师好，求教一个问题，目前在用的代码插图片时有这样一个问题，比如有同名图片20张，AAA(1),AAA(2),AAA(3),AAA(4),AAA(5),AAA(6),AAA(7),AAA(8),AAA(9),AAA(10),AAA(11),AAA(12),AAA(13),AAA(14),AAA(15),AAA(16),AAA(17),AAA(18),AAA(19),AAA(20)

现在用下面这个代码插入图片就会有一个问题，插入顺序AAA(1)后面跟着插入的是AAA(10),AAA(11)...AAA(19),接着才会插AAA(2)
If IsImgFile(fname) Then

             Selection.InlineShapes.AddPicture filename:=FullToClientFolder & "\" & File.Name, LinkToFile:=False, _
               SaveWithDocument:=True
                Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend



这个能通过代码修改成AAA(1),AAA(2),AAA(3),...AAA(30)按这样的顺序插图片吗，万分感谢

mfkdlyvi

感觉你把编号1-9的改为01-09，应该就行了吧。小白的粗浅想法，如果不行就略过