Quote:
Originally Posted by stevenjohnson
1) The caption cells will always have a shading of "White, Background 1, Darker 25%"
|
In the FormatRows routine add the following to the "With .Rows(x + 1)" block
Code:
.Cells.Shading.BackgroundPatternColor = -603930625
Quote:
Originally Posted by stevenjohnson
2) The caption template will always be:
Figure (numeric value)
Comment:
|
Comment out the line that adds the Picture caption label:
Code:
CaptionLabels.Add Name:="Picture"
Change the line that inserts the caption to use the Figure label
Code:
.Characters.First.InsertCaption _
Label:="Figure", Title:=StrTxt, _
Edit the lines that set StrTxt to contain the additional text that you require.
Quote:
Originally Posted by stevenjohnson
3) The caption font will always be Black, Times New Roman, Font 12
4) The caption [paragraph] will have 0 pt for before and after spacing and single line spacing
|
Simply modify the Caption style in the template you use for this document.
Quote:
Originally Posted by stevenjohnson
5) The macro table (the image and its caption) will always be horizontally centered to the entire page. Vertically centered would be a bonus but my work documents have header/footer information which I currently do not have the dimensions to right now.
|
Add the following in the With oTbl block just before the End With
Code:
.Rows.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.Rows.HorizontalPosition = wdTableCenter
.Rows.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.Rows.VerticalPosition = wdTableCenter
Quote:
Originally Posted by stevenjohnson
For caption 2, I was able to extend the height of the caption so that the words don't get cut off when I write a full sentence, but I cannot extend the height of the caption for caption 1 (due to inserted photo constraints?). I would like the height of the caption to be like caption 2 and not caption 1.
|
Just select the row and set the height on the Table Layout tab. This will also give you the value to set the height to in the FormatRows routine.