Convert "Figure", "Figure", "Figure" to "Figure1", "Figure2", etc.

altjx · #1 06-02-2013, 07:16 PM

I have a report that I am working on and to avoid having to go back in and rename all of the figures manually to figure 2, figure 2, figure 3, etc, I have just named each figure as "Figure: <title>".

I was wondering if there was a way for me to make Microsoft Word automatically rename all of my figures to Figure 1, 2, etc. Given that there's ways to make macros and stuff, I'm hoping this won't be such a hard process. I have approximately 200+ figures and it'd be a pain to have to go back and rename all of these manually.

Thanks for any help,
Alton

eNGiNe · #2 06-02-2013, 11:17 PM

Try autonumbering in the caption style? I realise this is a succinct pointer rather than a helpful explanation, but we can reasonably hope that someone who knows more about it will help if it's not enough :-}

JimP · #3 06-03-2013, 04:39 AM

Here is a link that should help you:

http://www.iec.ch/standardsdev/resou...e/captions.htm

Hope this helps...

macropod · #4 06-03-2013, 04:40 AM

Indeed, if you had used the Caption Style, it would have been a simple matter of Ctrl-A, F9.

For what you now have, you'll need a macro like:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Integer
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Figure:"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    i = i + 1
    .Text = "Figure" & i & ":"
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
MsgBox i & " figures updated."
End Sub

FWIW, deleting the old numbers as you've done doesn't really help - the code to replace the old ones could have been almost the same.

altjx · #5 06-04-2013, 05:29 AM

Ah, thanks man. I'm going to look into this once I've finished writing the report. Thanks again dude!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Making cross-reference say "Fig." instead of "Figure"	dgalb	Word	17	11-09-2014 06:25 AM
'Linking' entered information to other "cells" from an original "cell" in MS Word	Wade	Word	6	09-03-2012 05:22 PM
How to edit the "Format" and the "show level" of an EXISTING table of content?	Jamal NUMAN	Word	2	08-14-2011 10:46 AM
How to choose a "List" for certain "Heading" from "Modify" tool?	Jamal NUMAN	Word	2	07-03-2011 03:11 AM
"Microsoft Excel Application" missing in the "Component Services" on win08	sword.fish	Excel	0	02-26-2010 02:09 PM