Main Area and Open Discussion > General Software Discussion
automatically number images in word
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
Go to full version