VBA to insert captions without appending to existing captions

macropod · #4 02-16-2012, 02:47 PM

Hi Marrick,

Quote:

I need it to continue throughout the document to insert captions for all inline shapes without captions. One could run the code again but once it no longer finds any shapes without captions it just loops endlessly.

I tried modifying your code to insert captions for all uncaptioned shapes without success.

That's a fairly simple change, really. Replace:

Code:

      If InStr(TmpStr, .Text) = 0 Then
        iShp.Select
        Selection.GoTo What:=wdGoToObject
        Selection.MoveRight wdCharacter, 1
        Exit Sub
      End If

with:

Code:

      If InStr(TmpStr, .Text) = 0 Then
        iShp.Range.InsertCaption Label:="Figure", TitleAutoText:="", _
           Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0
      End If

All you need to do now is to add the code for looping through the other story ranges.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Move existing table captions	bcarlier	Word Tables	17	05-10-2014 02:36 PM
Captions/Styles	NWoffice	Word	5	10-06-2011 10:26 AM
creating tables for row of figures and captions	gib65	Word	2	08-12-2011 01:25 PM
Captions (tables and figures)	mcjohn	Word	1	02-11-2010 10:36 PM
Captions	dwilliams	Word	0	10-07-2009 08:30 AM