Main Area and Open Discussion > General Software Discussion

automatically number images in word

<< < (3/3)

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


--- ---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?

Navigation

[0] Message Index

[*] Previous page