MS Word-将文本设置为图像标题

Question

我有一个包含多个图像的文档。

在我通过VBA添加的每个图像下面都有一个标题；图XX"；在这个标题下，我有一个短语，应该是这张图片的标题描述。

我现在的问题是如何将标题下的文本放入占位符？在此处输入图像描述

Answer 1

例如：

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "<<Placeholder>>^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = True
.Style = wdStyleCaption
End With
Do While .Find.Execute
.Text = vbNullString
.Style = wdStyleCaption
.Collapse wdCollapseEnd
Loop
End With
Application.ScreenUpdating = True
End Sub