Quote:
Originally Posted by henhelm
Can you help me change the captions to read "Photograph X: Caption", in Times New Roman with size 10 font, and 5 spaces between the colon and caption?
|
Change:
CaptionLabels.Add Name:="Picture"
to:
CaptionLabels.Add Name:="Photograph"
Change:
Label:="Picture"
to:
Label:="Photograph"
Insert:
Code:
With .Styles("Caption")
With .Font
.Name = "Times New Roman"
.Size = 10
End With
.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(2.5), Alignment:=wdAlignTabLeft
End With
before:
'Add a 2-row by NumCols-column table to take the images
Note: Word doesn't work with spaces the way I expect you want. Using a tab-stop should give a comparable result.