求老师，如何在文档中对所有图片批量插入书签

sailz

文档的每一页有一张图片。一共有500页，和500张图片。如何给每一页中图片批量插入书签？书签的名称序号自动升序排列（如书签1，书签2）。
由于文件太大，附件里图片只有8张，谢谢老师。

08yj2001

这个要用VBA哟，最好上传一个附件

sailz

08yj2001 发表于 2022-7-29 14:56
这个要用VBA哟，最好上传一个附件

谢谢提醒，现在已经上传了

sailz

有大神吗，帮帮忙，感激不尽。

蜀中草莽

Sub 插入书签()
    Dim tupian As InlineShape, i
    i = 1
    For Each tupian In ActiveDocument.InlineShapes
        tupian.Select
        With ActiveDocument.Bookmarks
            .Add Range:=Selection.Range, Name:="书签" & i
        End With
        i = i + 1
    Next
End Sub

limonet

代码在审核

limonet

Sub InsertCaptionLabels()
    Dim S As InlineShape
    For Each S In ActiveDocument.InlineShapes '
        S.Select
        Selection.InsertCaption Label:="书签", TitleAutoText:="", Title:="", _
            Position:=wdCaptionPositionBelow, ExcludeLabel:=0
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next S
End Sub

sailz

limonet 发表于 2022-7-31 09:42
代码在审核

谢谢老师。可是我为什么运行就出错呢？

limonet

sailz 发表于 2022-7-31 10:10
谢谢老师。可是我为什么运行就出错呢？

这段代码不复杂，没有引用其它对象，本人的版本是365，应该对WORD版本没什么限制，不知道你是用什么版本。

sailz

limonet 发表于 2022-7-31 11:12
这段代码不复杂，没有引用其它对象，本人的版本是365，应该对WORD版本没什么限制，不知道你是用什么版本 ...

我用的是Office 2019。我换你的版本试一下。再次谢谢老师。