假设您已经创建了一个包含文本和图片的Word文档,以便轻松地在这些图像之间导航,那么为所有图像添加标题将是一个不错的选择。 最常见的方法是,必须选择图像,然后使用Word中的“书签”功能插入书签。 但是,如果需要处理大量图像,将非常耗时。 在这里,我们提供了两种方法供您在Word文档中一次将字幕自动添加到所有图像。


使用VBA一次自动将字幕添加到图像

下面的VBA代码可以帮助在Word文档中一次向所有图像添加字幕。 请执行以下操作。

1.打开包含要添加标题的图像的Word文档,按Alt + F11键打开“ Microsoft Visual Basic for Applications”窗口。

2.在“ Microsoft Visual Basic应用程序”窗口中,单击“插入”>“模块”。 然后将下面的VBA代码复制到“模块”窗口中。

VBA代码:一次自动向图像添加字幕

1

2

3

4

5

6

7

8

Sub CaptionPictures()

    Dim xPic As InlineShape

    For Each xPic In ActiveDocument.InlineShapes

        xPic.Select

        Selection.InsertCaption "Figure", "", "", wdCaptionPositionBelow, 0

    Next

End Sub

3.按F5键运行代码。

现在,字幕将立即添加到当前文档中的所有图像,如下图所示。

拍摄kutools字kutools加标签1180x120

Oh 游读者 👋
It’s nice to meet you.

每周三,您都将收到一封内容详实的Newsletter.

close

Oh 游读者 👋
It’s nice to meet you.

每周三,您都将收到一封内容详实的Newsletter.