ࡱ> :<9Y fbjbjWW 8==f]4,|:$$$$$$$CCCCCC$2&jg$$$$$g$$:$$$$|T :N$& lHϿ.Fields you can add through the UI Date and Time CreateDate =  CREATEDATE \* MERGEFORMAT 6/5/00 1:22 PM Date =  DATE \* MERGEFORMAT 6/5/00 EditTime =  EDITTIME \* MERGEFORMAT 96 PrintDate =  PRINTDATE \* MERGEFORMAT 0/0/00 0:00 AM SaveDate =  SAVEDATE \* MERGEFORMAT 6/5/00 3:36 PM Time =  TIME \* MERGEFORMAT 3:37 PM Document Automation Compare =  COMPARE \* MERGEFORMAT Error! Missing test condition. DocVariable =  DOCVARIABLE \* MERGEFORMAT Error! Document Variable not defined. GoToButton =  GOTOBUTTON \* MERGEFORMAT  If =  IF \* MERGEFORMAT Error! Missing test condition. MacroButton =  MACROBUTTON \* MERGEFORMAT  Print =  PRINT \* MERGEFORMAT  Document Information Author =  AUTHOR \* MERGEFORMAT Paul Rohr Comments =  COMMENTS \* MERGEFORMAT  DocProperty =  DOCPROPERTY \* MERGEFORMAT Error! No property name supplied. FileName =  FILENAME \* MERGEFORMAT fields.doc FileSize =  FILESIZE \* MERGEFORMAT 69632 Info =  INFO \* MERGEFORMAT Error! Unknown info keyword. Keywords =  KEYWORDS \* MERGEFORMAT  LastSavedBy =  LASTSAVEDBY \* MERGEFORMAT Paul Rohr NumChars =  NUMCHARS \* MERGEFORMAT 366 NumPages =  NUMPAGES \* MERGEFORMAT 1 NumWords =  NUMWORDS \* MERGEFORMAT 90 Subject =  SUBJECT \* MERGEFORMAT  Template =  TEMPLATE \* MERGEFORMAT Normal.dot Title =  TITLE \* MERGEFORMAT 6/5/00 1:22 PM Equations and Formulas = (Formula) =  = \* MERGEFORMAT !Unexpected End of Formula Advance =  ADVANCE \* MERGEFORMAT  Eq =  EQ  Symbol =  SYMBOL \* MERGEFORMAT  Index and Tables Index =  INDEX \* MERGEFORMAT Error! No index entries found. RD [RefDoc] =  RD  TA [TOAEntry] =  TA  TC [TOCEntry] =  TC  TOA =  TOA \* MERGEFORMAT Error! Category number not found. TOC =  TOC \* MERGEFORMAT  Error! No table of contents entries found. XE [IndexEntry] =  XE  Links and References AutoText =  AUTOTEXT \* MERGEFORMAT Error! No AutoText entry specified. AutoTextList =  AUTOTEXTLIST \* MERGEFORMAT  Hyperlink =  HYPERLINK \* MERGEFORMAT Error! Hyperlink reference not valid. IncludePicture =  INCLUDEPICTURE \* MERGEFORMAT Error! Filename not specified. IncludeText =  INCLUDETEXT \* MERGEFORMAT Error! Filename not specified. Link =  LINK Error! No application specified. NoteRef =  NOTEREF \* MERGEFORMAT Error! No bookmark name given. PageRef =  PAGEREF \* MERGEFORMAT Error! No bookmark name given. Quote =  QUOTE \* MERGEFORMAT  Ref =  REF Error! No bookmark name given. StyleRef =  STYLEREF \* MERGEFORMAT Error! No style name given. Mail Merge Ask =  ASK \* MERGEFORMAT  Compare =  COMPARE \* MERGEFORMAT Error! Missing test condition. (NOTE: also in Document Automation) Database =  DATABASE \* MERGEFORMAT Error! Cannot open data source. FillIn =  FILLIN \* MERGEFORMAT  If =  IF \* MERGEFORMAT Error! Missing test condition. (NOTE: also in Document Automation) MergeField =  MERGEFIELD \* MERGEFORMAT Error! No bookmark name given. MergeRec =  MERGEREC \* MERGEFORMAT Merge Record # MergeSeq =  MERGESEQ \* MERGEFORMAT Merge Sequence # Next =  NEXT \* MERGEFORMAT  NextIf =  NEXTIF \* MERGEFORMAT  Set =  SET \* MERGEFORMAT  SkipIf =  SKIPIF \* MERGEFORMAT  Numbering AutoNum =  AUTONUM \* MERGEFORMAT  AutoNumLgl =  AUTONUMLGL \* MERGEFORMAT  AutoNumOut =  AUTONUMOUT \* MERGEFORMAT  BarCode =  BARCODE \* MERGEFORMAT  ListNum =  LISTNUM \* MERGEFORMAT  Page =  PAGE \* MERGEFORMAT 1 Rev[ision]Num =  REVNUM \* MERGEFORMAT 26 Section =  SECTION \* MERGEFORMAT 1 SectionPages =  SECTIONPAGES \* MERGEFORMAT 1 Seq[uence] =  SEQ \* MERGEFORMAT Error! No sequence specified. User Information UserAddress =  USERADDRESS \* MERGEFORMAT  UserInitials =  USERINITIALS \* MERGEFORMAT PR UserName =  USERNAME \* MERGEFORMAT Paul Rohr Fields you can add through the UI -- other data needed Private =  PRIVATE  PRIVATE  PRIVATE \* MERGEFORMAT  Other fields not in the UI Addin =  ADDIN \* MERGEFORMAT  Data =  DATA \* MERGEFORMAT  Empty =  \* MERGEFORMAT  Other fields not in the UI -- additional arg.s needed DDE =  DDE \* MERGEFORMAT Error! No application specified. DDEAuto =  DDEAUTO \* MERGEFORMAT Error! No application specified. FootnoteRef =  FTNREF \* MERGEFORMAT Error! No bookmark name given. Glossary =  GLOSSARY \* MERGEFORMAT Error! No AutoText entry specified. Import =  IMPORT \* MERGEFORMAT Error! Filename not specified. Include =  INCLUDE \* MERGEFORMAT Error! Filename not specified. Embed FormCheckBox FormDropDown FormTextInput HTMLActiveX OCX Subscriber "#1?@\]kltu-.67MNUVXlwx0178LMkl{| ()89VWxy55mHmH jU>*CJ5CJ\"#12m/WXlm2m*z@"#12m/WXlm2m*z@x R  1 2 C D  & R k l O e =>IJh?$_Co 3e  c#$>?NOlmvw    * + E F P Q Z [ r s     / 0 2 C L M d e  jU5mH>*CJ5mH jUZ@x R  1 2 C D  & R k l      $ % & P Q d e i j l ' ( M N ` a   * + D E c d o p  ;<5>*CJmH5mH jU jUZ O e =>IJh?$_<>IPQfgrs$%=>DEYZxy"#/0JK]^fg}~$%ABPQmnyzmH5mH jU>*CJ^Co 3eNOP$@ABx  /012BCabcdrs'(BCLMP  "#,->?Bx &'EFRSmn5 jU5CJ>*CJ5mH jUmHYNOP$@ABxyG"/<JVZef "xyG"/<JVZeff5 jU / =!"#$% [$@$NormalmH <A@<Default Paragraph FontTOC 1f8 <f@ xff?\kt-6MUw07Lk{ (8Vx#>Nlv*EPZr /Ld$P 'M` * D c o   ; P f r  $ = D Y x  " / J ] f }  $ A P m y  /1Bacr'BL ",> &ERmf P@230UE"T19I OYXCD8H%# &PN';,K)*+654?Z!AB >=<Q(-./7$2<mx*5z@KxV`lqO] ' e l   ! $ ,   ! C M o v 3?ehin$kp "./;<IJUhl eih Paul RohrC:\My Documents\fields.doc Paul Rohr/C:\windows\TEMP\AutoRecovery save of fields.asd Paul Rohr/C:\windows\TEMP\AutoRecovery save of fields.asd Paul Rohr/C:\windows\TEMP\AutoRecovery save of fields.asd Paul Rohr/C:\windows\TEMP\AutoRecovery save of fields.asd Paul Rohr/C:\windows\TEMP\AutoRecovery save of fields.asd Paul Rohr/C:\windows\TEMP\AutoRecovery save of fields.asd Paul Rohr/C:\windows\TEMP\AutoRecovery save of fields.asdn]Dhh))88)()()pp()  .@ @ .  .n]D n]DT n]D? \ ))"8=0)#()<b()te@().'.(.= .=.="8=0.4>#)l>b()>e@()>()?'()L?(()8 .t.."8=0...#....b .....$e@ ......p .......' ........p( .........V88 Project.NewMacros.PopulateFields PROJECT.NEWMACROS.POPULATEFIELDS@ll"llf@@GTimes New Roman5Symbol3& Arial"qhV+F&/,F&!HZ$20dWf6/5/00 1:22 PM Paul Rohr Paul RohrOh+'0d   , 8DLT\6/5/00 1:22 PM/5/ Paul Rohr2 aulNormalh Paul Rohr2 33lMicrosoft Word 8.0@U@d+Ͽ@r]WHϿH՜.+,D՜.+,T hp  Dell Computer Corporation00j 6/5/00 1:22 PM Title 6> _PID_GUIDAN{16450C67-3AE6-11D4-8AF7-F70D2AFC3443}  !"#$%&'(*+,-./02345678;?>@QABCDEPGHIJKLMNO~STUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}Root EntrymmaryInformationNote F% /Ͽ lHϿ=1TableWordsPagePage@&GϿ`GϿWordDocumentuoteRefRe@&GϿ`GϿ8ctSummaryInformationSequen(Set Sk)ylDocumentSummaryInformation81 Macros%&'()*+,-./0 lHϿ lHϿ?VBACEFGHIJKLMNOP lHϿ lHϿ_dir  !"#$%&'()*+,-./0123456789:;<=?ABCEFGHIJKLMNOPQRSTUWXYZ[]_ڲ0* pHdProjectQ(@= l Z"<9 J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Autom`ation^mMSForms> MSFErmsh/z pF1D0388A3-C253-11D1-8AF6-8380D51AEVF3.TWD#Microsoft = ` Ob Library9P0rP30050HD2265P2PC8B6D28 41B32Pc:\windows\JP\VBE\ (EX(.E .`M CxN@UTalCxNTax + ,C @I+6OPfficDO@fPicB~G{2DF8D04C-5BFA-101B-BDE5AAA@4=@PROGRAM FILES=OFFICE\MSO97.DLLHi! 8.0i"ttBThisDocumentN2@/Th@4sDGcu(en@ HB1B,Bvt"%B+BQNe(wMaA2 @ NNwMJa@Qrs/ bO/ pt!b # bK)^ *\CNormalrU~~~~~~~~~j  E: *4C   A Y__SRP_0 C __SRP_1>\__SRP_2 F__SRP_3@1 x E: *4Cy ThisDocument NewMacrosProjectF=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLLVBA  1( F ,C:\Program Files\MSOffice\Office\MSWORD8.OLBWord ! I80FC:\WINDOWS\SYSTEM\stdole2.tlbstdole !IHSC:\WINDOWS\SYSTEM\MSForms.TWDMSForms 1yX.E .`M " 0eȶ҄2c:\windows\TEMP\VBE\MSForms.EXD 9yhL-[DR *C:\PROGRAM FILES\MSOFFICE\OFFICE\MSO97.DLLOffice ax PromptField PopulateFieldPromptPopulateFields  DocVariable EditTime !Fields you can add through the UI  Advance Ask Author AutoNum AutoNumLegal AutoNumOutline AutoText AutoTextList BarCode Comments Compare CreateDate Database Date DocProperty FileName FileSize FillIn GoToButton Hyperlink If IncludePicture IncludeText Index Info KeyWord LastSavedBy Link ListNum MacroButton MergeField MergeRec MergeSeq Next NextIf NoteRef NumChars NumPages NumWords Page PageRef Print PrintDate Private Quote Ref RevisionNum SaveDate Section SectionPages Sequence Set SkipIf StyleRef Subject Symbol Template Time Title TOA TOC UserAddress UserInitials UserName Other fields in the UI Eq RD TA TC XE Other fields not in the UI Addin Data DDE DDEAuto Embed Empty Expression FootnoteRef FormCheckBox FormDropDown FormTextInput Formula Glossary HTMLActiveX Import Include IndexEntry OCX RefDoc Subscriber TOAEntry TOCEntry FA FAu F  = 0 FXrU sfieldorU~} j  9 i  9  Y y A y ! A !Q)i 9i9i!A1i 9i1qa 9a QI)Iy iT+ hdx"d$e <fx g/dx!hx"d$e <fx gx T$ dxhtx"d$e <fx gD'H'Xl Qt[hlp"d$e <fp gl Li) xphlD6XHx"d$e <fx $gx8$ ,xtplhDXHP+ hdx"d$e <fx g/dxx"d$e <fx $gxP$ dx  :lN\\ 5\:lN\\ 5\:lN\\ 5\\T 5\:lN\\ 5\\& 5\:lN\\ 5\\ 5\:lN\\ 5\\6 5\:l N\\ 5\\5 5\:l N\\ 5\\4 5\:l N\\ 5\\O 5\:l N\\ 5\\Y 5\:l N\\ 5\\? 5\:lN\\ 5\\ 5\:lN\\ 5\\P 5\:lN\\ 5\\ 5\:lN\\ 5\\N 5\:lN\\ 5\\ 5\:lN\\ 5\\U 5\:lN\\ 5\\@ 5\:lN\\ 5\\ 5\:lN\\ 5\\ 5\:lN\\ 5\\E 5\:lN\\ 5\\' 5\:lN\\ 5\\2 5\:lN\\ 5\\X 5\:lN\\ 5\\ 5\:lN\\ 5\\C 5\:lN\\ 5\\D 5\:lN\\ 5\\ 5\:lN\\ 5\\ 5\:l N\\ 5\\ 5\:l!N\\ 5\\ 5\:l"N\\ 5\\8 5\:l#N\\ 5\\Z 5\:l$N\\ 5\\3 5\:l%N\\ 5\\; 5\:l&N\\ 5\\, 5\:l'N\\ 5\\K 5\:l(N\\ 5\\) 5\:l)N\\ 5\\* 5\:l*N\\ 5\\H 5\:l+N\\ 5\\ 5\:l,N\\ 5\\ 5\:l-N\\ 5\\ 5\:l.N\\ 5\\! 5\:l/N\\ 5\\% 5\:l0N\\ 5\\0 5\:l1N\\ 5\\ 5\:l2N\\ 5\\M 5\:l3N\\ 5\\# 5\:l4N\\ 5\\ 5\:l5N\\ 5\\ 5\:l6N\\ 5\\ 5\:l7N\\ 5\\A 5\:l8N\\ 5\\B 5\:l9N\\ 5\\ 5\:l:N\\ 5\\ 5\:l;N\\ 5\\+ 5\:l<N\\ 5\\ 5\:l=N\\ 5\\ 5\:l>N\\ 5\\9 5\:l?N\\ 5\\ 5\:l@N\\ 5\\ 5\:lAN\\ 5\\ 5\:lBN\\ 5\\I 5\:lCN\\ 5\\ 5\:lDN\\ 5\\> 5\:lEN\\ 5\\= 5\:lFN\\ 5\\< 5\:lGN\\ 5\:lN\\ 5\:lHN\\ 5\:lIN\\ 5\:lJN\\ 5\:lKN\\ 5\:lLN\\ 5\:lMN\\ 5\:lN\\ 5\:lNN\\ 5\\Q 5\:lON\\ 5\\( 5\:lPN\\ 5\\- 5\:lQN\\ 5\\. 5\:lRN\\ 5\:lSN\\ 5\\ 5\:lTN\\ 5\\" 5\:lUN\\ 5\\ 5\:lVN\\ 5\:lWN\\ 5\:lXN\\ 5\:lYN\\ 5\\1 5\:lZN\\ 5\\/ 5\:l[N\\ 5\:l\N\\ 5\\7 5\:l]N\\ 5\\$ 5\:l^N\\ 5\\ 5\:l_N\\ 5\:l`N\\ 5\\ 5\:laN\\ 5\:lbN\\ 5\\J 5\:lcN\\ 5\\ 5\b $ \\rU (`a/(`q/(`a/$`p<w E: *4C/Sgl/t<v E: *4Cxlttvtv E: *4Cw E: *4C4NewMacros RVThisDocumentDj_VBA_PROJECTPROJECTV}xttptOPLLLLL> Z"<9"*\Rffff*3393c2916*\R1*#104*\R1*#103*\R1*#d4*\R1*#129*\R1*#c1*\R1*#17b*\R1*#5c $0$$$$$ `|Hs.Po$$p@$`x $$$(($$$$$$$$$$@(I hX@$DFHJL$$8H $$$@l 0I 8(i 0 P `8 DkX`\ @`8 dk `8 dkX `p(08RTVXZ^phjprtX@( ( X20 @B\b00 (nv~OW ~LEX   @x m@h 50D2@d 6D28   @x @h FA-1@d 2}#2 h  @ x @ t New@8 p s2@P l @ h @ X @H ("Nu@D hars ME" `+!ph " "h 0 " '+' ''"   *8 h .' ( ' (h( (( (( (( )8) P)`) x)) )) )* * X*0 h** * *p *@+ X+x+ ++ ++ ,! ,P, h,x, ,, ,, ,- (-8- P-`- x-@# 8$- -- -(. @.p$ .. .. ./  /x/ /% /% /& 00 (080 P0& 0' 00 00 0   2>3 3 H( 2) 2) X3 h3P x33 3 34 4H  404 H4  X4+ h4(, x4, 4- 4. 4P. 40/ 44 4/ 4`0 5    3" 3 H3x*p.//0   2&1 8(     ( @ &01     .`1 .1 .1  8H ` ,2    8    0# $@2H$ `$% ,p2& && ' 58lp PopulateFields Macro# Macro recorded 6/5/00 by Paul Rohr DA@late HA@late JA@dAsk B@, !&& (nDATE f* !"B@$ FA@8{G LA@ 0!2'4 !"B@$ NA@late \A@ ^A@d(wd `A@ate dA@ fA@d(wd@ PA@d(*) pA@late rA@dExp tA@ zA@late |A@dFor ~A@d(*) A@late A@dIf RA@d(*) A@late A@dInd A@ A@late A@dLis A@ A@late A@dNex A@ A@late A@dPri A@ A@late A@dRef TA@d(*) A@late A@dSet VA@d(*) A@late A@dSub A@ A@late A@dUse XA@late ZA@dAdvl@ bA@late hA@ jA@d(wd lA@dTOC B@,ldUser (A@late nA@( vA@d(wd xA@Outl A@ A@d(wd A@late A@ A@d(wd A@late A@ A@d(wd A@late A@ A@d(wd A@erty A@ A@d(wd A@ete A@ A@d(wd A@ete A@ A@late A@dPri A@ A@d(wd A@tInp A@ A@d(wd A@ton A@ A@d(wd A@nkte A@( A@d(wd A@Pict@ !&& n !"B@$ction.  B@ =  B@- PopulateField ("Advance", wdFieldAdvance)% PopulateField ("Ask", wdFieldAsk)+ PopulateField ("Author", wdFieldAuthor)- PopulateField ("AutoNum", wdFieldAutoNum)7 PopulateField ("AutoNumLegal", wdFieldAutoNumLegal); PopulateField ("AutoNumOutline", wdFieldAutoNumOutline)/ PopulateField ("AutoText", wdFieldAutoText)7 PopulateField ("AutoTextList", wdFieldAutoTextList)- PopulateField ("BarCode", wdFieldBarCode)/ PopulateField ("Comments", wdFieldComments)- PopulateField ("Compare", wdFieldCompare)3 PopulateField ("CreateDate", wdFieldCreateDate)' PopulateField ("Data", wdFieldData)/ PopulateField ("Database", wdFieldDatabase)' PopulateField ("Date", wdFieldDate)% PopulateField ("DDE", wdFieldDDE)- PopulateField ("DDEAuto", wdFieldDDEAuto)5 PopulateField ("DocProperty", wdFieldDocProperty)5 PopulateField ("DocVariable", wdFieldDocVariable)/ PopulateField ("EditTime", wdFieldEditTime)) PopulateField ("Embed", wdFieldEmbed)) PopulateField ("Empty", wdFieldEmpty)3 PopulateField ("Expression", wdFieldExpression)/ PopulateField ("FileName", wdFieldFileName)/ PopulateField ("FileSize", wdFieldFileSize)+ PopulateField ("FillIn", wdFieldFillIn)5 PopulateField ("FootnoteRef", wdFieldFootnoteRef)7 PopulateField ("FormCheckBox", wdFieldFormCheckBox)7 PopulateField ("FormDropDown", wdFieldFormDropDown)9 PopulateField ("FormTextInput", wdFieldFormTextInput)- PopulateField ("Formula", wdFieldFormula)/ PopulateField ("Glossary", wdFieldGlossary)3 PopulateField ("GoToButton", wdFieldGoToButton)5 PopulateField ("HTMLActiveX", wdFieldHTMLActiveX)1 PopulateField ("Hyperlink", wdFieldHyperlink)# PopulateField ("If", wdFieldIf)+ PopulateField ("Import", wdFieldImport)- PopulateField ("Include", wdFieldInclude); PopulateField ("IncludePicture", wdFieldIncludePicture)5 PopulateField ("IncludeText", wdFieldIncludeText)) PopulateField ("Index", wdFieldIndex)3 PopulateField ("IndexEntry", wdFieldIndexEntry)' PopulateField ("Info", wdFieldInfo)- PopulateField ("KeyWord", wdFieldKeyWord)5 PopulateField ("LastSavedBy", wdFieldLastSavedBy)' PopulateField ("Link", wdFieldLink)- PopulateField ("ListNum", wdFieldListNum)5 PopulateField ("MacroButton", wdFieldMacroButton)3 PopulateField ("MergeField", wdFieldMergeField)/ PopulateField ("MergeRec", wdFieldMergeRec)/ PopulateField ("MergeSeq", wdFieldMergeSeq)' PopulateField ("Next", wdFieldNext)+ PopulateField ("NextIf", wdFieldNextIf)- PopulateField ("NoteRef", wdFieldNoteRef)/ PopulateField ("NumChars", wdFieldNumChars)/ PopulateField ("NumPages", wdFieldNumPages)/ PopulateField ("NumWords", wdFieldNumWords)% PopulateField ("OCX", wdFieldOCX)' PopulateField ("Page", wdFieldPage)- PopulateField ("PageRef", wdFieldPageRef)) PopulateField ("Print", wdFieldPrint)1 PopulateField ("PrintDate", wdFieldPrintDate)- PopulateField ("Private", wdFieldPrivate)) PopulateField ("Quote", wdFieldQuote)% PopulateField ("Ref", wdFieldRef)+ PopulateField ("RefDoc", wdFieldRefDoc)5 PopulateField ("RevisionNum", wdFieldRevisionNum)/ PopulateField ("SaveDate", wdFieldSaveDate)- PopulateField ("Section", wdFieldSection)7 PopulateField ("SectionPages", wdFieldSectionPages)/ PopulateField ("Sequence", wdFieldSequence)% PopulateField ("Set", wdFieldSet)+ PopulateField ("SkipIf", wdFieldSkipIf)/ PopulateField ("StyleRef", wdFieldStyleRef)- PopulateField ("Subject", wdFieldSubject)3 PopulateField ("Subscriber", wdFieldSubscriber)+ PopulateField ("Symbol", wdFieldSymbol)/ PopulateField ("Template", wdFieldTemplate)' PopulateField ("Time", wdFieldTime)) PopulateField ("Title", wdFieldTitle)% PopulateField ("TOA", wdFieldTOA)/ PopulateField ("TOAEntry", wdFieldTOAEntry)% PopulateField ("TOC", wdFieldTOC)/ PopulateField ("TOCEntry", wdFieldTOCEntry)5 PopulateField ("UserAddress", wdFieldUserAddress)7 PopulateField ("UserInitials", wdFieldUserInitials)/ PopulateField ("UserName", wdFieldUserName)@) PopulateField ("Addin", wdFieldAddin)l  B@ B@,ll( PassString (t, "addin")lP =  B@"add BA@ptFiAddinA@ulateF BA@dAddDatabaseA@L DA@AskA@ FA@LAuthorA@L HA@LAutoNumA@ JA@ AutoNumLegalA@ LA@LAutoNumOutlineA@L NA@LAutoTextA@ PA@ AutoTextListA@ RA@BarCodeA@L TA@LCommentsA@ VA@CompareA@ XA@ CreateDateA@L ZA@+LDataA@ \A@ ^A@A@ ^A@DateA@ `A@LDDEA@ bA@DDEAutoA@ dA@5L DocPropertyA@ fA@oL DocVariableA@ hA@EditTimeA@L jA@LEmbedA@LEmptyA@ (A@ ExpressionA@ nA@CLFileNameA@]L pA@+LFileSizeA@vL rA@FillInA@ tA@L FootnoteRefA@ vA@ FormCheckBoxA@ FormDropDownA@ FormTextInputA@?LFormulaA@L ~A@GlossaryA@,L A@ GoToButtonA@L A@ HTMLActiveXA@ HyperlinkA@L A@LIfA@L A@kLImportA@LL A@,LIncludeA@ A@LIncludePictureA@LL A@ IncludeTextA@ A@LIndexA@L A@ IndexEntryA@L A@LInfoA@ A@LKeyWordA@ A@L LastSavedByA@ A@LLinkA@ A@ListNumA@L A@L MacroButtonA@ A@_L MergeFieldA@ A@MergeRecA@iL A@LMergeSeqA@L A@LNextA@ A@WLNextIfA@LL A@LNoteRefA@L A@LNumCharsA@L A@LNumPagesA@ L A@NumWordsA@ A@OCXA@PageA@ A@LPageRefA@:L A@LPrintA@LL A@/L PrintDateA@L A@PrivateA@2L A@QuoteA@L A@LRefA@ A@LRefDocA@LL A@ RevisionNumA@ A@LSaveDateA@ A@SectionA@ A@ SectionPagesA@ A@SequenceA@ A@SetA@ A@SkipIfA@ A@StyleRefA@ A@SubjectA@ A@ SubscriberA@SymbolA@ A@TemplateA@ A@TimeA@ A@TitleA@ A@TOAA@ A@TOAEntryA@ A@TOCA@ A@TOCEntryA@ A@ UserAddressA@ A@ UserInitialsA@ A@UserNameA@ A@ l'  B@ B@, !Fields you can add through the UIA@AdvanceA@dd t DA@IA@doA@*A@eldsAskA@ FA@NDOWAuthorA@lb#OLE HA@AutoNumA@MS JA@z AutoNumLegalA@ LA@D51AAutoNumOutlineA@TEM\MS NA@crosAutoTextA@ Lib PA@ AutoTextListA@ RA@*\GBarCodeA@8AF6 TA@2}#2CommentsA@\VBE VA@#MicCompareA@ect XA@.E CreateDateA@N ZA@orDateA@ `A@*\ fA@ DocVariableA@ hA@*\G jA@FA-1 pA@A004EqA@:\FileSizeA@CE\O rA@DLL# tA@fice A@Libr A@IfA@T A@ $ A@0s IncludeTextA@ A@IndexA@ A@ A@ KeyWordA@ A@ LastSavedByA@ A@0000LinkA@ A@#0#CListNumA@ole2 A@omatp* A@ MergeFieldA@ A@MergeRecA@ A@MergeSeqA@ A@NextA@ A@NextIfA@ A@NoteRefA@ A@NumCharsA@ A@NumPagesA@ A@NumWordsA@ A@PageRefA@ A@PrintA@ A@ PrintDateA@ A@PrivateA@ A@QuoteA@ A@RefA@ A@RDA@Other fields in the UIA@ A@SaveDateA@ A@SectionA@ A@ SectionPagesA@ A@SequenceA@ A@SetA@ A@SkipIfA@ A@StyleRefA@ A@ A@ A@TAA@TCA@ A@TimeA@ A@TitleA@ A@TOAA@ A@ A@ A@ UserInitialsA@ A@UserNameA@ A@XEA@Other fields not in the UIA@' PopulateField (wdFieldEmbed)1' PopulateField (wdFieldFormCheckBox)1' PopulateField (wdFieldFormDropDown)1( PopulateField (wdFieldFormTextInput)1& PopulateField (wdFieldHTMLActiveX)2 PopulateField (wdFieldOCX)@2% PopulateField (wdFieldSubscriber)X2A@H2A@2A@ FA@elds PA@A@A@A@Other fields in the UIA@A@ XA@ou c ^A@gh t fA@1Fields you can add through the UI -- args. neededA@ DocVariableA@ hA@ A@IfA@ A@ A@ IncludeTextA@ A@ A@ A@ A@ A@ A@ A@ A@ A@SetA@ A@ A@ A@0[Attribute VB_Name = "NewMacros" Sub PromptField@(s) Selection.TypeTex4t 6"vEn$d opulate\fb As Variantk&s.Add RangeL:=, :=IParagraph rO0p)ms(f' ' P   recorded 6/5/00 by Paul RohrGi (" you can athrough the UI~" $B@Advance + (wd  uthorpoNum LpegalbB O utlinDut$ List_&E BarCod$ CommpentsSre@wD`!REditTim RFile[VSizAUlIn~`GoToButto\IndexBKeyW@LastSavedBy k>ap3B)ld ergeRecMWSeq_eR~N`I~f`3umCharOF~d`R/#Page/-R/#)/-R/ _Yrin^P!R&_RC"QuotI"Revisp@ =  U/!#ySC Tkip14TS2ubj  Cymb>oK 2Temp U/!?wsf)ytls) Ti OfC_ Z OCUserresInitial]1 Q #Y^(s -- args. neePv Ã4."AskO?@AYU/ ppar?/$DHab|asU/!ocpert[b?1DDocHrf) y PromptField (@"If") o@pulatedw2d Ifx ncludePict8ure VNText"K(HfoAfoLinkÁMerg #NoteRe Pag  riv[1P /SequxencE SDettylMSD TOAMIFO@ther fs in  UI EqRD&TGTCXEEtmnot  d"AddinFBr2Data{!SDPDDEAut\  'Embezd'´b2EyBxpressio-EFoot@>i FormCheckBox!IDropDow?bx*EInpuf Y! `4Glosxsar<J@+HTMLActiveXTImporV:32CdexEnt6ujOC?lDoc 3=Subscriber$ (d doU/"C//OCS End ` (S"SS"6"(1Normal.ThisDocumentZ"<9$*\Rffff*2e393c17f9 ($H0hXK $ $1 $p@8MExAttribute VB_Name = "ThisDocument" Bas1Normal.VCreatabl`False PredeclaIdxTru "ExposeTemplate Deriv$CustomizcID="{16450C68-3AE6-11D4-8AF7-F70D2AFC3443}" Document=ThisDocument/&H00000000 Module=NewMacros Name="Project" HelpContextID="a^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.0#409#C:\Program Files\MSOffice\Office\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation*\G{1D0388A3-C253-11D1-8AF6-8380D51AE002}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{30050D22-0065-11D2-8AF6-C8B6D2841B32}#2.0#0#c:\windows\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\CNormal*\CNormalI+6*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\PROGRAM FILES\MSOFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object LibraryZ"<9ttThisDocument 2e393c17f9*DvtNewMacros 3393c2916*DptO8c E: *4Ce E: *4CH; As=DimCEachRfSubVariant Wordk VBAWin16~Win32MacProject1  stdole`MSFormsC ThisDocument< _EvaluateNormal(Officeu Project-Module1b NewMacrosj(PopulateFields* SelectionZFields7AddrRange  wdFieldEmptyPreserveFormatting= TypeParagraph Documentj WdFieldTypeCount0vi`_B_var_i eacgt _B_var_ForjLMsgBoxR_B_var_f _B_var_Count: wdFieldAddinkwdFieldAdvance wdFieldAsk"/ wdFieldAuthor?wdFieldAutoNumOwdFieldAutoNumLegal>wdFieldAutoNumOutlinewdFieldAutoTextpwdFieldAutoTextListwdFieldBarCodelwdFieldCommentswdFieldComparewdFieldCreateDate wdFieldDatawdFieldDatabase wdFieldDate  wdFieldDDE<wdFieldDDEAutoNwdFieldDocPropertywdFieldDocVariableMwdFieldEditTimeiB wdFieldEmbedwdFieldExpressionwwdFieldFileNamedwdFieldFileSizem wdFieldFillInjwdFieldFootnoteRef| wdFieldFormCheckBoxwdFieldFormDropDowntwdFieldFormTextInputk\wdFieldFormulaswdFieldGlossary8wdFieldGoToButtonwdFieldHTMLActiveXwdFieldHyperlink@ wdFieldIf wdFieldImportmwdFieldInclude wdFieldIncludePicture3wdFieldIncludeText wdFieldIndexwdFieldIndexEntry wdFieldInfowdFieldKeyWordUQwdFieldLastSavedBy> wdFieldLink)?wdFieldListNum0wdFieldMacroButton9wdFieldMergeField`wdFieldMergeRec|wdFieldMergeSeqO wdFieldNext wdFieldNextIf7wdFieldNoteRefGwdFieldNumCharswdFieldNumPages wdFieldNumWordsl. wdFieldOCXw wdFieldPage*wdFieldPageRef  wdFieldPrintwdFieldPrintDatewdFieldPrivate wdFieldQuote wdFieldRef wdFieldRefDocWwdFieldRevisionNum wdFieldSaveDatewdFie+{wdFieldSectionQwdFieldSectionPageswdFieldSequence? wdFieldSetg wdFieldSkipIf[jwdFieldStyleRef3wdFieldSubjectZwdFieldSubscriber% wdFieldSymbol_wdFieldTemplate0 wdFieldTimell wdFieldTitleq wdFieldTOAwdFieldTOAEntry$: wdFieldTOC!wdFieldTOCEntrygwdFieldUserAddress_ywdFieldUserInitialsEwdFieldUserName3 (PopulateFielde,field3wdFieldPrintDate0'VSARIANT  _B_var_SubTypeTextsjast2u _B_var_StringӊAddInexPass PassStringtk_B_var_tfooVParkmeQpark~_B_var_variant(Promptm (PromptFieldRPro? _B_var_ProPyoucanD}throughithe'UIg_l   $@ 0" CMG="383AEF15F315F315F315F3" DPB="B9BB6E936F936F93" GC="3A38ED8E6F8F6F8F90" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=22, 22, 836, 479, C NewMacros=66, 66, 880, 523, Z ThisDocumentThisDocumentNewMacrosNewMacros  FMicrosoft Word Document MSWordDocWord.Document.89qPROJECTwm\GCompObj^jObjectPool lHϿ lHϿ