automatically number images in word

[kalos]

hello

I have a word text document and have inserted various images in it

now I would like to add a caption to each image like Figure 1, 2, 3, etc

is it possible to do it automatically?

thanks!

[Target]

your best bet with all these automation requests in office is to spend a little bit of time learning VBA.

It really isn't that hard and MS include a handy macro recorder to get you started

[kalos]

VBA might be able to do that, but it won't be easy

first, it needs to go through all the document and scan for images (I need to know the command to identify images and go to through the whole document)
then I need it to insert after every image an incremental text (like Figure 1,2,3,etc) which is not easy too

I am not saying it's difficult, but for someone who doesn't know it's not straightforward

[Attronarch]

In Word 2010 you can find that option under "References" - "Insert caption".

[kalos]

In Word 2010 you can find that option under "References" - "Insert caption".

I played alot with that, but couldn't figure out how to do it
please note I want to number the images of a document AFTER I have inserted them all

[Attronarch]

Don't know what confuses you, since it is quite straightforward. Take a look at following instructions: http://guides.lib.umich.edu/c.php?g=283073&p=1888263

For insertion of captions it doesn't matter if you've already inserted the images.

[kalos]

Attronarch I think you haven't understood what I am asking

The instructions you posted say "Right-click the object you wish to caption and..."

I don't want to do that for every of the 50 images that exist in the document

I want to automatically (with one click) scan the whole document, find the images and add a caption with an incremental number

[tomos]

http://wordribbon.tips.net/T013182_Automatically_Adding_Captions.html

[tomos]

^ Presuming that works for you:
it was the second site I checked after searching for label images automatically in Word on startpage.com

i.e. it took less than a minute to find

[kalos]

^ Presuming that works for you:
it was the second site I checked after searching for label images automatically in Word on startpage.com

i.e. it took less than a minute to find

man, I know that already
and couldn't find any autocaption type for images
but in a screenshot in google I noticed that it says "Microsoft Word Image" type, so this may be the correct one!
but who could know this????

[kalos]

damn, there is no "Microsoft Word Image" in my Word!
what can I do?
nothing seems relevant to click in AutoCaption settings to autocaption images!

[Target]

here's a word vba macro that will number the images for you

Code

Sub captions()
Dim i As Integer

For i = 1 To ActiveDocument.InlineShapes.Count
    If ActiveDocument.InlineShapes.Item(i).Type = wdInlineShapePicture Then
        ActiveDocument.InlineShapes(i).Select
        Selection.InsertCaption Label:="Figure", Title:=" - This is image #" & i, Position:=wdCaptionPositionBelow
    End If
Next i
End Sub

google is your friend...

[kalos]

excellent find, or did you write it yourself?

the problem is that it doesn't reupdate the counting/captioning if you have run it in the past and add new images
it creates double captions instead

maybe someone can find that?