ࡱ> utw~zM "bjbj== )`WWl8Ia h4*^^^3^ _ `$b d``'a'''h4'h4'X'l-l- P$u$l-l-a0Ial-eH"el-'POST CLASSIFICATION AND PAYMENT TABLES SECTION 920 FOOTNOTES TO SECTION 920 (Explanations on how to use the post classification and payment tables are included in Section 920 of these regulations) a effective February 20, 2005 b effective March 6, 2005 c Changes were effective on both of the above dates. The allowance or other revision printed in this Section 920 was effective March 6, 2005. The changes effective February 20, 2005, are listed at the end of these footnotes. d - No current cost information is available as all U.S. Government employees are in Government owned or leased housing. Any US Government organization with employees eligible for the LQA should submit housing cost information to the Department of State as required by Section 072 and 077 of these regulations. Until more suitable housing cost information can be used to establish LQA rates for the locality, effective 3/09/03 the following LQA rates are authorized: LQA GROUPS234WF133001210010900WOF12700109009700e -The LQA rates are established for the benefit of only a few or no current employees and therefore do not necessarily represent overall local quarter costs. (See Sections 072 and 077 for information on the reporting of housing cost data.) g - The following are within the Tokyo-To (Kanagawa-Ken) area: Atsugi, Camp Zama, Fussa, Machida-Shi, Sagamihara, Tachikawa and Yokota AB. h - When payment is made directly to a DOD school rather than as an education allowance to the employee, such payment must be considered to be in lieu of the education allowance. Thus, an employee whose child changes schools (DOD school, local school, U.S. school) during a school year, must deduct any payment made, or to be made, directly to the DOD school on the child's behalf from these rates. An employee cannot be granted or have paid on his/her child's behalf, an amount greater than the rates published for any one school year. m - The 'away from post' rate of $42,000 is for use only in attending schools located outside of South Africa. The school 'at post' rate may be used in attending day or boarding schools in South Africa. n - An employee who serves for a period of 42 consecutive calendar days or more on detail (Section 511c) in Afghanistan (effective 12/16/01) or Iraq (effective 3/23/03), may be granted the post differential at the prescribed rate for the number of days served, beginning with the first day of detail. p - In addition to the listed post differential rate, employees are eligible for danger pay allowance, DSSR (652f), as shown below: Area AfghanistanRate Eff. Date 25% 12/02/01Area IsraelRate Eff. Date Area Peru Departments of:Rate Eff. Date Algeria Gaza Strip25% 8/02/01 Huanuco (entire Departamento)15% 10/10/99 Algiers20% 10/5/03  Karmiel20% 5/18/03 Junin (Provinces of Satipo and15% 10/10/99 Other25% 2/06/94 Tel Aviv20% 5/18/03 Chanchamayo only)Bosnia-Herzegovina:Other20% 5/18/03 Pasco (Province of Oxapampa only)15% 10/10/99 Sarajevo15% 1/18/98Jerusalem: San Martin (ex. the City of Tarapoto)15% 10/10/99 Other25% 7/19/92 Jerusalem20% 5/18/03 Ucayali (Province of Padre Abad only)15% 10/10/99Burundi25% 2/04/96 West Bank25% 8/02/01 only)Central African Republic Colombia20% 6/17/01 15% 11/27/96Kuwait Lebanon 15% 5/18/03 Russia: Chechnya Province 15% 5/23/99Cote d'Ivoire15% 2/20/05 Beirut20% 7/11/04Saudi Arabia25% 6/13/04Haiti15% 3/07/04 Other25% 10/21/83Serbia and MontenegroIndonesiaLiberia: Kosovo Province20% 6/27/04 Aceh 15% 6/29/03 Monrovia25% 6/15/03 Pristina15% 6/27/04 Kalimantan15% 6/29/03 Other25% 4/23/00Somalia25% 1/13/91 Maluku15% 6/29/03Pakistan:Sudan25% 9/19/04 Papua (Iranian Jaya)15% 6/29/03 All areas except Peshawar25% 4/07/02Tajikistan 15% 10/12/97 Sulawesi15% 6/29/03 Peshawar25% 9/23/01Uganda: West Timor15% 6/29/03Peru Departments of: Apurimac (Province of Chincheros only) 15% 10/10/99 Other Yemen15% 3/12/00 15% 3/10/02Iraq25% 8/11/90 Ayacucho (Province of La Mar & Huanta15% 10/10/99 only) POST CLASSIFICATION AND PAYMENT TABLES SECTION 920 u - In accordance with Section 151 of PL 101-246, danger pay is authorized for DEA employees while at the locations listed below. The authorized post differential for each location is revised by the removal of credit for political violence for those employees receiving danger pay. DANGER PAYREVISED POST DIFFERENTIALEffective DateEffective DateBolivia15% 3/15/95Cochabamba 5% 3/15/95La Paz10% 11/26/95Santa Cruz10% 3/15/95Other10% 3/15/95Mexico15% 3/15/95Ciudad Juarez 0% 12/31/00Nuevo Laredo 0% 04/20/03Tijuana 0% 06/29/03 v - A danger pay allowance under Section 652g of the Standardized Regulations is authorized for Federal Civilian employees who accompany U.S. Military forces designated by the Secretary of Defense as eligible for imminent danger pay for the designated areas. The amount of danger pay shall be the same flat rate amount paid to uniformed military personnel as Imminent Danger Pay ($225 per month at all times). Danger pay authorized under Section 652g will not be paid for periods of time that the employee either receives danger pay authorized under Section 652f or post differential that would duplicate political violence credit which is already included in the differential rate. Political violence credit is included in the differential rates for the following designated areas except: Other, Greece, Iran and the Persian Gulf. Effective 1/7/96, the following designated areas are: Croatia (except Zagreb); and Serbia and Montenegro (except Belgrade, Kosovo Province, Montenegro Province and Pristina) Effective 10/13/96, the following designated areas are: Kuwait (except Kuwait City); Saudi Arabia (except Dhahran Area, Jeddah, Riyadh and Taif); Iran; and the Persian Gulf Effective 1/19/97, the following designated area is: Other, Democratic Republic of Congo Effective 11/08/98, the following designated area is: Bahrain Effective 11/07/99, the following designated area is: East Timor Effective 1/27/02, the following designated areas are: Other Indonesia, Other Malaysia, Other Philippines, Other Krygyzstan, Other Oman, Other UAE, Other Uzbekistan, Red Sea, Gulf of Aden, Gulf of Oman, and the Arabian Sea (portion north of 10 degrees north latitude and west of 68 degrees east longitude). Effective 4/07/2002, the following designated area is: Other, Israel (See footnote p Gaza Strip) Effective 2/09/03, the following designated areas are: Other Angola, Other Azerbaijan, Other Djibouti (land area only), Other Egypt, Other Eritrea (land area only), Other Ethiopia, Other Georgia (entire land area), Other Greece, Other Haiti (total land area), Other Jordan, Other Kenya (land area only), Other Macedonia, Other Qatar, Other Rwanda (land area only), and Other Turkey (total land area and inland waters). Effective 06/15/03, the following designated areas are: Other, Cote dIvoire (land area only) and the Mediterranean Sea east of 30 degrees East Longitude (sea area only). y Posts that have both footnote n and footnote p. z Posts that have both footnote p and footnote v. 3L      F OT`dgq鯝鯝5CJ5OJQJ CJOJQJ>*CJOJQJ^J CJOJQJ>*CJOJQJ >*OJQJOJQJOJQJ5CJOJQJ>*CJOJQJCJ CJOJQJ5CJOJQJ\>*>3L $$@&Ifa$$@&If  @&^`  p@ P ! $&d P a$""\\TTIII\\T $$@&Ifa$$@&If$$Iflr\ : *04 la   ICC h$$Iflr\ : *04 la $$@&Ifa$$@&If  * c W 6 OT`q  $If  h%&0BLo\eeeeeeoeee  $If$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah %&089U_ *+BCDEf+,2[pqrs}~"#3;KLfpqw !19:;Y 5CJ\CJ\CJ5CJ^L]~e,e$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If )89DU`ae$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If aee$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If +;CDE^gxe@$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If e\$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If +,2CL[qrsee$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If s}~eH$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If  #3;KLUe<e$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If Ufpqwe$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If !19:;HYeet$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If Yor%&'(3457jlmV] =f =Q @ !!!!!""6CJOJQJ>*CJOJQJ5>*CJOJQJ CJOJQJ>*CJOJQJ>*>* 5CJ\CJ\CJ5CJEYpe@$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If %&'()*2345e8$$Ifl4ֈ2 ,#*0$66 \ TN (54 lah  $If 56jklobTJ<6 h ^` ^`  ^` $&d P a$$$Ifl4ֈ2 ,#*0$66 \ TN (54 lahl$$Ifl4\ WW 4 la h$If  +9:\p\l$$Ifl4\ WW 4 la h$If:;<BPQRSTUV]ky~  h$Ifl$$Ifl4\ WW 4 la h$If|hz h^` h$Ifl$$Ifl4\ WW 4 la efJKa  ^ `^  ^ h^` ^` !!!!!""""$ a$ ^`  '&P0P= /!"# $ % i8@8 NormalOJQJ_HmH sH tH 0@0 Heading 1$@&>*<A@< Default Paragraph FontZOZ footnote( # p@ P !CJOJQJuJYJ Document Map-D M OJQJ^J,, Header  !, ", Footer  !h$2h Envelope Address!@ &+D/^@ CJOJQJ^JaJ>%B> Envelope Return OJQJ^J`3L  *cW6 O T ` q  % & 0 B L ] ~  ) 8 9 D U ` a     + ; C D E ^ g x +,2CL[qrs}~ #3;KLUfpqw!19:;HYp%&'()*23456jkl  +9:;<BPQRSTUV]kyefJKa 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000@0@00Y"& LasUY5: " !"#$%'()*+,-./" DATE_PARTB  PTV[]djtvg j   D K _ d s y  "   NTrzCG *  03ip^gC I s {   2 ; N V + 1 F N   = A i q z $4<NT %,=DW_y#*JR,0lm-2DI_d 3333333333333333333333333333333333333333333333333333333333333333333333333333   & & B B ] ]   ^ f x *,C[ps|~33::;;JJLLffqqwy~118899;GHXYY%%&&(())**334466kkAD[^  WilliamsKPEG:\Section 920 Information\Section 920 Foot notes\ftn 2004\ftn644.doc WilliamsKPEG:\Section 920 Information\Section 920 Foot notes\ftn 2004\ftn645.doc WilliamsKPEG:\Section 920 Information\Section 920 Foot notes\ftn 2004\ftn645.doc mcneiljm2EG:\Section 920 Information\Section 920 Foot notes\ftn 2004\ftn646.doc WilliamsKPEG:\Section 920 Information\Section 920 Foot notes\ftn 2004\ftn646.doc WilliamsKPEG:\Section 920 Information\Section 920 Foot notes\ftn 2005\ftn646.doc WilliamsKPEG:\Section 920 Information\Section 920 Foot notes\ftn 2005\ftn647.doc WilliamsKPEG:\Section 920 Information\Section 920 Foot notes\ftn 2005\ftn647.doc WilliamsKPEG:\Section 920 Information\Section 920 Foot notes\ftn 2005\ftn648.doc WilliamsKPEG:\Section 920 Information\Section 920 Foot notes\ftn 2005\ftn648.doc   O `  % & 0 B L ] ~  ) 8 9 D U ` a     + ; C D E g +,2CL[qrs}~ #3;KLUfpqw!19:;HY%&'()*23456jl  +9:;<BPQRSTUV]ky OV)^)`V#)^)`V*)^)`V +)^)`V )^)`V )^)`V )^)`V ))^)`V1)^)`V;)^)`VM)^)`V)^)`V)^)`V)^)`V)^)`V)^)`V0)^)`V2)^)`V<)^)`V)^)`V)^)`V )^)`V7)^)`V)^)`V)^)`V)^)`V )^)`V!5)^)`V"9)^)`V#G)^)`V$)^)`V% )^)`V& )^)`V')^)`V()^)`V)3)^)`V*B)^)`V+I)^)`V,)^)`V-)^)`V.%)^)`V/,)^)`V06)^)`V1:)^)`V2=)^)`V3>)^)`V4N)^)`V5)^)`V6)^)`V7)^)`V8)^)`V9)^)`V:4)^)`V;@)^)`V<A)^)`V=J)^)`V>L)^)`V?)^)`V@!)^)`VA")^)`VB&)^)`VC()^)`VD8)^)`VEF)^)`VFD)^)`VGK)^)`VH )^)`VI)^)`VJ')^)`VK$)^)`VL/)^)`VMH)^)`VN )^)`VO.)^)`VP-)^)`VQ?)^)`VRE)^)`VSC)^)`VT )^)`OProject.AddNewField.MAINProject.AddNewRecord.MAINProject.AutoCorrectOff.MAINProject.AutoFormatOff.MAINProject.BugWorkAround1.MAINProject.CleanUpDatabase.MAINProject.CleanUpLib.MAINProject.colpam.MAINProject.colpam2.MAINProject.colpamfooter.MAIN Project.COLreformatagencies.MAIN$Project.DatabaseManagementTools.MAINProject.DatabaseMgmtHelp.MAINProject.DeleteHeader.MAINProject.DeleteRecord.MAINProject.DelLine.MAINProject.difcable.MAINProject.difchangememo.MAINProject.difrmccd.MAINProject.difrmcsd.MAINProject.difrmmcd.MAINProject.difrmmsd.MAINProject.dsp23wstart.MAINProject.EdAfpFormat.MAINProject.EdAtPostFormat.MAINProject.EditPasteSpecial.MAINProject.EditRecord.MAINProject.EdSpecialFmt.MAINProject.FixDomestic.MAINProject.fixheader.fixheaderProject.foodinputmacro.MAINProject.GetLine.MAINProject.GotoRecord.MAINProject.hotelinputmacro.MAINProject.hotelmaintmacro.MAINProject.LineNo.MAINProject.LinkToExtDatabase.MAINProject.LQAChgMemoFmt.MAINProject.LQAFormatHeader.MAINProject.LQAReminderCable.MAINProject.LQAReminderMemo.MAINProject.lqatemp.MAINProject.Macro1.MAINProject.Movebk.MAINProject.NumberRecords.MAIN!Project.Pd925DomesticRateFmt.MAIN Project.Pd925ForeignRateFmt.MAINProject.Pd925InsertFileFmt.MAINProject.pdadjmemo.MAINProject.pdcable.MAINProject.pddata925.MAINProject.pddata925col.MAINProject.pddata925colus.MAINProject.pddata925us.MAINProject.pddatachgmemo.MAINProject.pddatatlsn.MAINProject.pddatatlsnstart.MAINProject.pdexplnotes.MAINProject.pdusexplnotes.MAINProject.pdwwavg.MAINProject.printfile.MAINProject.PrintMergeLib.MAINProject.PrintPreview2.MAIN"Project.RecordManagementTools.MAINProject.RecordMgmtHelp.MAINProject.restinputmacro.MAINProject.SectionBreak.MAIN#Project.SectionBreakContinuous.MAINProject.Set_View_Normal.MAIN"Project.Set_View_PrintPreview.MAINProject.SetFontTelegram.MAINProject.SortRecords.MAINProject.Std920ChecklistFmt.MAINProject.Std920FtnFmt.MAINProject.Std920IndexFmt.MAINProject.Std920PartABFmt.MAINProject.Std920TeleFont.MAINProject.Times12.MAINProject.ViewWholePage.MAINOPROJECT.COLPAM.MAINPROJECT.LINENO.MAINPROJECT.MACRO1.MAIN PROJECT.MOVEBK.MAIN PROJECT.COLPAM2.MAIN PROJECT.DELLINE.MAIN PROJECT.GETLINE.MAIN PROJECT.LQATEMP.MAINPROJECT.PDCABLE.MAINPROJECT.PDWWAVG.MAINPROJECT.TIMES12.MAINPROJECT.DIFCABLE.MAINPROJECT.DIFRMCCD.MAINPROJECT.DIFRMCSD.MAINPROJECT.DIFRMMCD.MAINPROJECT.DIFRMMSD.MAINPROJECT.PDADJMEMO.MAINPROJECT.PDDATA925.MAINPROJECT.PRINTFILE.MAINPROJECT.CLEANUPLIB.MAINPROJECT.EDITRECORD.MAINPROJECT.GOTORECORD.MAINPROJECT.PDDATATLSN.MAINPROJECT.ADDNEWFIELD.MAINPROJECT.DSP23WSTART.MAINPROJECT.EDAFPFORMAT.MAIN PROJECT.FIXDOMESTIC.MAIN!PROJECT.PDDATA925US.MAIN"PROJECT.PDEXPLNOTES.MAIN#PROJECT.SORTRECORDS.MAIN$PROJECT.ADDNEWRECORD.MAIN%PROJECT.COLPAMFOOTER.MAIN&PROJECT.DELETEHEADER.MAIN'PROJECT.DELETERECORD.MAIN(PROJECT.EDSPECIALFMT.MAIN)PROJECT.PDDATA925COL.MAIN*PROJECT.SECTIONBREAK.MAIN+PROJECT.STD920FTNFMT.MAIN,PROJECT.AUTOFORMATOFF.MAIN-PROJECT.DIFCHANGEMEMO.MAIN.PROJECT.LQACHGMEMOFMT.MAIN/PROJECT.NUMBERRECORDS.MAIN0PROJECT.PDDATACHGMEMO.MAIN1PROJECT.PDUSEXPLNOTES.MAIN2PROJECT.PRINTMERGELIB.MAIN3PROJECT.PRINTPREVIEW2.MAIN4PROJECT.VIEWWHOLEPAGE.MAIN5PROJECT.AUTOCORRECTOFF.MAIN6PROJECT.BUGWORKAROUND1.MAIN7PROJECT.EDATPOSTFORMAT.MAIN8PROJECT.FIXHEADER.FIXHEADER9PROJECT.FOODINPUTMACRO.MAIN:PROJECT.PDDATA925COLUS.MAIN;PROJECT.RECORDMGMTHELP.MAIN<PROJECT.RESTINPUTMACRO.MAIN=PROJECT.STD920INDEXFMT.MAIN>PROJECT.STD920TELEFONT.MAIN?PROJECT.CLEANUPDATABASE.MAIN@PROJECT.HOTELINPUTMACRO.MAINAPROJECT.HOTELMAINTMACRO.MAINBPROJECT.LQAFORMATHEADER.MAINCPROJECT.LQAREMINDERMEMO.MAINDPROJECT.PDDATATLSNSTART.MAINEPROJECT.SETFONTTELEGRAM.MAINFPROJECT.SET_VIEW_NORMAL.MAINGPROJECT.STD920PARTABFMT.MAINHPROJECT.DATABASEMGMTHELP.MAINIPROJECT.EDITPASTESPECIAL.MAINJPROJECT.LQAREMINDERCABLE.MAINKPROJECT.LINKTOEXTDATABASE.MAINLPROJECT.PD925INSERTFILEFMT.MAINMPROJECT.STD920CHECKLISTFMT.MAINN PROJECT.COLREFORMATAGENCIES.MAINO PROJECT.PD925FOREIGNRATEFMT.MAINP!PROJECT.PD925DOMESTICRATEFMT.MAINQ"PROJECT.RECORDMANAGEMENTTOOLS.MAINR"PROJECT.SET_VIEW_PRINTPREVIEW.MAINS#PROJECT.SECTIONBREAKCONTINUOUS.MAINT$PROJECT.DATABASEMANAGEMENTTOOLS.MAIN@\\AEXIRMSNTSS\AnaheimNe02:winspoolHP LaserJet 5\\AEXIRMSNTSS\Anaheimpc,,Letter 9 6''''\\AEXIRMSNTSS\Anaheimpc,,Letter 9 6'''' LLL @@UnknownG: Times New Roman5Symbol3& : ArialQ& z!Microsoft Sans SerifC"MS Sans Serif5& z!Tahoma"AJfJfiW 4$20dfa]\22POST CLASSIFICATION AND PAYMENT TABLES SECTION 920DonovaSJ WilliamsKPOh+'0$ 8D ` l x 3POST CLASSIFICATION AND PAYMENT TABLES SECTION 920OST DonovaSJSIFonoonoNormalJ WilliamsKPF3llMicrosoft Word 9.0 @G@z@.5$@`$W՜.+,0( hp   Unisys - TSCF4 f 3POST CLASSIFICATION AND PAYMENT TABLES SECTION 920 Title  !"#$%&'()*+,-./023456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijkmnopqrsvyz{|}~Root Entry Fv$1Table1eWordDocument)`SummaryInformation(dDocumentSummaryInformation8lMacros`^pu$P$u$VBA&pu$P$u$dirx-!0* pHdProjectQ(@= l sIA J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Autom`ation^mMSForms> MSFErms3DD452EE1-E08F-101A-8-02608C@4D0BB4 DNT\System32\FM20.DLL#Micr@osoft 9 \ Ob Library/;C1s00}#0#0r CF25D163-90DD-11D2-BE48 A0C9A949 CBP@OP\VBE\G.EXD /.E .`M, A}NZal}NDYa} *\C @5L7OPfficOfic=G{2DF8D04C-5BFAk@B-BDE5=A42=PROGRAM FILES\MICROSOFT OFFICE\MSO 97q# 8.0 r"BQ ThisDocumentG Th1sD@EcuTm@4n 2E HB1B,!#"B+ ActiPvateG@-A*tvaeD2bi%!ddNewFieldd`N"wtili1 o#'AA Recor5RAdRcYd55ot7o)l!Corr`PG! A Gt Crtd⛫2mUI+*! atALoJN2`)Pu݀OofG/y--0'BugWorkAround1E#'B@gW&kE@_r un<1-#'p_ /$CleanUpDatabaseGwCŢa@Up`q!(ab`ss<2Bq$'1\ W `kGk LCb2MM3|colpamVGrRQ8laS;b2#5pG4 +2 47\HSfooXtercf*oBZr0Ht#r? ? 9< OLref!}tagencie0sG& GLG *gnPe[s OB2OmbhaK)_@4; @ 5Man xTool .5Mn0+yTBl`2elt_ M4M=\ Y gmtHelpGD t0U g2tpeP;pclp2Mum&H6 N? 1*DeleteHead5-ZD2e,aWe߰Su3-d?-DW? 3~9~? v`=< E0Linp`ahASnG _1\$difcabl`!d\Nf;!ga92J?eEq!Ǽhang@ememoG)u ic`1pu8m080 &5 zh/nrC;!_)?O_ rmccPNcџ_T2Y7v˿s Hsds i @C,0$!`+difrmm cdG4i@frmcPd F2FnH 1*{s{s {sdW{##{ь= Udsp23wsta rtGsp23wрtat V2FeӐFEdAfpForm*aFEApFoaFWFO#%P#L#BtPost$AtP#s"s%O 2] ˍ}hͬ'AEditPasteSpecialG A-Li@&PnA(eStecalr2U*R* Ri@tRecor@yH)RA&vAK 2U !L %Fm@L$+$F~L25op#ljFixDomesticcpF@5xD@Lm#8i7^u+J߬ !fixheaderGb*haKe`pm2/*-,!hfoodinputmacroG"hf!o"[nYu[m[co Zn1pH@"GetLin(eGG #tJL$n 2kbGoto)hG "t`/h'#h1=3 hoteZl3ei42`h+%mainE$[ # t>a5r`V [] o)\_ \ @^a$N.F%$N2_O`kToExtDatabas0,"a+kTEx5D5bpsr-2e2  QAChgMem o[ QAC#gM mP %[.2A9/#e) "L4QAHR&LIH Sr&_ _ \ q~P Remin\Cabl1C*md@ r ab r s.s>/esH0 Pd925VRH(HP95RD!eIs2){Yu= <  1 Jehign& &* 3KeM@g|OtRep2OriO %?L !InsertFilqG$ FI ajrtil0FCmtPd925InsertFileFmt2$d925InserFil),FNH 1F(, $!+  pdadjmPemoGplajVeo &2&1 cabl0eG=cHabn2+:):{data{d;t}{ @}j{@ {-c`olG?KcoB 2 $P$_d$pusGAQ%umdJ 2^ '' L'L% 2 O#PpL# F#chg#`chgю 2+K/ [ , &tlsnGt Js 4+26o\startG s@a2N5k^Eexplnote@^Eex@3l%o`e]Jo&ѰJ晬CDusJZ_qNJS/0,9wwavg'wwv\%'3Brintf %r@n`2fD$%/X,+PA MergeLibGvP`Ui`CtMgL>bN#2W )5 Pre`view2 evP epA % - ? "RecordManageme@ntTool5*Wmr~M#n0mpqT@oaoNs2aa(e v% 1q g@mtHelp3qR* A^tЗeUp@ ?_3q_W ?V restinputmacr;`r !U!*pu2m@c@+ _[ _W h qSectionBreaksSt)oPBP e ks? )< ^9 HConuo!,w)C`))1u;Ur2sl rSet_V0@_Norma t_VQ@_N` ra*svsv__ \ <iKG?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]_`abcdefghijklmnopqrstuvwxz{|}~\cs 5xMEH &8 " (8Xp***8 X hx  coldata *B@< *B@coldata2 *B@< *B@0 in *B@-.5 in *B@ed by 0.25 inJ *B@(3.38 inJ *B@4.19 inJ *B@ Univers (WN) *B@ *B@ *B@ Univers (WN) *B@ *B@  *B@Lo@8\Attribute VB_Name = "col@pam" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=adata dExtendSel,ec)/Q2RFormatTabs ClearAl0l:=1 Y%Paragraph LeftIndentV0 inC,Righ-.5mGPosBi0.252, Alig0,8 Se>T3.3824.19nt "Univers (WN)", 10 TCancelM'Cwa FobViewZoomWholePagePCharc OE nd\c xMEH &8 " 0LineNo *B@<oXPkAttribute VB_Name = "LineNo" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:=Endz \c xMEH &8 " ( *B@o`X[Attribute VB_Name = "Macro1" Public Sub MAIN() WordBasic.ViewZoom100 EndL \c3 xMEH &8 "8H *B@L blockstart *B@2o@8|Attribute VB_Name = "Movebk" Public Sub MAIN() WordBasic.CharRight 1 ,EditBoo@kmark :="blockstartEnd colpam2 HoDelLine^GetLine y|lqatemp 7xME &@TFormats "CLASS" to "INDEX" in header section. Only used for change recommendations.TemplateProject.colpam2.MAIN@ "(8P hx index_txt1 *B@<  *B@ *B@INDEX *B@P *B@Do^Attribute VB_Name = "colpam2" Public Sub MAIN() D.pDescription~Formats ""CLASS"" toAINDEXin header sec3. Only used for change recommenda% s.{ProcDataInvoke_FuncTemplate"ji..K WordBasic.WW7_EditGoTDo htin;:="index_0txt1Left 2 ' Right 1, 1W2_Insert "StartOfDocut End \c ŚxMEH & 8 "      $<RTV0"$R XZ\^`bdfhjlnp *B@Plineno *B@< *B@ *B@z *B@ *B@z $<RTV0"$R XZ\^`bdfhjlnp *B@PoAttribute VB_Name = "DelLine" Public Sub MAIN() WordBasic.WW2_ToolsOptionsView HScroll:=1, VStatusBar2StyleAreaWidth:="0" + _ Chr(34), Tabl@eGridls:=0extBoundarieaPicturePlaceHo0lder*IFieldCod):bpk8^)SpCParaH`yphen%H iddenAShowAoGFullpe 7_EditGoTo DestinassfnoLPeft g1 #6A#Clear Char jUcjjEndAt{ xME` &P  " (  0 @P h  ]@ *%.$'  $<RTV0"$R XZ\^`bdfhjlnp *B@PLineNo *B@<  *B@P *B@3  *B@LineNo *B@< *B@ *B@  *B@ $<RTV0"$R XZ\^`bdfhjlnp *B@Po80˱Attribute VB_Name = "GetLine" Public Sub MAIN() Dim @i$ i$Str(WordBasic.SelInfo(10)P.WW2_ToolsOptionsView HScroll:=1, V Sta@tusBarStyleAreaWidth:="0" + _ Chr(34), TableGridls:=0extBoun`darieaPicturePlaceHolder*$FieldXCod}b8kg/SpParaHyph en%HiddenAShowACoGFullpe  7_EditGoTo DestinasCNo Insert Del8ete . WWA)9EndOf" 1Update NsA Down @\0 ck{A1 XUA\c# xMEH &8 "  (8 *B@2 *B@oPHcAttribute VB_Name = "lqatemp" Public Sub MAIN() WordBasic.Wi ndow3 $FileClose  Endn \c# pdcablepdwwavgTimes12__SRP_0xMEH &8 "  0@`x**(*8(h***  @Phx *B@ pddata *B@< *B@ \EndofDoc *B@< *B@0 in *B@ 1 in *B@0.25 inJ *B@0.38 inJ *B@x2.38inJ *B@2.88 inJ *B@3.5 inJ *B@4.13 inJ *B@4.75 inJ *B@5.31 inJ *B@Courier *B@ *B@pddata *B@2oyAttribute VB_Name = "pdcable" Public Sub MAIN () WordBasic.ViewZoomWholePage @WW7_EditGoTo Destination:=datag RExtendSelec((P\EndofDocSFormatTabs ClearAll:=1 ZParagraph Left@IndentV00 in,Righ 1mGPosi0.251, Alig0, Se=T 382.38+22.83.K?4.13J?75.31nt "Courier", 12 CancelMBookmark AЀ \c xMEH & 8 " 0Ph(&( 0@Ppddata *B@< *B@pddata2 *B@< *B@0 in *B@0 in *B@0.3 inJ *B@2 inJ *B@4.7 inJ *B@ Univers (WN) *B@ *B@o&Attribute VB_Name = "pdwwavg" Public Sub MAIN () WordBasic.WW7_EditGoTo Destination:=data bExtendSelecP.P2QFormatTabs ClearAll:=1 X%Paragraph LeftIndentU0 in,RighFPosi0.3, Alig0, Se<S 294.7 2=nt "Univers (WN)", 10MRCancel  EndA \c; AxMEH &8 " "@P *B@Times New Roman *B@o80xAttribute VB_Name = "Times12" Public Sub MAIN() WordBasic.EditSelectAll 0Font New Roman", 12 End rU~} K*m *\CNormalrU~~~~~~~~h %Y7JlTe  Qa q )Iq1Ia!Iq )Ii!Ii9Q)AYq 9Yq ) I q      A y    ) Q     1 Y     ya ?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\^_`abcdefghijklmnopqrstuvwxyz{}~\ck ǚxMEH &8 "  (HXh *B@  *B@Courier *B@ *B@no Attribute VB_Name = "difcable" Public Sub MAIN() WordBasic.ViewZoomWholePage 8EditSel@ectAll 0Font "Courier", 1B2 Show0 @0 Endx \c ˚xMEH &difrmccd 5difrmcsd5difrmmcd35difrmmsdH5 8 "  (N@ *B@  *B@z *B@x#m:\live\alsexe\publdoc\difrmcch.doc"$& *B@ 94~ *B@|J *B@n *B@o0(,Attribute VB_Name = "difrmccd" Public Sub MAIN() WordBasic.ViewZoomWholePage 8EditSel@ectAll 0TableInsert Conv From:=1 *FileOpen :="m:\live\al@sexe\pdHoc\h. ", ReadOnly:=0, PasswDoc7@t 7WW2_PrintM@ergeTo Suppression'Shorwm 0 X!P(rev gEnd#b \c ͚xMEH & 8 "  (N@ *B@  *B@z *B@x#m:\live\alsexe\publdoc\difrmcsh.doc"$& *B@ ce~ *B@|*B@4 *B@n *B@eto0(,Attribute VB_Name = "difrmcsd" Public Sub MAIN() WordBasic.ViewZoomWholePage 8EditSel@ectAll 0TableInsert Conv From:=1 *FileOpen :="m:\live\al@sexe\pdHoc\h. ", ReadOnly:=0, PasswDoc7@t 7WW2_PrintM@ergeTo Suppression'Shorwm 0 X!P(rev gEnd#b \c ϚxMEH & 8 "  (N@ *B@  *B@6z *B@x#m:\live\alsexe\publdoc\difrmmch.doc"$& *B@ ~ *B@|n" *B@n *B@o0(,Attribute VB_Name = "difrmmcd" Public Sub MAIN() WordBasic.ViewZoomWholePage 8EditSel@ectAll 0TableInsert Conv From:=1 *FileOpen :="m:\live\al@sexe\pdHoc\h. ", ReadOnly:=0, PasswDoc7@t 7WW2_PrintM@ergeTo Suppression'Shorwm 0 X!P(rev gEnd#b \c њxMEH & 8 "  (N@ *B@  *B@z *B@x#m:\live\alsexe\publdoc\difrmmsh.doc"$& *B@ ~ *B@| *B@n *B@o0(,Attribute VB_Name = "difrmmsd" Public Sub MAIN() WordBasic.ViewZoomWholePage 8EditSel@ectAll 0TableInsert Conv From:=1 *FileOpen :="m:\live\al@sexe\pdHoc\h. ", ReadOnly:=0, PasswDoc7@t 7WW2_PrintM@ergeTo Suppression'Shorwm 0 X!P(rev gEnd#b \c+ xfixheaderkpdadjmemo]pddata925"|printfile\c  xMEH 686"   *( X`xT(Hh">> >`>>> >`> 8PTX("H"p"" 88P>>>H X fixheader Macro$ Macro recorded 06/30/99 by DonovaSJ06/30/ !!  %B@Bkh  !!!l  !!!l  !!!l   !!(lk  !!((   B@   B@  B@    B@ !!B@ ?$ (?$ $  !!B@{Gz@$ $  !!B@@$ $  !!B@ ףp= @$ $  !!B@ ףp= @$ $  !!B@(\@$ $  !!B@@$ $  !!B@Q@$ $  !!B@  B@  B@ !!  %B@Bk  !!!l  !!!l  !!!l   !!(lk0  !!(  B@  B@  B@   B@   B@   B@   B@> !(X !(> !B@ !!B@?$ ($ $  !!B@@$ $  !!B@@$ $  !!B@ffffff@$ $  !!B@oҳAttribute VB_Name = "fixheader" Sub <() 'D Macro$ recorded 06/30/99 by DonovaSJL If ActiveWindow.View.SplitSpecial <> wdPaneNone Then9= :#s(2).Close$End I>f j<5uTypywdNormDalD Or O _%>Outlxine :*wdMasterw_Pag>U Seek=\Curre4ntHSelelon.MoveDown Unit:=wdScreen, CHoun11Q URp 25m4La#4, Ext8end*CParagraphFt.TabStopsearA ll NDocumH.Defau lt pInchesToPoints(0.5NVAdd Position:=L1.75),JlignA!5A!Left, LmSpac esf=z2.31b#".|"""Az3.13""E"S|885.69G6.2ha6.6Eh}8]Y\7zzzQ1cSgszzvzׄzdzO0zz"vQv.Pze zzQ/!wz/!ve/!%!22zy 30/{OJ 27L O{{h1erticalPercollPx= 68>Slw`-W`3n.7nH2e~RighO2.4eOA^oi.8{ b3.0A MEH &8 "  0@`x**(*8*h***( HXp *B@  pddata *B@< *B@ \EndofDoc *B@<h  *B@h0 in *B@-.5 in *B@0.19 inJ *B@1.81 inJ *B@ x3.63inJ *B@4.19 inJ *B@4.69 inJ *B@5.19 inJ *B@5.81 inJ *B@_ 6.38 inJ *B@o Univers (WN) *B@ *B@pddata *B@2o~Attribute VB_Name = "pdadjmemo" Public Sub MAIN() WordBasic.ViewZoomWholePage @WW7_EditGoTo Destina@tion:=datag RExtendSelec((P\EndofDocSFormatTabs ClearAll: =1 -Paragraph LeftIndentV0 in,Righ-.5mGPosi0.192, Alig0, Se>T1.81a3.63+2m4/6?5 5O6.38_nt "Univers (W@N)", 9C`ancelMBookmark AI \cw xMEH &8 "  8Hh(***@*p    *B@pd_data *B@< *B@pd_data2 *B@< *B@0 in *B@-.5 in *B@.13 inJ *B@1.25 inJ *B@"1.75 inJ *B@2.25 inJ *B@8 2.38 inJ *B@ NewTimesRoman *B@ *B@͚ *B@oIAttribute VB_Name = "pddata925" Public Sub MAIN() WordBasic.ViewNormal 2WW7_EditGoTo Destination:=_ LExtendSelec)/Q2RFtTabs ClearAll:=1 YParagraph LeftInPdentV0Rin,Righ-.5HPosBi.13 1, Alig0,8 Se>T 1.T25272!2.38?nt "NewTimesRoman", 8 tCancePage  End  xME &@h  Macro created 06/21/99 by CommonTemplateProject.printfile.MAINh "   (0 X` px printfile.MAIN Macro! Macro created 06/21/99 by Common B@oAttribute VB_Name = "printfile" Sub MAI`N() D.DescriptionpMacro created 06/21/99 by C`ommonProcDataOInvoke_FuncOTemplK"ject. .M' '  #ctiveDocument.P}Out Background:=False End  ۚxMECleanUpLib!hEditRecordGotoRecord $%pddatatlsnh      "4#.%&'()*+,@/01235Q6789:;<=>?ABCxEFGHIJKLMNOPSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwyz{|}  {M 3xME @$ &X%Library of database diagnostic macrosxTemplateProject.CleanUpLib.MAIN v@x |H ~ I    YBP ` YBP 0 I I PB p I    ( P h   P@ @ H @  #YBIh I@ @r P  7PB@h @ @ @ @@ ` @ IY`YB@ @ PPP( h PBP   @ @x  !@ @x p  NP"X`dh "&0"Hp     ( 0@H "PXp"  B  ( 0 @`hpx    (08@H P`h "pxl   @P`p Bx2. ( HXhp B x    (0 8HPX `px B ,68@ HX hx 4 4 @ H P X B`  h x , 8  R $P x  0@  p   B   0     28 p         B ( .8 h Bp x      $  ,  0080h $ 0@HPX B (,0`p     B  (F@       (8 X ` x     B (08@ H:X,lFP  $.. 8P hx  2  8 ^H J 8PX` Bhpx  8 @P X h x     ( (@ ` h p     ( 0 H :X   px ( @Ph   (08@.H x B ,   (  8 H P  ` p x  0!(@!h!!!!!!! !!! B""0" @" P" #J# @$P$X$ B`$h$p$x$*$ $$R$0%8%@%X%p%x%% & 0&P& X& h&x&& B&&&& &0& & '' 0'@'X'x' ' '''(' () ) () 8)X)`) x) ) ))H*P*X* h*H This macro is a library of diagnostic tools for a Print Merge Database.le]'$VThis macro is merely a library of macros that are called by the CleanUpDatabase macro. *B@ o(]'x *%.G *%.'xjab *B@L *%  *% *%   *B@L6p *B@ x x *%. *B@L *B@ *B@kk *B@zd *B@ko *B@ *%  *% *%  *B@0 *B@L *B@zd *B@LkoH'~ *B@D *%.G6j A@vd *%G6j *B@A@|kH *% *%0  *B@d *B@Lxkk A@vdA@|k'~6i]PrintMergeLib.FNextDelim B *%(G'Word cannot find the end of this field. *B@j *%'   BG *B@j  $RG *B@j *B@ *B@L *B@o ]PrintMergeLib.FNextDelim B *%( Word cannot find the next field. *B@'k *%'   B'  $RG *B@j *B@ *B@Li]'  $R' BdP,' Bk8 *B@D A@vd BA@A@|k B$ A@vd BA@A@|k'i0'PrintMergeLib.GetDBaseType *%('$ (Removing Leading Spaces from Database... *B@4d)Removing Trailing Spaces from Database... *B@4k $ $~' $e $' $e $'d@ %Remove Leading Spaces found an Error. *B@4d&Remove Trailing Spaces found an Error. *B@4kki *B@D'PrintMergeLib.GetDBaseType *%('$)Removing Trailing Commas from Database... *B@4 $CWord can only remove trailing commas in a comma delimited database. *B@ Only works for comma casekUse the following dialog box to find and replace trailing commas. Not all trailing commas need to be removed. When the last field is left blank, a trailing comma is necessary. *B@,^pV^p *B@'xip]'!Removing Extra Paragraph Marks... *B@4 *B@ *B@ *%.Gj *% *%'   $R    $R *B@ *% *%' P *B@L *B@z *B@'i(Checking Header Record... *B@4PrintMergeLib.FValidDataFile *%('ih]]]'@F *%'    $$'   ' G   *%' j' AUTONUMK AUTONUMLGLK AUTONUMOUTKTDDEKDDEAUTOKEMBEDKLINKKTEQKT GOTOBUTTONK MACROBUTTONKTIMPORTKTXEKINDEXKTTCKTOCKTPRINTKTSEQKTSYMBOLKTS'n  GWord found a display field {  } in your data file. Word will treat {  #} as empty text during Print Merge. *B@j 'i]0'Checking for Display Fields... *B@4 *%' *B@@F *B@D *% Gj8'   *B@iH]]''@'r @ r hPrintMergeLib.FNextDelim B *%(G'Fj *%'   B'@  $R *B@ r h *B@ *B@L k k *B@ r h *% $R' *B@ *B@Lp kh k` *B@L @ r hGj r 'r ' i ]X]p]]]]'@FPrintMergeLib.FValidDataFile *%(GjPrintMergeLib.GetDBaseType *%('$ $Gj $GFWord cannot perform this operation in a table cell delimited database. *B@Fj8Checking for the Number of Separators in the Database... *B@4 $ $R' Bd@ ,' Bk( *%t'hXNMicrosoft Word *B@ B(wDo you want Word to check the number of separators for whole document or for the current record at the insertion point? *B@d 2&Whole Document *B@2&Insertion Point *B@ *B@]F *!!.  *!%' Gj '' *B@Dd` ''\sel\para *%`G *B@jk '@' @ B h @$  Record Number  $ * contains an invalid number of separators. *B@'dH<The current record contains an invalid number of separators. *B@'kk G  'j G'@ji]]]]]@F' *B@''   $R *B@L *% *%'  "$R  *B@Ld *B@L *B@ *B@Lkh '  e  *B@L *% *%'  "$R  $RWord reached the end of the highlighted record without finding a matching double quotation mark. Word uses double quotation marks to enclose fields that contain mixed delimiters. Please fix before performing a Print Merge. *B@k *B@L *% *%' ' *B@Ldx *B@L *B@ *%'   B *B@ *% *%'   $RG B' j *B@L *B@PrintMergeLib.FNextDelim B *%(Gj *B@Word found a record that contains mixed delimiters (tabs and commas). Word will interpret this record as having too many fields unless the highlighted field is enclosed in double quotes.' ( ( $R $R >Do you want to enclose the highlighted field in double quotes? $ *%DblQuote *B@2 *B@"$R *B@PDblQuote *B@< *B@L"$R *B@PDblQuote> *B@2'dhvBe sure to fix this error before performing a Print Merge. Word will interpret this record as having too many fields. *B@kkk GDouble Quote Mismatch *B@j'p 'i`]8]P@F'PrintMergeLib.GetDBaseType *%('$ $ Gj $ $R' B,' d $R' ,' Bk[Word needs to step through your entire data file. This operation may take several minutes. $R $R Do you want to continue? $ *%Gj *B@D\sel \EndOfDoc *%`  *B@ *%   B$Gjk@ *B@L( 'ih'"Changing Double Quotation Marks... *B@4@F 21Use the following dialog box to find and replace "$R  "$R , (a pair of double quotation marks) with a \ "$R " (a single double quotation mark). $R $R Replace only the pairs of "$R  "$R  that were meant to be "$R , rather than those meant to be empty fields. *B@ *B@D"$R"$R V\"$R  *B@'i]] 'Checking for Blank Cells... *B@4 *B@D *%.DWord can only check blank cells a database delimited by table cells. *B@k *%.' x A@v *B@L *%GWord found that cell x$  in the header record  of your database was blank. *B@j *% *%0G *B@jk x'ix ]X ]p ' *B@D!Checking for Merge Table Cells... *B@4 *%.Gj *B@ *%.' *B@H x  x *%.Gj *%Gj x'@81Word detected a hidden merged column after column x $  in your table. LFor large tables (over 100 records) this operation can take several minutes. $R $R ;Do you want Word to make this hidden merged column visible? $ *% *B@ *B@ *B@ *B@D *%.Gj x' x  *B@ x *B@OThe selected column used to contain hidden merged cells. Word cannot perform a0 Print Merge until you delete these extra cells. *B@kiߵAttribute VB_Name = "CleanUpLib" ' This macro a library of diagnostic tools for a Print Merge Database. Dim DBType@ Publ8Sub MAIN(X) .Description{X sHProcTInvoke_Func*Tem plateject..C'Z0 Wordcic.MsgBox "mer8elyM that are called bry e 9. 0(%K6K#? $"ParaUpV}If WW6 _Editr Elsԁ&CTI???@H%bt?Uk"&.L*p10'#FRm'Table(fLeadingh+#StartOfDocument,k'PuV-1V GoTo LDon=`Z HZiC)NextCellvcb '"Ie $F$~( !Aj@@#G? aaG KaaaC ;mn,a oN$BIWWC-;b;:#*ELFindField(Delim$++A*$ IC@("gb.F?", )3&n0knnot fRk0 Qtfk'] InSxtr(bQDown>Chr(13)tlShkpizCanceqQ#tBnq.nq!RG?1QO B OOPF)ns",DD^fkV}? '?Fa+—( aji4#+NO rH?FbA PPQuitV/w@v/Qb.Get" 7UtusBar 6"` 3 frop..:WTrailq`Te y`- LIyOsp(-5 2%u0*:as'_@ l*eouan Err\orROtMe >Op.uL2ished--0UCommaB?0 //PrintMergeLib.GetDBaseType") WoDrd 2 Then MsgBox " can only rQge tecein a  delimited dus[ GoTo LRTCDone ' ORworkor@cT End LIf yHUs?he followudialog bWto fiareplacV. Not allcne[!TbetdW Bt8last.eld is left blank,} nece`ssaryWW2_EditRNFV:=",^pp",  Whole:=0, Format FRmyy@= -1 V:OFunctio v vate  Paras(Dim c4hL@4$ = 0Ex@? graph Mat=sOfDo@cumentCharA 1, 0 SelInfo(12)¨DxQui,) [Y0](HeBA$]()hile<Chr(1p3) OCA" " B 0G/x&end#R0ight#WW6HClearILineUp`A$?A<@ADjBChkValidHdraCGmCheckoHeaderWc?F Cn("B ƜF F3Disq{yFiqEXTextXAZiPos !FFou|nd\i\O`n Err@B-1:@)LDFao` B [LUC (Mid(, 2, LenH) - 2)K InStrJ@R d" 0b a"- 1h"aC  Â"AUTONUM@ELGLOUTDDE!AEMBEBDLINKjEQGOTOBUT MACRA IMPORkXABINDEX T"C TOCPRINS SYMBOLElse}(IWC)bm ajfAT@dÓ-f{" +"} vyourvple`jq_S 3{wineat O@emptyD t3 dug 9 9qkF2 FC1ff@VgViewFCSav03 C:P) 8Gf;sCHgRa:b`;Cancel ' QQ#Q L ?{<  ,  1+qÄ0Down 5H 0do Lz"ocp#,0 .n* =+KWBFcB3_[_[NumqJ>-3>@C0hoicqfCurCpq^oVlVNS9XϤ.ͤ"4'=yD_ |-1L+n perform this operation in a table cell delimited daXase.": GoTo LNSDone WordBasic.PrintStatusBar "Checking e Number of Sepasorss the D`.." If DTeType = 1 Then * D$Chr(9) El&s ",CEnd If cMergeFiel ds6Count(&BeginDialog 344, 78, "Microsoft 2;Text 10, 6, 322, 4"Do you wan` to cnswho@documeoBrcurr rDec at$inserpo?NPushBu,ttQ5&15 5, 21@6&W D77, LIPGE@bR Dim Dlg As Object:t=TCurValues.U4ChoicH (@qF 0B fRec0Û1rtOfELIw G-GCmpBookmarks("\sel"@d\") <> 80G PlUpfA FChk,@,AWhi0@'(Di, d, )C'g!]`D> m+aMsgBox "AT @" + Str(d- 1) " conta W aavalid bA a,ǁa& lh__ a1!i' =+ gCF11end d:?Func~ @vate e FFixMixDed<(Ba$, ?@eArfRetur Dbl0Quotch2$vchcPrompt@On Err-1: +LFMD  DB}harLe@fe`}"XaA10`;C Righ@,e)#G@[$](HSel )  5 34)bpja4GT % !IQNot (Q F#oogA3%x[BN" -P% eqw UD reza|dx9h`(l(Tzwithout findQa matchdou1q@7`. q us8es ben`close`tfhЀL m?Vrbs Ple`x bePe Пpm# 2 BNF=]& 5s ;. 1Rs*= (c! t:@GNp$^U Z.\tP+.[ VfQq?1oRfkRO513sS$ =g| /y]U[A { (`all("2.".Lib.FN0 0# D. [TrF"ua`C:s: (@ s@dmmas2)5Awi0er8preѿ`s havFunction vaƅ FChk()X D #$Ba+On Ea-1: IC/G@$D@9eT ypyCall ("mBmLib.Get "$M< 1 Nc = d3@!Chr<(9A5",W  }3C("A needssteprough your entidataljTAo@aAk@y tak@everal @ute + A%13)J"Do wa@@conue?", 36)9&0 NNos G/StartOf`Docum@(hi@CmpBookmarks( "\sel"\ÀB ") >|ParaDownp 1, W/`&I nStr([SeleU$](), 0)k` ^(F, C4vDbugChar`RightuL#kd)o`  lgys!lca2/`0tusBar "ngHCM!0..ᔿr@LCQ eUshe follow dialog .b `\a`replace "$N34aO"_ " (a pai@r of dqeZF) th`v\ @s N2).. _RDonlgs that we) rmegbratheryano'emptKjcWW2_EditFin8d:=C,$, :="&, WholeA :=0, For@¬ChLVQUn€BlankCeiColManxb kYeck1&z R >sS,FH?elInfo(12G>ϳA7- c2!$ch ba cMp s (Wbadsited baWw2fBDuaDtLS 8@ AkoHDoRemoveLSp6s ISkS ""S^'fou<.0qX #=i-e head." P2{ 1+P?=blwJNext$\w @() <>E~Left5\(2/׏/Ykbd)Z/p0 t&?O^x1" Ta(_"1/0$0-FCHC)uRow (0  u5+hs b,AQ! aO181  " ã,7X\{qLP 1det0@@a hiddйmd column aft01a3 - 131tȒ33laP#0s (0?r 100 #6s) eK9AbӠ:qѧmQrO @ visi eqsw$ToT!`> ContTo:=Ğx`->rD%,_o/f/q.++u('k`A0"wW` %$us&apW1jE not y aYXEC u@lrd mracoZSr1!2Q  &@p'Edits a record in the current data fileTemplateProject.EditRecord.MAIN` L"P,XF(8H6P F This macro calls AddNewRecord to Edit the current Print Merge record.PrintMergeLib.FValidDataFile *%(xInsertBookmark *%, *%.G *B@0j EditRecord *B@2AddNewRecord.FEditRecord *%(*Edit of Print Merge Record was Successful. *B@4d(Edit of Print Merge Record was Canceled. *B@4kp EditRecord *%:  EditRecord *B@< EditRecord> *B@2kkoAttribute VB_Name = "EditRecord" ' This macro calls A ddNew to b the current Pri Merge r. Public Sub MAIN(), .Descriptio"ns aD in fdata fileJPro cD!VInvoke_FuncVTemplateA"ject.y.CD'If WB@asic.Cz("jiLib.FValid/F@)en ommand("InsertBookmark")F0 And6SelInfo(12) Type 13P_* gHf .F?$Th2?Sta@tusBar of {Ąwasyccessful.SElseC.:CancelefdOIf^ExistingEF( l#WW7_DGoToS  R^, D)te::=DkE) \c xME xME &@ HPlaces the insertion point in a specific record in the current data fileB@TemplateProject.GotoRecord.MAIN   @ @$ @ #`   I CI$   7I P@ @ @ @ @ Hl R"X,`  B, H$X$, (HPh>  B  (@HP`8p "  B  (08@HPX*`   $  ( 8Hh*xH "(P`*x    (0H8  (@ HX` pL This macro moves the insertion point to a specific record in the data file.PrintMergeLib.FValidDataFile *%(  Found Record. *B@4_d@Record Not Found. *B@4kko]]' PrintMergeLib.GetDBaseType *%('$@F6@:Microsoft Word *B@XNRecNum *B@X *B@PX *B@q Goto Record # *B@d *B@](F *!!.  *!B@ ! *%'  /Word can only find records between 1 and 32767. *B@ k ! *% $$' 6i@' $G6j $KT $'KKTSearching for Record $ ... *B@4 *B@D  *B@\sel \EndOfDoc *%`'kn6i] ]8]P]h]]'Getting Current Position... *B@4 *%. *B@D *%.G6jk  *B@H *%v$REC_NUM@F *B@D *B@Rec_Num" *B@  $' Searching for Record #  *B@4   *%VX *B@T *%^'6k@F6Counting Records... *B@4  ' *%.'Repaginating the Database... *B@4 *B@$Counting Pages... *B@4 *%.'   *%'   *B@6kSearching Database for Record  $ ... *B@4   *%' $ *B@< *%.'       *B@d   *B@k *%.''6i|Attribute VB_Name = "GotoRecord" ' This macro moves the insertion point to a specific r~HVdata file. Publ@Sub MAIN(), .De`scrip^PHlacvinvcurre~k`ProcDP;Invoke_FuncTemplateject..T'If WBasic.Call("PrMergeLib.FValid%/F")en F( *'StatusBar "Found .ApElse* pNot #@If E@hzv@ Dc,oDim D?eTyp @Num I7= 0 WMGet "On Error GoTo -1: KLDon@BeginDialog 320, 58, "MisoftBmO TextBox 129, 1 67"4 OKButt223@, 6, 8 21bCance:l 3@$ 14, -11} #!l9Wblg As ObA: Set D=ɩur@`ues.U`xRepeat: G CA !j8 ( .C6[>/767 OrsC 0U/90mp~ ,ew d U(8[sFieldQ$](1))"REC_NUM" a/C%Nk)EditFindCl/For8mat]eStyle1P:=c_c_$ (3_7rd_6WW2_ := [Right, Len;_$) - 1)JiV1#:=2,`q:=B(131Whole3FPWZM!wVO{gCP0Js0 + @@( 9J 15ROfa`aAqb`ZTools󊊏 unaAd / l;4  Dj Int( / D'7> ThUG =[邭 +uc'''d 3 eca/a  7 WW70 PĐon:=q7dU+ F3!h (uR#, 0S 77 LineUp -*nAp6E3) endndapR4 H &8 " (8X x \StartOfDoc *B@< *B@ \EndOfDoc *B@<Courier *B@ *B@xophAttribute VB_Name = "pddatatlsn" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="\StartOfDoc lExtendSelec-)UEndSFont "Courie@r", 12 VCancel B c %ActivateDoc#%9AddNewField$dsp23wstart6EdAfpFormat xME `@i"Macro created 06/29/99 by DonovaSJNormal.NewMacros.activatedocP" ( $B@ o`X̰Attribute VB_Name = "ActivateDoc" Sub D(TAs S`ng) R.DescriptionMac@ro cred 06/29/99 by Don`ovaSJpLProcDataXInvoke_FuncXNorm@al.Newbs.ad @uments). End t \c_ Ӛ|+  'xMEh@$ &X)Adds a new field to the current data file TemplateProject.AddNewField.MAINP( 8 "Y((jI@ PBd NaA h &h",F((H,p.  4H 2P" L  LpB ." 0 @ `px     0 Pp x  *0  (8@Pa This macro adds a new field to a print merge data file. It assumes that the current document is a valid print merge data file.]]'$PrintMergeLib.FValidDataFile *%(InsertBookmark *%, *%.G *B@0j AddNewField *B@2Getting New Field Name... *B@4PrintMergeLib.GetDBaseType *%('$ $G6jPrintMergeLib.PromptMFName$ *%(' ( ( ($8%Addition of New Field was Successful. *B@4d#Addition of New Field was Canceled. *B@4kpkh AddNewField *%: AddNewField *B@< AddNewField> *B@2kk6oE Returns fTrue (-1) or fFalse (0) if it was able to add the new fieldE if fEnd then add the field to after the last field in the data file.]H Adding New Field to Data File... *B@4'8 $ Table Cell Case *B@D *%.GFj *B@H @ *B@J *B@Lk` *B@N ( *B@Pd Comma and Tab Case $ $R' Bd, ' Bk *B@D^pVX *B@T B ( $R *B@PZ *B@\ *%^ B $R *B@P# Quit if End of Document is Reached\Sel \EndOfDoc *%`GZjkk'8FiAttribute VB_Name = "AddNewField" ' This macro adds a@ new f t& print merge data6le. It assumes thate curre1Zdoc0isca validJ Dim DBaseType Public Sub MAI`N() .Descrip0tionthH\{&ProcD,Invok@e_Func,Templateject..E'_mpt$ec0 If Word ic.Call("PMLib.FV>File")en @ommand("InsertBookmark= 0 And6SelInfo(12AZ 1(Edi A$G 1StatusBar "GettPing @ ...GAwEGD@ "~A@B -1BI GoTo LDon a MF($<> ""b F~( , -1_l WJiBo"fHKwasccessfulEMAxEls7ACanceled* iEIfc@EhNExis!;eM(jMGWW7_Ib4jG O, Dtxe:=U%?: @Returns fTrue (a4or fFa) (0) if it .able"ddb7Ɵ!f @n "fterB0last in"Griv@~ aB?3I! ^elim[=mon `bh03hA1 @B!Cell C4'}rtOfDdjEI`ht@24 Row3 -ThEDndOfCharRight 6[TaCol umDWW2_= D|@KF ' C $  +@X9`0Cphr(9 {F"|, d30iFi=A:="^p1@Dirkr:=f2 Ort6 + + A 13P Again6a Repeatj!Found(/Cq1' Qu;90T( pReached3zCmpaULs("\*\pR-Pt@+41bK%u5-JLP.H>       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTVWXYZ[\]^_`abcdefghijklmnoprstuvwxyz{|}~xMEH & 8 "  ( 8 *B@ $<RTV0"$R XZ\^`bdfhjln *B@P \EndOfDoc *B@<l *B@ \EndOfDoc *B@<%begin *B@2oAttribute VB_Name = "dsp23wstart" Public Sub MAIN()  WordBasic.View@Normal 2WW2_ToolsOptionsR HScroll@:=1, V StatusBarStyleAreaWidth:="0" + _aChr(34), TableGridlines:=0extBoundariPicturePlaceHold er*MFielPdCodL%b=(>h>>>(>h>>  (8&Px  08H>>>@P FixDomestic.MAIN Macro# Macro created 06/30/99 by DonovaSJ"  !(l  !!(  DOM_DATA_BEG B@  !!(   B@ !!B@(?$ (?$ $  !!B@{Gz@$ $  !!B@@$ $  !!B@ ףp= @$ $  !!B@ ףp= @$ $  !!B@(\@$ $  !!B@@$ $  !!B@Q@$ $  !!B@  !(l  !!(  DOM_DATA_BEG B@ !VB@ !V9d5(d9 9999999q   B@ !!B@?$ ($ $  !!B@@$ $  !!B@@$ $  !!B@ffffff@$ $  !!B@oAttribute VB_Name = "FixDomestic" Sub MAIN() D.Descr@iptiontMacro created 06/30/99 by DonovaSJProcDataQInvoke_FuncQNormal..{F' ' =  %  ActiveWindow.View.TypwdPage!PaneSeLekZwdMainDocumentSele5on.GoTo What:=wdBookmark, :="DOM_DATAp_BEGvS?Curr<`HeaderAMoveDown Uni!Line, Coun5, ExtendA(C ParagraphFit.TabStops.ClearAll C*EB.Default @KInchesToPoints(0.5;KVAdd Posi:=L1.7`5), _!BPlignc5A!Left, LHLSpacesC"2.31"{"AX2E"Az43.13"b4;4.|88!M{5.69"v"6.2ha6.6Ei JF#ïtingcWith 0.Te4xt"2ReplNQ .!ward`Tr4ueW_PwdCon@ FalsMatchCasavWholeWoBCildc@ s.SldsLik?  jA \End apOfsS|rmkr$r`rߟr?y3y>8w2FnrRighrr%?4.4F?{1?8w 9nތ3.0rY-@ \c xMEH &8 "  8Hh(***@*p     *B@ pd_us_data *B@< *B@ pd_us_data2 *B@< *B@0 in *B@-.5 in *B@.13 inJ *B@1.25 inJ *B@1.75 inJ *B@2.25 inJ *B@2.38 inJ *B@ NewTimesRoman *B@ *B@ *B@oQAttribute VB_Name = "pddata925us" Public Sub MAIN()  WordBasic.View@Normal 2WW7_EditGoTo Destination:=_us_id OExtendSelec,2T2UFtTabs ClearAll:=1 .Paragraph LeftIndentY0Sin,Righ-.5CHPosi.13 1, Alig0, Se>T 1.25*2722.38?nt "NewTimesRoman", 8 tCancePage End \c xMEH &8 "  8Hh* R Jx@  ( 8 *B@ pd_expl_beg *B@< *B@ pd_expl_end *B@< *B@0 in *B@-.5 in *B@2.00 inJ *B@ NewTimesRoman *B@z *B@x2"$R 0.15"$R 0 *B@k4"$R 0.15"$R 0 *B@4"$R 0.15"$R  *B@ *B@ *B@oϱAttribute VB_Name = "pdexplnotes" Public Sub MAIN()  WordBasic.View@Normal 2WW7_EditGoTo Destination: =__bege PExtendSelec-0U>UFtTabs ClearAl0l:=1 .Paragraph LeftIndentZ0Sin,!Righ-.5HPosi 2.00 2, Alig0, Se>Unt "NewTimesRoman", 8h0leInser~le ConvFrom:=2 WW2_ ColumnWi8dth A2" + Chr(34)'paceB@etween sQI.15_CPrev@^, RulerStylne U`"4n" i%"0S`A0]CanceNPage EndALS' xME8d0@h &2Performs a three key sort on the current data file TemplateProject.SortRecords.MAIN p @r h 8%`  T  d` YfAsce@ V YfIh g @ Pf "(0,H0xL0P "X`hx  " "((P(h(((( (Hp((((@(h...2 XX *(0H`x "   (8 B@H P` hx " , 0@HX ]]8P d'hStart *B@2PrintMergeLib.FValidDataFile *%(PrintMergeLib.GetDBaseType *%(=Word can only sort records that are delimited by table cells. *B@dA@8kkStart *B@<Start> *B@2o]P *%t'h h d r h  r *%v r + d ro @FPA@p Sort Records *B@l$ dKey1 *B@ROrder1 *B@j&k Ascending *B@l&w Descending *B@ll$ dKey2 *B@ROrder2 *B@jk Ascending *B@lw Descending *B@lwl$ dKey3 *B@ROrder3 *B@j6k Ascending *B@lw Descending *B@l(X *B@P0('X *B@h2 Sort Key 1 *B@d Sort Key 2 *B@d Sort Key 3 *B@d2 Sorting Order *B@2 Sorting Order *B@2 Sorting Order *B@  Helpful Information *B@3J :Word will not be able to Undo the sorting of your database *B@d *B@]F *!!.  *!B@Selecting Table For Sort... *B@4A@T !X !ZA@V !\ !^A@V  !` !bA@VPox *B@D *%.  *B@0 *B@H *B@ *%. *B@ *B@Jo ]'d'  h f$ $ d$  'dFPkH  '0F(i ] Sorting Key: f ... *B@4X f f$d' G6j" hhll $npr *B@jkX6PoH@7Attribute VB_Name = "SortRecords" Dim MergeFields__$( )TcX Public Sub MAINH".Descri ptionPerforms a three kPey s the current data 0fileUProcD!aInvoke_FuncaTemplate"ject.ݦ.'Req0qCo%0 WBasic.EditBookmarBktart%If Call(@"PrintLib.FVali dUFf) Th`en GetD>eType") <> 0!=MsgBox " can5lrat are delimited b@y tabl]e0lls.4AElse(ADisTyDialogEnd If C!WW7_AJG8oToGIQQ, Delete:=1@RvrBȞţi oCoudAJ- 1@For H1 @6I DH' A$[ 1$]( Ne 656, 238,9tG'C,mboAP15, 1600l#)@ Key1MGO„Group "OrdereK Butt!14 107 AscendXing$ 61^9!q9@2k2re2~1am)d$dICCoD937 j"`93re19w83ObK#552`?@8 2KCanceli3`EsTAwn5_bQ`3Ra $ o^22 3H"4j3o1"jAs24p3915Ya " 2 6 ~0 1t6s38kE1752p30"Helpful Inфaх r51K58a# will n@ot be pto Undo 1Q of yourbas'o%qфDlg As ObA: Set !=urues.UseriYStatusBarX`scT2 jt..|S A(p .pr3P2P2he:jЦ1jP rtOfDocumPhG(13  "LineDown W[iRowYbi4){-/Up ?.?1)"0xIndex($$_yca3 < UC +s@x)I1E `$+q ᱝLRetˠ=9@ _ r!M*2 ,I,#01;p: "`"00""9_ bfu = -p ႕LDon R6! :=5, ѻ:=`Separ0atorNum:=Str(pqColu mnSensitivp A%!K7AddNewRecord+-RqKcolpamfooterCDeleteHeader*2DeleteRecordY  7 )xMEd0fhP@h x@$ @j Pl &P5Adds a new record to the end of the current data file!TemplateProject.AddNewRecord.MAINx p0 @r  xp  n    P@r PB xP ~ PI P(@ @r @ PP`  I  (@ PBIr YfI PPP(PP@ @ `   c R Xx", ((P&X h j >p"   @(Bhp,x Z  2B, (@ `pxZ XBHPX8`     80h 86 8HX `px:     "(  "P "x    & " & " H P  h  p    "    (  0 8  .@  p             0 @  H X  ` h  p     z ( 0 28 "p x            Z 6hB  pn0P.p0. (Hh 4  (@ HX`<<8PX` x 8.@6p0(HPX`h " p x    ":  (8 @ P p 6 B  0 @Ph   P .hB  :(0HlP( @@ `0p4* Php x 2   @ P`     (8@ P`h p K This macro adds or edits a record in a table cell, tab, or comma delimitede curr Print Merge data file.]]8]p]]] d f'h'$'j' lPrintMergeLib.FValidDataFile *%( nAdd Record was Successful *B@4dAdd Record was Canceled *B@4kxkpohbThis Function stuffs the mergefields of the current document in the array MergeFields$. The arrayd MergeFields$ must be declared Dim Shared in the calling routine. It stores the count of MergeFields7 in cMergeFields which can also be declared Dim Shared.] *%t'h h d( r h r *%v r+ d ro: Return -1(fTrue) or 0 if a record was successfully edited0'xPrintMergeLib.GetDBaseType *%('$ $GzjA@p hG|j$~Gzj'xz|KWord could not get a list of field names from your data or header document. *B@zxip, Adds a new record to the current data file.p'nPrintMergeLib.GetDBaseType *%('$ $GzjA@p hG|j$~Gzj'nz|KWord could not get a list of field names from your data or header document. *B@ziR Stuffs the contents of the current record into Response$. Return -1 if successful]])Getting Contents of the Current Record... *B@4' $ *%.G6j *B@H *B@ *B@ r h *% r+ f r$ f *% $RG r+ fj *%G6j r *% h+ f h$ f *% $RG h+ fjd *B@0\sel\Para *%`G *B@j $ $R' Bd,' Bk r hPrintMergeLib.FNextDelim B *%(Gj *% $R *B@ *B@ *%G *B@j *%Gj *% *%  *%GjX *% *%$" *%Gj *% *%$" *%Gj *% r+ fd *% *% B r+ fdX *% *% B *%Gj *B@L *% r+ fkkd *% BG *B@j *B@ *B@ *% B r+ f *B@Ld( *% r+ f *B@L *B@L *% B *B@Ld *B@kkk rkx'6`X,Word cannot parse the fields of this record. $R $R "You will need to edit it manually. *B@6i, Moves the insertion point to the next field ]` $ *B@dX $ $R' d0,' k  *B@PkoT Inserts a new record into the current data file. If fEdit then replace the current0 record with the contents specified by the user.x]]]] ]8@F| h fh  Edit Record' lgDo you want to edit the current record at the insertion point or search for a particular record number?' (dxAdd New Record' lfDo you want to insert the new record before the current insertion point or at the end of the database?' ( kI l *B@  ( *B@d^*X *B@*&Insertion Point *B@ *&Record Number... *B@d *&End of Database *B@k *B@]pF *!!.  *!%' G|j'j G'jj j GotoRecord.FGotoRecord *%(G|jk '~'r  G|jk r h r' r r$ f $ '   + f rG|jP -Adding New Record Information to Data File... *B@4 PrintMergeLib.FClearRecord $ *%(G|jTemp *B@2d A@Temp *B@2A@kp r h r$ f *B@P r h GA@j r edit the next record?' (d add another record?' (k Do you want to ( l$ *%PrintMergeLib.FGotoNextRecord $  *%(P dH Gj!The next record cannot be edited. *B@k k Temp *B@<Temp> *B@2z | '~z i  $ *B@d` *B@ *B@k8 o0  j%If True Then Insert at EndOfDocument *B@ $ *B@ *%.Gj *B@kx *B@d` \sel\Para *%`G *B@jk o (]h]'  NewRecNum *B@2 *B@H *B@ *B@ *B@ *% *%'   ' $'    *%' k( NewRecNum *B@< NewRecNum> *B@2iIReturns a string defined by the user. Response$ is the default string and( iMergeField indicates which mergefield.]8]P]h]]]]@F| r $$ d$REC_NUM '  G ' jk'Enter the new text for the merge field $R r$ d $R  in the box below: ' ( l *B@( UserInput *B@ r GD<< &Previous Field *B@jDX *B@ r h (* Pressing Enter Moves to the Next Field' &Next Field >>' d@ +* Pressing Enter Changes the Current Record' &Change Record' d"* Pressing Enter Adds a New Record' &Add New Record' kk1D  *B@  ( *B@d?]~#Helpful Information *B@NkV  *B@d *B@]F *!!.  ( r  *!%'dx  *!%'kP' KT r r 'rd r 'rkKT r 'rS'n G|j !' z|'rzx@Fi`XAttribute VB_Name = "AddNewRecord" ' This macro adds or edits a rN intable cell, ,Ncomma delimitedPrint Merge data file. DimFields__$()Responsec?)$DBa@seTypeF@CurPos Title$ Public Sub MAIN_.Descriptiontnewvto the end ofcurrejg,ProcDx2Invoke _Func2Te@mplateject. .L(Re0 10 CH"@If W@ ic.Call("m\Lib.FValid2Fn")@en FI/BStatus(Bar C washccessful$AElsvACan@e EmIf ~ ¹Ad~stuffswmfBN|ocum~@array$. @ $ must beclared xShDc_ing routine. It store&co~u@Jwhich calsop2vQ/b Get qig L2C2X)YF( R1 To Mh h)[A$](I Ne8xt HcCeB Return -1(fTrue)00 ifgUsuyUlybAE)FJFEditc\)  t()p 3"&n ` -`&hen Go@'SkipE@rror :  +uL`SFIrs(-1,0 -1$ : MsgBox "! Zld n@ot get@-lid\p nam_from yo urFheadedr. ` a~e1s(c9: )kgq_:T_:_:etT:0v#]=0??c.??~?r6? Y?nc![3Sw[contYkzF|?espZ>==`riv1QI>DontutartOfRowRC}pPrevwO\N\ - A!y1ɋx!)[p p@\@O`HLeft¢), KChr(130^`(m3L1e WnGPaJCmpBookmarks("\sel", "\ParaP&8&Upykck%4.9$&",$(( _w.FP se"V1`InStr(G,, (yG @/* Down(0Dzdordtl(1%Lo h{[99" 15 C 72W As>cy :G34b-AO HPO {B AWR aMon@@bM)]34_ A efGt(1, 1) = 0 Then GoTo LParseErr WendTResponse__$(iMergeFieldWordBasic.[Selection$]()! ElseVIf >Left9PDelim$P""L$ While-P<> PN+zChar|PՂ Right %~wEnd If ZBInSt|r(W}S aDown6 EX ancelK/i Ӄ%ԡ +kRn@7;a}J'xk!vj_akU WNext  FGetC`urRecB-1 cDon@F: Msg Box "! cannot pa@ the fas ofis rb ." + Ch r(13)*"You will need to edit manually.L`Fun´ ' Movesi r pointA nb Private Sub@"Dim chb `@DeType"1 Celn9 1,l% ` !9Ay",d6G'WW2_IhEG$s a,wd2 $oB'curre@&data7le. fE A1(n place/;7thCont s speci.d by"user.'08 F##Ps(B"1Prompt$ Choic),SavcTempOn or-1: !LRetReHcscT Title$ " t4 Do y-a(b-)a*P3+ search fa5ticularnumber?# Add New t 7 nP beJ0#X6  | C?e q$base JW+BeginDialog 454, 73, -6T;17, 9, 426, 25, v!0CBpButton 350, 88@PMPush,422`"&#) PD_ e8  N..LW_: < UD:Q0c0Dlg As Objp: Set !=purValues.U`60, X(_ 2j56FfPose2Q 0W AP 8  C0b("GHoto.F"xcm5 RepeateH F$/ tuӹ<= G0iM0xsbN{AInput, (ߕS),]A1j!TTY = -3mUvTWvntStatusB K"HingI InEmaDP- Fig2/i]RZLib.FClSS ", ?|O _ '\Bookmark "o!A6,i ,soyXs (0pU FSo ;(#"M qZTable?ow@=\CParaMCharLefkEK%(PosiA/Cursor() B'F@ <> D-1Ct '-True at @OfDocumenć(?CUAKLineUp8A@GSelInfo(12)? ,uG DowD@)StaprtOf _JCmps("\sel@"\d"#8KGUp Ef GetPrev HNumB$3Dim  r g_$Xj K"`R jDR!N%/'@#!N <1,'VaTl([@7ebg$]()CO>$C7;& + a5_$ Str( a+'[Right, Len_$) - 12' S(gJ A '@urns a st`g def^d by@ the u.>spo$ isaultand ' i"Field indic s w@hich mf-A.MU Input$(,f__EP᭠OcQCSՃHelpDButtonChoicAFoundO n "-1: +) >1 A `j)BUCase($s(1))`"REC_NUM"vO"`KJoc"4=> D" Enter8new t!fo4 4Chr(171>)0L (87-"b@vbelow:>BeginDialog 513 ;40 w/T z22,b Q4680""" > c!Pushc 2r55, 20C "<< &Nioxus +P<C ancel197, !82U< c(q*pessingl!Move5~oaG"& >> r2 0 {ng@?`xr0u$S%9C{;OAddGJ; Ru /on 30: a' 30'44p26,E!-*Grouxx J6,90383"ful5\ma~%7p100%311  @s3MDlg A s Objl: PSet !=ɸuroues.2lgV ReS,=4CR#}(  :Ql.r2oX0рct T T Uuya, Q@1:=k0x,iցa)" 2GgeCs&"-dPckFj d&SC7 ֯P qOrpu~  9xME &@p (add post or country name to memo footer.!TemplateProject.colpamfooter.MAIN` "  8ZH     *B@Dsubject *B@< *B@l0.5"$R 0.5"$R  *B@ $R *B@P *B@ *B@  *B@oAttribute VB_Name = "colpamfooter" Public Sub MAIN()  ".zDescriptionadd post or cou@ntry nto memo .`KProcDataWInvoke_FuncWTemplateA"ject. .PWordBasic.StartOfDocum ent WW7_EditGoTo ^tina^:="sub-C$Copy !NormalViewHeaderArea Type:=1, Fir stPagOddAndEven s:=0, Distanc _ "0.5" + Chr(34)#  i2_Insert9Ӈw`PasteClosePan EndOfLi }\c xMEH &8 " (8 X,h  headstart *B@< *B@9headend *B@<ie`J! *B@z $R $R $R *B@Po`XAttribute VB_Name = "DeleteHeader" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="h`start`E@xtendScN(K6 IWW6z Clear G2_Insert Chr(9) + ` Endp\c ݚx <C  ÚxME( &@p +Deletes a record from the current data file!TemplateProject.DeleteRecord.MAIN J *@$ @ ` 7 @"@,Hx*, >B@HPX `,p$.0@ (Hh*X 40h p&   (*0 ` x : This macro deletes a record from a Print Merge Data File.PrintMergeLib.FValidDataFile *%( JRecord Successfully Deleted. *B@4dHRecord Deletion was Canceled. *B@4kko8 Return -1 fTrue if the record was successfully deleted. ]]'J@Fz PrintMergeLib.GetDBaseType *%('$B@ $Gzj`Microsoft Word *B@<&Insertion Point *B@<&Record Number... *B@ ,Selecting the 'Insertion Point' button deletes the current database record. Selecting the 'Record Number' button deletes the record number you specify. *B@dh<X *B@ *B@]F *!!.  *!%' Gzj  $ *%0 *B@0IWord will only delete the first record after the current insertion point. *B@k GotoRecord.FGotoRecord *%(GzjkDeleting Record... *B@4 $KT *%. *%. *B@L'JkKKT *%. *B@k\sel \StartOfDoc *%` *B@ *B@zkp'JnXzPiH@lAttribute VB_Name = "DeleteRecord" ' This macro dts a r fromPrint Merge Data File. Public Sub MAIN() ".zDescription cthe@ curregdafaNProcZInvok@e_FuncZTemplate"ject. v.G!(If W}Basic.Call ("nnLib.FValid0r")en F) +(StatusBar "ccessfully $d.IElse2"%was` Canc܇%nd If Eh{Return -1 fTrue if _|,su)d{rizvW A[sB~Dim D@VeTyp3ChoicM= 0 On Error GoTo#: KSkip @y[oGet "l @=ThenBeginDialog 464, 96, "Misoftl PushButt@1 60,$ 121&InserBLPoaZ88, Number..GText 15*, 447S@cting;'' E~ pbase. / JR In you specifyW'3a!21 Y2AMlg As ObA}: t D%@={uryues.U 0CR*IC(@ `8H0~ǎG`LF1 AnGN<> 0B`)ch() 1hN MsgBox "A will8 on`8=first7 aftereifQpaQ12'#Gotoc@.Fg`{"n$ ' m#U ]NQ*ä~CT$aInfo(12)/#3/% gTableeRowdz!--5aa-2R9.ParaUp a  CmpBookmarks("\Psel"`A\`irtOfDoc)Q7qXDown  KWW6_EditClear 1#jC4 X:sf EdSpecialFmt/1pddata925colQSectionBreak04Std920FtnFmt6MEH & 8 " 02P2220@` pataway *B@< *B@blockend *B@<a reco2.13"$R J *B@x2.88"$R J *B@3.75"$R J *B@4.5"$R J *B@ *B@director *B@<oAttribute VB_Name = "EdSpecialFmt" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="at0awayZExtendSelecH$block7 JFormatTabs Posis2.13" + Chr(34), Alig0, Set:=&1 rB88?@ABCDEFGHJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~xME &@h"Macro created 06/30/99 by DonovaSJNormal.SectionBreak.MAINxp"   *0 `h SectionBreak.MAIN Macro# Macro created 06/30/99 by DonovaSJ @l !>B@oxpAttribute VB_Name = "SectionBreak" Sub MAIN() D.Descrip`vMacro ctted 06/30/99 by Don`ovaSJProcDataQInvoke_FuncQNormhal. .|G' '  '%pelx.Range.Insert Typ e:=wd2NextPage End DR #<#3SD@!y MCgAfHcᨻN#^D{%GxN#^D{%G#3SD@!y ME\c xMEH &G8H " , 8 &P ,x    |x  f  (l   @p  8H` p  22282p   0 0@ `p 0   0282p  &EditGoTo .Destination = "PARTA_START"ExtendSelection c EditGoTo .Destination = "EDEND"&FormatStyle .Name = "Telegram", .Apply"$Font "Courier" FontSize 9LQASTART *B@<nk>2z|~l *B@x  Living Quarters AllowanceVLiving Quarters Allowance z *B@COLSTART *B@<2z|~l *B@x  Post AllowanceVPost Allowance z *B@DIFSTART *B@<2z|~l *B@x  Post DifferentialVPost Differential z *B@EDSTART *B@< 2z|~l *B@x ! Education AllowanceV Education Allowance z *B@ *B@Arial *B@=" *B@|LQALQASTART *B@< *B@"LQAEND *B@<1.81"$R J *B@2.31"$R J *B@2.81"$R J *B@͚3.31"$R J *B@ COLCOLSTART *B@< *B@COLEND *B@<2"$R J *B@DIFXDIFSTART *B@< *B@ DIFEND *B@<2"$R J *B@EDEDSTART *B@< *B@wEDEND *B@<2"$R J *B@2.56"$R J *B@3.19"$R J *B@ oPHeAttribute VB_Name = "Std920FtnFmt" Public Sub MAIN()P'EditGoTo .DestinationPARTA_ST ~'Exten@dSelecB tEDEND4FormatStyle .TCgram", . ApplyKFont "Courier9ntSize 9 WordBasic`.WW7_:`="LQAW2ReplaceChar 8A@PointsBold:=-1,0 ItaStrikeout_ HiddenmallCap!A Underline:=A)Color!Posie "G[-2.>3//u/"2__z/!3_- c$+6eю_ := W/ / ` eB/ )㚣/ / / Al_'ED  `wN   x.56_Z/K93.19/ End !KThisDocument35I_VBA_PROJECT2aAutoFormatOff.F difchangememo1(S"SS"6"(1Normal.ThisDocument (%H` % %`h8@0sIA$*\Rffff*55414973ab4xAttribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTru BExposeTemplateDeriv$Custom izC1s -xMEam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\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{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{CF25D163-90DD-11D2-BE48-00A0C9A949CB}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\CNormal*\CNormal5L7 *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object LibraryQ  sIADEFPOABKLMNGHIJ QThisDocument55414973abThisDocument#CActivateDoc02414973abActivateDoc%iAddNewField03414973ab"AddNewField'01 AddNewRecord04414973abbAddNewRecord)H7AutoCorrectOff05414973abAutoCorrectOff+`UAutoFormatOff06414973abAutoFormatOff-xyBugWorkAround107414973abBugWorkAround1/CleanUpDatabase08414973ab*CleanUpDatabase1q$CleanUpLib09414973abtCleanUpLib3M colpam0:414973ab colpam5ycolpam20;414973ab colpam27 colpamfooter0<414973abcolpamfooter9&COLreformatagencies0=414973ab"&COLreformatagencies; ).DatabaseManagementTools0>414973ab6.DatabaseManagementTools=8M DatabaseMgmtHelp0?414973abD DatabaseMgmtHelp?PDeleteHeader10414973abFDeleteHeaderhDeleteRecord11414973abHDeleteRecordÚ DelLine12414973abNDelLineŚdifcable13414973abrdifcableǚqdifchangememo14414973abtdifchangememoɚdifrmccd15414973abvdifrmccd˚difrmcsd16414973abdifrmcsd͚difrmmcd17414973abdifrmmcdϚdifrmmsd18414973abdifrmmsdњ(dsp23wstart19414973abdsp23wstartӚ@eEdAfpFormat1:414973abEdAfpFormat՚X% EdAtPostFormat1;414973abEdAtPostFormatךp} EditPasteSpecial1<414973ab EditPasteSpecialٚ EditRecord1=414973abEditRecordۚ EdSpecialFmt1>414973abEdSpecialFmtݚFixDomestic1?414973abFixDomesticߚu fixheader20414973abfixheader foodinputmacro21414973abfoodinputmacro1GetLine22414973abGetLineGotoRecord23414973ab GotoRecord0hotelinputmacro24414973ab&hotelinputmacroHhotelmaintmacro25414973ab(hotelmaintmacro` LineNo26414973ab* LineNox"LinkToExtDatabase27414973ab,"LinkToExtDatabase2LQAChgMemoFmt28414973abtLQAChgMemoFmt)LQAFormatHeader29414973abvLQAFormatHeader LQAReminderCable2:414973ab LQAReminderCable)LQAReminderMemo2;414973abLQAReminderMemolqatemp2<414973ablqatemp) Macro12=414973ab Macro1   Movebk2>414973ab Movebk89NumberRecords2?414973abNumberRecordsP (Pd925DomesticRateFmt30414973ab(Pd925DomesticRateFmthY &Pd925ForeignRateFmt31414973ab&Pd925ForeignRateFmt%$Pd925InsertFileFmt32414973ab$Pd925InsertFileFmt"pdadjmemo33414973abpdadjmemo1!pdcable34414973abpdcable)$pddata92535414973abpddata925}#pddata925col36414973abpddata925col&pddata925colus37414973abpddata925colus%pddata925us38414973abpddata925us((pddatachgmemo39414973abpddatachgmemo@ 'pddatatlsn3:414973abpddatatlsnX*pddatatlsnstart3;414973abpddatatlsnstartp)pdexplnotes3<414973abpdexplnotes,pdusexplnotes3=414973abpdusexplnotes+pdwwavg3>414973abpdwwavg.printfile3?414973abprintfile-PrintMergeLib40414973abPrintMergeLib)6PrintPreview241414973ab4PrintPreview2 5*RecordManagementTools42414973ab6*RecordManagementTools 4RecordMgmtHelp43414973ab8RecordMgmtHelp03restinputmacro44414973ab:restinputmacroH2SectionBreak45414973ab<SectionBreak`1,SectionBreakContinuous46414973abB,SectionBreakContinuousx0Set_View_Normal47414973abFSet_View_Normal/*Set_View_PrintPreview48414973abH*Set_View_PrintPreview>SetFontTelegram49414973abLSetFontTelegram9=SortRecords4:414973abNSortRecords-<$Std920ChecklistFmt4;414973abt$Std920ChecklistFmt;Std920FtnFmt4<414973abvStd920FtnFmt :Std920IndexFmt4=414973ab~Std920IndexFmt a9Std920PartABFmt4>414973abStd920PartABFmt8 8Std920TeleFont4?414973abStd920TeleFontP 7Times1250414973abTimes12Ah A@ViewWholePage51414973abViewWholePageC ? @h 0p`8P X(HP 8 X@H``   8 Hp0x2r9jOtņvIzK+Lt|H]ãmH[aQuZFtJXIwH]LK0=9!C"#3P>d/JEA(K$VaBIQ87)G@EL?pq݂I"wQjͨ71SF2H@Ӛ  WL!Qx9!L cݪ}{1E0g6O\OMM)U2q6DUhɄ/CVNM#Ph|V~e^Il-y(ZmBzӜp6lРDNG~>u4zMpe\s 3W{K/e"봩ّb4N><W)HkDhIHЮT7,AV*mDɁS"5DMF1.V+d ӶHLRsVε^p@hF%gDkJK 쭼.[_B+O}Bd\.kJCiV5lKHA/xSNڇ\%ҁ&n Oo h- @ФH"N@ YOR:ILoED[l9"GI/EQbkvL>;%m'΋B"馊KZH茚x Ho k̄7d#UH~W0o.@ bT mMD9;rkӣs\E1k"l1fN [^ =dVGSyG6>H9`zh׫ ZX,EƤ3"&3G DNLhKNK { |GxL/dme6aerwD]Z܊ӂbSKY*blUmAJPp$ BFfuKyb:Gq]ζ~M5gEG^-wBn$0&ݰ"Jg!/XHJTܱ"q_Dj׮R3'D/FFqAۙMRzotFeʔG-MrI-'M=K?kB(0~J/q MJs(MӜI9M.pxS6G"`DElWordkVBAWin16~Win32MacVBA6#Project-stdole`MSFormsCNormalOfficeu ThisDocument< _Evaluate ActivateDocI0DocName׷ DocumentsActivate| AddNewField# DBaseTypeMAIN,Promptm WordBasic CommandValidSelInfo&SelType EditBookmarkfPrintStatusBar=LDone FAddNewFieldeExistingBookmark WW7_EditGoTodDeletexfEnd DelimsStartOfDocumentLRetE StartOfRow8EndOfRow% CharRightPTableInsertColumn- WW2_InsertuMChrK~ WW2_EditFindGFindn Direction& FindAgain,| RepeatFinds EditFindFound CmpBookmarksA AddNewRecord+ MergeFields__? Response__ cMergeFieldsCFCurPosTitle~ FAddNewRecord9GetMergeFields iMergeFieldaCountMergeFieldsMergeFieldName$ FEditRecordx SkipErroroLRetErrvFInsertRecordsMsgBoxR FGetCurRecordTNextCellPrevCelly Selection$Left$7ParaUpI LParseErrfCancelCharLeftParaDownLAsc!u GoNextField]chDelimfEditChoice{iSavtTempR BeginDialogF CancelButton PushButtona EndDialogmPDlg- CurValuesȤ UserDialogDialogf RepeatInsert GetUserInputE%PositionCursorZ/InsertNewRecordFTableInsertRowQ InsertPara, EndOfDocumentRepeattLineUpKLineDownx StartOfLineM GetPrevRecNum3RecNumRecNum_q EndOfLinemWordLeft7ValStrRight$y1ResponseNextHelpR NextButton{ FoundErrorlUCase5 TextBoxQGroupBoxT UserInputͼAutoCorrectOff AutoCorrect%CorrectInitialCaps*CorrectSentenceCaps CorrectDaysCorrectCapsLock ReplaceText!/ AutoFormatOff OptionsAutoFormatPreserveStyleso.AutoFormatApplyHeadingsAutoFormatApplyListsAutoFormatApplyOtherParasrAutoFormatReplaceQuotesIAutoFormatReplaceSymbolsAutoFormatApplyBulletedListsAutoFormatReplaceOrdinalsxAutoFormatReplaceFractions./AutoFormatAsYouTypeApplyBordersd%AutoFormatAsYouTypeApplyBulletedLists˕ AutoFormatAsYouTypeApplyHeadings'l%AutoFormatAsYouTypeApplyNumberedListsր#AutoFormatAsYouTypeReplaceFractions5q"AutoFormatAsYouTypeReplaceOrdinals AutoFormatAsYouTypeReplaceQuotes!AutoFormatAsYouTypeReplaceSymbolsx(BugWorkAround1{FileOpen ReadOnly4< PasswordDoc? PasswordDot-?DocClose=CleanUpDatabaseJ iDiagCmdMaxi RunDiag__ LMainDoneKFCleanUpDatabaseW FSaveDBasec BackupSav] DialogRecordToolsOptionsSave} CreateBackupLErrorIsDocumentDirtyv[FileSave AddCmdiDiagCmdخ DiagFromCmd7iDiagCmdfResultCheckBoxi{OKButton| RmLeadSpace` RmTrailSpacet RmTrailCommasTRmParaFChkValidHeaderChkDisplayFields ChkNumSepUp ChkMixedDelim ChgQuotes F ChkBlankCellChkMergedCells[ Available0s` Available1t` Available2u` Available3v` RunResults__ ListBox CleanUpLibT%DoRemoveLSpacesiCol_! WW6_EditClear0DoRemoveTSpaces |FRmSpacesTable fLeadingq FindEndFieldSelfShrinkSelectionrFFindNextFieldLDoneFFN  FRmSpacesParafTab)LQuit! FRmSpaces)t LFinishedyKFRmTrailingCommastJLRTCDoneWW2_EditReplaceqReplacef WholeWordeFRmParaschLeft FChkValidHdrs' FDisplayFields FieldTextiPosf FFoundField(LDFDoneFChkDisplayFields ViewFCSavViewFieldCodes{LCDFDonel NextField< FChkSepRec(LCSRDone9 FChkNumSep_fCurRecLNSDoneY@FFixMixedDelim#ABadDelimfReturn^ fDblQuote3{ch\LDoneFMD FChkMixedDelimLDoneCMD LRetNoErrʁ FChgQuotes`LDoneCQ FChkBlankCelliColMaxh LBnkCellDoneFChkMergedCells LFCHCDone~zTableSelectRow LFCHCErrorxTableSelectTableO TableToText& ConvertTo͗ TextToTableSTableSelectColumn colpam&M DestinationлExtendSelection FormatTabsթClearAll FormatParagraphE LeftIndenti RightIndent(PositionAlignFFontU EditSelectAllVViewZoomWholePage9Wcolpam2 WordRight colpamfooterdEditCopy.NormalViewHeaderArea^ FirstPageOddAndEvenPageshPHeaderDistanceSFooterDistancek EditPaste ClosePaneCOLreformatagencies= AlignmentI FirstIndentBeforeAfterX LineSpacing PageBreak% KeepWithNext KeepTogether] NoLineNumxDatabaseManagementTools+" DisplayDialogMMacrocAgainsWW2_ToolsMacroRun_ShowDatabaseMgmtHelpkK DeleteHeader% DeleteRecordH FDeleteRecord+2TableDeleteRowADelLineWW2_ToolsOptionsView1HScrollicVScroll StatusBarʜStyleAreaWidthTableGridlinesZlTextBoundariesPicturePlaceHoldersBl FieldCodes LinebreaksTabsZSpacesParasHyphens Hidden]ShowAllI FullScreeng difcablel difchangememowdifrmccdgTableInsertTable| ConvertFromTWW2_PrintMergeToDoc4 Suppression+FilePrintPreview?difrmcsddifrmmcddifrmmsd dsp23wstartM ViewNormal5 InsertBreakѺ EdAfpFormatXEdAtPostFormatEditPasteSpecialh EditRecord EdSpecialFmtl FixDomesticC ActiveWindow+ViewI wdPageViewv ActivePane_SeekView$wdSeekMainDocument SelectionZWhatCwdGoToBookmarkJwdSeekCurrentPageHeader;MoveDown̝UnitwdLineCount0vExtend?wdExtenddParagraphFormatTabStopsBActiveDocument\DefaultTabStop\InchesToPointsIAddrwdAlignTabLeft#>LeaderjwdTabLeaderSpacesClearFormatting) ReplacementForwardWrapWywdFindContinueBP MatchCaseMatchWholeWordXMatchWildcardsMatchSoundsLike0MatchAllWordFormsEndOfy wdSection2wdAlignTabRight fixheader) SplitSpecial wdPaneNone= Panes wdNormalView wdOutlineViewk wdMasterViewwdScreenMoveUpVerticalPercentScrolledz SmallScrolltmDown;foodinputmacroqViewPageJGetLinei` DeleteWord UpdateFieldsR GotoRecordM6 FGotoRecord FSkipToRecord FSkipInTablePRowMax;JPageMax RowsPerPagePageNumCurRow_ SkipRecNum<EditFindClearFormatting1 EditFindStyleqStylepToolsRepaginatehotelinputmacroP%hotelmaintmacroLineNoGLinkToExtDatabase FValidLinkFClipPasteLinkFValidPLDataFile7 TestValidLink$FValidClipLink:FGetUserActionp CountWindows CFLink\RegisterClipboardFormatIsClipboardFormatAvailableYPosButYPosText\YDlgij FUpdateLinkX8 FPasteLink]( FPLinkManualQ FDeleteLink9) FixUpLinkILinkh InsertFieldField3 UpdateSourceb UnlinkFields+FConvertDDELink)[xoDataType%?LRetOK~PrintMergeLink̴jaLFinish0q OptionGroupN OptionButton ClassNameFileNamej Referencee LQAChgMemoFmtULQAFormatHeaderHEWW2_FormatCharacter5PointsBoldItalic! Strikeout SmallCaps~cAllCapss_ UnderlineColor2FSpacingSLQAReminderCableLQAReminderMemo!MailMergeOpenDataSourceMailMergeOpenHeaderSourceNlqatempOgWindow3d FileClose_Macro1N ViewZoom100Movebk< NumberRecords1FNumberRecords FReNumRecords- FInitRecNumWs InsertRecNumC FormatStyleLApply, StartOfColumn:WW2_TableColumnWidthO ColumnWidthSpaceBetweenCols" RulerStyleaPd925DomesticRateFmtFEditGoTosVPageI EditClearInsertrPd925ForeignRateFmt FormatColumnsColumnsp9 ColumnSpacingRColLine0 StartNewCol ApplyColsToPd925InsertFileFmt' pdadjmemopdcable= pddata925p pddata925colpddata925colus0 pddata925us pddatachgmemo] pddatatlsn pddatatlsnstartS pdexplnotes PrevColumn pdusexplnoteslpdwwavgˮ printfileWPrintOut. Background. PrintMergeLib@x FNextDelim LRetErrorFGotoNextRecord FClearRecordGetHelp* HelpTopic  HelpTitlechPosHelpText chPosNext cHelpLinesK iHelpLine- GetAutoText$ HelpLine__NotYet FCountStringSourceG SearchTextZNumiNum]Index_FAlphaFNum  FValidCharaFLegalMF0 FieldNamecchFN PromptMFName= InputBox$D PromptDBType GetDBaseTypeFValidDataFile3 PrintPreview2RecordManagementToolsdRecordMgmtHelprestinputmacro# SectionBreakltRange wdSectionBreakNextPagexSectionBreakContinuous~wdSectionBreakContinuousESet_View_Normal>Set_View_PrintPreview wdPrintPreviewSetFontTelegram/ SortRecords HandleError;ComboBox\SelectSortTable-SortKeyKey3QOrder3qKey2POrder2pKey1OOrder1oGetIndex,KeyOrderA TableSort[5 Separator^FieldNumگ SortColumng CaseSensitiveuStd920ChecklistFmt$ Std920FtnFmtWW2_EditReplaceCharxo ReplaceAll)FontSizeStd920IndexFmtStd920PartABFmtNStd920TeleFontdTimes12( ViewWholePageDocumentj # )*+ 7 , - .EGIO/01+s!u)w*2/3,4-(54.153+27<0789:;869=:>;?6@<A=B>C?D Eu[\5@]7Aa9B_#^;C`=DbcCEdGFeIGfMHgOIh i!o "quJuwKL{MczN'#)$+%-&OP   u'w( &@h"Macro created 06/30/99 by DonovaSJNormal.AutoFormatOff.MAINp"   *0 `hpx    AutoFormatOff.MAIN Macro# Macro created 06/30/99 by DonovaSJ 99999999 9 q@ 99999999qoAttribute VB_Name = "AutoFormatOff" Sub MAIN()  D.DescriptionxMacro created 06/30/99 by DonovaSJPro cDataQInvoke_FunJcQNl. .}H' '   W ith Obs 7PreserveStylesIFalseApplyHe adingListOtherParaReplaceQuotKSymbol:Bullem'yDOr@:@BD FracAEnd \ ^AsY@ouTypeWBorder0K "3KoNumbereds DL%D Z ܄ C 4a@ \c ɚxMEH & 8 "  8"Hp**   @P *B@  Rate_History *B@< *B@Rate_History_End *B@< *B@t.x2.94 inJ *B@3.31 inJ *B@ *B@Arial *B@ *B@the re \StartOfDoc *B@< o-Attribute VB_Name = "difchangememo" Public Sub MAIN() WordBasic.ViewZoomWholePage @WW7_EditGoTo Destination:="Rate_Historym XExtendS0elec.4V_EndZFormatTabs ClearAll:=10PosiY2.94 in"@, Aligb2 , Set3.310ONnt "Ari$alE10Ca0ncel \StartOfDocK@M| \c# xMEH &LQAChgMemoFmt79INumberRecordspddatachgmemo8<b`pdusexplnotes 8 " 00P2222(2`0block *B@< *B@<$@blockend *B@<2"$R J *B@2.63"$R J *B@t.Link3.25"$R J *B@ 3.88"$R J *B@4.75"$R J *B@5.38"$R J *B@<6"$R J *B@o0(Attribute VB_Name = "LQAChgMemoFmt" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="b0lockXExtendSelecF)7 JFormatTabs Posir2" + Chr(34), Alig2, Set:=F1 o?.63!88 Rj5v := NR'QGet N"@N -1BN GoTo LDon@=<> 0WMsgBox "A can onlyƗtha t areby}sHI!CouFields()A/UC:([B $](1)A"REC`_NUM"7[F|RepƅO IxnitG=B*:e<>!xInse~r$>a}ak$ C1 [ [|`@l]sd..-WhiHoSelInfo(12"- L^araDown 1, " Str( KWW2_cH [Right0@, Len(B) - 1nFormatSty@!7:=w_,", Apply:=$7@+E'%LiU 1.1;8[U5>2;34D.2>5.46gnt "Univers (WN@)", 10MCancelMAC FoTEndA \c xMEH &8 "   8 Hh*  RJp@    0 *B@pd_us_expl_beg *B@< *B@ pd_us_expl_end *B@< *B@0 in *B@-.5 in *B@2.00 inJ *B@4  NewTimesRoman *B@ *B@2"$R 0.15"$R 0 *B@4"$R 0.15"$R 0 *B@@4"$R 0.15"$R  *B@ *B@ *B@oAttribute VB_Name = "pdusexplnotes" Public Sub MAIN() WordBasic.ViewNormal 2WW7_EditGoTo Destination:=_us_ai_begh SExtendSelec03XAXFtTabs ClearAll:=1/Paragraph LeftIndent]20Uin,Righ-.5HPosi2.00 2, Alig0, Se>Unt "NewTimesRom@an", 8hT extTo3le! WW2_ColumnWidt h <2" + Chr(34)"paceBetPween sD.15_CPrev@Y, RulerStyle [P`"4n" %"Z0S`A0]C0anceAPabg@iEndA\c PrintMergeLib;=6PrintPreview2pViewWholePage:BpAutoCorrectOffm    !( "/#$%&')W*+,-.JV123456789:;<=>?@ABCDEFGHIKLMNOPQRSTUXdqYZ[\]^_`abcoyfghijklmnprstuvwx|}~  ) xMEp &@hLibrary of print merge macros"TemplateProject.PrintMergeLib.MAIN  YB@ H I$ hI   I$  0($YHYPB@ P@ @ @  ` p X YYI x@ @ @  Y   Y "xX Y $ Y&@( P*` P( . ` 0 @$ 2 P( *"0h8 B  (08"Px&&."@H `p x 0B    ( 0 @P Xh p  2B    08 Xhp   " 2(Px& 0H `p( .( HXx "6 B  ( @P` p  B   B   8 H P X ` Bh (p      B      4 H X  p           B    : X p x B   $ 0  * $H &p       0 8 @ `    B  &  F h  ( (0Hh V B (,0 ` TpL8@PBX  l 8 # Print Merge Macro Library RoutinesZThis macro is merely a library of macros that are called by other macros in this template. *B@oX]' B *B@' *% B *B@! *B@L'k *% *% $   'pkh *% $$" *% *%$" *% *%$ Gj *%LGj *B@L'd'kphi`) Skips to the next record in a data file.'@F6 $  *B@J *%'d *B@'k *B@Ld *B@'kh6`iX+ Deletes the contents of the current record' $ *B@H x *B@J *B@zd\sel\para *%` *B@k *B@ *B@ *B@zkH'i0]h]]]]]@F6Getting Help Topic:  ... *B@4 $R' BShift-Enter LineFeed'  *% '    B' G6j     $ *%' G6j    '     B'    + dp     $  + k@  ' J  *B@ $  HelpTopic *B@r X *B@P *B@]F *!!.  *!B@6ho`0'This macro hasn't been implemented yet. *B@op]](]@'''   '   '  '   'dh`kXkPiHX A Z'_ d'ki 0 9' d' ki $ $  _'"dP'"k@i8x]]'$ &'( (GFj ( (  & *%$ (  & ($'  $" ( '(dh'(kPHk@ (G'$jFi]H@FF' *(Enter the name of the merge field below: *%,' ( ($$G (' *jFi`'.@F6HRMicrosoft Word *B@ FDatabase Delimiter *B@Delim *B@ji &Table Cell *B@l#CT&abs *B@l4[&Commas *B@lX *B@PX *B@ *B@]F *!!.  *!B@ !B'.6i DBaseType Constants -1 = Unknown database 0 = Table Delimited 1 = Tab Delimited 2 = Comma Delimited]Getting Database Type... *B@4'$InsertBookmark *%, *%.G *B@0jTemp *B@2 *B@D" *%.'$dP *B@ *% $R$'$d *%,$G'$jkkTemp *B@<Temp> *B@2 $G .'$jh $'0 *B@4iXP This Function returns -1 (True) if the current document is a valid Data File or 0 (False) if it isn't.]PAnalyzing Current Data File... *B@4'2NCurrent Document Exists and Not in Macro Pane and a Valid Print Merge Document *%:'2>Word cannot perform this operation without an active document. *B@d *%.'23Word cannot perform this operation in a macro pane. *B@dX *%t'2dWord cannot perform this operation because the active document is not a valid Print Merge data file.' ( ( $R $R Make sure that the main document associated with this data file is also open and that the data file contains a valid header record. *B@k k k *B@4i !Attribute VB_Name = "PrintMergeLib" ' L P Macro lrary Routines Public Sub MAIN() ".Descri`ptionEoHf pv mw mbs{@Pro cDataLInvoke_FuncLTemplate"ject. .QWordBasic.MsgBox "This8 erely a libpMG that are called by otherW in+!tC.7EndGvN WFNextDePlim($Dim iPom0 \ExtendSelr 1 If InStr ([$]() , 8 The0n ParaDown 1 , @ Char`RightC *-D GoT@RetError ABDIf&LenV&) > 1I$hile Mid2>@))3" ]+D+F1NJ#Asc(34'ZFY^1)) <> 34O*@l= 10$ [ADG"n(u3>W"%aB?Else4C@LC:c1bÍSkips Dtoie nd recwAla d) fB.rijGotokR"(D}eType, fEdit`lFKA` On CU(-1: +LDon4& A@" Hk'`OfR/'-aCe #;s!b&(gf r> Q 4 qb-o //yeeAlpha(ch > A" Ak<Z"8tF2`k f`oY F09s= Cc'q, F1id1(3  Or )_V Xf End Function Private FLegalMF(FieldName$) Dim cchFNh$ R = 0 :Len tIfrL Then GoTo LRet (9> 0 A < 21)FAlpha(WordBasic.[Left$]d, 1))Z Whixle Wch$CMid 9"LFValidChar(/ 0U=o- 1Else 6-xIʁWendρ?.0!:PromptMF(rpOn Errord-1: KCiO""ASfInputBoxg"Enter@ the n ofmerge f below:"$A[ŝ&[ D ?P DBType@3SADonsG:BeginDialog 328, 82, "Microsoft A IuFGroup@G 10, 5, 204, 7"Database DelimfiNOp "  But8ton'10 @16@(&Tab`cCell2@23 67T&Xabs5!91&Comma%(OK29@(@2cCancelI3 8d`C2Dlg As Object: Set AF=3cCur|ues.User' #!e_#J H ."2REr' D eAP Constants ' -1Unkn`own d@05B `B' E2`B,.xGet`a   ntStatusBar "ting T... A iyBnd¨("In@,okmar8k") #SelInfo(12J'CEdi "Temp@htartOfDocumenͨ? ǸPaxraD5[Cou&r %`O`), Chr(9aAx '$`k onc ","D( 211fu WW7_Az)ete:=@ -~9W )) (( K I'ris7r@eturns5(True) igcurr d$! Pa vap~-H FiQor8(LFaP|itn't.e s1?5 v#!y5Analyz5pHr A25!6'E Exists a No n MaAh PaneRa 28tint M"x_1ҕR,Windows(3:w*2QgMsgn"A cannperformoal witho$ut ave?VE/@%'B27?-3  t  in a mpA N91 #becau-!5.] fle 1 +K13) "Make sHureat@e`F6associPdB 1 p6o ! ndd7contaiC = headrec EM u -nNExMEH &8 "( *B@o`X_Attribute VB_Name = "PrintPreview2" Public Sub MAIN() WordBasic.File d 1 EndZ \c CxMEH &8 " ( *B@ o`X_Attribute VB_Name = "ViewWholePage" Public Sub MAIN() WordBasic.\Zoomd EndX O +xME &@h"Macro created 06/30/99 by DonovaSJNormal.AutoCorrectOff.MAINp"   *0 `hpx  AutoCorrectOff.MAIN Macro# Macro created 06/30/99 by DonovaSJv  99999q`oXPAttribute VB_Name = "AutoCorrectOff" Sub MAIN(), D.lDescriptionzMacro created 06/30/99 by Dono0vaSJPr@ocDataQInvoke_FuncQNorma4l. .~I' '   With $( .InitialCapsIFalse Sentence1DayLock,Repla@ceText End U   /xME &@BugWorkAround1?A EdAtPostFormatfoodinputmacro@Dpddata925colus S:To get around MS-Word problem "user can't save this file."#TemplateProject.BugWorkAround1.MAINP "B P`pM:\live\alsexe\dummy.doc"$& *B@  *B@(o<Attribute VB_Name = "BugWorkAround1" Public Sub MAIN(X) ".~DescriptionTo get a MS-d problem ""user can't save this file.""t_ProcDatakInvoke_Funckemplate"ject. .RBasic.FfOpen y:="M:\live\alsexe\dummy.doc", ReadOnly:=0, PasswordDocet 1Close End \cw ך     !"#$%&'()*+,-./0123456789;<=>?@ABCDEFGHIJKLNOPQRSTUVWXYZ[\]^_`abcdefghijklmopqrstuvwxyz{|}~xMEH &8 " 0 2P0222(2` @ > @ @Xblock *B@< *B@ blockend *B@<T2.38"$R J *B@x3"$R J *B@3.63"$R J *B@4.5"$R J *B@5.13"$R J *B@5.75"$R J *B@:FormatTabs .Position = "2.38" + Chr$(34), .Align = 2, .Set7FormatTabs .Position = "3" + Chr$(34), .Align = 2, .Set:FormatTabs .Position = "3.88" + Chr$(34), .Align = 2, .Set9FormatTabs .Position = "4.5" + Chr$(34), .Align = 2, .Set *B@director *B@<o0(&Attribute VB_Name = "EdAtPostFormat" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="`blockXExtendSelecF)G7LTabs it2.38" + Chr(34), Alig2, Set:=1 t%!3.6=!4."5Nn!Std920TeleFont &@x.Displays help for the record management dialog#TemplateProject.RecordMgmtHelp.MAINgX "LXhPrintMergeLib.GetHelp RecordHelpRecord Management Help *B@(o Attribute VB_Name = "RecordMgmtHelp" Public Sub MAIN(X) ".~DescriptionDispl ays h for the r management dialogfQPro cData]Invoke_Fun"c]Tem]teA"ject. . RWBasic.Call "PrintMergeLib.Ge,yw MREnd \c xMEH &8 "  0@`x*(*(@*h****(*X    *B@begin *B@< *B@o, \EndOfDoc *B@< *B@-.5 in *B@X-.5 in *B@-.94 inJ *B@B@.56 inJ *B@1.25 inJ *B@*B@1.5 inJ *B@2.44 inJ *B@ *B@3.25 inJ *B@ 4.13 inJ *B@*B@5.00 inJ *B@5.81 inJ *B@6.88 inJ *B@  NewTimesRoman *B@ *B@ *B@o0(pAttribute VB_Name = "restinputmacro" Public Sub MAIN() WordBasic.ViewNormal 2WW7_EditGoTo Dation:="begin_ JExtendSelec'(O\En@dOfDocSFtTabs ClearAll: =1 ZParagraph LeftIndentqV-.5SWRigh&IPosi-.94 2@, Alig0p, Se?V.5691.25Q2.4K?2k?3Í/4.13?5.00816.88nt "NewTimesRoman", 8-bCanceNz}Page n [ xME &@Xformat 920 index#TemplateProject.Std920IndexFmt.MAIN " (8X pL   0Pp  IndexBreak *B@< *B@INDEXEND *B@<Arial *B@make 3 columnsx30.5"$R  *B@LQASdelete a blank> IndexBreak *B@< *B@L *B@z@delete column break3 INDEXSTART *B@< *B@zoxpAttribute VB_Name = "Std920IndexFmt" Public Sub MAIN(X) ".~Descriptionformat ifProcData?Invoke_Func?Tem plate"jehct. .uRWordBasic.WW7_Edi@tGoTo tina:=" Break 1ExtendSel/ Z #&NDEXEND %Font "Arial", 9'make 3 columns.FC 6 S3Sp acing 0.5" + Chr (34),Line:=0, _ StartN ew ApplysTo:=2 Cdpa bl8ankrlLCharRight 1 6^Clea0r '> bA^AWSTARTIWWW -E ndA8\c xMEH & 8 " 0"HpTOP *B@< *B@END *B@<Telegram *B@vCourier *B@ *B@|B@TOP *B@<oH@ӰAttribute VB_Name = "Std920TeleFont" Public Sub MAIN() WordBasic.WW7_EditGoTo Destination:="TOP~TExtendScB$END EFormatStyle hRgram", Apply: =1 \ "Co urier KntSize 12FiEnd \c CleanUpDatabase GI02hotelinputmacro Yhotelmaintmacro HLLQAFormatHeader dkk$ 1xMEP@$ @, .`H &@ HConverts an external database to Word format by removing inconsistencies$TemplateProject.CleanUpDatabase.MAIN  4 @6 @ ` D(IF HhIF  2 s@ @J @L ` (h R NX"^H.P, B" 0 @P hx`  "  B  @Hhp$&.(,0`*h@,$ H Ppx B ,<H0P(446.P68$  .0 `  0p  2 6 2 P 4h 4 6 2 H 2P 2 2   $8  ` p   R    8 DP     8 Xh08Xx  , *H .P & * .  ((P ,X ( * ,( 08@2H6 2,0@`   K This macro provides a set of diagnostic tools for a Print Merge data file.MS-WorG Feel free to add your own macros in the Reserved for Future Use spaces]]]0h .8'$', *%.G3Word cannot perform this operation in a macro pane. *B@F0j 2 Database Cleanup was Successful. *B@4dxDatabase Cleanup was Canceled. *B@4k@08o0@]]'4]F *!8%:.  *!B@: !<'6@F>< *B@: *%@@The diagnostics you have selected may alter the contents of your database. $R $R .Do you want Word to save your database before proceeding with the diagnostics? # *%' G *B@Bj G>jk`'4>H 6< *B@:i( F ,+. , ',o( FKTRemove leading spaces' HKTRemove trailing spaces' HKTRemove trailing commas' HKTRemove extra paragraph marks' HKTCheck for valid header record' HKT%Check for display fields in data file' HKT$Check for valid number of separators' HKT"Check for mixed delimiters in data' H KTChange "$R "$R  to \ "$R ' H KT$Check for blank table cell in header' H KTCheck for merged table cells' HSReserved for Future Use' Hni]]]@F6'2PrintMergeLib.GetDBaseType *%('$ $G6j.Generating Database Diagnostic Tools Dialog... *B@4', Database Diagnostic Tools *B@ Tx General *B@6$ H RmLeadSpace *B@N%6$ H RmTrailSpace *B@N66$ H RmTrailCommas *B@NG6$ HRmPara *B@NX6$ HChkValidHeader *B@Ni6$ HChkDisplayFields *B@N $Comma and Tab Case $ Tab Tx Tab Separated *B@d  Comma Tx Comma Separated *B@kX6$ H ChkNumSep *B@N6$ H ChkMixedDelim *B@N6 $ H ChgQuotes *B@Nd Table Case Tx Table Cell Separated *B@6 $ H ChkBlankCell *B@N; $ HChkMergedCells *B@N6 $ H Available0 *B@Nk6 $ H Available1 *B@N6 $ H Available2 *B@N6 $ H Available3 *B@Nm X *B@Pm$X *B@m<X&Help *B@ *B@]F *!!.  *!%' PrintMergeLib.GetHelp CleanUpHelpDatabase Diagnostic Tools *B@(k G6j 4G6j> Store User Choices because Dlg might get redefined in a macro !RGA@Dj !TGA@Dj !VGA@Dj !XGA@Dj !ZGA@Dj !\GA@Dj $ !^GA@Dj !`GA@Dj !bG A@Djd0 !dG A@Dj !fG A@Dj !hG A@Djk !jG A@Dj !lGA@Dj !nGA@Dj , p@ J , J$.KTCleanUpLib.FRmSpaces *%('LKTCleanUpLib.FRmSpaces *%('LKTCleanUpLib.FRmTrailingCommas *%('LKTCleanUpLib.FRmParas *%('LKTCleanUpLib.FChkValidHdr *%('LKTCleanUpLib.FChkDisplayFields *%('LKTCleanUpLib.FChkNumSep *%('LKTCleanUpLib.FChkMixedDelim *%('L KTCleanUpLib.FChgQuotes *%('L KTCleanUpLib.FChkBlankCell *%('L KTCleanUpLib.FChkMergedCells *%('LS    ?This space is reserved for macro programmers who want to write Iadditional database diagnostic macros. Check with your local user group Bor Word's CompuServe forum for handy macros written by fellow Word  users. *B@n L J$.$ H was successful. J+ pdx J$.$ H was NOT successful. J+ pk8 JzDatabase Diagnostics Results *B@X *B@P $ pResults *B@r !Results of the Diagnostics Tests: *B@d *B@ *!!. *!!.  *!B@  *%@GHWord altered the contents of your database. Before saving these changesU you should review your database to make sure that diagnostics performed as expected. *B@j'26 i  qAttribute VB_Name = "CleanUpDatabase" ' This macro provides a set of diagnostic tools for:Print Merge d file.Feel free/ add your ownbs in the ReservedPFuture Use spaces D im DBTy$peiDCmdMaxRun__() PublSub pMAIN .Descriptiononvertwn externalg`WorPmat by remngbconsistenciesÀ5Proc;Invoke_Func;Templatejec4t. .W)Resr12s$0 If ZNic.SelInfo(27)yenMsgBox "8cann@ot perwmkho@aBJlaEane.": GoTo LMa`inDong@FL1 $StatusBa(r "Ţ up was SucAsful.@AE lsCancelednd If ,: ^EA%vc h 0~ ' aХTabBlsM04 'ϠW+*&13H&=1SXUG ' Q3  J 11#15-7Numx  !2X169_S8MeDeN8:o2@$9gQuotb~G'  f_O_510B lC6 WordBasic.CheckBox 22, 169, 315$, DiagFromCmd$(11), "ChkMergedCells" 8602PAvailable0LEnd IfXT203-$T1TH2L31N2$37H3$OKButton 3688, 21ancel3Pus:h6q&Hxelp!E\zlog Dim Dlg As Object: S$et= QurValues.UserChoice H (@@) If F 1 Then;ll "PrintLib.Get/AleanUpDatabasenostic TooƨGoTo Repeat V Ř !0! LDone(FSa8veD@A5' Store AA4s becau"Qmight gPredefined in a `macroD.RmLeadSpaOC Addݘ (1JTr 2 Commas43I Par:a4|;idRH`er5DisplayFiheld 6'Type <> #(#=/` NumStep 7aMixedDelT*$8-gQuote9Els: Blank10 la4 G4HOfc`>5f2 (6f3l5RezRunResults__$(isg LMax - !For w@x@5o7Sel Cm  __ &!" afcjCall("Cz|FRm\s", -+" 2a? ) wE; 3 Qqingcm" 4 uss 5 xdr 6!oj ?^7__P@8kB.>9///4E10kvG/3Q;(OQ/1|Msg"This s"hre}vjfpAj programmers who want tprit e " _+ "additional dzdPczbs. s@ with you`r loc 0tr group#p A 's 8pu@Serve umQ handycv ten by fow/ Qs.dZN hFAhUU)P QV(S)))  uccessful6kA___dYNOT sNext _ w"Begin p 63402@"DsfT7Ʈ5pAɰList1)251@1Dm5Tq 1 25 P" of th٢ests:p  _߰_ a¶Shҡ7IsDocumentDirty()~< alte Rcon/tsQ'587Be 3e savlc3ges"p)4="q9 should @reviewrg=p@maku that >s hper`mDPexped1.FdV$= :FuncAD xMEH &8 "  0@`x***(H*p**   0@P *B@begin *B@< *B@ \EndOfDoc *B@< *B@-.5 in *B@Temp-.5 in *B@N -.38 inJ *B@ 1.38 inJ *B@2.25 inJ *B@3.5 inJ *B@4.50 inJ *B@C4.75 inJ *B@5.25 inJ *B@ NewTimesRoman *B@ *B@" *B@ o`Attribute VB_Name = "hotelinputmacro" Public Sub MAIN () WordBasic.ViewNormal 2WW7_EditGoTo Destination:="begin_ JExtendSelec'(O\EndOf(DocSFtTabs ClearAll:=1 ZParagraph LeftI ndentV-.5SWRighC&IPosi-.38 2, Alig0, S.e?V12.4253@I/4.502?4.7/5?nt "NewTimesRoman", 8CanceAPage @A \c xMEH &8 "  0@`x*(((8(`(    *B@ٚbegin *B@< *B@ \EndOfDoc *B@< *B@-.5 in *B@Temp-.5 in *B@N -.38 inJ *B@ 1.5 inJ *B@2.5 inJ *B@4.5 inJ *B@4.5 inJ *B@5.5 inJ *B@ NewTimesRoman *B@ *B@n *B@JoRAttribute VB_Name = "hotelmaintmacro" Public Sub MAIN () WordBasic.ViewNormal 2WW7_EditGoTo Destination:="begin_ JExtendSelec'(O\EndOf(DocSFtTabs ClearAll:=1 ZParagraph LeftI ndentV-.5SWRighC&IPosi-.38 2, Alig0, Sne?V1R 2+248/5gnt "NewTimesRoma n", 8CanceγAPage @A  xME &@h"Make header section fonts uniform.$TemplateProject.LQAFormatHeader.MAINh " 6Ph&x" :6P`p  *B@DTO:VX *B@T  *B@ *B@Times New Roman *B@6-Times New Roman *B@n *B@DJSUBJECT:VX *B@T - VX *B@T *B@L *B@-Times New Roman12z|~l0 pt0 pt *B@x o Attribute VB_Name = "LQAFormatHeader" Public Sub MAIN() ".DescriptionMake h sec,fonts un4if.EPr@ocDataQInvoke_FuncQTemplate"jP. .SWordBasic.StartOfDocu@ment WW2_EditFind :="TO:", Whole:=0, MatchCaDseDird:p=1,  ,LineDown 11 EndO*f F _ "Times New Romand, 120wSUBJECT?=.QS - SCharRig|htLR!e acterintv W, Poi12)BoldxItaeS0keousHiddenSma@llCapsBA@Un@l@B ColorBPo$si:=B{0 ptSpacing! 6A\c xMEH &LQAReminderMemo KM1 pddatatlsnstart SetFontTelegram JR9Set_View_Normal H      !"#$%&'()*+,-./012345678:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnpqrstuvwxyz{|}~8 "  ( 8@ jxvx` \N8VV 8P` p *B@  *B@z *B@x3 The following 3 statements to be used at Clarendone FileOpen .Name = "m:\als\lqa\lqa_rm_m.doc", .ReadOnly = 0, .PasswordDoc = "", .PasswordDot = REM "" i FileOpenDataFile .Name = "m:\als\lqa\lqa_rmd.doc", .ReadOnly = 0, .PasswordDoc = "",' .PasswordDot = ""l FileOpenHeaderFile .Name = "m:\als\lqa\lqa_rmch.doc", .ReadOnly = 0, .PasswordDoc = "",' .PasswordDot = ""W The following 3 statements to be used at main state for testing and debugging purposesh"$T:\alsource\live\alsexe\lqa_rm_m.doc"$& *B@ #T:\alsource\live\alsexe\lqa_rmd.doc"$& *B@$T:\alsource\live\alsexe\lqa_rmch.doc"$& *B@~ *B@| *B@noAttribute VB_Name = "LQAReminderMemo" Public Sub MAIN() WordBasic.ViewZoomWholePage 8EditSele ctAll 0TableInsert Conv From:=1u The following 3 statements to be used at Clare@ndon 7FileOpen .m:\als\lqa_rm_m.doc", .ReadOnly0PasswoDoc t REM "4Data:8d&8_ ' . ;8 nH[er:ch:Tabmainjnr testoand debuggApurposesɄ5 l:="Tlource\livepexqaoo:=@oL>c@nPMailMergBo>Ss[r  s)!w^! BWW2_Print !To!_Suppression+!Showy 08 E`:u\c xMEH & 8 "   *  * F8   *B@ $<RTV0"$R XZ\^`bdfhjln *B@P% EditGoTo .Destination = "start_sec"*B@ InsertBreak .Type = 3 *% EditGoTo .Destination = "start_col"_A FormatColumns .Columns = "2", .StartNewCol = 0, .ApplyColsTo = 1 DeleteWordoɱAttribute VB_Name = "pddatatlsnstart" Public Sub MAIN () WordBasic.ViewNormal 2WW2_ToolsOptionsR HScroll:=1, V SxusBarStyleAreaWidth:="0" + _aChr(34), TableGridlin es:=0extBoundariPicturePlaceHo0lder*&Fi@eldCodL%b6(o ͱAttribute VB_Name = "EditPasteSpecial" Public Sub MAI`N() ".DescriptionAll ows p link,as an objec t, orwithout formattingzeProcDataqInvok@e_FuncqTemplate"5[. .TOn ErrxGoT@o -1: LDone WordBasic.MsgBox " does not supportandard DynamO Exchange}s in print mer documents. Use the|{ dog b9to set up a DDE,.gTWW2_ToolsMacro :="L ToExtLbase", Show:=2, Ru@n:=1 =: Endy \c# xMEH &8 "  ( 4@ dx XN8  *B@  *B@z *B@x0 The following statement to be used at Clarendon` FileOpen .Name = "m:\als\lqa\lqa_rm_c.doc", .ReadOnly = 0, .PasswordDoc = "", .PasswordDot = ""T The following statement To be used at main state For testing And debugging purposes$T:\alsource\live\alsexe\lqa_rm_c.doc"$& *B@ ~ *B@| *B@noH@Attribute VB_Name = "LQAReminderCable" Public Sub MAIN() WordBasic.ViewZoomWholePage 8EditSel@ectAll 0TInsert Conv Fr`om:=1u The following statement to be used at Clarendon  4FileOpen .m:\als\lqa_rm_c.doc", .ReadOnly~0 PasswmDonc t MT!Mmain\ For testeAnd debuggpurpo8sesbb:="Taource \livehexqa hg:=gf fe2GrWW2_PrintMergeTo@Suppression@'Showu 0 E3 \c xLinkToExtDatabase$SU{#EPd925InsertFileFmt&Std920ChecklistFmt&TXdCOLreformatagencies(ls2 xMEX@. x@0 &p*Manages a DDE link to an external database &TemplateProject.LinkToExtDatabase.MAIN+ 2  4P 6 @< 16- 8` H@B @D @F @ ` PYR H PR \ P(@^ PR J @ ` H  dpPYR L .@ @f PR` N  0 ' ` N` Z X Nh Z b N Z h0".,HPX B`,h  TL pxB " B (0HX B`hpx $ 2(` : ` 6 tH    2 n         8 @ H  P X  ` h  p x                         " ,(  X h    B  *   "     . 8 H"X4      0 HX` Bhpx 8 (8@P`4    R>@"    ( B08@ P`p"x(  P@HP Xhp "0  &4  X h x> R"  HXh  B $* (P(x&*(* P6h0  @`x(J`p2x.  (8@   B4H"P x : Z This macro manages a DDE Link between an external application and a Print Merge data fileJ Word 97 does not support external functions called from 16-bit libraries.U The declaration has been commented out, because the function will generate an error.T Private Declare Function RegisterClipboardFormat Lib "User"(ByVal Format$ ) As LongJ Word 97 does not support external functions called from 16-bit libraries.U The declaration has been commented out, because the function will generate an error.^ Private Declare Function IsClipboardFormatAvailable Lib "User"(ByVal Link As Long) As IntegerJ Word 97 does not support external functions called from 16-bit libraries.U The declaration has been commented out, because the function will generate an error.c Private Declare Function IsAppLoaded Lib "kernel" Alias "GetModuleHandle"(ByVal name$ ) As Integer]]0'.'0 2A@4 6'0 8Link Management was Successful. *B@4dLink Management was Canceled. *B@4kkoAnalyzing Current Data File... *B@4'2NCurrent Document Exists and Not in Macro Pane and a Valid Print Merge Document *%:'2>Word cannot perform this operation without an active document. *B@d *%.'23Word cannot perform this operation in a macro pane. *B@k kiDDELink *%:'.oP]Link$>'< <$@'6i]]]]0@F6'8'B'D'F 0G F 'Fj .G F@ 'Fj FMicrosoft Word *B@ . B&Update Current Link *B@ DmUpdate Current Link updates the contents of the data file with the current data from the linked application. *B@d B 'B D 'Dk 0 BCreate Link From &Clipboard *B@ DjCreate Link From Clipboard replaces the current DDE link for this data file with the one on the clipboard. *B@d B 'B D 'Dk BCreate Link &Manually... *B@ DUCreate Link Manually displays a dialog that allows you to create a DDE Link manually. *B@d B 'B D 'D . B&Delete Current Link *B@ DODelete Current Link deletes the DDE link associated with the current data file. *B@d B 'B D 'DkH B *B@ *B@]HF *!!.  *!%' G6j KT . H'8d 0 J'8d L'8kxkpKT . 0 J'8dH L'8k8KT 0 L'8d N'8kKT N'8n6i` RExcel R\r  *B@D *B@ *B@zkho`]Getting Current DDE Link... *B@4'H@Updating the DDE link will delete the contents of your document. $R $R Do you want to continue? 4 *%Gjl *B@ *B@ *%' R R R *%' R *%G *B@ jDeleting Current Linked Data... *B@4 *B@ *B@zUpdating DDE Link... *B@4 RV *B@T%Unlinking DDE Link for Print Merge... *B@4 *B@ *B@X *B@ *B@Z RA@P *B@DDDELink *B@2'Hi]X]p]'\@F60Waiting for Dynamic Data Exchange Link to Update' ( *%. (. ' ( ^ ^ ( *B@4 *B@D *%' R R R $' R%Unlinking DDE Link for Print Merge... *B@4 *B@ *B@Z RA@PKStore Link Information in Footer because Print Merge uses the main doc only0Storing DDE Link Information in Footnote Pane... *B@4l *B@ *B@ R *B@P *%G *B@ j *B@DDDELink *B@2'\6 i ] *%'@F6 *B@'J]F *!8%.  *!B@  *!B@ !`Text !`RTF@Updating the DDE link will delete the contents of your document. $R $R Do you want to continue? 4 *%G6j *B@ *B@z  *B@ !RGbj \'J6 d BWord can only paste link information of type 'Text' or type 'RTF'. *B@6 k b 'J6  *B@ix !Removing Contents of Data File... *B@4 *B@ *B@zEstablishing DDE Link... *B@4 RV *B@T%Unlinking DDE Link for Print Merge... *B@4 *B@ *B@Z RA@P0Storing DDE Link Information in Footnote Pane... *B@4KStore Link Information in Footer because Print Merge uses the main doc onlyl *B@ *B@ R *B@P *%G *B@ j *B@DDDELink *B@26H o@ p]]]@Fh'LMicrosoft Word *B@] &Class Name: *B@dq  ClassName *B@##L &Filename: *B@dq FileName *B@8U &Reference: *B@dq6 Reference *B@qP3 &Data Format *B@Format *B@j{\&Rich Text Format (RTF) *B@l{m&Unformatted Text *B@l X *B@P!X *B@ *B@]F *!!.ExcelWorksheet (n Sheet1.XLS (p R1C1:R2C2 (r  *!B@ !n !pGhj'  !p\  !p\'f !p f *%\ !p !p f *% (p f 'LINK !n  !p  ' R !rG R !r  ' Rj R\* mergeformat \a ' R ! R\r ' Rd R\t ' Rk@Updating the DDE link will delete the contents of your document. $R $R Do you want to continue? 4 *%Ghj RA@d'Lhi&Deleting Dynamic Data Exchange Link... *B@4'Nl *B@ *B@ *B@z *%G *B@ jDDELink *%:GDDELink> *B@2j'NiAttribute VB_Name = "LinkToExtDatabase" ' This macronages a DDE ` between an external applicPatio.d\Print Merge d file Rem Word 97 doXnot s@upportNfuncKs called from 16-bit librariHes.NThaeclarhascommenBt>out, cause t0 will geneeirror,avaD.e FK Regis}ClipboardFormatb "User"(ByV $ ) As pLong@yIs>AvailaxbleAB?BIqegerBn IsAppLoad@Li@kŀel" Ali"GetModuleHandleņn@DDDim$ FidM 3AZPaPub Sub MAIN() GA.DescrLip@Maxl~ to*xatD 0Proca! In`voke_aaaT0empld@ject.aj.A0 FcIfPL F@Aen Testh#A A ߃% `0rAŠh Basic.StatusB4ar c'! w9Success0ful.El~s !a C0ance f nd If E =ᲥcG%!AAyzing Curr A, a,.. @2-1ocuEx@@Not in@$aPanA4 )dD 1CountWindows()@30G,MsgBox "A npperf`{oàwith ^a@vƄ8 SelInfo(27)F?4@)ap)a AC@)CAd!BaB Bookm`ark("~Q"D_'36AJCF s/r"r(B1{/e%e(S yF> YPosButTTDl@y" hoic$8D?{8)8k dB8&#associp+d/8V$""" 6nIIP:cP^UpOb: Set VgVuᢽCa.W(j UZrdTcP C sWЖ1YsgFCT178 If FClipPasteLink Then FGetUserAction = Fb X0Else"|lManual @nd IfECase 2ValidA)"b`V3 V%3DeleAO.4[AS@ct LDone:D FunB Private Sub FPixUpAH($) jInStr, "Excel") > 0f nK\rǣWordBasic.StartOfDocumen$ARight` 1, 18HW6_EditCl8earC1B8ub 27 FUpd@6C32Dim 5 & @?nt&tu@sBar "ting Curr!( DDE ..." H0GMsgBox(F"thelAwill dwB cont@s of your dE." + Chr(13)J"Do! wan@t to c inue?", 5 2)! GoTo LQui`,NormalVi@ewHeadrea Type:=.FirstPag0, OdBd;EvenAs<:=`' 0JAlo*[`$ ](@/0Left", LenDN0 - 1 NNot G a()c'ClosePa~n:j ;ed Datac;gWkP &@G IntFieldn:="!YSUnHa for b MergNe$qeSNc&sIC> d6I|*Bookmark "Aj-@bWxG|Convert aM|Prompth$ x+F+f On E rr)"g-1: +bA `"Wai!0DynamicbI hant7>>櫕>aaFCSav< +RqVCodesa>>ZQ+!2gp8aFDlg As Object: Set !=?DialopgRec  Spec(Faj3@puesoBp.n~ "T@C" OrqRTF"v "78n0VA#]/;Q{1?0aQ#RetOK3*!Lf#'S  " canG p! .ibK@t '' a'b nL" u I8 |/6?7rQfXgSRemovSA*l?0ӥgϙOEstablishZ Y_m_m_m U^mP (Link$) WordBasic.PrintStatusBar "StoD@g DDE  Information in Footnote Pane..."( 'feZer becausfl Merge s the maVdoc only NwlViewHeaderArea Type:=1, Fi@rstPag 0, OddAndEvens:=0 IEditSelectAll WW2_Insert_$ If Not ?)() Then Close(rtOfDocu0ment BBookmark "LDone: End S@ub vBaFuncFPManual(Dim i : j_On Error GoTo -1: LFinishD I = KBeginDialog 528, 142, "MicrosofG@. GJText 15A , 93"&Class@ Name: B`ox 11 @u284 @" A &376Filen_3@2G 258A("&Referenc251GF 2GroupF@8@B 5B"&DataAOpx "FB e BHutt12,99 07&  ic h B7 (RTF) b 109%1 UnteNdb gDOKD41 @8`=21 R Ca@,lI3? e @fTc`Dlg As Obj@}: Set A=vurValu0es.U~lg.Na"Excel ksheet[.ES1p.XLSf<R1C1:R2C2 B " Orj"#"{xi 'Wh_Str(i,J w\") <>|,j@In61 [Left$]( , j) +0 "\"HRiDghoLen)\ -j2 end "LINK %4&+G3` "( +"&"\* m\ \a <`Ƃ!p]@04/r E8lseMAIf#)Msg ("Updngl will dconts of yoXur @"i.1C`hr(131"Do want to cinue?",P`) e(2}7 f-?@*4nmoJFD !nWriDy_ic RS;han`c yQ!rWW6_Clearooh&Exist%(&#P31('MEH &8 * "08 Xh" $ This macro is currently not in use. FOOTNOTE_BEG *B@ *B@ FOOTNOTE_END *B@0.5"$R  *B@0. NewTimesRoman *B@o( Attribute VB_Name = "Pd925InsertFileFmt" ' This macro currently not in use. Public Sub MAIN () WordBasic.EditGoTo Destination:="FOOTNOTE_BEGo 3xtendSelec.-RENDRFormatParagraph Rig`htIndjF0.5" + Chr(34aFont "NewTimesRoman", 8 End|  xME &@XFormat 920 checklist'TemplateProject.Std920ChecklistFmt.MAINxp "  (8X pL   0Pp   ChklstBreak *B@< *B@ CHKLSTEND *B@<Arial *B@make 4 columnsx40.25"$R  *B@delete a blank> ChklstBreak *B@< *B@L *B@zdelete column break CHKLSTSTART *B@< *B@zoxp˱Attribute VB_Name = "Std920ChecklistFmt" Public Sub MAIN() ".Descr@iptionF@ormat cnProcDataCInvoke_FuncCTemplate"ject..}WordBasic.WW7_EditGoTo tina:="ChklstBreak4ExtendSe&l2_ &HK@LSTEND%Font "Ari@al", 9'make 4 columns /C T4Spacing 0.25" + Chr(34),Line:=0, _ Sta`rtNew ApplysToh:=2Ddqa blank9TMCharRigh(t 1K6_Clear '? b_%XSTA$RTXWWH -@ EndA9 # ;xME &@p*reformat COL RPS cover page agency fields.hl(TemplateProject.COLreformatagencies.MAINX "$0" price_coll_agency *B@<)$0.2"$R 0"$R &0 li(0 li*0 li,.024 *B@ survey_resp_name *B@<\Pu)$0.2"$R 0"$R &0 li(0 li*0 li,.024 *B@  *B@oȱAttribute VB_Name = "COLreformatagencies" Public Sub MAIN() ".Description RPS cover p y fields.bMPro cDYInvoke_FuncYTemplateA"ject..WWordBasic.WW7_EditGoToB tinaU:="price_`coll_L FParagraph Alignment:=0, LeftInd"0.2" + Chr(34)@, Righ"@, Firs _ "0 BBeI0 liAfterLineSpacing  "P[BreakIKeepWi`thNexQT ogeth&1, No$Num  Hsurvey_resp_n@HHHHChar| 1 End\c xMEPd925ForeignRateFmt(WZPd925DomesticRateFmt* RecordManagementTools,Y\; Set_View_PrintPreview,n      !"#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmopqrstuvwxyz{|}~H & 8 " $ @$P xL&*(*X* *B@FOREIGN_RATES_BEG *B@ *B@FOREIGN_RATES_END *B@ NewTimesRoman *B@20.25"$R  *B@rdBa *B@2 inJ *B@2.45 inJ *B@2.85 inJ *B@3.05 inJ *B@o@8rAttribute VB_Name = "Pd925ForeignRateFmt" Public Sub MAIN()  WordBasic.View@Normal 2EditGoTo Destination:="FOREIGN_RATES_BEGg RExtendS0elec32WENDWFont "NewTimesRoman", 9/matColumns \2Spacing 0.25" + Chr(34),Line:=0, _,nStart< ApplysTo:=3@Tab?learAll:=1Posi2 ijAl:=2, SetQ'.4583.0@Q/End \cS xMEH &8! : @@" 2     (Z8     . Z8  Z$H p  0 . & 4 This macro is currently unused by the N_925 report.9 It was commented out and Replaced with Visual Basic Code. ________ Delete Excessive Header ____________s3 *B@ WordBasic.ViewZoom100 *B@ *B@ *B@ *B@_l0.25"$R 0.25"$R  *B@ *B@ *B@ *B@w *B@p *B@  ) ________ Setup Footer Reference ________s3 *B@h"l0.25"$R 0.25"$R  *B@ *B@Lݚ *B@ *B@ _ s4 *B@Hl0.25"$R 0.25"$R  *B@*See footnotes section *B@ *B@ , _______ Done: Go to Print Review Mode _____( WordBasic.EditGoTo Destination:="p1" WordBasic.FilePrintPreview 1o|Attribute VB_Name = "Pd925DomesticRateFmt" ' This macro currently unused by the N_| re port.lIt was comm^Pout and Replacwith Visual Basic Code@ Publ Sub MAIN() Rem _ DeleExcessive Header '6Word].EditGo To w# G<j$ Help Casek6oAttribute VB_Name = "RecordManagementTools" ' This macro displays a J8u rl8n tp Public Sub MAIN() .|DescriptionD \of_MPro cDataYInvoke_Fun"cYTemteA"ject.v.K,CDialog EndcPrivajoDim Choice M${gain: On Error GoTo -1: LDonWBasic@.BeginB @344, 1"Ճ]  PushButt40, 28 521, "&Add New 'C@=52 DeLleA76EHditd10-1!,Goto23 :@8F;Help8CancelH' I CGroupBox 2[$2&A"A}oseb aőDlg As ObA: Se$t = G CurValues.User H (Z@Sgct Ca@%31 ' ?!VAf CJ<2 @3H@q/4!(@1=/5!!@QMgmtdD}' IBf$z > 0enC0 ntStatusBarunnings(" +#$"...nPWW2_w%/ :=0, Run:=uSh`ow:=2cg=l 5bA@8'B?CIf B@bub  xME &@p'Macro created 07/16/99 by Frances Lewis*TemplateProject.Set_View_PrintPreview.MAINX"  ( .8 hp ! Set_View_PrintPreview.MAIN Macro( Macro created 07/16/99 by Frances Lewis J !(loxpAttribute VB_Name = "Set_View_PrintPrev0" Sub MAIN() ".zDescr@iptionMacro created 07/16/99 by Frances LewisVJProcDataVInvoke_FuncVTem plR"ject..Y' ' ! $V|ctiveWi ndow..T$ypwd @ End  xMESectionBreakContinuous.[]DatabaseManagementTools0 PROJECT_PROJECTwm  &@h"Macro created 06/30/99 by DonovaSJ"Normal.SectionBreakContinuous.MAINh"  ( *8 hp " SectionBreakContinuous.MAIN Macro# Macro created 06/30/99 by DonovaSJ Dl !>B@ophAttribute VB_Name = "SectionBreakContinuous" Sub MAIN(), ".|De`scriptM@acro cted 06/30/99 by DonovaSJProcDataQInvoke _FuncQNormal..AQ' ' " $zel.Range.I nsert Type:=wd7 End  DKG  =xME0 &@p*Display a menu of database managment tools,TemplateProject.DatabaseManagementTools.MAIN 8&@ P:` , >"@HP "X`hp x0,,.0H4x$. (8Xx"(P,h ,"0$X8 This macro displays a menu of Database Management ToolsA@8o(]]<@F6xlDatabase Management Tools *B@(&Add New Field *B@(4 &Sort Records *B@(L&Number Records *B@(d&Cleanup Database *B@(|&Link to Ext. Database *B@X&Help *B@(X *B@  Choose a Tool *B@ *B@]F *!!.  *!%' KT AddNewField AddNewField' :KT Sort Records SortRecords' :KT  Number Records NumberRecords' :KT  Clean Up a DatabaseCleanUpDatabase' :KT  Link to an External DatabaseLinkToExtDatabase' :KT  HelpDatabaseMgmtHelp' :n  Running Macro : ... *B@4 :@B *B@> G<j$ Help Casekx6poh`|Attribute VB_Name = "DatabaseManagementTools" ' This macro displays a Ju of v x z Public Sub MAIN()  .Descriptiona`d tMProcYInvoke _FuncYTemtejeclt.\ z.L|DDDialog 0 EnddPrxivakpDim Choice M$|gain: On Error GoTo -1:B LDonWordBasic@.BeginB 364, 168n,]  PushButt 40, 2@17 21&Add New Fiedld52Sort Rec*76Number%10.-Cleanupƞ-12M.Link Ext.",25AM08NHelpCancelD[ \ HGroupBox 2724*b"ose@ s@Dlg@ As Ob: Set = G CurValues.UserߣT cC(@ 6wSelf C[1 ' IIHC_o&B2A IqL}b3a+I#4bI Up`-%UpEI5EJa{xternal&K ToP1 6! L1MgmtP4 If!3 > 0`en