Thread: How to add captions to every picture
View Single Post
 
Old 05-02-2016, 10:22 PM
Jazz43 Jazz43 is offline Windows 7 64bit Office 2010 64bit
Advanced Beginner
  
Join Date: Oct 2009
Posts: 51
Jazz43 is on a distinguished road
Post How to add captions to every picture
Hi everyone,
I'm looking for a way to add caption to mutiple pictures at once. Currently, I'm using this macro:

Quote:
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?
Reply With Quote