Hello!



I had some very kind help a few years back and really love how the calendar wizard produces calendars with some customizations, no have loved the calendars even mor ever since.

However, I need to write more in the cells from this point forward but the day numbers are centered in the middle of each cell where they are located and the font is too big, too.

Anyone that is familiar with the old calendar wizard know where I can change it so that the boxes with the day numbers are placed in the upper left-hand corner (rather than centered), and to make the font 20pt instead of 30pt?

I've tended to move over to a calendar maker that I have over Word when I've needed printed calendars with enough space to write in, but it's so cumbersome. The MS Word calendar wizard produces any calendars I need super fast and it just needs these 2 modifications to make it work for this.

Thank you in advance for any kind help!!

Microsoft dropped all Office "wizards" many years ago. The old ones were simply templates with VBA code to select the year, etc. Without access to the one you're using for the calendar, no-one here can tell you what changes would need to be made to the code.

If you make a zip archive of your current calendar template and upload it, someone here may be able to access the code and modify it for you.

You can attach a file to a post via the paperclip symbol on the 'Go Advanced' tab at the bottom of this screen.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Oh, thank you! What a wonderful resource. Must have been what I did back then, though I don't remember (my file save date says 2015, so that's way too far back for my memory <lol>).

Thanks and done.


(p.s., didn't see a paper clip, but found the "Manage Attachment" option under the "Additional Options" portion of the message edit screen where I uploaded the file.

Attached Files

CALENDAR wizard - 2CHG ALIGNMENT - (1st day= SUNDAY)- mod150312.Th.zip (79.8 KB, 9 views)

1. In the Calendar module in the Sub CreateNewDoc there is a line
If you don't change anything (just click Next, Finish on the UserForm) then in the above line you have objActiveRange.Style = "Boxes 11" - font.Size = 36, paragraph alignment= Center. For you it should be font.size = 20 and alignment = Left.

2. You can select all the cells of the table (calendar) --> choose STYLE: font.size = 20, paragraph alignment = left.

I'm stumped. Unlike you guys, I'm a real newbie at this no matter how long I've been modifying vba in Word (I'm just no developer, just a simple power user.)
So perhaps easiest would be to just outline the steps I've done.

I changed the .WIZ extension to .DOC (as an online recommendation to change it to template .DOT just created a mess). (And the "If you don't change anything (just click Next, Finish on the UserForm" to me just meant that if I opened via NEW template, created same issue as changing .WIZ to .DOT, an open Word file that created error message after.) So I went with .DOC.

Opened the .DOC with the .WIZ macros within. Then opened the VBE. I found the full line stated above:


But after that, I got nowhere

I found that objActiveRange.Style line above okay, but the next one:

was nowhere to be found that I know how how to access.

What am I doing wrong, please?

Thank you!


(p.s., 2nd option to just select the cells and do that ... ugh ... what's the point of vba if one can't do it all in one go??!! lol Besides, I started, but when you have 12 calendars to change font and alignment ... again, ugh lol. Thanks, though! Good in a pinch and if it were only one here and there, would do so. But I create themed yearly calendars periodically. Too much additional work. I don't have that kind of time.)

Attachment 21416You misunderstood.
There is a line
If in the UserForm you click Finish or Next --> Next --> Next --> Finish and don't change anything then you have the setting = default = "Boxes & border", Landscape, No ... -->
rgstrDaysStyle(iCalendarStyle) = "Boxes", iOrientation = 1, iNoPicture = 1
Then
objActiveRange.Style = rgstrDaysStyle(iCalendarStyle) & iOrientation & iNoPicture
= "Boxes" & 1 & 1 = "Boxes11"
So objActiveRange has the style "Boxes11"
You can see from the image that
font 36 pt, Bold
ALIGNMENT Centered

You have to change in this WIZ style Boxes11 e.g. like this:
font 24 pt, Bold
ALIGNMENT Left

Include DOC, DOCM instead of WIZ

But since there are so many styles, you have to change them all to suit your needs

Attached Images

	style.png (13.8 KB, 10 views)
	wiz.png (154.8 KB, 11 views)

Put simply:

1. Change the file extension from .wiz to .doc
2. Open the document
3. Modify the style definitions to suit your requirements
4. Save and close the document
5. Change the file extension back to .wiz