word宏问题：在word中所有图片的上一行插入编号（1.，2.，3.）

录制的宏为在word中所有图片的上一行插入编号（1.，2.，3.）这种，录制完后，每点一次可以插入一个编号，但是插入的编号每次都是1.，怎么解决？顺便问一下，怎么让宏可以自动执行知道文档结尾，而不需要点一次插入一个编号，我知道有for循环可以执行几次，但是我如果不知道文档中有几张图片怎么办？
PS：我用的是查找图片的方法，然后跳到行首插入一个编号

如果是插入的图片可以用下面的代码，如果是自绘的图形，inlineshapes改为shapes
Sub a()
lngExists = ActiveDocument.InlineShapes.Count
For cx = 1 To lngExists
ActiveDocument.InlineShapes(cx).Select
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.TypeParagraph
Selection.TypeText Text:="图片" & Format(cx)
Next
End Sub追问

非常感谢您的回答

你插入的是数字，如果我要插入编号呢，就是那种删除其中某一个后，后面的编号能自动更改的。


我要是想录制该怎么操作。VBA语言不是很懂，还是喜欢土办法~~

对于For cx=1 To lngExists，应该就是到文档末尾的意思。如果我要到已选文本的末尾，我该怎么定义这个lngExists呢？

第三个问题解决了。将ActiveDocument换Selection

追答

lngExists 是插入的图片总数。

到文档末尾
Selection.EndKey unit:=wdStory
到已选文本的的末尾
Selection.MoveRight

温馨提示：答案为网友推荐，仅供参考

当前网址：http://55.wendadaohang.com/c/893905311465683096.html