How to add captions to every picture

[Jazz43]

Hi everyone,
I'm looking for a way to add caption to mutiple pictures at once. Currently, I'm using this macro:

Sub CaptionPictures()
Dim objPic As InlineShape

For Each objPic In ActiveDocument.InlineShapes
objPic.Select


Selection.InsertCaption Label:="Figure", TitleAutoText:="", Title:="", _
Position:=wdCaptionPositionBelow, ExcludeLabel:=0
Next objPic
End Sub

However, it has a problem of adding captions to every pictures, including the one with captions already and messes up my labelling. Is there anyone with experience with this issues?