VBA para inserir legendas em imagens no Word

[Alexandre Moroni]

Bom dia. Sou novo nesse Fórum.

Preciso de uma VBA que insira as legendas de imagens no Word de forma automática. Consegui baixar uma na internet. Mas o problema está que quando inserido mais alguma imagem e mando executar essa VBA ela duplica as legendas.

Se alguém puder me ajudar.

Essa é a VBA.


' Macro que insere uma legenda sequencial em todas as imagens do documento

Sub Inserir_Legendas()

Dim objPic As InlineShape
For Each objPic In ActiveDocument.InlineShapes
objPic.Select
CaptionLabels.Add "Figura"
Selection.InsertCaption Label:="Figura", TitleAutoText:="", Title:="", _
Position:=wdCaptionPositionBelow + 1, ExcludeLabel:=0
Next objPic
End Sub