How to add captions to every picture

Jazz43 · #1 05-02-2016, 10:22 PM

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?

macropod · #2 05-02-2016, 11:15 PM

See: https://www.msofficeforums.com/word-...html#post58886
The macro there turns all pics into inlineshapes in borderless tables, with the captions below the pictures. Re-running the macro won't cause any harm because it skips inlineshapes in tables.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA to insert captions without appending to existing captions	Marrick13	Word VBA	17	03-21-2023 07:51 PM
Captions: Changing captions in Appendix update all captions	carnestw	Word	3	10-27-2015 12:34 PM
Automatic change of Picture Captions...	pawleex	Word	1	08-04-2013 05:04 PM
Move Picture by picture name, rename picture by picture name	CatMan	PowerPoint	2	04-18-2012 12:21 PM
Powerpoint automatically changing picture size when adding a picture (2010)	One_Life	PowerPoint	7	01-20-2012 06:57 AM