2004 calendar templates

K

kim

Can anyone tell me where I can find a 12 month 2004
calendar? I liked the old 2003, because it starts on
Sunday-Saturday. THe new Word 2004 starts on Monday.
There is one using Powerpoint, but I need to add entries
and find it not easy in Powerpoint and need to add it
into existing Word documents. I am very disappointed with
the new ofice.microsoft.com site. Liked it much better
before. Clipart and how-to articles were easier to find
too.
 
J

Jay Freedman

kim said:
Can anyone tell me where I can find a 12 month 2004
calendar? I liked the old 2003, because it starts on
Sunday-Saturday. THe new Word 2004 starts on Monday.
There is one using Powerpoint, but I need to add entries
and find it not easy in Powerpoint and need to add it
into existing Word documents. I am very disappointed with
the new ofice.microsoft.com site. Liked it much better
before. Clipart and how-to articles were easier to find
too.
Click to expand...

I rearranged the 12-month calendar from the Office site so it starts
the week on Sunday. You can download it from
http://members.verizon.net/~vze27sds/2004_calendar.doc.

You can also print monthly calendars from the calendar view in
Outlook. I like them better than any of the ones I've see in Word.
 
D

Doug Robbins - Word MVP

Hi Kim,

The following macro will ask what year you want the calendar for and then
create it for the year that you entered:

' Macro created 11/14/98 by Doug Robbins to make calendar
' Modified 11/29/98 to add shading to weekends and "non-date" cells. '
Dim Message, Title, Default, Calyear, Thisyear, nyday
Thisyear = Year(Date)
Message = "Enter the year for which you want to create a calendar" '
Set prompt.
Title = "Calendar Maker" ' Set title.
Default = Thisyear ' Set default.
Calyear = InputBox(Message, Title, Default)
With ActiveDocument.PageSetup
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(2)
.BottomMargin = CentimetersToPoints(1)
.LeftMargin = CentimetersToPoints(1.5)
.RightMargin = CentimetersToPoints(1)
End With
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=13,
NumColumns _
:=38
Selection.Tables(1).Select
Selection.Cells.SetHeight RowHeight:=38, HeightRule:=wdRowHeightExactly
Selection.Cells.SetWidth ColumnWidth:=CentimetersToPoints(0.65), RulerStyle
_
:=wdAdjustNone
Selection.Rows.SpaceBetweenColumns = CentimetersToPoints(0)
Selection.Font.Size = 8
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.SelectRow
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.SelectColumn
With Selection.Cells
With .Shading
.BackgroundPatternColorIndex = wdTurquoise
End With
End With
Counter = 1
While Counter < 6
Selection.MoveRight Unit:=wdCharacter, Count:=6
Selection.Extend
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.SelectColumn
With Selection.Cells
With .Shading
.BackgroundPatternColorIndex = wdTurquoise
End With
End With
Counter = Counter + 1
Wend
Selection.MoveLeft Unit:=wdCharacter, Count:=36
Dim days$(7)
days$(0) = "Sat": days$(1) = "Sun": days$(2) = "Mon": days$(3) = "Tue":
days$(4) = "Wed": days$(5) = "Thu": days$(6) = "Fri" ': days$(7) = "Sat"
Dim mon$(12)
mon$(1) = "January": mon$(2) = "February": mon$(3) = "March": mon$(4) =
"April": mon$(5) = "May": mon$(6) = "June": mon$(7) = "July": mon$(8) =
"August": mon$(9) = "September": mon$(10) = "October": mon$(11) =
"November": mon$(12) = "December"
Dim monthdays$(12)
If ((Calyear Mod 4 = 0 And Calyear Mod 400 = 0) Or (Calyear Mod 4 = 0
And Calyear Mod 100 <> 0)) Then
monthdays$(1) = "32": monthdays$(2) = "30": monthdays$(3) = "32":
monthdays$(4) = "31": monthdays$(5) = "32": monthdays$(6) = "31":
monthdays$(7) = "32": monthdays$(8) = "32": monthdays$(9) = "31":
monthdays$(10) = "32": monthdays$(11) = "31": monthdays$(12) = "32" Else
monthdays$(1) = "32": monthdays$(2) = "29": monthdays$(3) = "32":
monthdays$(4) = "31": monthdays$(5) = "32": monthdays$(6) = "31":
monthdays$(7) = "32": monthdays$(8) = "32": monthdays$(9) = "31":
monthdays$(10) = "32": monthdays$(11) = "31": monthdays$(12) = "32" End
If
Colno = 1
rowno = 1
While Colno < 38
ActiveDocument.Tables(1).Cell(1, Colno + 1).Range.InsertBefore
days$(Colno Mod 7)
Colno = Colno + 1
Wend
While rowno < 13
ActiveDocument.Tables(1).Cell(rowno + 1, 1).Range.InsertBefore
Left(mon$(rowno), 3)
rowno = rowno + 1
Wend
rowno = 1
While rowno < 13
Counter = 1
dayone = WeekDay(mon$(rowno) & " 1," & Calyear) If dayone
Mod 7 = 0 Then
Colno = 8
Else
Colno = (dayone Mod 7) + Counter
End If
Painter = 2
While Painter < Colno
ActiveDocument.Tables(1).Cell(rowno + 1,
Painter).Shading.BackgroundPatternColorIndex = wdTurquoise
Painter = Painter + 1
Wend
While Counter < Val(monthdays$(rowno))
ActiveDocument.Tables(1).Cell(rowno + 1,
Colno).Range.InsertBefore Counter
Colno = Colno + 1
Counter = Counter + 1
Wend
While Colno < 39
ActiveDocument.Tables(1).Cell(rowno + 1,
Colno).Shading.BackgroundPatternColorIndex = wdTurquoise
Colno = Colno + 1
Wend
rowno = rowno + 1
Wend
Selection.SelectRow
Selection.Cells.HeightRule = wdRowHeightAuto
Selection.InsertRows 1
Selection.Cells.Merge
Selection.Font.Size = 18
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.InsertAfter Calyear
End Sub

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
 
