I have no business playing messing around with macros but I'm trying to make my work life a bit easier so here goes.

I used Macropod's code from this sticky: https://www.msofficeforums.com/drawi...-document.html



I changed it up so that the inserted photos are of certain dimension and whatnot. I got a couple of questions on how to change parts of the macro so that:

1) The caption cells will always have a shading of "White, Background 1, Darker 25%"
2) The caption template will always be:
Figure (numeric value)
Comment:
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
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.

The bolds above are priority. I've also attached an example of what I'm looking for.

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.

This template is based on Macropod's Macro mixed with my memory of what my work's template looks like. I'll have to go into the office tomorrow and see the official template but I might be content with a Modified Macropod Macro.

Attached Files

Template.docx (37.2 KB, 2 views)

In the FormatRows routine add the following to the "With .Rows(x + 1)" block

Comment out the line that adds the Picture caption label:
Change the line that inserts the caption to use the Figure label
Edit the lines that set StrTxt to contain the additional text that you require.

Simply modify the Caption style in the template you use for this document.

Add the following in the With oTbl block just before the End With

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.

Thanks for your reply, Italophile!

So I was able

1) Change the caption cell color
5) Macro aligned horizontally and vertically centered
6) Change the Caption Height

As for the labels and whatnot inside the gray caption cell, mine comes out as attached.

How do I go from

"Figure 1Comment:"

to

"Figure 1
Comment: "

(basically putting the "Comment: " line under the "Figure" line).

My macro line for that is currently set up as:

Label:="Figure", Title:="Comment: ", _

Also when you mentioned for the font style "Simply modify the Caption style in the template you use for this document.", it went completely over my head

I know it seems very elementary but this is coming from someone with absolutely 0 background on these things!

Attached Images

Caption Cell.JPG (6.1 KB, 11 views)

You just need to add a carriage return:
Display the Styles pane (Alt+Ctrl+Shift+S), locate the Caption style, right click and select modify.

It is time that you learned because styles are central to how Word formats text. Before you start trying to control formatting using macros, it is essential that you have a grasp of how styles are used. Otherwise, you are trying to reinvent the wheel and coming up with a square wheel!

• The Importance of Styles in Microsoft Word
• Managing Word Styles by Suzanne Barnhill, MVP
• Basic Concepts of Microsoft Word - from Shauna Kelly

Without a sound basic understanding of how Word is working, under the hood, writing or modifying macros is going to be extremely frustrating. Just trying to use Word to do anything other than type a basic letter or note is going to be challenging.