ࡱ> &(%STUxM 9bjbj== WW4XlJJJJ  8  X X X X X $     JJX X < JLX 8X      X c5  0     JJJJ 9cdrsmn})CJCJ5     68) !"#$%&'()*+,-./0123456789+&P0= /!"#$%   i<@< NormalCJOJQJ_HmH sH tH NN Heading 1$$<@&a$5CJKHOJQJ<A@< Default Paragraph Font,, right$a$5CJ.. months$a$5CJ,, Header  !, ", Footer  !(2( sright5CJ ,B, weekly CJOJQJ<R< daytitle$a$56CJOJQJ  !"#$%&'()*+,-./01239          !!""##$$%%&&''(())**++,,--..//0011223  !"#$%&'()*+,-./01236      !"#$%&'()*+,-./01299:0H(  @H 0(   0(   B S  ?96:6: Michael SayreWD:\Michael's Documents\My Projects\Calendar Betas\My Outlook Calendar Beta 00-03-04.dotMichael R. SayreWD:\Michael's Documents\My Projects\Calendar Betas\My Outlook Calendar Beta 00-03-04.dotMichael R. SayreWD:\Michael's Documents\My Projects\Calendar Betas\My Outlook Calendar Beta 00-03-04.dotMichael R. SayreWD:\Michael's Documents\My Projects\Calendar Betas\My Outlook Calendar Beta 00-03-04.dotMichael R. Sayre`C:\Program Files\Microsoft Office\Templates\Calendar Betas\My Outlook Calendar Beta 00-03-04.dotMichael R. Sayre`C:\Program Files\Microsoft Office\Templates\Calendar Betas\My Outlook Calendar Beta 00-03-04.dotMichael R. SayreUC:\WINDOWS\Application Data\Microsoft\Templates\My Outlook Calendar Beta 00-03-04.dotMichael R. SayreUC:\WINDOWS\Application Data\Microsoft\Templates\My Outlook Calendar Beta 00-10-13.dotMichael R. SayreGC:\WINDOWS\Application Data\Microsoft\Templates\My Outlook Calendar.dotMichael R. SayreGC:\WINDOWS\Application Data\Microsoft\Templates\My Outlook Calendar.dotV --V-- N ( RestartRestart Cal.RestartC NMyOutlookCalendar.Cal.AutonewMyOutlookCalendar.Cal.Restart MYOUTLOOKCALENDAR.CAL.AUTONEWMYOUTLOOKCALENDAR.CAL.RESTART@du9P@UnknownG:Times New Roman5Symbol3& :Arial5& :Tahoma"hRlJTlJ &fr0d]!?2Outlook CalendarMichael R. SayreMichael R. Sayre iH@HNormal'CJ OJPJQJ_HmHnHsH tH u Oh+'0|  <H d p | Outlook CalendardutlMichael R. SayredichichMy Outlook CalendarMichael R. Sayrear3chMicrosoft Word 9.0@F#@41@-rc5@(c5G$mVTg P&WordMicrosoft Word   Courier New-@"Tahoma-  2  -                           ments\My ՜.+,D՜.+,L px  .1  Outlook Calendar Title8~Project CopyrightLicenseVersion#Outlook Calendar Template for Word1998, Michael R. Sayret3IMPORTANT: Read License Before Using This Product1.1 y !"#$'+@*,/-.0213645798:=;<>?ABCEDFGHIJKLMONPQRWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry F@1c5)@J1TableOWordDocumentSummaryInformation(DocumentSummaryInformation8MacrosQDUc5|c5MYUc5|c5f  "$%&'()*+,./01235789:;<=>?@BCDEFGHIJKMOPQRSTUVXYZ[\^`abcdefghjklmnoprtuvwxz{|~(H  @R}((R KQDBTahoma<kY>^Gxj Y>^Gxj Y>^Gxj <k Y}r6}̍X}r6}`NW}r6} ,#9mpCalendarType(.74cmdOK@|$, /;8cmdCancelrTy< $$1"frmLine1 , <14txtSomeoneTyE0x8cboSelectedCalendarO(y2PLabel1@, z0DlblSomeoneTy${#Frame2@g  (OK {uTahoma@(Cancel@ {uTahoma@H,],5Tahoma@AH, &,5Tahoma@0(SSelect calendar to create\5Tahoma@$(EOutlook o6 li29 pFz?aUc5|c5fo <user IDS5Tahoma@$H } &L<$!WeekPage5,( !MonthPagerma5,( I!ColorsPagema5,( J!FormatPagema5,( ^!TitlePageema5,( b#AboutPageema5,$f!Page1@5, 1T8 8 &WeeklyrMonthlyColorsyFormatyTitlesyRegionyAboutnyCreate a weekly calendarCreate a monthly calendar(Select the colors for different featuresFormat the calendar stylefer,Change the titles on the top of the calendarSet regional settingstheLearn who wrote the templateTab3Tab4Tab5Tab6Tab7Tab9Tab8wab8mab8Cab8Fab8Tab8Rab8Aab85Tahoma@ IJ^fb$H q}% , 2<lblWeekOf"aL !4"txtWeek=This and next 7 days will be shownd "`3chkLeftToRight"Prints appts left to right instead of top to bottom0F2DlblNumbex!li18 i*WJOUc5Uc5f#Ho-rWeeksX G<(txtNumberWeeksHow many weeks of calendars do you want? qdNchkShowMeetingAttendees3Check if you want the attendees for a meeting to appear on the weekly calendar (wWeek of:_5Tahoma@H,g ,5Tahoma@@Fr0LLeft to Right Layout5Tahoma@$(nNumber of weeks:O5Tahoma@@H,,1L5Tahoma@DFST0LShow Meeting Attendeesle5Tahoma@ i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q$H H}P" pH %\chkPrintWeekends{EWeekends kept if checkedCompObj4ni19i*WJOUc5Uc5f6oAD '8lboMonthaNMonth for calendar you want((2<lblMonthaaD )4txtYear]OYear for calendar you want(*2<lblYearxa$+8OKButton]$,<Cancel@']0D2H lblNumberMonths#\ E<)txtNumberMonthsOHow many months of calendars do you want?P HX#chkBannerson]EShow multiple day events as banners  <Fpp {1LPrint Weekends5Tahoma@AH,{5Tahoma@(mMonth:@5Tahoma@H,{5Tahoma@(yYear:@O5Tahoma@(oOKL{uTahoma@(CCancel@{uTahoma@((nNumber of months:O5Tahoma@@H,{1L5Tahoma@8F U; {1LUse Bannersn5Tahoma@ i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q$H p)}P" 4 S8 cboItems|Pick an item8 T<CompObjLni73i*WJOUc5Uc5fN0oWx cboColorstem|Pick a color` U28.lblItemListrSelect the item whose color you wish to changel V2<:lblColorsstrPick a color that will be used to print the displayed item@T X2H"lblExampletrYour selection will look like thisprH ZHcmdDefaulttrSet colors back to defaults AX,{5Tahoma@AX, {5Tahoma@(IItem5Tahoma@(CColor@ 5Tahoma@(+ Sample Texte uTahoma@((UUse Default Colors {uTahoma@ i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q$H l}P" ,h CompObj]ni74i*WJOUc5Uc5f_loiLd5chkThumbnails"Prints a small cal for prev/next month at top of page` M\0chkShowApptEndOPut the appointment ending times on the calendarH \XoptLandscapeSelect for landscape formatH ]ToptPortraiteSelect for portrait layout k4XtxtApptFontSizeSelect the size (in points) for the appointment font for the currently selected calendar0l2LlblApptFontSize DFi0LUse Calendar Thumbnailsm5Tahoma@<FS1LShow End Times5Tahoma@8F L; 0LLandscapeTim5Tahoma@4FP0LPortrait5Tahoma@H,5Tahoma@,(FAppointment Font Sizelsm: 5Tahoma@ i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q$H a}P" 40_2DlblOtherTitlest `XBtxtOtherTitle"Add text that will be printed at the top of the selected calendar. a\SchkUserNamelSelect if your name is to be added to the left oCompObjqni94%i*WJOUc5Uc5fsto yf the month of the current calendar $(CCalendar Title5Tahoma@8@H ? Department of Emergency Medicine5Tahoma@<FSg 0LShow your name5Tahoma@ i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(H e}% L CompObj}ni98#i*WJOUc5Uc5fo"$c2\lblAboutAbout Outlook Calendar Template( eLcmdSendMaill <()Template modified by Michael R. Sayre, MD? 5Tahoma@,,SSend Mail to Authorz uTahoma@ i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q$H }P" 0 CompObjni102 !5'i*WJOUc5|c5fo&,g2@lblDateFormat"Ed h<1txtDateFormat" Change to date format preferred for your country.ID0 i2@lblHourFormat"Ep jD?txtHourFormat" Change to the hour and minute format preferred for your country$~#Frame3@$#Frame4@$#Frame5@  ( DDate Format 5Tahoma@@H, m/d5Tahoma@ ( hHour Format 5Tahoma@$@H, h:mm AMPM5Tahoma@DH  } First day of week(OR KQDBTahomaT h%optSundayfWeSelect if first day of week is SundayeT h%optMondayfWeSelect if first day of week is Mondaye i126 * n``Uc5Uc5f5o)+CompObjpHFS1LSunday@FirstDayOfWeek5Tahoma@HFM 0LMonday@FirstDayOfWeek5Tahoma@ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q0@ }Frame4@R KQDBTahoma i129 (0. n``Uc5Uc5fmo-/CompObjp n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q<H   } Paper Sizee.R KQDBTahoma\( hoptPaper811e( `optPaperA41e HF 8 D1L8 1/2 x 11WegrpPaperSize5Tahoma@@Fi130 42 n``|c5|c5fo13CompObjpA E0LA4LgrpPaperSize5Tahoma@ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19qCompObjnCompObjsi49 B8 n``|c5|c5fp(H  8} &G,$8#Frame1@  @ }@G  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qHH  }}SqSelect caleno79i56=; n``|c5|c5f<o:<CompObjpCompObjpi123 @ n``|c5|c5fdar styleramR KQDBTahoma\( |hoptMonthlyrS( }hoptWeeklyyrSO HFM]1LMonthlygrpCalendarStyle5Tahoma@HFW0LWeekly@grpCalendarStyle5Tahoma@ n``Microsoft Forms 2.0 FrameEmo?ACompObjpCompObj>CaVBFrame)bedded ObjectForms.Frame.19q Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} MY Caption = "My Outlook Calendar" ClientHeight = 5895 ClientLeft = 240 ClientTop = 525 ClientWidth = 5925 StartUpPosition = 1 'CenterOwner TypeInfoVer = 338 End VBAOH|c5|c5MYV]CalEG5dirI      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~xЦ~>7#ᢝ,0$!Yj$!Yj$!Yj$!Yjx$!Yj$!YjRRRR RPR$$R0RRRRRME8XHLD\P04SPSSS111L@p@v@z0L@(@@!  Dx!%`@p!t Bp!H% Gl"L%`Jh`8!d`L``\h" " " " 0$*`D(#*BBciX H#iZh#i\#i `^H#x`8t``#p`b#l`h`d#d`f``h $\`jP$X`lT 2'+`@$+i< $i%i `x`$t`p`h%l`h`%d```%\`$X`%T`P`L`%H`D`(&@`&<`%8`@&4`P%0` `X& ` ``&`b`8x'`8% (,`\, *(-`@@( - I `(i  8(.`,@`.  60)/`$@d/`x`t *0`@p)055i )i)i)i)i*i 0*i*$  th*P%`p`l* >8.1`@+1 i<  x8+(%`h `d`+``@+\`X`p+T` P` L`X+H`D`,@`<`+8``,4`+0`0,,`,( r$,<%` + `:`,`8,`x,`"(- `$p-`&,`( *-.-`,-`b@- .2`l@x.2WWiP `Rx`t`Tp b@/3`h3 ! / /4`@/4...i `dHYt`fp`hl,l05`(05\In H0i `8,>16` 06nir 0i `t0t,417`X17ivx1i ``n`2 &`28`( 28ix @2it,z 49`pD29rr)} 22T%i t3X%`p`2l`h`d```:\`X`3T`P  3L3\%4 06:`TD`4:( i `8x`:`4t`p`l h4L%`d `4\`4T`5P`05L`nH`D`@`<`x585 6 6;`Dp6;)) I `8x`:p6t`np`,7<`D07<00 i P7i `8t`p`l`0h,V`8=`@8l= " i `8p`h VP9>`@p>- `x`t`p`` `\` X 9HH9@,% :x:?`,t?;;K `x`t`p l9(%`d``` 9\`X 4p:@$% <<@`@:x@FF i< ause`8x at `tlT` pX`l`;hm`d+Ad`$ ;`irst`\`Xo We`T*lT; ; <A`d|A `x Act` t" `8pays"< =B`HB"" `x`t = .`p`` n = `8=\n `Xin =`Tgin` h=Pmns >C`C `er).`alCo`With` `the `  ?D``@D# ` x ban`tonin`p wit,Z?E`H?E4 i the` `J B? H%,P@F`XD?FQ ) @ @%i `Lt`p`l h@% 8AG`TGo `x`t d0A@4% BH`DH77 `x`t`Ap`8l`:h`d`` B @B `B I`XDI `8xCCB%0CC %B(`CPHB*H".(8x@"3Cl@"5Dp@"8(Dt@b<PDx @b> @bB@ @bH @"L @BPBBT8KHBZHB^HBdHBh(HBnx8LH!b0F#@b$@b&@b@)@bh+@".@" G0@"HG1@"pG 2@bG3@b $4 @b8 06"@b <9%@bD;'@` P8C.h ?D"(H E GH0hH(CBP9@E(D0( 4<x:`8C8E?= DG8 E1/0 ( $xDXF 0DGG! FHG>0(@/PD1`20F8 F @6pG@X @xD@@ ` (7`8.E'FF8AH 06*`ChEF0)C<Ph"Someone Else's CalendarM0-Currently Selected Calendar Folder in Outlook Date printed'sRecurrent appointments`Y `YP x`Y `Y RxO[FTO@ N< @N.O8 @( @ 8Pp 8PX @ @ @ @ O O O O#P(24XVTP PY8P (PYP[P@ OXRP PhP QhQ@ @ PP(Q{8Q PQ~`Q xQ~Q [ R P[l(bdf[p Q^`n\[@ [(t @d ABAxAAT8T`Y@f4XHT\ `SX @H SD @4 S($ S  @ pT(  @ @ @ `TpT TT( S`Y>>PUXpP4XXl Uh @d X` X@?@@p@VVVVXXxVXpXXd @` @\ XX @AAWX`YpX` (X8X\/ PX`XX xXXT XX`Y///Z`Y`xBk fPTk h Yd @` Z\ @L HZ(H @8 @( Z pYJ\Zkk xZzjLkP @  k  k[_HP_0t @p @l h\h @d @T @D _@ _px ]kkt @p @l ]h @d @T @D k@ ^kxk`t @p @l kh k _kkt @p @l p`h @d @T @D k@ (akRkt @d a` @P @@ kX0 k@, k(bkLkpt @p @l @h kd 666c8e`hxf*>&He`l dh @d @T `dD @4 d($ @ @ fX @ `h( @ @ @ `e pe e e( @ ee eef f `h fH8f(ggn `htggg0gX @H @8 @( @ 8h @ h h Ph`h( `h n0@2 2iixdb^ix @h @X i(H @8 @( xnfhxlxj1jkjxkxjkkdb^fhjkp @` @P k(@ @0 @ xxlHRT0h (d @` Hl8P @L < @, Pm @ m @  8nn->4zn(t @p nnl? nn(\ @X  ,h3o3383233opoxxxop(p(4(pHO 0q@qD @4 @0 p(, @ oz@qp @ q( @ @ Xq8xq hq8hrCx @ x @ @ xp @| @x @t xp l55554H5454vsxPDRfs( s($ s  @ (t  @ ss tt(X,t Xt @ Hu( @ @ t(t t(t.u0 u 8u7Hu `u7pu u<u u>u u>u? `vJpvp @ slpv( @ vZv vZwcwX| @l x\ @X 0w}xT @w}Pw`w=<== =P=x@x#PxL hxxH xx`#{HJXP` y\ @L @< y(, h{( @ z @ `z @ (yVR$XTZ` @ @ @ @ @ @t @d P{T @D {(4 {0 HzdRf(, {hjlX(pH0h0~@~ @ (} @ (} h|J@~ X}| |H@~x @t @pd }T @D @(4 @0 @}@~,`X~lh~(`~p~$`~u~ `~y~ L`~} @ 0p*` D@ t~ @`{``8H0`hx```Ȁ؀`(8HV(X*0808:<>@8 `XhP`HR`<H< P`l x h  Ȃd`Ȃ  X0Hh0 @, @ ( @ @  @ @    Є`(@(( @ @ P p h`! 'Ѕ . .8`(1P6` x7 7Ȇ`8=`A( ..x. hVXRZ\Jl (h @d ` @P @@ @0  @  @ @ 0 @ ` @ (  ȇ~`0 ؉`8! `8P"`(X`| 1xx` 5t` ;p؊` A l` Fh(!P!!8""!XVpX @H 8D @@ 0 0989888 0D Hh@ X@( X8h l H\ @L (< @, @  @ X$8$h$$(##h#0Jz@~@XD @4 @$ @   @ @ @ @   p&'0'&'&`'%&%H'&'ДHJ  @ @ @ @ @ x( @ ptzH  `?ȓ @p @` @P @@ @0 (@, @( @$  `R(HN(0  `(Xh( @  Д`0`0@ X h707770hHHxXX @H HD @@ З0 @ @ X @ З @ З  @ @ @ @ ))`JHp @` @P xL @< 8 @( @$ `(FF8x @h ؚX @H 88 @4 0 `8, p*)0*)*P*))`xcJJ< 8CBBHCKK4p8H+#;*\R5*#79*\R5*#82*\R5*#33*\R1*#155*\R2*#e*\R5*#7f$*\Rffff*<83b23a8b5(*\Rffff*<83b23a8b5\0(*\Rffff*<83b23a8b5\1(*\Rffff*<83b23a8b5\2(*\Rffff*<83b23a8b5\3(*\Rffff*<83b23a8b5\4(*\Rffff*<83b23a8b5\5*\R5*#4f9SHLTPHT XJ\`d,hOlptx|A;%1&*78<:I59$#(/0-KLMN PQ R$3( 4 8 X ` P x : 4 8 0 H P 6` 6 L R  >x B 4 J8 @ : @ >H D H R Rp J : >X B N @0 @p 6 H R0 F > X Nh P > TH X > Z8 : ` D8 : 6 D Z@ n p \ f ^H < V h@ P V JP d H ZP 4 J 68 Zp r jH ^ Lp H B ` 2h : * , $@ "h $ . " ( 08hx@  88@HPX`hpx   &$:Xp"" "8`"    (08@HP X`hpx    (08 @X`hx  "   "  &,5"H ` p    0 2  #8H,P   1 " (  " (0(H p " x(  " (  " ( 0 8 (P x "   (|  "   (|!(! " 0!8! @!0 h!X! !! " !! !!$!""8" " @"H"P" X"p""0"" " """ " # #8# P#p## # # ## "####  # # #DD$ *P$ `$ p$$( H$D% %%%&&i&0& D8& H& X&`&h& p&/x&&/&& D&&$@'*e0'  `'h'p'x'' ' 'TY' !'( "(( (((0(8(@(H(P(X(`(h(p(x((((((((((((((((()))  )(() 8 P)F0)D) ,1* FH* h*/p**/**  * **  * (*+++ +8+@+X+*`+  Bp+ + 2+,(,&H,  $p,$,,  L, :- (P-`-Rb-()-.Rb.()p..  ".(. .E.8/ (/  8/  @/  H/  P/  X/  `/h/  p/  x/  /  /  /  //*// / //$/ .0 000*80P0 X0 h0x0$0 .0 00 0 30 30 30 *1 01 2H1 h1 &7x1 &7111 E1:1 &82(2`2(/2>*2 2 D3 H3"N`3!3B3,3 4 ) 4 @4H4P4X4`42h4 444 4 !4 !444 444 5 505&85 H5 P5X5`5 .h5 55 65 6 6 6(6@6> BH6 <h6 6 F6 !7 DX7$707X7`7 <x7 :7 7(888H8 P8X8 `8 h8 8 8 888  8D8,09 *`9$9!9 )9 9 999 9 2:: :  (:0:8: H: Dh:: : :::J$:   $@; 0h; &; 8; ; (< 2@< 2x< ,< .< 0= P@= >= = =40=&&(> 4P> 6> >>62>  ?0?"8?@?H?*S`?? "???(|?? " ??@(@@@H@P@ " X@`@h@*@@@0@A(A.0A`AhA " pA(xAA " A(AA " AAA(B0B " 8B@BHB(`BBBB " BBBBB0B C@C.HCxCC "CC 1CC.aCGCD "  D D(D@DHD`D " hD*pDD "  DDDDD " D*D E "  (E0EHE`EhE "pExEE,NE E " EE E*E(F "  0F8F @F"XFF " F2FFF "  FFF G G ,(GXG `GpGxGG "  GGG G G ,GH H " HHHPHXH "`HhHpHxH  H H 4_HHH HI "III I(I0I8I@IHIPI XI `I pI xII I 00IIII IJJ)J8J   (@JhJ*GJ+J J JJK(K@KXKpKKKKKKL(L@LXLpLLLLLLMM0MHM`MxMMMMMMN(N@NXNpNNNNNNO(O@O`OxOOOO O.P P - P8P @PXPhPPPPP P$HP (JQ 8QXQ4JxQ .Q.VQR0>(R .XR *RBjRSS SS S.J@S pS (SSSS 4SS T  TB TBhT4_T BT0U@UHU&TPU#xU UU UU U U6QU   V 0V @VPV XV hVxV V HV<V LV +V+V+W+W+(W+8W+HW+XW+hW+xW  WW W WW.W @W 68X "pX X X X/XX XfXHY BPY Y" YYYYYYYYYZ ?Z2 Z@ZXZ `Z pZ Z ZZ ZZ Z!ZZ Z?[[ 40[Hh[+[ B[\0\ 8\ H\X\2`\\ \ B\ &\](]H]X]h]<]"]] ] ^!^(^ 0^"2@^h^ p^ ^!^^ ^  H^?_ _ (_*L8_h_ p_ >x_" ________```` `(`0`8`@`H`P`X```h`p`x```````  `(` 6`F aDha"a aaa b b b(b0b 8b HbXb`bhbpbbbb  b bbb  b bcc c(c@cHc`chc cccc  *cc "d  B(d pdd d Rd (e R8e (ee e Re (0f RXf (fff  $f(g88g,pg>g .g h 8 h Xh $hhhh 6hhh <i Xi .pi *iii"i j(j <@j :j jjj j kkk0k 8kHkXk`k hkxkkk kkk$kkk l(l0l @l`lhl ll llllllllmm m  m 8mPmXm`mhmHxm4m&m n6(n `npn Jxn n"  nnn oo0o.Hoxo ooo ooop p N(p 8xp" ppppppppp ,p D(q 4pq >qqqr 3r "(r @Prr &r r r0s 80s hs .xs 4s$s  Bs ,8t,ht t tt  Ft ,u@uXu xu u u u u uuu  ,v 0v >@v vvvvvvv Vv Z(w w" wwwwwwwwwww  2xx x (x $Hxpxxx Yx ?x Ixx6]x y (y $Hypy Yxy ?yy yIyIyy 0z .0z `z0Wzzz z2z Ez{F{X{ p{  { {{{*O{4{ I | E8|P| X|E`|0|| Z|" }}}} }(}0}8}@}H}P}X}`}h}p}x}}}}}}}}}}}}} $} B~&G(~ P~ `~p~ x~ (~<~&~8~<0( 2@ 6x 20EE0 HP " h "  Ѐ  0  (#0 X ` (p  VPȁ   (@h8 ,x  \ \     ( Ѓ؃  &`  $(&P.kh6r ؄    . BH6h6ȅЅ؅.? (@HPX4`6` $ІPhpx   (:ȇ  (08 @.?Hx  &6  &20 8 :H/'؉ 6(\ @H"V` *R؊   2 :.(.h8D*ȋ &`( N0 D    0 HPXpx"#  ȍ )Ѝ   8@6HX (\` 5 %"V *R08H P X4h  5   8" 0@&@*   8 "   B  T XxJLБ ( 08@ "H2P2h    < " 2E(H P8X.p   90 ȓГؓ "   " 2 X`hp  4Jx :   ((70 P` hpx     ȕ Е ؕ  ,*a Ph!x8ؖ8 B h "  Hؗ (08@HPX`hpxȘИ <ؘ > ,X@24'ؙ  &( 4P,M К 0(3  &05X5p  ,K$@ț    .8 EP :h $ :М  80 >h * XS؝ 0 ,P 2 0 0 &@ H *P D (ȟ ($ *.H 6` 8 <Р. R(& $ $Сء L -8H hx  : (آ 4 @8 x 5  HУ.058 8PI.yؤ @ D &h6 ȥ 2إ&H8@ &H 5p5L.&Ц5*B50 H  >P   Fȧ @ P 5h   *  ,K 84_P @ 2ȩ 218PX./`    Ȫ Ъ0 P `h Fp "  :y ,6( n|Ȭ8@ (H?p5 ?.7Э6 ,89@ 4X785 .(0  8 @H .P ` h p #x $ د : ( H P ` px >  Ȱ,ذ      0 @H P X h x  2 0 6 ( @HX` h " p"x"Ȳز "  *j( LX&T#г  &T#@ X hp x 28#д     *j(,jX,j*j*j2Q0QP&i(j2Qж8Q<@0R   B  ȷ (з : 8 X  `p   ȸ и  B  .   (8 @P Xp x   ȹ  B   . PX` $h(Ⱥ  "  .   (0  8@  HP  X`  hp  x         Ȼ  B  D 4@ xȼ мؼ, 0 8@ Hhp 1 >ؽ 4 P h p*x   Ⱦ !о    "7 D( p  "O% 2@ x  $ 8F@<,_7(0@HPX` hp/x     .  08 @HP`h " px &  @ PpH x> $B08HPhJp:B  8@H ` h    ( > :H>v4  <( h$H #   &   B= P .X  B% 0@ HX`x#  (0@"H`P]h4>v  ;(H2BP   0 8@H P`hpx           LeX !`px "  >>~0 80P(sp      0 8@ HX$` 4 0 8 08 /@PX B `hpx    *   "0 ,X :  / ( #@`x    $      0M  HPX`h Bpx "I(F  " (08@H  P `px     0@ X ` p  "    0@HX p   "   0 8 P ` p    4((0@&%X   &&     "  (08@HPX `p #x   &,P,(8  PX `  x     &$H7(8X` p  x     $&(Ppx    , jpx    2 0@ "H (P ,x 8   0  @  H  P  X ` h >x  "   (8@H `px    "!"  HX p x    "     08@ Xhp      ( 8 H "PX`h &p   ) +8X B ` Bh "    8H P` p 0x B  , 6 ( 60'h !  $" $ * 8H P` :h   "   #0 &&Px     " ( , 0 `&@ "  H X (5`   $H 4 *0>rH8u .h  &0X&Sh ,4  + 6G@x +  " "/ 8@H P-Modified from olcalndr.dot dated 5/11/98 fromMicrosoft Corp. Web SiteMichael R. SayreI3Modifications Copyright 1998-2000, Michael R. SayreC:. You may redistribute this template as long asES2 all comments and my name and the software license are included.6\Changes:c0 June 3, 1998 Added color to one day events/ Added blank calendar featureE June 5, 1998 Added color shading to days before and after monthL June 6, 1998 Added ability to create multiple weeks/months in one pass8 June 7, 1998 Added banners for multiple day events< Improved speed of MoveToRightDay functionMICHAE. June 8, 1998 Corrected sorting algorithm @D Corrected portrait small calendar header templateB9 Added automatic detection of user name4 June 13, 1998 Corrected banner display accuracy$M<9 Added registry save settings functions8 June 14, 1998 Allowed user to change color settings= Made template aware of international datesB June 19, 1998 Changed landscape check box to an option buttonK June 20, 1998 Added text boxes so user could set international formatsK Added ability to color particular categories differentlyD Added ability to send mail to the template author4 June 24, 1998 Improved speed of category search8 Added special feature for Dr. Kothari; July 24, 1998 Disabled special feature for Dr. KothariH Corrected bug in banner printing with multiple months: July 28, 1998 Corrected 5852 error in banner printing9 Corrected banner width and positioning0 Improved initialization speedB Print tentative appointments in different colorK July 31, 1998 Corrected error in Currently Selected Calendar procedure? Recurrent appointment color can be specified8 Further improved initialization speedQ Aug 1, 1998 Adjusted banner position when more than one banner is on a dayH Improved speed of shading days before and after monthI Aug 3, 1998 Added feature to show meeting attendees in weekly view7 Aug 4, 1998 Added restart button back to toolbarN Adjusted banner position when banner is on last row of pageQ Changed thumbnail calendar locations to left and right margins7 Adjusted autotext entry right marginT Corrected international date format problem with weekly calendars4 Aug 5, 1998 Added version info to "About" tabY Added feature to permit Sunday or Monday to serve as first day of week> Corrected sort problem with recurrent appts3 Adjusted order of coloring appts0 Aug 10, 1998 Fixed the following problems:> Word asks to save template when closingT Day Names appear twice in monthly calendar without thumbnailsh No banners appear when requested if template visible tab is not the "Monthly" tabj Subscript Out of Range error generated when no appointments are on desired calendarV Subscript Out of Range error when banner extended across months_ Title appears on page before when multiple calendars printed on one passX Incorrect user name appears when printing someone else's calendar6 Improved banner repositioning speedO Aug 11, 1998 Improved speed to locate correct calendar day in weekly viewa Aug 13, 1998 Corrected banner positioning problem when banner occurred in row with no apptsJ Aug 18, 1998 Corrected printing other user's name at top of calendarO Aug 20, 1998 Corrected banner positioning problem with descending bannersD Aug 21, 1998 Corrected problem with OL98 and security patch #2] Aug 26, 1998 Changed user interface to select calendar from option buttons to combo boxA Added sorting of calendars by frequency of useS Corrected problem when no access is permitted on a public folder- Added support for A4 paperC Sep 1, 1998 Added function to find folders in the background0 Oct 2, 1998 Fixed the following problems:T Error 5 when no folders exist in the registry list of foldersl Error 4096 or 440 when a synchronization error is present in a particular appointmentd Error 440 when a folder is no longer available in the GetNewFolders procedureW Oct 6, 1998 Fixed problem with banner positioning if anchor ended up in next row< See My Outlook Calendar license in the document properties.P + TO CHANGE TO YOUR COUNTRY'S DATE FORMAT --3 Change the following constants so that the correct$ Hour and date conventions are used.% For example, if you live in Britian, you would use the following:Const cFormattedDate = "d/m"Const cFormattedTime = "h:mm"' If you live in the USA, you would use:Const cFormattedDate = "m/d""Const cFormattedTime = "h:mm AMPM") Just change the entries below as needed:]m/d8C] h:mm AMPM`C] [Categories]$!Change to your language as needed] C](]C]C1Dim objOutlookOneAppt As Outlook.AppointmentItem]D](D]PD]]xD]@]h]D]]D]]D]Outlook Calendar Template]Someone Else's CalendarE]Empty Calendar8]-Currently Selected Calendar Folder in Outlook`]Calendar@E]Title]Standard appointmentshE]Tentative appointments]Multiple day events]One day eventsE]Other month date]Other month backgroundE] Schedule name(] Date printedP]Recurrent appointmentsE^^p^^ ^8pP^h^^^^^^^p`0^H^`^xp8^^^^p^ ^@^X^pp]x]F]0F]]XF]]]F]@]F]h]]&F]]F] G]HG]pG]G] ]G]8 ]` ]G] ]H A@ro( ]h  F !d' ! RSelected Calendar A@ R\ A@  T ( (d  ( (kk)Need to prepare for possibility that lastselected calendar is gone !$!.8 !'h  Subscript is out of range'F  (d e  B@ko ] R\ ' !  ! !$A@o ] R\ ' !  ! !$A@o@0 ]p R\ ' !  ! !$A@o ] R\ ' !  ! !$A@o ] R\ ' !  ! !$A@o88 ]x R\ ' !  ! !$A@o ] R\ ' !  ! !$A@o ](  2%. (\hMy Outlook Calendar (  B@"oH ] (! *!A@& *!$!x ,(. R\ \Colors' !  (! *!A@oh ] ] (!$4'2 2$!x ,(. R\ ' ! Current Color Item (!dA@o]P]h 8 (!< 8 (( 8$> *(d :  *!d :$!r 8 :$!tA@&yk : 8o]]]$F'' B@H J%LB@N$.Deletes any text that might be on the calendar  X D$P D.8d   An error occurred connecting to a calendar. Make sure:  $T0* That a calendar folder is selected in Outlook. $T5* There is at least one appointment in that calendar. $T,* You are using a Microsoft Exchange Server. VGet Current Calendar FailedA@R J%LB@N B@$|kk D$XNothing  T Z J%LB@N B@$|Hk@k8 \ b J!^(`d d J!^(`k=Save the number of runs so that we can sort the entries later R\ ' ! Runs$fX 'B ! Runs B $A@ JA@hd0A@jk '$F'Finished. Word took s  $l seconds to create calendar.'  ( o]P]h]]]]]]] ]8]P]h]]]]]]]](]@]X]p]]]]]]]]0]H  (Creating monthly calendar... ( 'z)Initialize to no months have been printed $'x*0In case user accidently put in a negative number x G'xj,&Make sure at least one calendar prints ! ''Get the month number !d$ $'<   J!^(d   J!^(k x zaInitialize aryCellsA@Put in boilerplate ih B@k por B@dhcal B@kH !LB@; Take the month and date entered and build a query argument that will go from the+ the first day of the month to the last daym <$'d $'Building Calendar Days... (  Add in the days of the month startdaysmtitle <A@E If the option to include header calendars is picked, then create the4 little header calendars for the prev and next month m <$'!Inserting thumbnail calendar for  mmmm yyyy$... (  pstartdays pmonthname A@m <$'!Inserting thumbnail calendar for  mmmm yyyy$... (  nstartdays nmonthname A@kHandle the no weekends case Deleting weekends... (  startdays J%B@H %.t H  ' ' ' ' ' 'd8 ' ' ' ' ' 'k  t%B@H 5(5(q  t% 7(  C@qp  t%B@H 5(5(q(  t% 7(  C@q t J!^!' J!^!' J!^!'    ?  ' 8     87B@ 8    7B@    7B@q k startdays J%B@H-Getting Calendar Appointments from Outlook... (  Get the Outlook Calendar data. < Long Date$  00:00'  Long Date$  23:59' [End] > " " and [Start] <= " "'mtitleA@> Set a bookmark called fdofmonth at the first day of the month for this month startdays J%!L.r < H$'   #0If the first day of the month is not on a Sunday Shading days before the month... (  r   C@5 5 9 9q@  7(q q d  r  C@  C@q k  r C@5 fdofmonthC@"CurrDayC@"qp 7 5$'@5&'BqH q@ !Inserting Outlook appointments... (  Insert the appointments  V0Test to see if there is at least one appointment  pA@('8 $!.n` n$XNothingb 6No error occurred; so therefore there must be at least one appointment. @ If for some reason the item is not an appointment, then skip it n!,$* n!.  < n!. fdofmonthA@0kH <  nA@25Only save the start time for regular appts as we have4no way of knowing where the insertion point is aftera banner has been created. n! n!.  n!.'dX'kHk@ Next lCounter 8 '8 8  Gxj 8$!.nk  H$'   !1If the first day of the month is on the same lineShading days after the month... (  <  fdofmonthA@0 !L.r   rB@4 lp    rB@ r! 5 9 9q  7(qkA@6A@8  If there are any bannersx>This works because the first banner is at the array index of 1lTA@: <A@<lX <A@>lXk z 'zqm <$'<>+Add one month to the first day of the month Handle the 'No Weekends Case'lt*lTableNumber = ActiveDocument.Tables.Count If chkPrintWeekends = False Then2 Application.StatusBar = "Deleting weekends..." With ActiveDocument" .Bookmarks("startdays").Select+ .Tables(lTableNumber).Columns(7).Delete&+ .Tables(lTableNumber).Columns(1).Delete% sPageWidth = .PageSetup.PageWidth' sLeftMargin = .PageSetup.LeftMargin ) sRightMargin = .PageSetup.RightMarginI sEqualColumns = (sPageWidth - (sLeftMargin + sRightMargin + 0.8)) / 57 .Tables(lTableNumber).Columns.Width = sEqualColumns End WithEnd If @ B@Move to the end of the document D B@B3Create a new page-Also creates a new section so that the bannerp*/positioning function will work with the bannersin the current month oN F B@N$Get rid of the last new page H (op`] R\ ' !  Visible Tab L!A@o] R\ ' !  P! P!$A@o?]P R\ ' !  T! T!$A@ 'HA@VoP?h] R\ ' !  Visible Tab L!A@ ZWeekly calendar'J ! Monthly CalendarFalseA@ \eMonthly calendar'J ! Monthly CalendarTrueA@k@>o8> ! R \! \!$A@o> ! R \! \!$A@o=@] R\ ' !  P! P!$A@op=] R\ ' !  T! T!$A@ 'HA@Vo=]0 R\ ' ZWeekly calendar'J ! Monthly CalendarFalseA@ \eMonthly calendar'J ! Monthly CalendarTrueA@k(<o <H] j$' R\ ' ! Text Font Size $A@ $ j(do;  !!!'k`; $ j(do@; ! R Date Format t!dA@o;H t!dm/d t(dk:o: ! R Hour Format z!dA@o: t!d h:mm AMPM t(dk@:o8:X] R\ ' !  Number Months !dA@o9] R\ ' !  Number Weeks !dA@ox9]p R\ ' !  ! !dA@o 9 ! RSomeone else e-mail !dA@A@Zo8 !d !d$A@  (. !d is not a valid date. ( dH8 (.k08k(8o 80 !d !d$A@  (. !d is not a valid year. ( d7 (. !d$0$ (dkX7kP7oH7]]] G|j' ! RSelected Calendar !d$f' R\ 'A@ A@o6 ]`]x]]]]]]]  F'  ('FPp $ T'   %\My Outlook Calendar.dot'5 $'5 'd5 Version: $'kh5"Add the month names to the listbox 8  8$mmmm$  8+. 8$. B@ 8 Automatic$(r$(t$(xBlack$(r$(t$(xBlue$(r$(t$(x Turquoise$(r$(t$(x Bright Green$(r$(t$(xPink$(r$(t$(xRed$(r$(t$(xYellow$(r$(t$(xWhite$(r$(t$(x Dark Blue $(r $(t $(xTeal $(r $(t $(xGreen $(r $(t $(xViolet $(r $(t $(xDark Red $(r $(t $(x Dark Yellow$(r$(t$(x Dark Gray$(r$(t$(x Light Gray$(r$(t$(x 8   8$!r *B@.MAPI 2%.4A@  '8 8@ X 8$( V 8 $( T 8 $( Z 8 $(A@ 8  8$!$XNothing 8$!!  4%!Add the user's name 8$! X  8$!!  4%!'If this is the primary default calendar !$ 's Calendar 8$( 8$!' 8$!  4%!e(if this is another default calendar then#add the mailbox name to the display 8$!!! -  8$!! 8$(k,k,k,k+ R\ 8$!' ! Runs$fX 8$( 8"Sort calendars by frequency of useA@ 8  8$! 8$! B@k++ set some defaults ! RLeft ! ! $f$ ( ! RTop ! ! $f$ ( ! RSelected Calendar !d$f';Set default if the user has not run this program previously  'k) ! R \!TRUE$f' $TRUE \(dp) (kX) R\ ' A@ ! RSomeone else e-mail$f (d  T ( (d( ( (k(($Fyyyy$  (d$F$$. (d V Short Date$  (d l (B@ b (B@ d (B@ f (B@ h (B@ j (B@ ^ (B@ ` (B@ n (B@ \ (B@ A@x'  (d !'P' |Could not set text property9Happens if the most recently selected calendar is deleted0Will need to reread registry settings so set theinitializing variable to off'F  (d e  B@k@&'FReady. Initialization took FX  <<0$ seconds. ( o%< This routine calculates and puts the days of the month in a preset calendar table.]X]p]]]]]]]  J%B@H   B@ 8  5(5(  8$0'dx$ 8$0$ 'kX$ C@  C@q($ 8  J%B@H  H$'.Get the weekday for the first day of the monthd $'*(Get the last day of the preceeding month $   ';Get the day of the Sunday of the first week on the calendar 8    5( C@q"   B@  ' 8; Now starting from that first day, drop in the day numbers. Calc the last day of the monthm $'d $' $' $'   $'((Convert the day of the month to a string G 'j  5( C@  C@q  8  H$   5( 8C@  C@qh 8A Move to the title Bookmark and drop in the Month and Year Titles  J%B@H  5( $$.  $C@qo7 This is the main routine for creating weekly calendars0]p]]]]]]]0]H]`]x]]]]]]] ]8]P]h]]]]]]] ](  (Creating weekly calendar... ( '(Initialize to no weeks have been printed $'(0In case user accidently put in a negative number  G'j*&Make sure at least one calendar prints !dX'' Get first day ! ' !!'d1lr' lras'"'$d'd1tb' d1tb'"'$k   J!^(d  J!^(kx  aInitialize aryCellsA@'Put in boilerplate ih B@k por B@dcal B@kweek B@ lr B@kp !LB@# Drop in the day of the week titles  $ A@& $ $$'; If this format includes a small calendar, then populate it  $ m $'!Inserting thumbnail calendar for  mmmm yyyy$... (  pstartdays pmonthname A@!Inserting thumbnail calendar for  mmmm yyyy$... (  nstartdays nmonthname A@dXm $'!Inserting thumbnail calendar for  mmmm yyyy$... (  pstartdays pmonthname A@!Inserting thumbnail calendar for  mmmm yyyy$... (  nstartdays nmonthname A@k8k0 Calculate the restrict query  Long Date$  00:00'd $ Long Date$  23:59'd $$  23:59X' [End] > " " and [Start] <= " "'!Getting Outlook Calendar Data ... ( wtitleA@1 Loop through the appts and put them in the table  V Get and sort the outlook data  A@('80Test to see if there is at least one appointment$!. $XNothingb 6No error occurred; so therefore there must be at least one appointment. (For lCounter = 0 To UBound(aryApptOrder)$ Skip ones that are not appointments !,$* !.   !.  "A@0k   A@25Only save the start time for regular appts as we have4no way of knowing where the insertion point is aftera banner has been created. ( !(' !'  '  e  B@k !*'  '  e  B@kP      Required: . 'k   Optional:  'k?$05,(. C@C@25,(.qhk`kX ! !.  !.'d 'kk 8 '8 8  Gxj 8$!.kA@8  'ww $';*Add one week to the first day of the month @ B@Move to the end of the document 4 B@B(Create a new page F B@N$Get rid of the last new page H (oC This routine inserts the weekly day and date names into the header of the weekly tables@ ] ]  J%B@H 8d 8 6$': :dddd t!d$ B@  8  B@ 8wtitle J%B@H  5(Week of C@ 6 Long Date$ C@qoG This routine uses OLE Automation to Outlook to return the appointments2 from the range specified from the calendar folder!]!]!]!]!]"] "]8"]P"Getting Outlook appointments... ( >In order to get the recurrences to show up in the right place,- these statements MUST be in this exact order8First get the collection of all appt items in the folder( 8!H.F F$XNothingNow sort in ascending order9Any other order will result in the recurrences being lost[Start] FB@N Now make the recurrences show up F(PNow restrict it by date#Restricting Outlook appointments... ( 2Set myrange = objOutlookItems.Restrict(rangequery) F.>(Can't use the myrange.count because then.the number is not inclusive of the recurrences 8!H! 'L<Erase the array and redimension to the total number of appts& in the folder BEFORE it is restrictedSorting Outlook appointments... ( '8Erase the array 8"@Now iterate through the restricted appts and save the item index% and the start time for later sorting < >%R.@ @$XNothing 8@" 8 8$( @!. 8$( @ 8$/ 8 '8 >!T.@ k %If there was at least one appointment 8 8Fix the size of the array to reflect the recurrent items 8 @"A@Vdp".>kPoHP This routine moves out in the calendar table to the day that the vntAppt is on.S The lFormat argument specifies whether to move top to bottom weekly, left to right weekly, or monthly style."]#]#]#]#]$] $]8$]P$]h$]$d X Z$l'^ \KT Weekly, Top to BottomIn case not in a table at all ^ G'^j %!!   J%B@H % ! B@Hk0 ^ pr %%nB@HKT Weekly, Left to RightIn case not in a table at all %!t!   J%B@Hk` ^ % ! B@H % !vB@Hd) For lCounter = 1 To lNumberOfDays( Selection.Cells(1).Next.Select Next lCounterp ^ r %%nB@Hk`KT Monthly z %xCurrDay J%B@Hk ^ @  'jC$Have to allow for row with day names ^ @  'h h'h j 'jkx j G'jj jp hr %%nB@H j b%!Special case for neg column Index % ! B@H % !&'jnCurrDay !L!B@" ~ B@|oxT This routine formats the vntAppt information and inserts it at the cursor position.$]8%]P%]h%]%]%]%]%]%]%]&](&]@&]X&]p&]&]&]&]&]&]']']0']H']`']x']']'Inserting appointment... ( h !. !$l'd < !. H$l '   'k $! J"Get the measurement of the top row % B@H  B@  %x $( % B@H ~ B@|+For some reason, we have to hit the end key/twice to get the insertion point in the correct+spot. Otherwise the lRowIndex is undefined. ~ B@| % !&'  $( % !$'b'8 b 8  b $!  8 $( Save the row index for later   8 $( 8 '80~k(~*Get the location information and format it !' G ( )'j 5(" Special case the multi day appts,  Then do not print the time !. ! !. !.e[ If event is exactly one day long' 5( !. < !. H$ < H$ e %If the event started before the month 5(... !. t!d$  !. z!d$'  - ! t!d$  ! z!d$'d{'k{  'd it is just a regular appointment5 $9 9q { !. z!d$' If the appt goes past midnight !. ! ! t!d$ 'kxz -  ! z!d$'d8z'k(z  'kz C@  If this is a multiday eventd !. !$l' !.$ <$'dy'kpy !$ <$'d@y'k0y ! < < H$ "if the appt ends in the first week''dx'  5!If the appt is less than one week  !. H$ ! H$ Whole appt is in the same week'dx'kxdHOtherwise it must be longer than 7 days and it ends after the first week'kwkw  ! ...'dpw ! 'kXw  !. < < H$ ... ''dw'kvdv'kv  !   H$ 'dv'kvdxv'khv  < < H$  'd0v !.'kv    H$ 'du !'3Because the "end" is actually midnight the next dayku   '   H$   H$ 'd8u 'k(u   '  J 7%! ''  b  7%!  ' qxtdpt % !  'k8t (_ t  JInserting banner... (   %x'X" + Selection.Cells(1).Height * 0.6  %x'         A@d No banners59 9qs !. t!d$' HTake off one second to make sure that the date is correct when appt endsat midnight exactly - !$ t!d$'d(r'kr  ' C@5( C@C@2kq  J N'dq   ' < 3 fdofmonthA@0  '... ! ...'d q... ! ' '  ...'kpkp  J 7%! '7!' 8   87%!  ' 8q pdp % !  'ko  'ko  (  e) If this is a regular appointment5($ Turn bold off !  C@C@2  %x $(d  If this is a oneday event !. < $5(9(Use Green to have these events stand out !  C@C@2$ End the linekXn  %x $(k0nq(no n' A@ron(M In OL97, all appointments have a message class starting with IPM.AppointmentQ In OL98, recurring appointments have a message class starting with IPM.OLE.ClASS $IPM.Appointment  $ IPM.OLE.CLASS'*dl'*klil( @ B@ F B@N 5( 5( Printed: C@$F Long Date$ C@q0lo(l(])])' z %xCurrDay J%B@Hkk b  %' z %x'  B@ !!  ! B@NkHkk@k8ko0k0) InsertTextBanner Procedure, Macro recorded 06/06/98 by Michael R. Sayre]P*]p*]*        J!%.  <mmm$    J!! 995 9 $!x5.(@qi $!x5!.(@ 5(l555 99 ?9qpi 5,( 9dqPi9999q(i &Get the number of cells in this banner5 % !? '  ' @*5 $(r  $(|  $(~  $(  %x $(  %x $(qg;Save the shape in case we need to adjust its position later  $/og*AThis procedure fixes the banners after the calendar text is added] +]@+]X+]p+]+]+]+]+]+],],]0,]H,]`,]x,],],],],],]-](-]@-]X-]p-]-]-]-]-].] .5Get the banner shapes on the current month's calendar8First set the range to the last section in the document.&It contains the last calendar created. J!.!0!L.r2(This will happen if there are no banners r!4!  *If there are some banners (dAdjusting cell heights... ( -Move to the cell that begins the first bannerd <$!| H$l '8$! Returned in points55!6 'qd <$!|fdomonthA@0Select the contents of the cell  B@8  B@: ' d < $!| H$l ' m <$ $',  , ,' kc_c What row are we in?  %x' % !$'b 4Selection Information returns measurements in points as is stated in the help file. 4If there is already room in this cell for one banner  then do nothing more 2So get the height for this line as calculated when 8the appointments were inserted. Need to add 1/2 line for $the last paragraph mark in the cell. 8$! 8$!  8$! $<? ' $*  &If the row height has not yet been set+(which happens if there are no appts in the*row yet) and if there are no appts in this)cell, then force the do loop below to run by setting the sLineHeight to 1.'k_ #If this cell has a banner in it AND >the text inside the cell is such that one banner would not fit !given the current row height THEN 8$!  $* #Get the top of the cell measurement  %x'/When calculating the row height we will need to2make sure we haven't rolled over to the next page.5So save the page number for the row under our target.  %x'LCollapse the selection to just after the last character in the current cell.  B@Add a new paragraph character !, @9> ?9Bq ] B@2 % !p(D 8$!  !,(B : 8$! B@2A@ :k\3One machine had trouble with refreshing the display!The row count therefore was wrong.The next line appeared to correct the problem.:However when it was commented out the problem stayed gone.ActiveDocument.RepaginateDoEvents ~ B@FDoEventsBNow get the top measurement for the row underneath our target cell  %x' A@ ~ B@H2Test to be sure we are still in the correct column % !$ b  b % !$  B@8k8Z9If the calculation produced a number less than the inside>height of one cell, then we must be in the last row on a page.Save row number for next object   %x    '  +Will happen if next row is on the next page   %x   'kXdX The next row is on the next page  B@:  B@8 % !p(D  %x'  B@ ~ B@F   %x   ' ~ B@HkW7If the new row height is greater than it was previously  $*  +*kXWkPW ?There will not be any appts beyond the last day of the month so :we can exit the loop eventhough a banner may extend beyond 8 ,Gxj  B@8 8 '8A@ 8  A@Adjusting banner positions... (  '  8 d < 8$!| H$l ' 8$!Adjusting banner 8$... ( 9If this template is being used in Word 2000 or later then,The problem fixed is that the positioning of,shapes changed between Word 97 and Word 2000 !J$  N9LkT $!$*  8$! 9qT 8 (kXT|PT2HT !KT!Requested object is not available IThis happens if there were no banner shapes in the first calendar created|SSS ! B@nSoS8.].].]. ! !$PREFERRED CUSTOMER&Give user opportunity to add user nameZThe user name in this copy of Microsoft Word is blank. Would you like to insert your name? V X Missing Word User Name$R'R R Z;Enter your name to personalize this copy of Microsoft Word.Microsoft Word User !$\ (kQkQ!Adjust the size of the main title P J%B@H  !( P J%B@H  %x' ~  B@H   %x &If the cursor really went up on a page'T   %x e.If the cursor rolled over to the previous page'T ~  B@Fd0if the cursor was already at the top of the page'TkP  !(   59 9qO C@C@2 T `9^ 5(kOqxOkpO Inserting user's name... (   TKT 3If the calendar is for another designated user then  put in that user's name  5( C@qN KT 7Insert UserName if the calendar is for the current user  5( !C@q(N XKT Insert the calendar's name  5( C@qMSM  5( C@qMnM+If using a calendar without thumbnails then)there is not much space at the top of the/page. So put a space in between the user's nameand the month. T B@kLkLoL. ! RLeft !A@ ! RTop !A@8/.>.8.4.2gLoL@/]/]/]/ !  !True$f (FHas to be this way because using the Val function always returns false !  P!True$f'd d$FALSE (dK P(kK !  T!True$f'f f$TRUE T( 'HdJ j( 'HkJ ! Monthly CalendarTrue$f'h h$TRUE'J \(dJ'J Z(kI !  !True$f ( !  !False$f ( !  !False$f ( !  !True$f ( !  !True$f ( !  Number Months1$f (d !  Number Weeks1$f (d !  !$f (d !  !1$f ( ! R Date Formatm/d$f t(d ! R Hour Format h:mm AMPM$f z(d ! Text Font Size !!!$f j(d !  Visible Tab1$f L( A@oPG/! Returns -1 if no match was found4 Otherwise this function returns the combo box index where a match was found.]h0'l 8 *!< 8 *%p n 8 *( 8'lyPFkHF 8i0F0]1 r (%p \KTBlue't dKTGreen't bKTRed't ^KT Automatic't fKT Dark Yellow't hKTYellow't jKTDark Red't lKT Dark Gray'tS0E Automatic'tnE t'>iE1' Returns the index of the correct color]1]1]1 R\ \Colors' !  v (%p$f'n n (!$>'nk0D n$l'2 2'4iD1 x (%p \KT t' dKT t' bKT t' ^KT t' `KT t' nKT t' fKT t' hKT t' jKT t' lKT t'SPC t x $(tn0Co(C`2= Returns the number of additional calendar folders identified. Uses Recursion to navigate entire folder list]2]3] 3]83]P3]h3]3]3]3]3]3@BA@ R\Folders'+Set up the placeto save folder listA@ 'A@On Error Resume NextA@  |A !!' !'hAA@   4%! 8Do nothing if this folder is in the deleted items folder .Exit the loop so that any other folders inside are also not foundA@y@  e9It is a calendar folder Check permissionsA@H@ !H! ' !' @A@ $$70005=Do not add the folder as there are not sufficient permissionsfor this particular user. B@A@ eA@   4%  A@'A@ :  A@ :$! !+This folder already exists in the registry, so do nothingA@'A@yh>k`>A@ :A@ A@ @4A@  $/A@ ! $(A@Found new calendar  $ :  ! ( A@ ! Folder  00$  !A@A@ ! Count  $ A@A@ $! B@A@  'A@k<A@k<A@d<<  B@<k<A@kp<A@`< !~. !'8<  'If there are folders inside this folder $z'k;A@;A@   'zA@i; 4]4]4]4]4]4]5]5]05]H5]`5]x5]5]5]5]5 F'Start tracking the timeA@'DInitialize variable ' '0Should be zeroA@ R \Categories'1(Set up the place to store the categories \Colors' "Set up the place to get the colorsA@ ! Count $f'A@ @6A@ 8 A@ ! Category 800$ $f 8$(rA@ !  8$!r Automatic$f'nA@ n Automatic'nk8A@ : A@ n :$!r : 8$(tyx8kp8 :A@ 8A@"Sort the categories alphabeticallyA@7Save the category list in alphabetical order so it will3sort faster next time and look good in the registryA@ 8 A@ ! Category 800$  8$!rA@A@ 8$!r (B@ 8A@ 8 +$Iterate through all of the available calendar foldersA@ 8$!$XNothing 8$!!H.A@A@ , > ' ' %.A@A@Getting new categories from 8$!... ( A@  4Iterate through all of theappointment itemsA@  'A@A@;Do this so that we catch items with conflicts and skip them5 !$' !'4 B@A@  'A@ : A@ ! :$!rA@'A@y04k(4A@4A@ A@  'A@ @(6A@ ! $(rA@Found: ! after screening   appointments. ( A@ $!r (B@A@ ! Category 00$  $!rA@A@ ! Count A@A@ !  $!r Automatic$f'nA@ nA@ Automatic'nA@kH2A@ : A@ n :$!rA@ : $(tA@y1k1A@ :A@k1A@d1'k1A@x1A@.A@.A@kH1 8A@'DA@ F' Time to find categories: s  $l seconds. ( d0  ( k0o006]6]6]6p0 ! Current Color Item (%p$f ((d(0 ! \Colors (!d Automatic$f *(d/ \Colors' 8 (!< !  8 (%p$f'n n 8$>'nkX/ :  n :$!ry /k/ : 8 :A@& 8|.2.]6 !' |KTInvalid property value .Happens when categories have not yet been readP.KT"Invalid procedure call or argument 1Happens when the cboItems.Text is an empty string-S-  B@n-o-6]p7]7]7]7 'If there is a category#Then its color will take precedence0- !' !'-  Automation error = error 440%Error 4096 is a synchronization error4In any case do not set the color for this item sincethere are no categoriesz(,  e  B@k,  8  ! 8$!r 8$!t'y+k+ 8kx+If no color was assigned then   !  'k + ! 'k+ !. ! !. !. 'k*k* 'i*7]08]H8$F$F H$  ' 8  8 dddd$  8 +0 8 'Vi*`8]8]8]8]8]9]9]09 ' '  '_)  '   _h) '     $' '   $! ! b   $ +   '   Gxj(  +   o(P9]9]9]9]9]9]:](:]@:]X: ' '  '_(  '   _' '     $!|' $' '   $!|  b   $!| $(|   $ +   '   Gxj&  $(|  +    '_&  ' ' $!| $!| $' $!~ $!~   b $ + '  '  Gxj $!| $!|Gxj%  + $!~  $!~  'd@% 'k0%d(% 'k%  o%x:]:]:];] ;]8;]P;]h;];]D;]; < H$' ' '8_h$ Initialize the lPrevious counterd < 8$!| H$l '     $( $!'d# $! '''L;+L $! 8  $!b 8$!| 8  $!~ 8  $!|  ' @L< 8  $! +Lk"  '"' L Find the highest bannerA@$L 'd8" $L '  bIf there is a space  $L $L  $L 'k!  '!k!dx!'kh!k`!%Assign the stack value to this banner  8$(clStartDay = DateDiff("d", vntFirstDayOfMonth, aryBanners(lCounter).dStartDate, lFirstDayOfWeek) + 1 '$ $  8$!~ a  $$!  $$(kH $ '$0 8 '8,Continue until all values have been assigned 8  o<"Initialize cells information array%This has to be done for each calendar2So that the values from a previous pass are erased]H<]`<]x< ' '  8   8$9999q 87Also erase the array that holds the banners information<oH<]<]=] =]8=]P=]h=]=]= ' '  '_  '   _ '     $!r' $!t' '   $!r  b   $!r $(r   $!t $(t   '   Gxj  $(r  $(t   oH=]=]>] >]D8>]P>]h> L' L'  '_  '   _ '     $L' '   $L  b   $L +L   '   Gxj  +L   o>]>]>]>Setup Standard Folders... (  '   '  ' $!A@PCreate empty calendar $/  4% $/ $!! $(o?;Returns false if the other users calendar was not found andreturns true if it was found]h?]?]?'J'Z  4%.B B  4%.8 !' B!'  !d'k  8!H! 'Jkh J    % An error occurred connecting to 's calendar. Make sure:  $T* The e-mail name is correct. $TH* The other person has given permission to you to access their calendar. $T'* There is at least one appointment in   's calendar. $T,* You are using a Microsoft Exchange Server. V#Failed to Get Other User's CalendarA@Rd'Zki?&Returns 0 if no valid folder was found/Returns -1 if a valid calendar folder was found]@@]X@]p@]@0Check if currently selected folder is a calendar 2!!. !' !H! 'L !'`   L  It is a valid calendar folder#And it has some appointments in it. .'P !'d4Get rid of the entry for currently selected calendar.'P'kPiH@Sorts in descending order]@]A]A        $! $!  $' $  +  +kP  o(8A]xA]A]A]A]A]A]B R\Folders'+Set up the placeto retrieve folder list ! Count-1$f' There are no folder so exit|0d( @8B 8 b ! Folder 800$ $f 8$( 8$! 4% 8$/ !'x 8$!$XNothing-This folder must no longer exist so delete it$Close up the rest of the folder list : 8   ! Folder :00$ $f' ! Folder : 00$  A@ :@ ! Folder 00$ A@  ' If there is at least one folder @XB ! Count $ A@d&There are no folders so delete the key ! A@xBk d 8$!! 8$( 8$!Calendar 8$!!! - Calendar 8$(k 8$!! 8$( 8 '8k`XkPoHB]B  ' > 4!~A@ >!~$z 8 '8 A@ o =Does this appointment happen on the same day as the last one?'/Reset the value of the last appointment to 0 to;avoid the problem of conflicting appointments across months SayreMR@one.net (he-mail: SayreMR@one.netE Mar 4, 2000 Fixed problem with banner positioning in Word 2000B Oct 13, 2000 Fixed problem with appointments spanning months   (Template modified by Michael R. Sayre. Copyright 1998-2000 E-mail: SayreMR@One.Net   (X B Oct 13, 2000 Fixed problem with appointments spanning months   (Template modified by Michael R. Sayre. Copyright 1998-2000 E-mail: SayreMR@One.Net   (x Attribute VB_Name = "MY"D Basd0{B824D08D-A121-11D4-86C0-00D0590@5FE6A}J3J Global!SpacoFalse CreatablPre declaIdTru BExpose`TemplateDerivCustomizD 'Modififrom olcalndr.dot d+d 5/11/98 icrosoft Corp. W@eb SitZ'hael R. Sayr e- mail:MR@one.net>cations(pyright 1998-2000, Mic ) You mHay Misńt his tC as long all comments and my nPthe A4wa licenq' include d.@Changes: June 3,B+1 Ad@ lo`r to @:Py ev @blank ^e@ndar fuO 5sha di9days before8after mo(nth+6ability+ce multip@weeks/Bs in3pas s7banners !&@ ImprospBeof MToRDyfun6cAH8'Prect sort!algorith^m-apr@ait sm"Dal0head'I3C7au kWc XdetY us!Lc81GEG!#& disxy accuracyYreg^y sav Wet`.$ 414$Allo~w$"Fj@YUs{M!(kd`in@LnbwalJ&9Ffd \dscape che@ck boxOa`Kp; `ton{B&2a6-tHextes@v bcould ǀT `PmatD>i7_ovpa HcuqteH ferxl2hisH iluthorIG4a @=earc$yssgci0BpDr. Kothari%ly 2'Disa'peS Xug/ Ypr@CqwpC xG 5852 e|rr`, r@widthbP}si%q6inal@r(H/!P 0nt/8appoe0 "5CJu3171&o5 Cu ntpSelMCIR8cedFaa9Re[`C* =c5bpB~O Fur1p*r iXedA `ojEos2 when hi (d$zon aq0nn@?n HyTye1Oshow meebtt:eP>!oview2dprestBJP/Lptoolba=A 9AdO&Bjlast r0 0VpagAEUthumbn3 loP leamargi~n_QF QmV@OrpB;0e.rZaHX 0,blem RA5 v quinfoU"About|" ](pHerm`~Suy EMoz1geQ`pp@h tw^\2wfqp )_& Nobvrequ5ifvisi# CnɁ"@thly fSubscri@pt OutRs1$fgerno T KJdesi6">pqGdsLu Tit0"0s A65)8d׻fInc3icf}somee's_\re8y hv/xe,`:۷locate correct calendar day in weekly view ' Aug 13, 19988 Cped banner positioning problem when>occudrow with no ap(ptsc8cprintYothkuser's name at t`op ofL20-Jdesc7mO21OwOLand sexity pa@tch #2L6#hangjterfacej lfrom op buttonscombo box/ΉAdd.sors by frequencyAP G{voccess is pe rmitton a public folder1Z&upp'@ r A4K Sep [ C2func@to fiY n @ckgroundCO2[ Fix(A 1lowyD5s: PError 5ô>EexistAreg@ry lD  4096 440a synchrzaB;eYresen@Ybaucul@o@m7`lo Qr availa xGet0NewFB9=rocedure +Y+DAbPif a`@m1up `next # M4, 2000"2#7> n Wor~d'a 's sp@Bmon thSee My Outlo0ok C\enseE%docuA0aYties. !OwExp@itA' TO @CHANGE!YOUR COUNTRY'S DATE FORMAT --aCB\ 6dWctantmo@hH,ou`:ed#nv@D s are E`~d ' Fa1xample, 3(youXv"Britian, wouldAkgC c maD= "d/mf"Ti`h:m If ijUSA,Y m/d] AMPM JuxcG+E#r6 be , aee@ uY dC"go `[]" 'E%.. ϐ*GNS.Sp@kA wOnePtsi!uJItemfld,P MAPIGvntFirst` Of8Var*P5My@Columnr bjptlFDoMAIndexL#`ORow lMGFeIn2lizqC 9 WP3| lyDaryBҕStack~( $A=0 0 = 1Te>9GM2SomeElses 0+one  Emptg &CantlySeedInu V e !XDefault% GTitlew+Uvd+sC`2v۲.TnFSM i0WeY}E pOQrr rklteG B`$~bG@Sch ~le=2gPF߀8 ^eW#RQrA-vQ)Typ047y str702%Nal~ =orID5End AOP}/;/nsTVB ^tsJ d=rs qdNumW "I2PbA?"pLbD;ZShNa es !Or R}DoPpwOYCell`prac icVertPos"`LiH ldsLast l3C0\tl_  G H H.kA+ S+ |Ym`aELsCaNqlT itleColor As Long Dim lScheduleNam|EventBanner2OtherMonthBack !Text Ap pkTative Recurr% PrintD atqaryDays(-7 T o 38)KtCellCharacteristi cs3Orde\r(C6gory s(0;16; ;s V dSecondsStartRun]tEndstrCCMCalenda†StJD@SomeoneElsAJ>BFzSizei0ngletatusBarE{ l$Comple8tedǥThisUserABQ &elefd.T/A H}va Sub Cancel_Click() Unload M,@H M cboSL_ngeErrorNumber#AOn B G o0If Not lInit ializK Txhen >e= !.T SaveSette@9@on.O, cTe,@!, "c ">", ' G etReg`ry s & "\"9 KOKs A!txtO.VisibleTru5elblW'r |Fa\ aGIfiF@Resu0me N@'Ne@^to pre@pare f posility thaDast%sP ceuis g s3 fldOutlook9?ts@%cs(QHL:Index`).Fol lY.e[A'5[9": 'oscript @out of ra h ! a= +_`J C =`N<> *mRaise )Dnd A:9΂hk @KeyIA^Eq^g[z @{F.Caption, Str(cVal$ue O QLeftToRightO ߰0FSTO &EQqO yJB   q ntWeek`ns d q a OX  ShowQ? )la)tC  MeemAttee/&O7U///g/6} pNU88Thnail5 **y** _ F՜*****D  mndM@ objMessagry.aItem#̈́e0q= |0.Cre:(ol5D.=@ayreMR@`.net"Subj@`t"My g?ge.HTMLBodyA o.Displayf.tbo} .hр A @gnToVa8riaq s.?&@:G#0Exa`r4=  ).lVBBIDSD EEq3DTT2 s (9 :JDborʂ) Dim lIndexValue As LongstrKey\Strid| p= SyncColorWithItem(cbos.ListlblExample.Fore5 = ary s(Y).ldVBIDv= cTeCate & "\"CurrentCalendar2SaveSett Application.Name, (, " 7 ]", bText End Sub Priv> cmdDefa ult_C/k( Counter㏮sner\ l= 0 ToH - 1" 9s.6Get0( D2#In,$UB8d(Fp y IfA-J{G).ce Then+AssignToVariableH, lWord Exit 7 {IfNiʈĆOKpRunsτCS#HobjDFoldÓOutlook.MAPICC$CdSecondsStartQ@yNowŦl C"opted@FalseMe.HidActiv@eDocum k.Range().Dele`o '#s any tA$that might be on the cJruCBS`cucdlyInLC_@ `W% !(m&)J fld ts-#bE$aMsgBox "An erro r occd /ne'ng t4o a_ "a#. Make sure:Ch`r(13)*'@- fCCis sd+ in d.? ere A least8e appoint!@ "<%: "* Youse usa Microsoft ExchaJ Server.vbCriZtl; ; EFailed")zU\Showbwi OType0M= "Noth" A]SomeOneEJsS  O hrUsers& %N RoQ optPaper811#| PagwupB.Size6wdLpyetz1W__ TA4s 'aGnumbRof r1WsoP-wAIn sortbMries lP} Xφ&a LAC20QuerAlFirst +\#B/m sqQWidthSpbl3R LeftMarg{ RabEquaPlumۓ9l(tW lSuא pTuesr-lWedn lThur,Fri_SSaturSys0N.Y\;wdWaip(pFFPf"; msRA..Bn3 'I2nallpno1s h0enL p 9= Abs((txtS!+s))Qs1jacc ntly putAAa neg`vde m !^Y < x m1 ' aSt least one calendar prints lMonthNumber = lbo@.ListIndex + 1 'Get the m\ n^ vntFirstDayOfpDateSer ial(VtxtYear.Te xt), p, 1)If optPortrait Then  ActiveDocument.PagYtup.OriatidonqwdA Else2BLa@ndscapE nd IfODo Until lts<fsPed8'Init~ize aryCellf  `ArrayPut in boilerpl AchkThnailDt=E  7lBookmarks(l). # SobjT4ab@=!s(al7YvbSu`ylColumrS0Fry$P%{\Tuesk}hur$Fri Wg S R? ww / l }Wednrx w0 e$.Ss( ?(W8ith'w.F.Hidde!$g`SQ= 1A b I*xWBords(wdRight).Visi2OBQ 5Wid c/w:=12, rustyle:=wdAdjustN_  S#rƏ t.mn  Lef<tho j sq= /$F MargW% h `Equal7pY(! - (s + s+ 0.8)`) / 5+ 1unt3ETo}D&@Cob*t1=s 22NexPGyS9 - ::y wyRs?AB;,OO佐҅[ֽosOutl`w' ڶdata. strTodayStart = Format$(vntFirstDayOfMonth, "Long Date") & " 00:00" End La23:59ERangeQueryG"[O] > """rW ap[] <= (&_InsertUName "mt0itle' Set a bookmark called fdofm at the f 8 of"fobr is ,o bjqoActiveDocument.B8s("sǀ,s"). *lWeekՆOf)If  > vbSunA/Then-'5 @2not onFC@ Applica tion.btusBar("Shadi@2 beDeGJ...eWith G .Moverunit:=wdCell, Counc4- 1 .A s .D(egrdPatternColorIndex7lOKrBackTexture wd25Perc| 9-Orders(whdBoAV@@]l|).U% +Else''x2 2~-07S(zIf#laps@e dire@ionbCol l8 0 !a"'Tes o see< iBdleƀeGGetqts @",One"rl e0On EDrrRes ~Nt$ %#waryOo(0). cp GoToz la0 '!val4uel- t 'avoid2probleBmaconft;5 acrosȠDo While Typep( ""Noth<1'No eocc1ed;h so r6^mub t ' yon$ &Atso@zr githah+,n skip itVal idA.Mes sageCs)L*Does) hs se!uae `?ǻ1Int!?#3E qqtorightR1`zrt, 3 OOAE%XW TA ?,1%/'Only sav32 tia regulPp?iwevjE '@no wayA1know1whe(7#Ÿ 2Oaaf}' annpCRhbe`c`(ted*q .n-Iq1o& B"3 UB (Uc8 Exit DoYY/Z Loop S= WGue ward,OӀK/ñ(Dlin-`$?;,aPc+BNޠ 0 Th enF'If there a0ny bXDThis works because2 first. !atarray index of 1HSo rtCalc ulPosition vntF`DayOfMonth&@End Ifl!sPrinted = +T<Add("m ", 1,8)  ' one mW to΁J' Handl'No Weekends@ Case' 'lTableNumber%ActiveDocument.s.C~t wchk== Fal@q'Applica_.Statu(sBa"ing w$..." With  " .Bookma("start").S]c)A/(I8)2lumns(7).;T 1P sPageWid,= .SetupBHsLeftMarginZ I Righ  Equal,CoB7(&- "( + s + 0.8)) / 5 '.Es?d8f4q.Move wdStory@]$\Te[d$QC BreakeVon0Next1@@'Ct new p@5C'Also cs a"s thpWfun will" `ArϞ>curr`kvLoop 'RCharacter, -1BGet rid9e#la'ystem.CursolwdCNor mal 1Sub wv  mp .arType_nge()#Dim strKey Ash Stg#=@ cTemp & "\"@a% CSavect!'IName, , "Visi@ q`.Valu &koptbL`sca!`k5AZ .Cap,a((*"-W`_C_D4[ Say d QlvQbIvbs ,y)`thly)*)&!&) )3k)alv3)r lyґ{Mc$CSly&t `3od}S 3"uEz z ' Tr7q 1 r  D0 IPa'T>>ars4   LZdN=Nc#Np.$!NAowrw?I 'C ?? ???I:?I _ DR?I99 ?I?I2ItxttF`SizOOSsp#P%(HrText Font Size",rmat(sApptX) txt T.=bEnd Sub PriPvate _Exit(ByVal Cancel As MSForms.ReturnBooleDanIf = 0 Then lication.Selec .WlIftDzdat_Change(bSaveSe@tting NName, cTempl, "!L) C2Len()\O "m/d"V*Hour|JJJ^J JgJh:mm AMPMKNumberMhs̖Dim strKeyҸStraD= & "\"@CurrentCalendarCU T T)/`sU#Week_ng`N&g:p ZOtherTitnNot IsëաBeep:a@"eColor[vbRedJtatusBaAb| is na valhid 1.E8. &H808usqô^Year__^T_1 0Ph/0R/A1/&FG->y/Uq= ?/KY0"D4xm_ASomeOneElse:EDefaultupSLta <#0<"EIf Ty\peQ%.S) <> "Nothing" Then o ` ).EntryҢI%A$(ol)O'@ the u"'s n Q ) _O1?$ 6$D ?VB"4ooj'Ps isbprimɐ d* c4#U!r!.T(Dlicon.Up) & "D^ 0aThisE?6 a9O"J"=ser 'J8'if@ any9erQ:*add! mai"x4 to2display/+.PaY8PS" ?9!End6 =$Key!`$cTemte}(\ <{ ? 2 IndexPCLnlg(0r\tT/f.Name, strKey, "Runs", 0 )) Next lCounterH'Sort calendars by frequency of usePNCLByFF8For = 0@ To UBgd(ary6s@If Len (E)) >Hhenc5cboSelectedX.AddItem 6 '"Endx If' set some defaults Me.LeftnVal(GetSetting(Applic ationcT@emplat"Width - )) / 2 Top-32HeightCurrxentQ5` @eT}'LT if ther has n@ot runis programeviously`O.).J7ThisUxserAʃPaperSizeCopt 8110.Cap@TRUE"D?.UCaXse(I-"B .T /u"TrruDEl A4. D]# T & "\"@BCBRegjiy^stxtS@fone.O!>?'d e @e-mail`I"?& 'O!One!"sl(hVisibl(A'lbl.Q, Faj1 hIM#On E$rrGo@0  Year)mat$(Nohw() Ky%$lboMonthe@\s(B%a` Weekm `w; f !?fA@:@a.`B6= !`("d!-1, ) ladPC~cba^ED}9y(O\+ 2xSu a| o˒OO.o9F- _/q _/ lOc!"6 .TypeText vntCurrentDayOnCal End With4Selection.Move unit:=wdCell, Choun1T = + 0NlBerA' Now starting from that first day, drop ine numbers.?cDla0 ofm onOneMForwardQDateAdd("m", 12info))PBackd-'sIn4Yy( &lNga(d>P 2l#Of 1 \To.S r Str()'ConvertBD@S G to a^If LePn(stH) henN" " &wK #.F@a.Color IndexlApptB J"ICJY8o 7 - We ek@ n, lFoABr ̥9OthertA2:K ߏ9' J = title Bookmark a~kCNYear TsAveDPocum`.s(smb ).c=?AQ?> >aryNames(Bd)McN Sub  !' This& @ maroue for creag w?ly calendarPriJv @ CeYA?ly B(@Dim objA!Yoint$ As Obj ,_als! ntedLongET BnError$;aSAaVariantE@b.|YDirM6P`!+utob StrD(dTwoA~hreeSma|ll%<~azTo "r0(n TimeRangeQueryAttSeesequd_6'dOpal_)ShowMee3jj*LeftToRighta Cod2 9XEMIotrE+@NZlLf F*M System.s C= urWai`3 8licPDtusBS= "BC*!E..." ?= 0 'Iializeynos habePxp/BI@= Abs(Va l(txt)) !pMsser `accidP\Nputa negK nr l< `!Z=P'Make suHre `le0 oneT T>>= Cq !.= Ge؟@&-= Me.chzke %.Iue`en  lb= 2%"d1lr2b&lrasl$@ ilseohntbo.y`d1n `F IfoptPo8rtr +H}PageSetup.8Ori0"B-wd //(L0scap Do Until %11A3BArray?5?p6sQ'P0boilerplp$`&Thp1 nails Trz$AW"ihe w8tpoU'E$"p?t " x0 "0G 2j.InGtǵrS' D\T cT\n2C0z6,qȅ9pGI= qGSe`l(I),`aZ1Ŀ @tФmPinclu^d JձP,1n popu% cC&TV3 0<  pY5< ٙartDate = `Add("m", -1, vntMonthSt) Application.BtusBar"Inserting thumbnail calend>for " & Format( Other g, $"m y")-"..." |Odays "psG "pmname [FalseQ6bn bn b +_EezfDuDA?? "u wnd IfEC' CalculA restrict q0uery@To/@ǂ@$Week~ nLo va#n 00:00n`Timabdn6B ) 23:59 U ! C( u) # `R`angeQ "[] > ""W("&a`+[b!] <=Db"c+vLGetŸOutlook4s`a GåU`N "wtitle$ ' Looproughe appts" Aput!m in"tablIf CurrentD<> @cEmpty&Thenf' @B sorb oddata -, objO ne&glCou(nteA0'TU to seeh ifrt least onbointmGSebj GE=aryOrder(0).Do While TypeM.(@O ) `%"Nothd1!$$@No errocc!,d; soK#edmub`g. ` )' To UB9 )d(i* SPkip saHt a*nop*p$sk 0F Vpalid.MessageClass) k#q1@'Int5blL"MovetorightLa21B&; rt, _=SlLeftToRQCode,2B:MarkQDaSb@Dp_; V(4M [N .e'Onlyp sav"%P ` FtXQreg_r@s we h/ 'no way of know-w0SiӚon ! i 8f:o'a bann<has been cregd+  lShowMe"ePAtt Hees On E!b5ResuPfNext_QGequired=G!\.R?1lNJ. Go9M5Ak440 Or 4096!* mI5a> 0OJARaise A0IOp!alk= QZ!k? `.Q {r{mbere[a^Len(0 $)bS&+oaWith Selec o D`i%"5:2O& ". _5z/k  / # 5 N End If (.ParagraphFormat.LeftIndent = InchesToPoints (0.1)TypeText s@trAtteIes 3+0 UBA d(ary8O rder)C E@xit Do S\etR().JLoopC0InsertTodaysDatKlAtsPred56vnt_@ Add("ww", 1, ) '@ one w to the f irst ! o"fmonESelection.Mov dSto|ry@؅dxocuA;Break wdPXagec Cte a new p  &D@wdCh@c>, -1'G3hridl@W System.CursoD BNl 1Sub !'@is rPouti@$i3sS""%lyb$a d5 names #4(hea@I 'Edtabl Day( 3 @N8 As Variant,` lDirC.Long, sbookStCgnDim [@a.!` Calcul_`"D A;v$eD6.B marks(b).0c= 0 To 6Ca1.=tebRd@Re"S?g>a&, "d " & XtxtA#.b& "" Wunit:=Aell, :='/cNaC%"wtitle" & FC !%.F l.Colorx|TB "Wvs"$J@$aB0!!^'j_,_us[OLE AutoaaOutlP~returnBcaGρ' fromrange sp`ecifiLcalCar fol"31proF2 .MAPISsTest^IAO`QrUYR piPwCslNumEr:U&lErrorbpL1&@lica[PFtusB = "3Mg  ...&c 'In o;qg`VbIur c"p show upPP#ight place,kDqs` t`Has MUST be3Vexac0v4Fi%col4h!Uall  t >iW$OnB  Resh a<|#= flldr.GoN@91\9) <> "Nothing"s3 'Nh n asc0PXpAny #wjipr lbeAlost7`1Y .So"[g]hD make /okB.0lude1F!= Tru kPbatՎ**R s*!1'eB=1;Eat&F'Can't Q.cA -cab'num1:.noclusi8C)a/*e0Gg='.Fi nd)A-While FKFWQCP er !?1.l扅՟dStartTime = objTestItem. Set aryApptOrder(lCounter).r, zXF+ 1+myrange.Fin dNext/Wend End If 'If there was at least one appointmenKH> 0 Then" 'Fix$ size o*ray to reflectrecurRr* is ReDim Pre0serv> - 1)ShellSortAr2 Else( 0Notphing!SPub 'vis routiF@moves  Din5calYar table `* -QVariaf0O0D 0r3)x1,@ < Dim lRowIndex As Long ColumntunternCo>Application.StatusBar = "Inserting appointment..."7l8tHours,DateDiff("h", vLntNrtEnd);DayO@fMonth p @$logCj a iDustrAL>=E M<>( "" " (" && ") Wi@Sc .F.BolBd TrueG' Special cadfmult i dayAts6,l> ,24̵ '! do not pr@ӣimElse jрM1e1!k= Int(jc ' ev @}exactly o@!lAa,T"(#&Siz!s1!? rt  _Rstarted be-W9m{ C 0Hor= lBanner2lAp,aiCm/& txte.Text"")Q 10A){ P"chkShowQA&' A -t.,; yv P &  ,`TM D/(FW1a'{`6just a~gul I#{. %Seҩ2ߕB9zE!qq= /%/%(;/%/% J17`t goes pamidnigh1N FI`Mq@+at7ou5"3&000do 00t{00y` W.TypebK?pF!tenX5 a xQkYlNumbercWUsToGoU7d?5p0 >vI2)0f f& sInPrev2Fa /Mhpۋ]d p @ ~ lApptEndsInNextMonth = False ; EP>Trund If@If vnt. < Firs@tDayOf+0 7 _9- Week.(H :, l&) Then%'if the a eQ infG .w2CinuesKHr= %AlNumberB annerNsT(oGo^8G 'Bis lessBan oneA4cBuStartat< v1F- 1iu'W8holw4vsam\4hx R~E ΁A 'Okrwise it must be longerm7 day`s andAafte [ atAQ:gsstUkSubject & "..."s0 &Ӗ"[Pre>vV&ab <=b$p5 "( )f!!alUncateÇ 2VX0 L_ T?=tb> 8 l!// / PThisTiP=_ᢂ&Q _osW@ Oq- Not chkPrintu AllyCarl0arcPW"ipSelpiov sCWid0.Tab(1).Columns(3).X/ 6. lCouna= 0aFor Index Tou#g| ? (+_V 8 X v.Cellsq* (%%. ])$r Lli".ScreenUpdatingq Do( If chkBanners And lMonthlyCalendar Then  Application.StatusB^= "Inserting bp..."0yTop = SelecLInforBmX(wdVKc@alPosiRelveToPage) ' +;Cells(1).Height@ * 0.6|Left>Horiz?-TexBt str, _[ `WidthqtBF@8SizeK23&  vnD>rtDateQ=ElsReoNosF With .)A.BoldtTru .ColorIndex lhE"WzDay?:F(E[rt, "" & t6xBGC.A"")Show#;'Take off one secoto msure thate d`5 is corrq w appt 4A '`midn"oexactly!%!q - "L&- TimeSerial(0, @1)( paOb>h9d !If 5!BcD&!F`  .Typ>eDH AfebFan_ t 00 b|ParagraphX#`YlNum be@-sToGo <= 0 Or= cWeeVkC>l.C8inuesAqV B`  A@W'M0ovetday FirsyOfA,aC0D ^3"fdofmSR+> 7}W his,7? v#@"0M .SubjqE& tO&I8 @) gnea/Y( 1_Gv*0 NotPrintq51^z"zV="03.Tablepxumns(3)./ - lcCounterP1~r ~ Mgq,To !# O(0+ 9omN6 1"Oc ָ#* (U7- 1 0,d=f<- ?LQOQ Lo@Until 13{e@Hcre0enUp!= qN8Len(?cK!V) >pC 't@Aa regul`o0;ment2  'Turn bp<6"rZ lLoe?radryA}(lPDm) .s1LastLi߇q[' vev`vtart >=dyosSGSet2U G! hhave0 s`and ou\Ab G6f ' End the line (dIf LaryDays(lOfMonth).sVertPosLastL = Selection.In forma(wBdRicalZiRelveToPage)l | With  Sub Pr@ivate  cmdCancel_Click(IUnload FM :Fun ValidAppt(MC' In OL97, all appointments have a messW class star@ting wQ IPM.(h)8, recurr,OLE.ClASS+If Lef^, 15 )"?" Or-3$L@" Then DTruElsDKFaWAWiInsTodDojNjMoXwdStory5%D|wdCharacter, -1C G .F.Bold5,Colo@rIndex@l9ntA'TypeText "Aed: "FB$(Now()`, "Lo@"?ĘINƳ9Em0ptyRCDim lMore`s As Result G = uGNotG&u!InTablDe)D Agv`eDocuc`+okmarks("C[").6eDo Whil@Ec1>aB BD(+ G _ (" gAFQs.Count < 17 & ) Cell|s.= %L8oopjextBanner(By@@rVFStA, sTop`AES`le@!mWidthHeigh !AmSizeIvntSa!`Variant9 '@ Pro cedur' Macroorded 06/@98 by Michael R.p SayC)!eo@bjShapBW `.lNumqi39l9Set =mc s.Add0bo x(msoAOri"HorizAal, _G sD2C763@F2c^f .Name (Firs Ny|Jmmm" ) & "& ?E?LockAnchorb dow'.VisiG{0qr%hUeY.RGBP @).lVByID4.{br? a??.Wrap_.b wd1Noq / g!d(1)+ 0.5@1 N= UBid(2As) + h RbeASPreXQrzyt(x .? TFF js)n.a=Fr9W[0>son_^!ʐSQq`>e^OOfoBApJ aA '6S%s"oP%case we ne@sto adjust i`posi 6Alm< Pub#of[1Th@0pu fixes1s afenda(r t `adilntWs7#u aAғ: H=ۻR%m NPA$`  Dim sNewTableRowHeight As Single BannerlBottomFound!Long|lPageNumber8[ "IndexC_sLineOldobjRange:kUpperBzICt{W|sgDayOfMonthMax)urre nt DatepStarLoL(engsN(2 To 7)͏0lLasW.ColumnwC]'Get the b shapes oncC8 mG's ca@lendarF@irst sDriutoBl'@ctiiCdocumL.It cains P crePd S#= AveDSes.E.On Err or GoRer@rHandl'This will @ 0 Th@'`)dsom*.Applica".S`enUpdng = Falsa0CtatusBar"Adjust1 ceAs..."'Mov e 4that beg1f:#B%leh= XDiff("d", Xvnt"A'i,(yg(1).d"a, lgWeek ) + 1 Wibar/B.A 'Returned Kpoint,@"H= .$+ !8dow.Off`WY E`#'A%torday?*3, "fdog/ 'Sel W_!a`c@oP7W'`i.!Runit:=wdC =5Left EGl= U®(}g/)5?8 @8'( aNy(!AdPd("mN11O)p - 1( r> -wG=GEIfDoa'WQ5rowEwep*?l^Dv= Infor"mB(wd`OfF ^!s/7< V X r5s measu4re1[so6 'as sPH8dhelp file[ R Xal^dy roomtYI8 onT,3n `do no@TmorTSo gkhlF 0hculg wp] ap"G we_Serte`d. NeUadd 1/2 R 0o Rrparagraph matrke?=VWs(eY).sbVPos31 _+-vY+ S*_.l] #p+ qsToPX@' * 0.5/ /)k0 AW)< 1buO tv"w 4h` ybex]'(which$w+<`tP's<) @ikh',,* c xhe+loopwlB@#run'byQr}'Y01|")= vK1[`98aevi@ND text,sid sPsu@R< `wouldq;Btgiv0!%THEN% gO0 *1 &> (ber)_'t~oGzYR[ P"9lؠ9i^^<osRe`H5ߌ_@fpJq17pgBnCI 'mPake Q^ ha`'t5ll@Lprnp@&Z' Us- ! ~np.2p`ouarXo2p.p,o'olapsS(sR2 af!Xch Xc!-QE'+ zfdi,rection:=wdCollapseEnd  'Add a new paragraph cBh(cter\With Sel.PdFormat\k.LineSpacingRule = wdeExactly95sBannerHeight * 0.56 YType[Cells(1).Row.AllowBreakAcrossPagesIFalse"If aryDays(lCoun).l_ > 1 ThenV %f lIM" 2 To('%R2DoEventsNext' tIf'On@e mach@ had trou bwrefresg the displaO'` row cAi ore was wrong n-AappPeareor#ABpro#m.HoweverD w itcommHoutA stayg(oneAveDocu.Repaginat&'0:Moa wn unittI6 'N )getop measurea for-undernea`ouarcn sVertical!nPosFrXIn (wdosi!RelativheToA). #.#Up"Tes  o be  we`l`till $inco#DcolumI`&x <> Q~Rb:A , := - 's@o7Dcu/on @bducYumb@`Pless"a#iPnsid0WhoTf ` D,)n9!,mu. .+laW!L agfSave~n!SzobjN `ON=h$KOq@"!M)ؼYwTaZ= ^- _/_ - 1/!  < 0 r'W,h1Opn ifP[isA#PH<<< x)0oǁ`B + ڄoǡ-Q E? d$_(_Q8Ol'/"0'Eq_!0[A>gp@B^dpr@evious AWpsR(l_Vv g) ?nd Ga@ARnot!aHny pStsyoQjday #mmon soc@ex`bo0ough by extebeQg~lLr0OLfMb E1D ;$?E[)5+hOLA UnВ UrBй0Appl@Q2.SPtatu]r0"XAdj $pA8s..." lkw`U(03sXu =ao #= DDiff("d", vntFirst]',Ad rA`te, l'Week)l?qNBanners(lCounter).objSha pe Application.StatusBar = "Adjusting b " & Format$ "..."'If this template beOused in Word 2000 orJ "r1enKThe problem fix>Xhat0 posi[of>s}s chang@betwee?97 andEdVal( V) >= 9 N#Z.RekivetlPUwdMargi(ESIo.Top(sRowHeight(aryDay@OfMonth).lIndex) - @y * @ eOlckKD!WithGNextN  cr\U pd= TruĢ5Exit Sub errHeler:Select Case Err.Number!5852]'Requestz@ not avpaila h'TA@pens iAere w\no@tfirst calend@@7d4A/lsL48Rai6F> cGPubK InsertUName(strTitleBookmark As Strc) Dim lRes po!LongsSagefT @lbExtr aLine cLenc)R0 Or U!V"PREFERRED CUSTOMER"hj'Gg `r opportunity @to addn`/= MsgBox("’copy of MicrosoftClank.uld you like &i-Ar a ?"`, vbQM +YesNo, "Miss@'c ! 3"0A`& |vbg))InputEgponalizZs.A dO '#Bsa)c madP Act7Docume(nt.Rs.U).']*.F.S! = s@t* 2ᄿ ` 3]= Inf (wd eToP@e`#MoveUp S:=wde, ":=1e~>ƌd@Ja/cursreally0Lnt up on a p D2VRtxtO`CZЃ 08Qur07q4JtQColor~ l"a"q .TypeTe|Z Paragrapp#l%ϐ `yl!wdStHeadQ 1 2 ~qC Uqchk&SMSω3tZQb's]GuCurrLC}cSomeOnea's _0UfFЧo!! designqCm@<' _l`+ $!3sU/"e,"! o mQB`15;' :l;[?s? o1(7i# !_ "ly$ed5#InOutliP(  lScheduleA{7 2Dkr/ 9K o9 _#c S9u2aewouQnQ&m )`NS.)(oDxterd1$s)R l'"D;oth iis;inRd i0 b0Exit`Gp soat any @2DnsD#0 al@notunpFQ5O"Y/ olqointmP7 'It `a-O Check permis1O m _&Y&ҹ/0p+..X1)K==.K ?5 @Right(Hex(l h5"70005"$rD$ 0d{2 _ab`suffici 3D'f=0)s Bp`miculоupser. .Clear|A"X-1?ߕ0FB??9l4y69pj) Or >  Tw>j= F4, qQT '@;2=Q o R - 1euPst).L.Entry0='Th<'lready 4exspR)rebgry, 'pHdFQ Tru0 DoEven0ts `Ex@it ForJE`nd If>gNext lInnerCounteiEIf NoGFolderFHd Then5ReDim Preserve aryCalend`ars(l4X)Q92Set,.3 = obj960.NameApplication.StatusBar@"g new cS "D &mat V - 4)" :@>'Save@^`ting *AA, strReg[s, @,)$N)A 00"),i.EntryIDPk)¢",R(T8cboSelected`.AddItemW)? 7l`G+ 1_ 393ElseOn Error GoTo 0.Raise lNumbQ Resu@w O/; rs`4th) A #0'there fs inside thisd+%YJAf @\lIdifƾ(hj)3 ,T j]- jtrt !!FuncA Pub Sub GetCategories(MKey Asp Str PT nl RDerLong4pp*z unABBsScreened0X`ointm@qEsAOutlook>.bj`IdTi01>DP rUpLimiP, 6tCol0<Curr '!yQ /g;?mA Length+'B=w ' `trackq4 nt l}= Fa O 'Initialize variabltPl?= UB((&r) hould be zero  D}(= cTeXmpl1\"`up Ce cCooEA`o4@5=A&h "\ sgq$dwAA<4(? 07 >Ϯy (ORK ` D= 1 0nR e(). 2=o3i_!>"e TO@c""D! z>O "F P!, d!Autopic po0?] )pdor0 "weoi="./1@ Q"(?h!oޱlWordR-ID j"R<}_| k '0SortGgF alphabetxllycq.3'1y list in alphabetical order so it will 'sort fastpnext time and look goodthe HregryrDoEventsFor lCoun= 1 To lUpLimitCatColor)u ;SaveSetting Appltion.Name, strRegGegories, " y" & |mat$(00"), ary@).)-IcboItem`s.Add&'N/F00lFDols ':rate throughfvailable `'enda8r f]If TypeA(JlsI") <> "Nothg" Thenn obj@nointmLs =L.B )5S#.Re}ict(c@@" > ' '")!IStatusB@`= "Gnew c@r fro 0 AaN~% undy=Fals!XlInner% 4"qtyD)pLX.)&Truϴ&!Exo"uEIfq1qd |d9=.FX/ReDim Preservw>l>o(,OuOlDlF`d:jtafas^m^&esm _˧=;_a_f~_Sߪ (,? ? Z? ? k1 Q"~,/Og?CurrpV,М((Key1p Autoic& pK} ) _q" ?=I _^ Íyo UBA+sOqQ"(1y?oXXlW0+ID O} hc DoEven0ts PNext lInnerCounterVEnd IfC=9Else3lErrorNumber = 0%q6t!Set objAppointmItemsANothing("'g  WlCategoriesFd3XTruR dT(imeB"w/If 3 lRunCompleted` ThenG7@@lication.StatusBaAb"to fi|!: " & D%Diff(@"s", dr.t !)@ " seconds."ˁstrF"T@D Sub Pub.A GetRegColors(!Key) Dim lX As |LowB ŏ@C8urrStFrCOn B 0Resu`Ǡcbzo.1f@)t( ?Name, C-, "D XList(0)zs=a6\IAuHtom Ec"GoToewc"@& " For;2 jB6 - 1A` 1=>*K'eA)  `eXLenaGi )@0LfVDefault(( AWb  P!UB}(ary1-a@O!( ).@La Exit ?maaIAssig@oToVariablef;, r bdzerrHandler:C tk`sAǁ=o. bSelect C OJ _z.Raim"X2"XFuncd 9cPN0vnt!Obj)b!4%&zl;rj`= l #S'7Pp yu itsD ch wit(ake&een6c{[x = aI.'4Az 0f)Z l440 _;# OY4096D'`o&Q_R;+' synchronizR 24In,y`'do6s6.Bf 0spem si6 'anoOD*c/M> }_ 0`0](_.= 1oX_S__ _ih`6/  ).lWordRiIDo}o_)cq6s4aPMrfAy;+BusyColT(\۱  ,B XIsRec@Y   m rt +p%= %A`*3= Int(:) lR 9 `sdcнriv- dгFirstWeekDay(ddda =w-  A(/ 3 Forl@&+( ToOS= (ÂJ >lB"Do WhileB -<).dStartTime > uH ')O GF0% ,If,<. Then Exit i&w+; ׋.Pa|y{ {Banners{`~!P~t{objShapeA|D@;D`alNum s 9zFtca $%\&}Ϩ Cv= -@$Wa,7s':e/Q"t++ !`p  u%?H?H {op!X84D 1BgKnK 1/49uQ tvhSq`7!^!.($ rYp! ).Oo"_1A0u@iR M*# >~ap?7+ h]Ot 0 X'Fi@'the highest bBȁM+ SortRɚCO1A1T\B CcElseJ kևmG;#3 '#re is a spac - " `nXa a& mC RE 7o oU? S;A-'A@ssign Xsvalue to@`6 Z& ''±Dat ff("d", vntFirsAOfMonth",, lGWeek)lCurrenA FW@Until )>= 2ĵG 3U!`p`#(H ?c~#SSck 9!*zkM>l!A@'C9 3inB0all "s hab@been a"$e6d  e> @lUpperV  Sub Privp! InitializeCells@Array(f'  c informatio#'Th`+has!,be done  each calendarSQ.at/d Hfro@ pp )e erasC5lLow As LongSjY= Li%`.Gk(For0.p Toq#1With8Q@,5d= ,t.lsVertPos<Li@5Last/Q#Q Next6#'Also;saQ!hold!hezs#s*@*}C+gories#U*t!op1_lHc0olHVW.$vVariantS strNameStri'WordColorID5)+%* *n"y**st*T osa(= 3 *~ JGGAD / 34Q1+Z513m=5(").dgl}\b'R@h RC О( 1 / (s1Poa  5 k2<(1~ Exit 9&1$+ 4 @Sr-CU{c.wB} End Sub Privatep SortBannerStack()  Dim lLoop1 As Long.Hold,Value0aryTemp =LowerBouqUpp;= LD( ul$= UuHf=.o l3 * 1+ 1 Until > BD(&/ 3q7ForˀL>+Q To0bt= (}Ll|C#Do `While -E>) >L#A) )L,K  If(<* Then Exit g't#, ;NextrPB[etup@@ndardF1e,rsUD|EmptyCalerDefault/Applic@ation.`t usBar5"S  ..."Uq sEv "-mldhcGetCurre^nS(().'Cre ty cd'c $Nothi objOutlookNS.@$#(ol?(T( ID | .EntryIDQFuncAA OtherLUsQ()K'RCrns false if  @"er u* was not fand 'rtr ΀uBA!u[rrorNumb TestItem>so_-..RecipiGC>lj = 0!`-FCa?J = F MMsgBox "An eoccKd co@6ng to` " & @_ "'s4. Make sure:ChrP(13)>* Pe-maЋnqiPo`Sct.q"<`son h 'i` r 4opKry1`P%E $ BA TGetCurrentCalendarFolder = False strSelected TitleR""LEnd If  Function Private Su b SorByFrequenc(y()B's in descing orDim lLoop1 As Longl2aryemp s"For1= UBound(!s) To L Step -^1#%J=+< 1'iIf ;(l$- 1).Index <The$(TB= #_U#us3) $ ENext B ßublicBhOldsśBRegiyώStrUpLimi4lCt֏InnerErro`rNumb&HyID-%C'.= cWlA& "\+" 'Set up the plac'to reeve Zfl% l'= - t$(Ap p/a.Name, , ""-1"E@^ -@dY'`[re We noso exitcEEK?#EJRea7Preser`WYDo Whi &:<= -'K [$=`tD_%g4,, _ A "" & mat$(*00")E+#aOn J Resume gK A objOutkNS.FromID&A()Al[=N.C]&Go0Ë FType!Lc"NothSL" JisImustKl`̠o`KLd@ )Ma'CloseiKt ofkgE J$E ČR @l$q s%pO&(l &SaveTA _A]A3 :-o&oSa?0xCe Dk noMr( B  .Et8.Us >= 00'00apV%01a0wea0on`OU<,@"_d+VdPOu`eers G?1rkeyA"ic /!W0_ =O Q\`)+## Bo P!oI"_V ?3/)t PaA3 & " -  :jo).EntryID6[q#qSub/New#+b#lp s)eQh Each }MyColumn I>n~DoEv _UYUHdIdifٴ(4b R0K ,ZὝxMEP6 <<<< <<< @`x@ &`@%8@+#;$*\Rffff*353b239c2b "( 0@" HP Xh xInitializing. Please Wait... (  "B@$jo8@A@ "B@$oAttribute VB_Name = "Cal" Public Sub Autonew() D Appdation.Sta@tusBarpInitializing. Please Wait...vMY.Show End gRestartgDoEventsu9 E0* pHdMyOutlookCalendarJXOLE Automation to get appts@ from j and create color printout in Word@OLE Automai n ge ppE sfr- O9l okAandc!eMe o#rp i.:D  W!rEK=+ +#; <MSFo@rms>SF+ms3o*\G{0D452EE1-E08F-101A-8-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft 9  Object Library/;C1;:0- C00}#0# 5h0 rA3C7E4630-7557-11D@4-86BFD05905FE6A6c:\win dows\@5P\VBE\DO.exd`7.E .`M AqOffice>BiOf@ic@ ,,2DF8D04C-5BFAcB-BDE5,AA00442cPROGRAM FILES\MICROSOFT OFFICE\MSO97 i# 8.0Li"@VBI DE> BID ,j2E1Wl)00-CB-6}#5E ,COMMON@SHARED`0A0EXT1.OLBh0Visual Basic fzApplics Extensibility@#Gaku `62FFoAE90ms l9.olb/He 1""HThisDocume ntGTh@s 4oJu{eŠÂ2` (H1X",ʔ""+@*G"]C l2 ྭ (! MYbGbMY@ #2#& D7( brU~~~~~~~~~~~__SRP_0FJ5__SRP_1__SRP_6IL__SRP_7BK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~W >$!Yj   !,1   MyOutlookCalendar ThisDocumentCalMYF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA A i0 F4c:\Program Files\Microsoft Office\Office\MSWORD9.OLBWord a@.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms qqP0F~C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBEEXT1.OLBVBIDE 1Y/F4C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olbOutlook Q yAutonewRestart  8Initializing. Please Wait... F F9 a p F m/d h:mm AMPM [Categories] 2Outlook Calendar Template .Someone Else's Calendar Empty Calendar Date printed ZCurrently Selected Calendar Folder in Outlook Calendar Title *Standard appointments ,Tentative appointments &Multiple day events One day events Other month date ,Other month background Schedule name optSunday ,Recurrent appointmentsN$!YjV$!YjO$!YjE$!YjU$!YjRҋB ` optPaper811!-6S` "-?@lblAbout optPaperA42ҋB `cboSelectedCalendarҋB ` txtSomeone lblSomeone{lFWJOmpCalendarTypeBҋB ` chkBanners optLandscapeȏ[qJ eUserFormT$!Yj F3Dynamic Q ychkLeftToRightlblMonth lblWeekOf{lFWJOOKButtonchkPrintWeekendschkShowApptEndlblYearlboMonthchkShowMeetingAttendeestxtApptFontSize lblItemList chkUserName lblColors cmdDefault lblDateFormat txtDateFormatlblApptFontSize txtHourFormatLabel1 cmdSendMail lblHourFormat cboColorscboItems lblExamplelblOtherTitles txtOtherTitle optPortraittxtYeartxtWeekCancelcmdOKlblNumberWeeks?F`Frame2 cmdCancel optMonthly optWeeklyfrmLine1Frame3Frame1lblNumberMonths optMondayFrame4txtNumberMonthsFrame5txtNumberWeeks chkThumbnails ,   , $$,     , Cancel_ClickcboSelectedCalendar_ChangechkBanners_ClickchkLeftToRight_ClickchkPrintWeekends_ClickchkShowApptEnd_ClickchkShowMeetingAttendees_ClickchkThumbnails_ClickchkUserName_ClickcmdSendMail_ClickcboColors_ChangecboItems_ChangecmdDefault_Click cmdOK_ClickCreateMonthlyCalendarmpCalendarType_ChangeoptLandscape_ClickoptMonday_ClickoptMonthly_ClickoptPaper811_ClickoptPaperA4_ClickoptPortrait_ClickoptSunday_ClickoptWeekly_ClicktxtApptFontSize_ChangetxtApptFontSize_Exitq#ttxtDateFormat_ChangetxtDateFormat_ExittxtHourFormat_ChangetxtHourFormat_ExittxtNumberMonths_ChangetxtNumberWeeks_ChangetxtOtherTitle_ExittxtSomeone_AfterUpdate txtWeek_Exit txtYear_ExitUserForm_ActivateUserForm_InitializecaldaysCreateWeeklyCalendarDaynameGetApptsMovetorightdayInsertAppointmentcmdCancel_Click ValidApptInsertTodaysDateDeleteEmptyRowInsertTextBannerPositionBannersInsertUserNameUserForm_TerminateGetRegistrySettingsSetColorComboBoxGetDefaultColorSyncColorWithItemAssignColorToVariableIdentifyCalendarFolders@0F GetCategories GetRegColors SetApptColorGetFirstWeekDayShellSortArray SortBannersCalculateBannerPositionInitializeCellsArraySortCategoriesSortBannerStackSetupStandardFoldersGetOtherUsersCalendarGetCurrentCalendarFolder0FSortCalendarByFrequency GetOldFolders GetNewFolders /  5 F F Yellow Whitec 48 KTKlptx!Oi 0QOtqK .!) QO  ɇ D !i 0fPO `b `a ``a `Ha i POp `<֑ !i XPO, o 0 8 @ D Q i9  "Selected Calendar3ҋB ` \VBE6.DLL 0\My Outlook Calendar.dot  Version:  PTemplate modified by Michael R. Sayre. Copyright 1998 8E-mail: Michael.Sayre@uc.eduYl| mmmm Automatic Black Blue Turquoise Bright Green Pink Red Dark Blue Teal Green Violet Dark Red Dark Yellow Dark Gray Light Gray MAPI:F0F560F Nothing 's CalendarName  -  Runs Left TopCҋB ` TRUE &Someone else e-mailҋB `ƏYl| yyyy Short DatefĤIx8< 6Ready. Initialization took  0  seconds. /" 8 / X /A x /e  /  /  /O  /  /E 8 / X /! x /  /  \Folders Count -1 Folder 00  - Calendar /  /  2Setup Standard Folders...0FA0F True FALSE Monthly Calendar False Number Months 1 Number Weeks Date Format Hour Format Text Font Sizeu FR F Visible TabɏYl| $Current Color Item \Colors dddd /( Folders /V 8 70005 &Found new calendar   : /= X /k x \Categories Category > ' ' 8Getting new categories from  ...Categories Found: " after screening  appointments. 2Time to find categories:  s / k F^ F @An error occurred connecting to .a calendar. Make sure:  `* That a calendar folder is selected in Outlook. /S   j* There is at least one appointment in that calendar. X* You are using a Microsoft Exchange Server. 6Get Current Calendar Failedq F (Finished. Word took  8 seconds to create calendar. /`  8Creating monthly calendar... ih por cal m d 2Building Calendar Days... startdays mtitle BInserting thumbnail calendar for  mmmm yyyy pstartdays pmonthname nstartdays nmonthname (Deleting weekends...g Fh FM FQ FK FO F< F; F ZGetting Calendar Appointments from Outlook... Long Date 00:00 23:59 [End] > " $" and [Start] <= " " @Shading days before the month...J F: F fdofmonth CurrDayN F BInserting Outlook appointments...MessageClass StartEnd >Shading days after the month... /    /h ( / H /) h $PREFERRED CUSTOMER/ The user name in this copy of Microsoft Word is blank. Would you like to insert your name? ,Missing Word User Name  vEnter your name to personalize this copy of Microsoft Word. &Microsoft Word User 0Inserting user's name...  /T  >Getting Outlook appointments... [Start] FRestricting Outlook appointments... >Sorting Outlook appointments...FindFindNext IPM.Appointment IPM.OLE.CLASS /i L F 0Inserting appointment... hLocation  ( )Subject &Inserting banner... 3  / BusyStatusIsRecurring] F Printed: Y$!Yj FX$!Yj FDocument @ F mmm F F F F F FS FZ FY F F 2Adjusting cell heights... fdomonthP F :Adjusting banner positions... "Adjusting banner H      !"#$(~~e aJOLE Automation to get appts from Outlook and create color printout in Word A   q( 8 1H X  h Yx  !CancelsbooksmbookdinfolFullDayLabelsvntDayNameStart lDirection rangequerymyrange startdateapptdatelFormatvntFirstDayOfMonthvntLastDayOfMonthvntApptMC strBannerTextsTopPossLeftPos sWidthPos sHeightPossBannerFontSize vntStartDatestrTitleBookmarkstrKeystrCurrentColor lItemIndex lItemSelectedlItem lWordColorID 'objStartFolders *objCalendarFolder m&rU Imqmm M4mm`rU @n<jx#ThisDocumentKM_VBA_PROJECT_=PROJECTPROJECTlkNP%6<Y$!Yj FX$!YjxX$!YjY$!YjME(SLSS6"N0{00020906-0000-0000-C000-000000000046}(%H` % %`h8@0+#;$*\Rffff*373b239c524 xAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 ID="{8F5C3888-99F4-11D0-B90A-00AA00B588CB}" Document=ThisDocument/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Cal BaseClass=MY HelpFile="" Name="MyOutlookCalendar" HelpContextID="0" Description="OLE Automation to get appts from Outlook and create color printout in Word" VersionCompatible32="393222000" CMG="999B407044704470447044" DPB="6765BEF04270197      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwz{|}~am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{00020905-0000-0000-C000-000000000046}#8.1#0#c:\Program Files\Microsoft Office\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{3C7E4630-7557-11D4-86BF-00D05905FE6A}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object LibraryH*\G{0002E157-0000-0000-C000-000000000046}#5.0#0#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBEEXT1.OLB#Microsoft Visual Basic for Applications Extensibility*\G{00062FFF-0000-0000-C000-000000000046}#9.0#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb#Microsoft Outlook 9.0 Object Library  OLE Automation to get appts from Outlook and create color printout in Word+#;ThisDocument373b239c52ThisDocumentCal353b239c2bCalMY<83b23a8b5#MY0D7P0@$!YjB$!YjD$!Yj0|Name Wordk VBAWin16~Win32MacVBA6# MyOutlookCalendar MSFormsCOfficeuVBIDEAOutlook,V ThisDocument< _Evaluate CalB}(Autonew\3 Application* StatusBarʜ MYK^Show(RestartcFormattedDatecFormattedTime] cCategoriesJ, aryMonthNames4 aryDayNames  objOutlookApp9Y objOutlookNS6 NameSpace{fldOutlookApptsa MAPIFoldervntFirstDayOfMonthv objMyColumnlFDoMColumnIndex lFDoMRowIndexJlCategoriesFoundLH lInitializinglFirstDayOfWeekŦlMonthlyCalendarbaryBannerStack~cWeeklyCalendar?cMonthlyCalendar[ cTemplateU cSomeOneElsesLcEmptyCalendar&#cCurrentlySelectedCalendarInOutlook cDefaultCalendarcTitlecApptskcTentativeApptscBannersHcEvents5 cOtherMonthsLS cOtherBackso cScheduleNamepW cPrintDategcRecurrentAppts)% tCategory'pstrNameZ lWordColorIDXHtColors lVBColorIDO tBannerDays^ dStartDate]lNumDays̒lIndexlPageAlRowlStack>objShape.Shape tApptOrder2 dStartTimeobjAppt {tCellCharacteristicssVertPosFirstLinesVertPosLastLine lBannerCountw lRowIndexvtCalendarFoldersRFolderQID]Index aryCalendars lFolderCount;I lTitleColorb+lScheduleNameColor lEventColor lBannerColorylOtherMonthBackƴlOtherMonthTextT lApptColorylTentativeApptColor1alRecurrentApptColorlPrintDateColor1aryDaysǿ aryApptOrderaryCategoryColorJ aryColors aryBannersdSecondsStartRunDdSecondsEndRunstrCurrentCalendar strSomeoneElseName+ sApptFontSizestrStatusBarText{ lRunCompletedstrThisUserNamebstrSelectedCalendarTitle Cancel_ClickcboSelectedCalendar_Change lErrorNumbercboSelectedCalendarܷ SaveSettingGetRegistrySettings txtSomeonedVisible lblSomeone< ListIndexQErroNumber-RaisechkBanners_Click3strKey chkBannersCaptionxStrValueKchkLeftToRight_ClickCxchkLeftToRightjchkPrintWeekends_ClickCchkPrintWeekendschkShowApptEnd_ClickfchkShowApptEnd%6chkShowMeetingAttendees_Click1.chkShowMeetingAttendees{chkThumbnails_Clickz4 chkThumbnailschkUserName_Clickg chkUserName hcmdSendMail_ClickobjMailMessageMailItem  CreateItem~ olMailItemSubjectRPDisplaycboColors_ChangeAssignColorToVariablecboItemsM cboColors&- lblExamplek ForeColorcboItems_Changeh lIndexValueHSyncColorWithItemcmdDefault_ClicklCounter1 lInnerCounter{ ListCount6GetDefaultColor cmdOK_ClicklRunsobjCurrentFolderNow%Hide9zActiveDocument\Range DeletexGetCurrentCalendarFolderMsgBoxRChrK~ vbCritical+}TypeNameGetOtherUsersCalendar1 optPaper811 PageSetup PaperSize wdPaperLetter9 wdPaperA4 GetSettingCreateMonthlyCalendarUCreateWeeklyCalendarDDateDiffobjAppointment objOneMonthobjRangeyobjTable]Table lNumberMonthslMonthsPrintedFstrMonthstrYearp lMonthNumber vntCMonthvntOneMonthForwardvntLastDayOfMonthD vntIhpMonthr vntIhnMonth strTodayStart strTodayEndN strRangeQuery5 lFirstDay  lTableNumberb sPageWidthq sLeftMarginp sRightMarginck sEqualColumns)KlLastApptStart lSundayColumnJ3 lMondayColumnlTuesdayColumnlWednesdayColumnlThursdayColumn lFridayColumnplSaturdayColumnSystemaCursorl wdCursorWaitValtxtNumberMonthslboMonth DateSerialUtxtYear optPortraitX3 OrientationwwdOrientPortraitwdOrientLandscapeξInitializeCellsArraye SelectionZTypeTextInsertAutoTextDateAdd/6caldaysث Bookmarks?nTablesvbSunday& vbSaturdayvbMonday vbTuesday vbThursdayvbFriday  vbWednesdayCColumnsp9FontUHidden]SizeBordersC" wdBorderRightSetWidthH columnwidth rulerstylea wdAdjustNone~ wdBorderLeft  PageWidth! LeftMargin] RightMargin[InsertUserNameWeekDayMoveEnd*unitwdCell Count0vCellsShadingA ForegroundPatternColorIndex^TexturewdTexture25PercentBwdBorderVertical: ColorIndexMove>yCollapseu direction& wdCollapseEndAddr ColumnIndexPRowIndex6dGetApptsN ValidAppt MessageClasspnStartMovetorightdayܩInsertAppointment MoveStart}DeleteEmptyRow?6InsertTodaysDatel SortBannersCalculateBannerPositionPositionBannerswdStory& InsertBreakѺwdSectionBreakNextPagex wdCharacterwdCursorNormalSmpCalendarType_Change֨mpCalendarTypeoptLandscape_Clicke optLandscape optMonday_Clickj optSunday@GetFirstWeekDayroptMonthly_ClickI optWeekly6 optMonthly55optPaper811_ClickLoptPaperA4_ClickoptPortrait_ClickǚoptSunday_ClickoptWeekly_Click7txtApptFontSize_ChangetxtApptFontSize6txtApptFontSize_Exit(Cancel ReturnBooleanetxtDateFormat_Change txtDateFormatqGtxtDateFormat_ExitMtxtHourFormat_Changem txtHourFormatrtxtHourFormat_ExittxtNumberMonths_ChangeݐtxtNumberWeeks_ChangeVtxtNumberWeeks[txtOtherTitle_Exit9ulblOtherTitles txtOtherTitletxtSomeone_AfterUpdate, txtWeek_ExitɎtxtWeekSIsDate2BeepvbRedG/ txtYear_Exit=TUserForm_ActivateZs lAlreadyRun GetNewFolders%Y GetCategories_UserForm_Initialize5cLF^strFileVersion strPaperSize dFileDateTimeOptionsDefaultFilePathRwdUserTemplatesPath FileDateTimelblAboutAddItem  GetNamespaceC GetOldFoldersmSetupStandardFoldersdGEntryIDo GetDefaultFolder*olFolderCalendar)Trim@UserName\ParentSortCalendarByFrequencyTop5Height|UCase5  optPaperA4qMonth GetRegColorsMsbook ksmbookmdinfoo?lFullDayLabels=lWeekDayNumberQ vntOneDayBackpvntCurrentDayOnCaluvntDaysInMonth  lDayOfMonthL strDayOfMonthwdRowFwdAutoKVBoldDayYear6nobjWeekOneAppointment objOneWeek lWeeksPrintedƓ lNumberWeeksvntWeekStartDate \vntMonthStartDatevntOtherMonthStartDate lMonthDirectionvntWeekEndDatestrPartOneAutoText0strPartTwoAutoTextstrPartThreeAutoTextIstrSmallCalendarFirst strAutoTextqstrWeekEndDate@strWeekEndTime strAttendeesastrRequiredAttendees@strOptionalAttendeeslShowMeetingAttendeesclLeftToRightWeekCodeTstrLeftToRightBookMark strBookMarkstrBookMarkMoveDaylDirectionCodeCDaynameRequiredAttendeesOptionalAttendeesParagraphFormat LeftIndentiInchesToPointsI TypeParagraph  wdPageBreak 7vntDayNameStart lDirection vntCalculateDateq' rangequeryc?myrange- objTestItem objOtherUser RecipientobjOutlookItemsItems`h lNumTestItems  lNumApptsdSortIncludeRecurrencesFindnFindNextuShellSortArray startdateEapptdateTlFormat lNumberOfDaysĶlApptDayT lColumnIndexelRowDirectionLeftTlColumnDirectioUplDestColumnIndexa lDestRowIndext+lFirstDayWeekCal"CellRowColumniRowsUPrevious:b Information wdWithInTableTEndKey5wdLinevntAppt% lApptHours҃ lApptEndMonthDHlApptEndDayOfWeek  sBannerWidth sBannerLeft sBannerToplApptStartsInPrevMonth;lApptEndsInNextMonth˺lApptContinuesClTruncateBannerStartelTruncateBannerEndf strBannerText/lNumberBannerDaysToGo%@lNumberBannerDaysThisTimeXstrApptLocation strApptTimefstrMonthDayStartYstrMonthDayEndW strBanner&vntBannerStartDate/evntBannerEndDateelApptEndsInFirstWeekOfMonth7lColumnCounterwdCollapseStart| wdVerticalPositionRelativeToPageS Location- SetApptColorpScreenUpdating! "wdHorizontalPositionRelativeToPageInsertTextBannerc TimeSerialcmdCancel_Click\MC9^ lMoreRowsl4lResultMU SelectRow CharactersrgsTopPos sLeftPosxY sWidthPos^ sHeightPosJsBannerFontSizewK vntStartDate' lNumBannersrX lCellCountShapes< AddTextboxmsoTextOrientationHorizontal LockAnchorShadowmsoTrue  WrapFormat wdWrapNone]@ TextFrame TextRange AlignmentIwdAlignParagraphCenterl MarginLeft< MarginRight^ MarginTop MarginBottomeJwdActiveEndPageNumberVwdEndOfRangeRowNumber?vntShapeStartDate& sCellHeightAsCellTopv sCellWidthj]sVerticalPagePositionvsVerticalPagePosNextRowsTableRowHeight6sNewTableRowHeightb sBannerHeight lBottomFound"7 lPageNumberclBannerPageNumber\&lBannerRowIndex lRowNumberF sLineHeight sOldRowHeightX lUpperBoundG lMaxBanners  lCurrentDay҃ lDateStart lDateLength sRowHeightlLastDayOfMonth8SectionsLastbh errHandler } ShapeRangeOffsetY: MoveRightMoveLeftv LinesToPointssLineSpacingRulepwdLineSpaceExactlyRx LineSpacingAllowBreakAcrossPagesMoveDown̝MoveUpVersionRelativeVerticalPositionR wdRelativeVerticalPositionMarginKstrTitleBookmark^Gxj Y}r6}ThisDocumentThisDocumentCalCalMYMY  FMicrosoft Word Document MSWoPROJECTwm&>CompObjR'jObjectPool@1c5@1c5M )bjbj== WW)l@@@@@TT8 TL |% (TPLRLRLRLRLRLRL$M OvL@t) t)t)vLt)@@ Lt)t)t)t)@ @ PLt)t)PLt)t)t)@@R8t) c5TTt)t)t)"L0Lt)Ot)Ot)t)TT@@@@                                                                                                                                                                                            $If  <$$Ifl    ֞'/7 F0    4 l    <A$$Ifl    ('/70    4 l$If$If !"#$%&'()*+,-./012<A$$Ifl    ('/70    4 l$If$If23456789:;<=>?@ABCDEF<<A$$Ifl    ('/70    4 l$If$IfFGHIJKLMNOPQRSTUVWXYZ<A$$Ifl    ('/70    4 l$If$IfZ[\]^_`abcdefgh$IfA$$Ifl    ('/70    4 l$If$Ifhijkl`Z$If;$$Ifl704 l$If\$$Ifl7  04 llmnopqrsJDJ$IfS$$Ifl704 l$IfZ$$Ifl7  04 lstuvwxyzDS$$Ifl704 l$IfZ$$Ifl7  04 l$Ifz{|}~b\b\Z$IfZ$$Ifl7  04 l$If;$$Ifl704 l $If  $$Ifl֞'/7 F04 l }}$$0&#$/Ifa$$$IfH4 4 H$$0&#$/Ifa$A$$Ifl '/704 l$If $0&#$/If$$IfH X( 4 H$$0&#$/Ifa$ $$IfH X( 4 H$0&#$/If $$&#$/Ifa$$$IfH4 4 H$$&#$/Ifa$$$IfH X( 4 H$0&#$/If $$IfH X( 4 H$&#$/If      $$IfH X( 4 H$&#$/If$If <$$Ifl    ֞'/7 F0    4 l !"#$%&'()*+,-<A$$Ifl    `'/70    4 l$If$If-./0123456789:;<=>?@A<A$$Ifl    `'/70    4 l$If$IfABCDEFGHIJKLMNOPQRSTU<<A$$Ifl    `'/70    4 l$If$IfUVWXYZ[\]^_`abcdefghi<A$$Ifl    `'/70    4 l$If$Ifijklmnopqrstuvw $$IfH4 4 H$$0&#$/Ifa$A$$Ifl    `'/70    4 l$If$Ifwxyz{|}~ $0&#$/If$$IfH X( 4 H$$0&#$/Ifa$ $$IfH X( 4 H$0&#$/If  $$&#$/Ifa$$$IfH4 4 H$$&#$/Ifa$$0&#$/If$$IfH X( 4 H $&#$/If$$IfH X( 4 H $$IfH X( 4 H$&#$/IfX;$$Ifl 704 l$IfZ$$Ifl7  04 l$If JDJ$IfZ$$Ifl7  04 l$IfS$$Ifl 704 lDZ$$Ifl7  04 l$IfS$$Ifl 704 l$IfJD$IfS$$Ifl 704 l$IfZ$$Ifl7  04 l      $$&#$/Ifa$$$IfH4 4 H$$&#$/Ifa$;$$Ifl 704 l  !"#$%&'()*+, $&#$/If$$IfH X( 4 H,-./0123456789:;<=>?@ABCD $$IfH X( 4 H$&#$/IfDEFGHIJKLMNOPQRSTUV $0&#$/If$$IfH X( 4 H$$0&#$/Ifa$$$IfH4 4 H$$0&#$/Ifa$VWXYZ[\]^_`abcdefghijklmno $$IfH X( 4 H$0&#$/Ifopqrstuvwxyz{|}~ $If$$IfH X( 4 H$0&#$/If$If $$Ifl֞('07 F04 l }}$$7#&#$/Ifa$$$IfH4 4 H$$7#&#$/Ifa$A$$Ifl('0704 l$If $7#&#$/If$$IfH X( 4 H$$7#&#$/Ifa$ $$IfH X( 4 H$7#&#$/If $$&#$/Ifa$$$IfH4 4 H$$&#$/Ifa$$$IfH X( 4 H$7#&#$/If $$IfH X( 4 H$&#$/If  $$IfH X( 4 H$&#$/If     $If <$$Ifl    ֞ #) F0    4 l !"#$%&'(<A$$Ifl     #)0    4 l$If$If()*+,-./0123456789:;<<A$$Ifl     #)0    4 l$If$If<=>?@ABCDEFGHIJKLMNOP<<A$$Ifl     #)0    4 l$If$IfPQRSTUVWXYZ[\]^_`abcd<A$$Ifl     #)0    4 l$If$Ifdefghijklmnopqr $$IfH4 4 H$$&#$/Ifa$A$$Ifl     #)0    4 l$If$Ifrstuvwxyz{|}~ $&#$/If$$IfH X( 4 H$$&#$/Ifa$ $$IfH X( 4 H$&#$/If  $$q#&#$/Ifa$$$IfH4 4 H$$q#&#$/Ifa$$&#$/If$$IfH X( 4 H $q#&#$/If$$IfH X( 4 H $$IfH X( 4 H$q#&#$/If$IfZ$$Ifl0*  04 l$IfJDJ$IfZ$$Ifl0*  04 l$IfS$$Ifl0*04 lDZ$$Ifl0*  04 l$IfS$$Ifl0*04 l$IfJDJ$IfS$$Ifl0*04 l$IfZ$$Ifl0*  04 l\ZZH$$&#$/Ifa$;$$Ifl0*04 l$IfZ$$Ifl0*  04 l$If      $&#$/If$$IfH X( 4 H$$&#$/Ifa$$$IfH4 4 H !"#$%&'()*+,-./01234 $$IfH X( 4 H$&#$/If456789:;<=>?@ABCDEF  $$q#&#$/Ifa$$$IfH4 4 H$$q#&#$/Ifa$$$IfH X( 4 H$&#$/IfFGHIJKLMNOPQRSTUVWXYZ[\ $q#&#$/If$$IfH X( 4 H$$q#&#$/Ifa$\]^_`abcdefghijklmnopqrstu $$IfH X( 4 H$q#&#$/Ifuvwxyz{|}~$If$$IfH X( 4 H$q#&#$/If $$Ifl֞ $0* F04 l$IfA$$Ifl- $0*04 l$If<$$Ifl    ֞ #) F0    4 l<A$$Ifl     #)0    4 l$If$If<A$$Ifl     #)0    4 l$If$If<<A$$Ifl     #)0    4 l$If$If<A$$Ifl     #)0    4 l$If$If$IfA$$Ifl     #)0    4 l$If$Ifb\b\$If;$$Ifl0*04 l$IfZ$$Ifl0*  04 l     b\b\$IfZ$$Ifl0*  04 l$If;$$Ifl0*04 l  b\bZZX$If;$$Ifl0*04 l$IfZ$$Ifl0*  04 l $If $$Ifl֞ $0* F04 l !"#$%&'()A$$Ifl. $0*04 l$If / =!"#$%\@\ Heading 1$$<@&a$"5CJKHOJPJQJmH sH u<A@< Default Paragraph FontBOB right$a$5CJOJPJQJmH sH uDOD months$a$5CJOJPJQJmH sH uH@H Header  !CJOJPJQJmH sH u(O"( sright5CJ LO2L daytitle$a$!56CJOJPJQJmH sH u<OB< weeklyCJOJPJQJmH sH u) calcalweek calweeklrihcal ihcalweek ihcalweeklrihpor ihporweek ihporweeklrporporweek porweeklr Heading 1 Header/Footerfu p())  2FZhlsz-AUiw,DVo (<Pdr4F\u )  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ab)TMtitle startdaysMtitlewtitled1tbd2tbd3tbd4tbd5tbd6tbd7tbwtitled1lrlras nmonthname nstartdays pmonthname pstartdaysMtitle startdays nmonthname nstartdays pmonthname pstartdaysMtitlewtitled1tbd2tbd3tbd4tbd5tbd6tbd7tb pmonthname pstartdays nmonthname nstartdaysMtitlewtitled1lrlras nmonthname nstartdays pmonthname pstartdaysMtitle startdays pmonthname pstartdays nmonthname nstartdaysMtitlewtitled1tbd2tbd3tbd4tbd5tbd6tbd7tb pmonthname pstartdays nmonthname nstartdaysMtitlewtitled1tbd1lrlrasMtitle startdaysd7tbwtitled1tbd2tbd3tbd4tbd5tbd6tbwtitleMtitled1tbd1lrlras ffgkosw{u DN pz@J{{}} +  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRS ffgkosw{u DN pz@J{{}} + !#%'(*,.024679;=?ACEFHJLNPRTUWY[]_acdghijklmnopqrstuvwxyz{|}~     !#%'(*,.024679;=?ACEFHJLNPRTUWY[]_acdfhjlnprsuvwxyz{|}~     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~   "#%')+-/12468:<>@ACEGIKMOPRTVXZ\^_acegikmnpqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz}~      !"#$%&+@du)P(@UnknownG:Times New Roman5Symbol3& :Arial5& :Tahoma"0h0rdDocWord.Document.89q