C

Charlie

Hi Kim,

The following macro will ask what year you want the calendar for and then
create it for the year that you entered:
Click to expand...

Doug,

I tried your macro, and I like it, but still I prefer one that I found
several years ago written for WordPerfect 7. The macro works for WP 9
(the version I have now). I'll copy it here. Anyone with WordPerfect
who wants to give it a try, just copy and paste to a file named
7YEAR.WCM, then open that file with WordPerfect (ie, double click on
the file).

//************************************************************
// Macro Name: 7YEAR.WCM
// Description: Creates a full-year calendar that fits on a single
page.
// 70 Macros for WordPerfect 7 for Windows 95
// © Copyright 1996, IVY International Communications, Inc.
//************************************************************

Application (A1; "WordPerfect"; Default; "US")
YR:=?DateYear
MTH:=0
DialogDefine (100; 50; 50; 100; 70; 1+2+16; "Calendar Year")
DialogAddCounter (100; 120; 28; 10; 45; 15; 0; YR; 1900; 34646; 1)
DialogDisplay (100; 120)
If (MacroDialogResult=2)
Quit
EndIf
DialogDestroy (100)
If (((YR MOD 4)=0) AND ((YR MOD 100)<>0) OR ((YR MOD 400)=0))
FEB:=29
Else
FEB:=28
EndIf
If (NOT ?DocBlank)
FileNew ()
EndIf
MacroStatusPrompt (State: On!; Prompt: "Setting up margins and
columns")
FileNew()
MarginTop (MarginWidth: 0.3")
MarginBottom (MarginWidth: 0.3")
MarginLeft (MarginWidth: 0.3")
MarginRight (MarginWidth: 0.3")
FontSize (FontSize: 14p)
Justification (Justification: Center!)
Type (Text: "Year-At-A-Glance Calendar")
HardReturn ()
FontSize (FontSize: 12p)
Type (Text: "Shaded=Holiday; V=Vacation; P=Personal Day; S=Sick; ")
Type (Text: "T=Business Trip; O=Other (Described in Notes)")
Advance (Where: Down!; Amount: 0.1")
HLineCreate ()
HardReturn ()
HardReturn ()
FontSize (FontSize: 8p)
ColumnsDefinition (ColumnsType: Parallel!; VerticalSpacing: 1.6;
Spacing: 2.43"; SpacingDef: Fixed!; Spacing: 0.3"; SpacingDef: Fixed!;
Spacing: 2.43"; SpacingDef: Fixed!; Spacing: 0.3"; SpacingDef: Fixed!;
Spacing: 2.43"; SpacingDef: Fixed!)
ForEach (LASTDAY; {31; FEB; 31; 30; 31; 30; 31; 31; 30; 31; 30; 31})
TableCreate (Columns: 7; Rows: 8)
MTH:=MTH+1
SelectTable ()
TableMarginLeft (Margin: 0.02")
TableRowMarginTop (Margin: 0.02")
TableRowHeight (RowHeight: Fixed!; Amount: 0.26")
SelectTableRow ()
TableJoinCells ()
TableCellAttributeOn (Attribute: ExtraLarge!; Attribute:
Bold!)
TableCellJustification (Mode: Center!)
TableCellNumberFormat (FormatType: DateFormat!)
TableCellNumberDateFormat (DateFormatNumber: 5)
TableFormula (Formula:
"DATETEXT(DATEVALUE("""+MTH+"/01/"+YR+"""))")
PosCharNext ()
WKDAY:=?LeftChar+?RightChar
DeleteWord ()
SelectWord ()
MTHNAME:=?SelectedText
MacroStatusPrompt (State: On!; Prompt: "Working on "+MTHNAME)
SelectMode (State: Off!)
PosWordNext()
DeleteToEndOfWord()
PosCellNext ()
SelectTableRow ()
TableCellVerticalAlignment (Alignment: Bottom!)
TableCellLine (Position: Top!; Style: NoLine!)
TableCellLine (Position: Inside!; Style: NoLine!)
TableCellAttributeOn (Attribute: Large!; Attribute: Bold!)
TableCellJustification (Mode: Center!)
SelectMode (State: Off!)
ForEach (DAYNM; {"Su"; "Mo"; "Tu"; "We"; "Th"; "Fr"; "Sa"})
Type (Text: DAYNM)
PosCellNext ()
EndFor
SearchString (StrgToLookFor: WKDAY)
MatchPositionBefore ()
SearchPrevious (SearchMode: Regular!)
PosTableCellDown ()
For (DAY; 1; DAY<=LASTDAY; DAY+1)
Type (Text: DAY)
PosCellNext ()
EndFor
While (?Row<>"8")
PosCellNext ()
EndWhile
TableSelectOn (SelectionMode: Cell!)
PosTableRowEnd ()
TableJoinCells ()
Type (Text: "Notes:")
PosDocBottom ()
HardPageBreak ()
EndFor
DeleteCharPrevious ()

Charlie Hoffpauir
[STOP THE GRAND PARKWAY]
http://members.manvel.net/charlieh/
 
Top