ࡱ>   xskwM bjbj== " WWl <#^<^<^<^<^<^<$= ?<<<< !# 0jw< <0<? ?  1h/ =!"#$% s fg !"#.%&'()*+,-:0123456789;<=>?@ABCESGHIJKLMNOPQRDTUVWXYZ[\]^_`abcdehijklmnoprtmuvwz{|}~Root Entry Fw< WordDocumentMacrosKL0Pf&w<0jw<VBAJ&w<Pw<ThisDocument,__SRP_22__SRP_23BStatusForm)u  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIKLMNOPRSTUVWXYZ[\]^_`abcdefghijklmopqrstuvwxyz{|}~Dr#<rMFXAۘS  F4iJ{ۛgx4iJ{ۛgrMFXAۘS ME(SLSS6"N0{00020906-0000-0000-C000-000000000046}(%H0h % %8p@@8<$*\Rffff*0<3ce4d89f4xAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2rU #` a 4 a) `rU "@n      p $ "% & ( "%$  *',k0o(@ 2 "% (0 6 "% 4(0A : "% 8(0Mi > "% <(0 B "% @(01 F "% D(0NT J "% H(04 N "% L(0- R "% P(03 V "% T(0 Z "% X(0 ^ "% \(0 b "% `(0 d(0 h "% f(0 f(j f(l p "% n(0 n(j n(l t "% r(0 r(j r(l x "% v(0 v(j v(l | "% z(0 | "% ~(0 | "% (0 | "% (0 | "% (0 | "% (0 | "% (0 | "% (0 | "% (0 (0 (0 \(j 8(j <(j D(j H(j L(j P(j T(j X(j d(j z(l ~(l (l (l (l (l (l (l (l (lA@o( $Attribute VB_Name = "StatusForm"D Bas0{1464C6F4-DCBE-4F80-84F2-19316EDA3B98}{C9C77D7C-566B-4819-B1A2-BB44389EB3F4} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD  P! Sub CancelButton_Click()  On Error ResuNext If (MsgBox(pSngs.Get(pdfMakerWarningConfirm0), vbY@esNo, Adpp)))` ThenC#bs/nt@OEnd If @59 9User_Activ>8CW9Me.Caption,C DM)S >$Bookmarks D InternetLin DPageLabeld XReBfXrefDFootnoteL%CeDocX$T\N`"h`dD`Info=!EistillerParavmDD @yuctur^+;@s"t+[PctDon [ .EnaGmVisiJ'!VN$I8w?(Id~ ?E + QO PS%r`)KjcSearchksoooA%BH///!PoooB=?x{/!N__/"N'f???1s$M///!W ENlU_r*KKs4);/v(v7Hq#!s#j9?e.AZ"o`;/ 9op 7/ 5/!3 1 .?1{@Entry5ڶf*133ce4d8a0*\R5*#16*\R0*#1*\R0*#14*\R0*#2$*\Rffff*103ce4d8a0__SRP_24$__SRP_25ArticleThreads&/c5AutoExec"F#BrU $$$`$A$`n i 41rU~| '&$+)Y)>>>!?I?q??) @B1@@@@AqAA)BQBX9a C)( t CGѻ^tGCPɶd܀O1n;|}kVHD8oͤjG'/CxoͤjG'/C^tGCPɶMEH@SPSSS6"  LLLL @l @H\ @0L @< @, @( @$ <B@FDJHNLRPVTZX^\b`dhfpntrxv|z~@(<$*\Rffff*0=3ce4d8a0*\R5*#9$*\Rffff*133ce4d8a0*\R5*#16*\R0*#1*\R0*#14*\R0*#2$*\Rffff*103ce4d8a0*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26$*\Rffff*1=3ce4d8a048<@DHLPTX\`dhlptx|R "0n@HP "X `/h99999999(9@9X9p9  9   9   9  8 H 9X p  9999999 989P h x             ( 8 H X h xh]]]]]]]](]@]X]p]]]'''('Set theDoc = Application.ActiveDocument !!'  '  !%. !l  !!. B@H !.  !. There's more than one element of this thread.8 Or, this could be the second or third (or fourth, etc.)7 text box of a chain we already traversed. If .Previous* is Null, this is the beginning of a chain !'  ' 2 Enumerate the linked text boxes that contain text ! !.  3 Get the title of this bead. Use the first sentence B@H  B@   B@ !d'kA@ ,Gzj B@H  B@ !' !  !  ' %' !'  !!!!'  G'j   'k ! ! '  !!!'  G'j   'k B@H  B@ " $ B@  "  B@  !!!!'  G'j: See if we need to make the selection visible by moving it !  !  B&kp ( !  !(  * '7 To figure out how wide this column is, we have to look" at the right extent of each line. B@HV xRight = Utilities.XCoordinateOfSelection + tf.MarginRight ' !'  B@' ,(. !0  !0   !0' 4 B@2 " B@  !'   G 'j " B@A@ ,Gzj0 ,(. zk  $(  $( I BeadList(numBeads).SrcRect.left = yBottomF BeadList(numBeads).SrcRect.top = xLeft] BeadList(numBeads).SrcRect.right = yBottom + (yBottom - yTop)J BeadList(nrU % h i y) i 41Y81<1)@1QD1yH1L1P1 T1 X11\1Q `y` $d1h1il1p1t1Ax1Q|1i1110`I$1111119y$W$Knl %"XL< %"X''`FL`F ^6 L |z$ $L K/l %"XL`F<%,6L<9l %"XL`#$(! ( 0/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L(! ( @(9l %"XL`#$(! ( @/$(5L(! ( H((! ( (9l %"XL`#$(! ( @/$(5L(! ( H((! ( (9l %"XL`#$(! ( @/$(5L(! ( H((! ( (9l %"XL`#$(! ( @/$(5L(! ( H((! ( (9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L9l %"XL`#$(! ( @/$(5L(! ( @((! ( @((! ( H((! ( H((! ( H((! ( H((! ( H((! ( H((! ( H((! ( H((! ( H((! ( H((! ( ((! ( ((! ( ((! ( ((! ( ((! ( ((! ( ((! ( ((! ( ((! ( ( X$ $(L<`PumBeads).SrcRect.bottom = xRight  $!(  $!(6     $!(8  $!(: < !>' !@'  $!!  $!(  $!!6 $!(6  $!!8  $!(8  $!!: $!(:kd  $!(  $!(6  $!(8  $!(:k  $(n (&ѸbxRRME P@<<<6 <%0hHh`(xP%h@%‪ @` ` ` `  %   %@ ` H%@ `` ` ` ` ` ` ` ` ``` ` ``+B` ((iD`F`H``J  (☖2C(@…P@
@(P  x<(*\Rffff*0?3ce4d8a0\0$*\Rffff*0>3ce4d8a0$*\Rffff*0?3ce4d8a0(*\Rffff*0>3ce4d8a0\0 $ 0 @HPX`h (pB   (0B 8@HP`hx    .8H`h      4 >  >` 0  8 @P ` :p   "     0@ Xh        0 P`  hx""  @X x *  > ( (  \8   "     @  `  p              0 P8 L d P@      $     $  $  $0( $*X $0 $*         (  @ X ` x L       (8 @HB PX`hp x    *  d  (  :     ( 0 8  HX` hpxConst MAX_BEADS As Long = 4000]2^0^H^`^p"Dim BeadList(MAX_BEADS) As BeadRec]@]@(]@P]@ '0    "   'NT @x'd'ki]]]]0]P  'EStatusForm.Controls.Item("ThreadsDone").Caption = Trim(Str(numBeads))A@ ,Gzj ! .kkkk 'i]0]H]`]x'BLx'$$ Write the thread pdfmarks to a file$'F D F   ^sTitle = Utilities.AddBackslashToParens(TranslateStringToPDFEncoding(Trim(BeadList(i).title))) $! %N'J [ /Title ( J ) P 'H $($9$ H /Rect [ $!!$T$R  $!!:$T$R  $!!8$T$R  $!!6$T$R  ] P 'H H /Page $!$T$R P 'H H/ARTICLE pdfmark 'H F HA@ , FVzk  FV'BkL'iphAttribute VB_Name = "ArticleThreads" Option Explicit 'Const MAX_BEADS As Long~4000 >6_RESIZE_CHUNKN5J Type BhRec title'SngsrcPageNumASrc8t t +End #jDimrLihst(a)"DPrivahnums ~  JFuncResilFa(lse Orror GoTo E If (V+ 1 > P) ThenC `g@I+ t ReVPreservu/)I 7Tru3E5A"<3 sIfAsL;: zQ SE@!lertD^(",tbaShap!fTextFr.3oxesx, iA}+r!RangHendMark, lastSelex0StarB spaceBeforBVarianAfteBleftIndenyTopA(Bottokn xL xRigh3 thisX2|a'pQ|bFirstLineO fPara Bo0oleaVLandsc`8nHe.Widthag>MGUomhp G : dRg@'Set theDocApa!.AGvum< R@c.Ys.CouGF@i1 /b(= abb Item(iztb.A= msogBox% r el.gar.fg"f KNot (tf Is @hing tf.Overflowb a're's msthan one `zA1 of 6is.Or,ccould bee s8eco4frd ( fourth, etc.H,C t& b+a chain we aly tra sed. .vious Null  e ginna AO 3@І5y:1k/_QWhi}(A;1' &<linked eat }tqHas-mvUya,b1~f0yLen()10_' GH -bK. Us+fY+ntenc4o<r.@Collapdirs:=wdUrtOmMoveskUnitS`T , R:=1, dExc= Ay?Do 1 = tb+i/;߳9X'!>-'!_YOraO  leftIndent = tf.TextRange.ParagraphFormat.Firs tLine CIf (> 1000) TPhen 0KxnL-?;E`nd If#r.Selection.Collapse dir :=wd CG%$MovezU(nit!hcter, Coun 1, Exte|nd-C[spaceAf'C@.AnchorNG [H  = [' See if we need to make the sr visible by moving i܅/@N@ Is Noth AOverflow[)Call Utilit`ies.M)ƞV1'(r)?yB`ottom=GYCoordinateOff -@Margin_%- h<- C%`Height [ ' To figure out how wid?is column is,Chavo look atGrA @aof each l.1$ '%xRբ=HFX4+4b {?kEB.nStar|plast& @-1Applicat~.ScreenUpd`~= FalseWhi('< !A> o|y>l Qd Uggo9kl lSsX?F,QXhi> +Ĉ,+6OzFz DoEvCsPbCancelPrintfExit Func-W0*Y11Tru1:qr ResizeListq??po 9Bead (nums).tit@?OpqstsrcPageNu=qupOIbLandscapeUa9 .SrcRЪ.q6}e topbO t=" U+ (- yTop0REbŌ@ _o) %p N$U x= =^@+bWinNTn1C %`GetARWidthOge: 1pA%! -$$+ 1~4$ - BeadList(nums).SrcRect.top  right = nPageHe0+ 14>{bottom|Width;End If0Else$lefxL:$、yT`rxRqz$fyBha[[P5HthrNuumTs[  'StatusForm.Controls.Item("$Done").C@aptionTrim(Str)DoEvent7If bCancelPrinting Then Exit Func Set tf@tf.NextY:Wen>d/1m iE@3erateKD*(us MError:d  CFteArticl (outputFilename As 3')ABooleanDim fNIntegergsUBiLonghTitl #4FafO;A G8oTo"! ReFi0N^s@ 0#I(M+())"Ji a' Wri`te thar pdfmarks to a"&'= Free.(EOp`V,2k Apd Access$@0# 'ia @$s1G!'s#1= Utilities.AddBackslashToParens (Tran teCDFEncod`Ez+i).t;))l{p Label( M= "[ /# ("K$+ ")vbCrLn/sp/! [ 1"Js J9Uqmw Q_[ ? /0%dOOH???(] b srcPE__"/A@RTICLE6"k2` 1,S +oeodH?Closeqg}_^_E3ORdLTNra!e dsbQbQt3*#4e*\R3*#50*\R3*#52*\R3*#92*\R1*#17b*\R1*#c1*\R3*#8c*\R3*#4d*\R1*#c0"*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R3*#30*\R3*#51*\R3*#4f$*\Rffff*1=3ce4d8a0$*\Rffff*133ce4d8a0*\R5*#c*\R1*#c6$*\Rffff*143ce4d8a0$*\Rffff*1;3ce4d8a00   (08@HPX `hpx|6цbXxME\ @"Z0|(L(L(L(L > LLLLL P <` @ꀒF @ꀖP @p P @pX `0 H(PhH @8 xxP0 p  @ l @ h @ dO @` 8 @L @< @H 8 ` "@ 4O p H " H (@ 0 +@,O + -8Xx 0`  ,@ H @D @ @  @P !       &(PX`h $p*x        0 @ P` h"px   @/&0( PX `p  x!.3       *@.4X  (      &  @H/"0     ! ( @ P`hp x  ** 4?0208 @ H X `px"      "    ( 0  8  @ P X  ` p  x  " B F P Hp    " B F0 Px >    " (  0 @ H  P X `  h p "x  & '  "    " 0 8 @ H  P h   x]P] x] ]  ] ] H] p] ] ] ] ] ] @] ] h] 8] `] ] ] ] ] ]  ] ] (] 0 ] P] X ] x] ]  ] ]  ] @]]]]'7 See if PDFMaker 1.0's toolbar is there. If so, hide it Add our toolbar ''   !PDFMaker'yk  t  B@tiveDok Remove PDFMaker 1.0 menu items]]]0]P 'File$..'  ! ! !CreateAdobePDF' .re's myk   ! this B@he sec rd (or B@tc.) B@t box kop]]]]] ]8]X]x]]0: Set the customization context to the PDFWriter97 template  ,! !$PDFWRITER97.DOTyk  ' Hide the toolbar'   ! PDFWriter !PDF !l (l'kk  Hide the menu itemFile$. lCreateAdobePDF %.   ! !0Print via PDFWriter... (l B@'k k Hide the PDFWriter/Office 95 UI: Set the customization context to the PDFWriter97 template'  ,! !$ PDFWRITE.DOT'y k   '   !Adobe Acrobat PDFWriter !l (l'ykk File$.  !!  !%!0Create Adobe PDF...  !%(l  !%B@'yk   (kkoxh ^|PkH'^ \A@k  (A'^o ^|k'^ \A@k (A'^oxH< This routine remains to provide backward compatibility with? other programs that programmatically control PDFMaker, such asI OpenAll. When PDF creation is finished, it calls pOptions.ForgotOldPrefsB to forget the version 1.1 preferences and restore the version 4.0 prefs0Ao < This routine remains to provide backward compatibility with? other programs that programmatically control PDFMaker, such asI OpenAll. When this routine is called, it calls pOptions.GetVersion1Prefs8 to retrieve settings from the PDFMaker\1.1 registry keyAo ^|k'^AA@'^ox !, X/ ,!.'~viewResultsInAcrobat = False B@InitializeMacrobPDFMakerInitialized = TrueA@A@A@A@ AddOurToolbar AddOurMenuItemoxpLAttribute VB_Name = "AutoExec" Option Explicit Dim cModule As New Event$BPubZ bPDFMakerIniti@alizedbBoolean NnCallsLongWordLanguageCodmInteger$bIsUSEnglish[GermanFrenc+JapanesGK i;ChiTrad~onal#2SimfitWin95! NT 35140nOSMajorVersyM^inbAp8SRF4theDocum!numP@}sInDJbCancelPrinti,ng 0bVia@Writer ƨ@ DistillT UseAss antCreateStructurxSav G1L k0markNSk ipm_sOutputFilen`APIa )GReope0f @cpVdViewerT askID Do e` 0u" !ad= 1@(Not bMakerInitializedAE@ythin&gi pOBEs.SendVia"n 0P"0#moCV 5V VU8V 2S ShutdownDLL O  Main p% cModule.App XpWord0g@9oqp/Doc .Activep0gnumPa`gesIn%2viewilt%$= LUtaCies.D{rminXeOST"'WgMaPTOilvd4S! W#HL&UICRemove`I1e'p4AddOur:A&__SRP_26 __SRP_27 JAutoExit QBookmarksy8cI && ptKlxl$ lpv!l$ Ql[hpd`p l`0/`wpvd pdMkv p $l$ PQl[L$ L*L:<%l$ l HQL\lptl\ Ql[8X4Q`X l`0/`Bpt lX= T4Q X4 ktlT P Ql[0P,'<%P  P,w'<%T '<%X PT< hd840,Pp\XxT`lLDK/DH$ H  QD[@xH< }08x  >8F( : ]36(n<} x< 6lxH$ Hpn!H$ QH[p&38p l80p l028p k p pn p*D:%H$ H HQDXH4H'%'%:%'% %X lH= TH lTcHT P QH[P8P l80/8 P '%P pn PpL/DH$ H  QD[xH 08x  >8F( :]36(qpL͘ x 2kL=lxH$ H!H$ QH[p8p l80/8 p k  p pn͐ p*D:%H$ H HQDXH*NHX H (lHc'?8DkND%HX H ,D l80/8)HD0DkND%HX H ,D )HD2'%DkND%HX H ,D )HDpn' Ndnkn; x @ DdL@<pXTP\x(8HD(dK  : cl%"X,   d$ dK  : fl%"X,   d$ DK $ DK $ xHK    H$ K&x$ Qx[tT$ $t'tx$ x 4 Qt(x ,   ! " #$ xtHrU &\$&`$&`$&`$&`$!&`$I&`$q&`$&`"n~фbxME(6 << < `8x%PH<$*\Rffff*123ce4d8a0" B :X D "  (08@HPX hp<' Don't need to call ShutdownPDFMakerDLL explicitly, becauseJ3' the DLL has already gotten a call to DLLMain with>' DLL_PROCESS_DETACH, has done the shutdown, and has, in fact,' been unloaded from memory' ShutdownPDFMakerDLL \....ko{Attribute VB_Name = "AutoExit" Sub Main () On Error ResuNext2'' Don't need to call ShutdownPDFMakerDLL explicitly, b@ecauseBthe #has already gotten aQY  with|LL_PROCESS_DET ACH, Edo(ne Vs, and, in@ fact,"be4unloadbfrom memory o g If (bsInitialized) Then Set pOptionsNothingDistiller4"EIf x0rU~|  ()+)Y))) (8P`p   Nhpx      " 8 H P `h p  B  (08@H P`  hx    P .  H  h F "       ,(  X Lh Z      (  @ P  ` h  $            *  0 8 @  H X ` p  Nx @     ( 8 H h  x   $     D   8H`p         D0&x   B:P  0 HPh   R04   08@ HP X `  p  *  8 0 @ X p"    ,HX h    0(H p x    DqbcD (M 1GтbxRRRR((ME(@@<6 8  %X0hHh6`h8xh:  withd thehin fh h  h  (@8P%h$$ ( p@% ( @% @@8 `   `  +$`PRRi&pi(i*``,`. 0%`2`4 6`%`8+Jp` iD``L`N `P`R `T`V```X`Z`\`F`^```J`b`d`f 0%`h `j l%`n0 P +`` QQ`````L``@ ``H`J I( C( @P @x @ @@x `( P p  PxP`(  <$*\Rffff*0?3ce4d8a0(*\Rffff*0?3ce4d8a0\0(*\Rffff*0?3ce4d8a0\1 ( 0 @HPX`h px 6  B (08@Xhx B   B (08@HPX`h Xp F    ( 8HP`h p    *( @P :h 8( F8( 6d h  p        0 P X x  j d x          B (08@H  LP Z   2 HX  `p  ,   0 @ FH   (@`x$$$$8H P  Xh p  x     $  $8  $`  $         ! !!(! 0!8! "@!H!P! X!  `!p!! !! !! !"! " 0" @"x"Const MAX_BOOKMARKS As Long = 2000]^0^H^`^xp^^^^^^ ^@pH/Private bookList(MAX_BOOKMARKS) As BookmarkList]@ ]@( ]@P ]@x ]@]@ ]@P'      ' @'dx'kh`iX' "@      ' @' d' k"i]]]]]]0]H]hQ This routine returns the starting position of the Nth occurrence of a particular@ heading style. If the Nth occurrence isn't found, it returns -1'$: !B@H !', *'. * ,<k !.0 !.6 ( 0!>(@  & . 0(0 0B@H !0'2  * 4 !0 . 0!0 ,  0!0 0(0 0B@H 2 !04 The selection didn't move. It's probably stuck in a2 TOC or some other set of fields. Try to break out !B!  %BB@H ! 0(0'8 !0 2 %BB@H ! 0(0 0!0 6(0 0! 6(  B@ 8 B@D ! 0(0 6! 0( 0B@H 8 '8k !0 ,H Word won't let us get to the last character - probably a paragraph mark'4kk !0'2hk` , 0(H 0!>B@F 0!>! 0B@H  &  B@ " $ B@ !0'.d !'$kk :x<pih]]]](]@]X]p]]]]]]]]0]H]`]x]]]]]D]$p'ddx~'dkh'J'H'r8J Iterate through every heading type. If it's to be included as a bookmark,' find every occurrence of it in the doc  !t!  !t%!v'f? Don't make this a bookmark if it will be a structured bookmark x %8 f z%|'Nd f z%~'Nk N  %t!l  !.0 E Special case for doc with a single para : The Find.Execute call will S find nothing in this case, so don't search for styles, search for the null string.'h'j !! 0B@H f 0!>(@d %!@ f'h %!!d$'jk@k8'L'P''n jH h 0!>%F !'Jzk 0!'P h !.0kHIf a table has a vertically merged cell, moving forward para by para can9cause a loop. If this happens, move cell by cell instead. n 0!0 n 0(0 n 0(  0%  0B@2 n 0!0  0B@2 n 0!0rPkHk@d8  0B@2>$ stuck in unknown loop, skip sectionk n 0!0e 0B@H  B@  %  0B@2 n 0!0  0B@2k80k(k  0B@H 0!0'n  0B@2 B@> Avoid selecting multiple lines, which can happen with the TOC !d % %$R'X  B@ %'R %'T % 'V %' %@'; ignore bookmarks which just contain the page break marker. X  X $ X$ zXkP X $(d  $(  f z% $( $(   $( P $( R V $!( $!(6 V $!(8  $!(:dH $!( V $!(6  $!(8 V $!(:k  'LStatusForm.Controls.Item("BookmarksDone").Caption = Trim(Str(bookmarkCount)) h "%  $T$R B@k8 A@If bCancelPrinting Then !z k P !! r k  k r  zx kp A@$ Now output the sorted bookmark list0  2 Now determine how many children each bookmark has    'L $!'Z L$!'\ \ Z L   \ Z $!  $( k( L 'L L$!'\ & Write the bookmark pdfmarks to a file$'F D F    Write the bookmark file   * $!!$T $!!6$T  $!$T  $!!6$T '^ $!   [ /Count $! $T '`d ['`kp ! %'b b b$18 Replace "1" with value of top b b $'b b $!!6$T$R 'b b b$2e8 Replace "2" with value of left b b $'b b $!!$T$R 'b ! eL Inherit zoom, set zoom to null b $!!$T$R  $!!6$T$R  null 'bk $!d$R'J J d  J d$'JkH J$R %'J J$R %'J J d  J d$'Jk J$8\ J J $'J create a unicode string ` /Title ( '` ` J '` `) /Page $! $T$R /View [ b  ] /OUT pdfmark '`^ " /View [ /FitH " + Trim(Str(sortedBookmarkList(i).r.top)) + " ] /OUT pdfmark" F `A@ , FVzPkH  FVk 'Jh r'ip]]]]]](E This function sorts the unordered bookmark list by the nDocPos fieldT It also inserts blank children where necessary to handle the level skipping problem'+ Do an insertion sort into a duplicate list''' L  ' '   $!  $!   $!' 'k   ' ? Do we need to insert blank children to fill in missing levels?   $!   '$ zk $(d $!  $(   $( $! $( $(  $! $( $!! $!( $!!6 $!(6 $!!8 $!(8 $!!: $!(:  'k$ zk $!  $(  $! $( $! $( $(  $! $( $!!: $!(: $!! $!( $!!8 $!(8 $!!6 $!(6 $!d $(d $!'  'k L'X'i`]]'   $!  $!'k@   '   $!  $( oĵAttribute VB_Name = "Bookmarks" Option Explicit 'Const MAX_BOOKMARKS As Long|2000 F>_RESIZE@_CHUNKV5T Type (Rec^ le$ft$ toBp righ #b ottom&En 5) The>n M+ ɇReDim Preserve> 89Tr:uD9E; gIff : S+-c8./g,01M0L1c2?3+3" `4 .5C`5U6s7fdFindNthHeading(nOccur@cex, s"@,| np"WViGdocId /aRangGnbelabDon Cl eastemp-U k ' {is@ routi returns t0he s' posiBof + o'*a p @icular h/yle.  lisn't fd, it -19I+86Si..S= C0.=!S"= S9W ~x1J#QICSet t!= + ..S^t.sF@ai1 a1C p bxq+t\Box W@e (N8ot 00B < A < 1LXL <&R 9% :8 dDid13movQ5t's probably6uck pin a OC soPo1r s' 0 17(1)8w:/k'D $#(X   :ugG_V@&: yH=5C?I_  Collapse*r3l:=wdU/oYM0.Down %:=k?"\q#+9(k _DWend0t8$` >/i?' W@ord woaEl@us g``@B l charhact-FRagraph  Z=EUmsfvftion.Sta rt WendEnd IfdS( = FElsNthHeading!_ %Nh i@' Error:Nx@< AFun2c  CreateBookmarksFast(outputFilename As Str-) lea{ Dim iALo,ngCLjbAmvNn@PosPDestLandscapZsAXYp@ageNumWidthsǁB;thisLevel comphareTfXD!I@ntegers6RQse%Ti tlB$sMag!1nMax% LefnAK9sTVNA}abÈ! FsWu*bQ 0 rnaIsDistiller4In@1 d()-= 8254kx12>6䮣i }Fa/&@0RefL(0)num3AsOn ~ GoTo1yOn' I@~ th@rough Wry hdtype. it's to be included aPs a , f@ɤoGof@@= eУB= 0 theDocyles."- 1#P= h`m(i + 1).!TLocal' Don'@t make ii iw Eaa structurE' !KpOp As.2s(pdfM` r&Fro^mo ` Dp$hs.MAs@@xnt(UET=> (%/gConvertTo _9g!(TC (%T# <>ySt0CvO Set DtD' Spec@ial cafor1% wiZjOVa :A0!ll!3+noP\Pyin#"0, so#search sA s'` nul6l#@.[ 5P= 7P= ""{ Pgrapvh11o. s.qA#7 E'[%q hs(7"?OA3<- ' left'R#.1e,@O--? j? HA L nL@i= -2k~Wh"f(a :="ward:=q%)P ' (p tusDlg.C~a@q3mtit O|* P Not #/ Ec.E%uo 'a tabGhqUiAF@y mergdcell, mov0AC Ibysceq'cauMa loopRx happenӀGe  `r~i{|GP &>AC24+ E99In0Tp(wdW[InTQ'? G":=: =  OO Ol GoTo CreateBookmarksFastFindNextOne ȁEnd IfNFElseaRange.Move Unit:=wdSection@, Coun1 ' stuck in unknown loop, skip s/Mn!^If (rStart = X) Then;lelNS t.Collapse dirf 5!M"InformaN(wdAt>OfRowM}KHH Table!Yw`x OBD1cJO QHParagraphYIO /Utilities.ActualFJ4O' Avoid@q]ing multiple lines, which can happen with the TOC sTrm`Trim(g#FirstL (*J(.A))) _ot/bDe@and`scapegI@sPageLe(WaNisXXCoordinateOfYYp@Num1Get!beFrWid@9= G$' ignore b%DEjust co8ntaDA bk !er.0((Len(G) > 0) A  <> Chr(12)7E8 Not ResizeList}Exit Funٯa0Ua3%(%&)]8ϟv).+0__eLevelHea1+gs.his4Name/Qo ).pChildr0C= 0? ? 7 )//'nDocPos ne?1_Qq#?A#q7r.lefQCY%top oïrigh:"r.bottoFj?    _*  OEW/C? qF+ 1oa'tusFntrols.Item("e0sDone")p.Cap1zStrI? p#Dlg.SetMHessh (`r s.Pd(pdfpMake8ct) & " i & s  DoEvPents'0=bCancelP ~tq?3led/@SQoc )J (sK.Sց- 1Q//' :KWendy D ixSor~t!d * A>dflls' Now outputҫsedrA Q6sOn Error ?cc bE@determ hmany c2ren each bookmark has For i = 0 To sortedBCount - 2ZhjZi + 1 ,thisLevel< List(i). 4comPpare7j7W@hile ( >> And j <)@hIf %- 1b') T8henuNumCQdr=B/-EbIf;;jendNext iG' Write@Yeǒpdfs to a f@e A9@RFre$eF(0H_OpGoutput name AApd AccessAs #G H2ARsRect/str(Syr.left)b" "@_ top pageWidth+G`Y> 0as%&"[ /!#w(`,sElse ;2j " 1f+sMagUtili ties.Ty peToM@(pOptions. nifica %Mid(a , Len"), 1) 1"$ ' Replace "1" with value of@gp L @1L("+ Trim(YW!P!.22 ?H&?k>=)S:,Maker.Defaultb6Inhe zoom,0 set"null0_ሇzg7`"" ` { sTits=T"ZiT@`!b.) > nMaxϥ2A) !(,;  C(5sFasTru tError:CReDimt8Eraonu,mST0se0 G !5 ') leadQ nMinDocPosLongCLI ow,IPndexi/j/nPrevio^u4 c'!i8s fdBpheAorderedwl0 byE fielT' It also inserts b@lank cEw!@ye ne1arpo`nd@mtlrskippA+problemc 7S-0Fd"On B! GoP' Dn 𣇲Bdupl,e Asn= -[%ӳl!Ёr"޳ - 1 nLowestIndex = - MinDocPos`(2 ^ 31) For i:0 To bookmarkC0ount NIfBList(i)".Z< ngAnd$> nLastThen] F=D1}iE EIf Next.  l(<>) Sb=X%f' Do we need to insert blank children fill missing le`vels?&UPreviousL-A V+"We (n + 1 <Y ?).B)?@-Not Resize@Sorted)YExit Functio_z#s BD").TP= ""DPageNumberB^ C-4 rk! $Cb= 0 p.Width.F? 9 r.lxeft  { t LL  l8@8@@X@#h x@@{@@@hP @Xh @8` h@0 @ 8 z" \ @ (  `pz  @X d @T H 0`  H ( `z 8  @`  8  h  P 0 `z @@  8@ \ @ L @ < %@ , @  @ @  `z C @h @X  `z %C@d @(Xp`x,p$"&(*@` @\ @L @< @, @ 0 @0 %@ C ,@ @H @` @x @ %@ @@ Xx8H``2xpH\B@\ %@L C@< @, @ @  p$<*\R5*#b*\R5*#d*\R5*#11*\R5*#17*\R5*#13*\R5*#19*\R5*#1b*\R5*#1d$*\Rffff*133ce4d8a0*\R1*#132*\R5*#a*\R1*#17b*\R1*#c1*\R1*#c0*\R5*#c*\R0 8 @ ` h p x    B  )B 0 (0 8 HPBX Dh ,      (0  8 HP X  hp  x <  B   !  B   6(`h xB X ( ( 0  $8  H Xh 0cx  ,>  ( B 08@H (P7h   x] ] ] ] @] h] ] ] ]@'.w ,! B@ !. !. !." !. !.z !..%' B@iX.zSet pStructure = Nothing...."...'\oX]@ ! !'pi ]0]H) This function launches Acrobat Distiller' !'grapi h= This function distills one file. If the bPromptForOutputName>B@& is not included, it defaults to False &]] ]8' $'d 'k $'d 'd'kxkp    %'@Hi@P]'   %' " ' i]/ This function causes Acrobat Distiller to exit %'i Q This function makes Distiller Assistant the active printer, and returns the name! of the previously-active printer]`]x]]] ,! '!$p*'. !"'  $ "% & ( * "%A@ ',Hk@d80k( ,!  2 0 ,!,B@.k 'i]x]]*$\'< 4 8$B %@'< <  <'6'2dP'2k@i80Attribute VB_Name = "DistMon" Option Explicit Pub, pPDFMaker As Adobe X.WordPHNos*qxillT.SngY!2WritaPrin Headi0qReviewerIStatusDlgFuncInitializDLL() Dim @retVal)Lxong @}FPalseO@|rror GoTo:  EC CSetȄ= New7A(VLA"w", ApaA9.Œ=.FA! F E sC5 FƋ{ D*. G rHGVU yTrux`DeletH10Stu ff?: End ER Sub ShutdownoRJResuNex"h'NothnC'":4uctur *gFo)E.Ib : #b'g/dsAa.Sub gs4Instad()aBoolxean ۂ3I+ p. AkC s$y4mFLa@hAcrob dtName) ThenE |Basic.Fil Setup %:=$, DoNotAsSysDefaul0t:=1kq :currentC (Funtoe  PDFOuPtputbny(@folderA? As }, |Amd1)+Dim lLon gs starPoG s7$(255, "*"Ap3B5,, Remove.Extenjs( 4)ALen(s) > 0 G= sC*AX0̳etc FaFEt)!*I*q**(*)+ i,+ ,,)> d$ fXlK ;:X%PT$ T >PF0%_T50_a050_a050_a0  50_a0 50_a0. 50_a0/ 50  cXl_ \$(lPT0|K c=  c=  c= c= c= c=  c=  c=z|$ l4K)_adV_aTVpz6dT(4$ dT`(pzK$_a`Vpz5`((p`pzK l &Ct5 \1t l Q qpLc\]3q qp} qp\1p` _aL `1t5LltJc< %_ Lp %_ ''`F0L`F 6 LzBB,\`$ ` l\lt=/\`@>t@(,%`$ ` @)`lpCxP8 xdhtp0 \`L(:\NLL<  <`1p6L<7l @i,%l FL%_< `1p6L<lpJ lp1 1x 1xp,xpL<CrU $$`$`$`$`0!`  10(I`i0$q`$`0` 000nrU~|     \R1*#d4*\R1*#d0$*\Rffff*143ce4d8a01 ( H HH  H( H$@ H$X pBx  B B   V p  ( 8@H BPX ` Vh   (8`  hB   V(0@ H(X /J0јbHSleepH0GetProfileStringA HXGetVersionHxDSetCurrentDirectoryAHdGetTempPathAHGetTempFileNameAHPGetFullPathNameARxr ME (0L0L6 <+, D`p@iF%+J@p iL"iNziP%iR iT.z+VDpD +Xdp d iZ +\`p  i^@i`+b p idifihij+l0p` ini^i`ip%+x`piz+|`)%+>8` +`x )%+` +x`  )@%@ `+ ` @ `+`()H%%`%``+`@ `+p `H)h%+ `VV``@ `@ @ ```  %``+@ ` )8 %+ `++@ ```` `+h ` `+ `  ) %` @ `  `  ` i``+8 `  )0 % @x `  +` \\@" @ @ `````` ` +`@@ii@ ```D``F` (x`i*@. @0 @0 +*` B`4+"i<`<`>@ `:+h`--i<`<`>@ @: `D ``<+H` HH`< 0%``J``` L%`N`P +R`@ !i`iT`F@0 `V+\x` "i(iT`F@0 +`(` #iiT`F@0 +b`h $i`F+fp` %ihij il `<`n +r`&ihij`<+v `H'ihhijixizi|+~!`((ihHij`< 8"`)ihiji `< #`x* ihiji`< $`0+ ihPijpi`<  %`, i`+&` - x%`+&'` .)%` (`X/**ixiii 0)`000` *`1,,``+0+`2i<``+,`p3i<```+ -` 4i<```+ .` 5 +P!/`!6i<``D+!0`!7FFi<```+Np"1`8"8 i<`+"2`"9i<`+`#3`(#:i`<+#4`;`+$5`<` x$6`P$=)p$% "$7`$> i`F %8`?``T`F@0 `` x&9`@``T`R `F@0 `V+B8':`&Ai@ ```D+(;`x'B%%)l'%`T@ `  0(%+(h(<`H(Ci<+*)=`D ,( 8 .( `0+6>`@)Ei8`:`p`<`8t)p,Hv(@ P!"h(h @00$8 p 8'8 x&@ 8h 0`p@  `x p"#$%x (!`#x$) )(xx )5HKEY_CURRENT_USER\Software\Adobe\Acrobat\PDFMaker\5.0&GF))) n*<*      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`adefghijlntopqruvwxyz{|}~B  V (8 @(Px B  F F (( *P D & *    *0`h p B F F  (h * D & *0 `  *p            B  V Xx > L F` &    * 8 @  &H p x   X     ( 0 B8 V@ X > L0 F &    * PX  `p B  B B (0@HPX`hpx  B  4 (8HPX .h ( < B 4H 6 @ 6 0 <H  , .   08 @ P >h @   H `X     ( 8Hhx        B 8 HP X`B hp xB  B P( Rx P P  >p  4 8@P ,`      08B@HP X` x B    B     8@ B HPX `h  Fp   d LX  :>@P` hpB x  B    B(08 @`h p  H H F LX 2  P N@!!!X!(",8"h" p"fx"" "# # #(#@#xX##  ##"$0$ @$P$X$`$h$  Pp$ R$ F% @`% D% B% 0& P&,h&& & &&& & '' ' ('8'*P'' '' '' '' '' '8'((0(8(@(H(P( X(`(B h(p(((((( (( (  J()() 8)P)h)p) x) ) ))() )**  B*`*x** ,**** ** 0*(+ 0+*@+ p+ +++ + +++ + +,+(, 0, 8,@," H,P, X,"p,,, V, D- f`- h- (0.X.&x.. ..B..  \.(/0/ 8/P/  Lp/ 6/ / 0 0 00 80H0 P0 X0 Pp0 .0 01  11  1(1@01B 81 P@1 L1 (1 222 (202 82@2 H2X2"p2 2 22 2  22"2  383@3 H3X3 `3h3p3B x3 P3 L3 ( 4 H4P4X4 p4x4  44444 H4(5 H5P5 p55 55 5556  6 86@6 H6  X6h666 666 6677"7 T7 Xp7 R7 T 8 Tx8 >8 9 9 < 9`9&9 9999B9 V9 T@: :: :::::;;;; ; (; 0;@; P; `; p;x; ;;;; ; n;  (< `H< P< <= =  . = P=`= h=  (p== V= =>>  >  (>8> X>4h>  >> >  J> $0? NX? ? ?? B ???? ? ??@ @@&0@X@ (h@@ @ @@ @ @@@ AB AAA  A (A0A8A HAPA&hAA A AAAA AB AAA A BBB  B(B&@BhB xB BB B BBB CB CCC  C(C 8CHCPCXC `CpC xCC CCBCCC CCCCCCD DD(D@HD"PDxD DDDDDDD DDB DD DD DEE@8E"@EhE pE EEEE EEBE EEEFF FB (F0F 8F@F HFPFhF@F"FFFFF FF" FF GG G G (G8G@GHG`G@G"GGG" GG GGGGH@0H"8H`HhH" pHxH HHHH@H"HHI" II  HI .`I I IIIIIBI XJXJ`J hJpJ xJ JJJJ"J K"K@KB HKPK XK`K  NhK >K K2L"@LhL pL xLL" L LLL L L LL L L LM M  M (M0M HM PM XM`M xM M MM M M MM M M MM N N N N (N 0N 8N@NHN"PNXN`NhNxNNNNNNNNNNNOOO(O0O@OHOXO`OpOxOOOOOOOOOOOPPP P0P8PHPPP`PhPxPP"PPP P PPPP2Q@QPQ`Q pQxQQQQQ  QQQQ Q Q QR  R(R@RXR `RxRRRRR B RRR RR RR*S 0S 8S@S HSXS B `S JhS <S ST T(T 0T8T @TXT,pT TTT T TTB T :T0U8U@U HUPU XUpUBU UUU V VV B V T(V VV V VVVVV B VWW W W  &8W `W 2W W WWX X 0X HXPX XX <hXXXB XXXXX @X Y0Y HY `YhYYYYYYYYYYZZ0Z8ZPZXZpZxZZZZZZZZ[ [([H[P[p[x[[[[[[[\\0\8\P\X\p\x\\\\\\\ \ ] ](]0]8] B @]H]P]`]p] :]]]]]B ^^^ ^0^B 8^@^H^ P^X^ `^p^ x^^ ^^ ^^ ^^ ^^ __B__  _`(__j_` L`h` p` *` .`` a a(a0a 8a@aBHaPa Xax`aaa" aa ab*b@b Xbhbpb bbb bbb" bbbbb c c c(c0c "8c@cHcPcXc`chc  Zpcc c :c 0d Hdhd pd ddd "dddd ddd d ZdHePeXe`e pexe&eeee e ff (f 0f8f@fHfB PfXfhfpf xff f  Jfff g g(g0g 8g Hg hgg(g ggggggB gghhh  h8hXh`hhh  phhh 4hh Ri 0`i(i i 4ij"(jPjhj j"jjj jjjj jjB jk kkB k (k 8kHk Pk Xkpkk k &k klll lB (l0l@lHl Pl Xl pllllllllx`@ `  .r]$5HKEY_CURRENT_USER\Software\Adobe\Acrobat\PDFMaker\5.0)] )pF0 z? 'xi'|  !~  !~  !~  !!  Must go through parent !!!'|dP !!'|k8 | |  % !%!!'|k | |'|ki'>  !~  !~  !~  !! ar Must go through parentIf !!|!!'>d !!'>k > >  % !%!!'>k > >'>khi`8P'  !~  !~  !~  !!  !!!'d !!'k   % !%!!'kxpihX'  !~  !~  !~  !! B@ !!|!!'d !!'k   % !%!!'kxip@ In Office 8.0, the wdVerticalPositionRelativeToPage function is@ returning points, not twips. Here's the code that would work ifn'" the function worked as documented$' Height = r.PageSetup.PageHeight=' yTwips = r.Information(wdVerticalPositionRelativeToPage)>B@ ' yPoints = Int(yTwips / 20#)#' YCoordinate = Height - yPoints]H`$ Here's the code that actually works$' $|'  %$x'$ 'dP   'k8i0x@ In Office 8.0, the wdVerticalPositionRelativeToPage function is@ returning points, not twips. Here's the code that would work if" the function worked as documented$' Height = r.PageSetup.PageHeight'=' yTwips = r.Information(wdVerticalPositionRelativeToPage)lude ' yPoints = Int(yTwips / 20#)rr#' YCoordinate = Height - yPointst!]$ Here's the code that actually worksthis aX'   %$x'$ ' d $>'   ' kiP The wdHorizontalPositionRelativeToPage function returns a value relative to the cR left margin, not relative to the left edge of the page. This appears to be a bug.7 In Office 8.0, it is also returning points, not twips.ngE Here's the code that would work if the function worked as documented(@?' xTwips = r.Information(wdHorizontalPositionRelativeToPage) ' xPoints = Int(xTwips / 20#)L' XCoordinate = xPoints]P]h]$ Here's the code that actually works'J' Make sure this range is visible $'le B@HticallQ Have to use Selection. because r. doesn't work if we started on a different page $'.  %$x' 'iP The wdHorizontalPositionRelativeToPage function returns a value relative to theR left margin, not relative to the left edge of the page. This appears to be a bug.7 In Office 8.0, it is also returning points, not twips.E Here's the code that would work if the function worked as documented?' xTwips = r.Information(wdHorizontalPositionRelativeToPage) ' xPoints = Int(xTwips / 20#)' XCoordinate = xPoints]$ Here's the code that actually workstiple '$'th the  %$x' 'hi`< This routine determines the maximum X coordinate of a range% B@H 'ip]]]ea] ]( ]@ ]X ]p ] ] ] x'< This routine determines the maximum X coordinate of a range(' !!'. Move the selection to the beginning of itself(    B@ 'd  B@' curY = YCoordinateOfSelection()" For i = 1 To numCharsInSel6 If (YCoordinateOfSelection() <> curY) Then8; Selection.Move Unit:=wdCharacter, Count:=-1ontrol- curX = XCoordinateOfSelectionount/ If curX > maxX Then maxX = curXB@: Selection.Move Unit:=wdCharacter, Count:=1/ curY = YCoordinateOfSelection() End If6 Selection.Move Unit:=wdCharacter, Count:=1x  Next i$ N% curX = XCoordinateOfSelection0 ' If curX > maxX Then maxX = curXch'  'as ' !.'_ $ '!' Do'8 nHalfWayChar = RoundIt(nHalfWayChar / 2): nXOffset = nStartOffset + nHalfWayChar - 1 r.SelectA Selection.Move Unit:=wdCharacter, Count:=nXOffsetZ Loop While ((YCoordinateOfSelection() < curY) And nHalfWayChar > nStartOffset) '_8 "  B@2$T    T    '!k   '$   "  B@2$T   '  'kp   '   G 'j " B@2 with  '; nHalfWayChar = nLastCharThisTime - nStartOffset 'b  $k 'i  B@Hb b 'ih@ ]  !] ] ] ] ('< This routine determines the minimum Y coordinate of a range$RJ The only way to do this is kind of hokey. I check the Y coordinate of theL beginning of the range and the end of the range. This only gives me the top'JI Y coordinate for the bottom-most line of the range, though. So I advanceJ one character at a time until the Y coordinate changes. I'm now below the8 bottom of the range. I add a little and hope it's close`. Move the selection to the beginning of itself [ ' !!'  B@ ' "  B@2itH " '   ar )) % We've moved down one line, stop here'd` 'kPkH _8 " %2' '   k     'i ]P '  !%'edixh ] `'  %'nk chi  $ 'y to i ]( '  %'an ins  $ 'uplii@ ] ] '? The PSCRIPT driver under NT generates the phantom pages, so if this is NT, return zero <zk^ FIXME: A newer version of AdobePS4 DOES generate the phantom pages on Windows 95, so check to neeF see if we should adjust or not, based on the AdobePS4 version number.zP4 Now adjust for phantom pages that won't get printed''  $v $v   '  ' 'i x' !!'zXP !!!'@$i08  '@ !!'@z !!!!'@ix ']    ]]0 ,! '"$B The printer name is something like 'NEC Silentwriter 95 on LPT1:"A This presents a programming problem, since the word "on" will be@ internationalized. My work-around for this is to keep trying toF get the registry setting by chopping one character off the end of the+ printer name, until the call is successful B@I Also, we have to handle network printers, and aliases to printer driversH Do this by looking up the printer driver name in control\Print\Printers' " CHKEY_LOCAL_MACHINE\System\CurrentControlSet\control\Print\Printers\ "$R ' Printer Driver %' G " " $'"j <^HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Environments\Windows NT x86\Drivers\' r  Version-1\ 'd  Version-2\ 'k  $R 'd Windows 95[HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\Print\Environments\Windows 4.0\Drivers\ $R 'k( Driver %' $' Monitor %' $' ]H]`]x]I Printer information is stored in a different registry location under NT.K Use the following method to obtain the driver name of the default printer: @ Call the GetProfileString function with the section name string : set to "windows" and the key name string set to "device". > The returned string contains the name of the default printer, < the name of the printer DRV file, and the port to which the  printer is attached.$$\'windowsdevice $J'   ,'     '   $'k  %'kk   .'  G   $'j ADOBEPS5KT'ADOBEPS4KT'ADOBEPSKT'PSCRIPTKT'S  POSTSCRIPT LANGUAGE MONITOR'd'knki](@]X]p]]]'H 'DD Delete the extension (if any). Find the last period in the filename D.'  No extension D.  'Dd '   D.'  G 'j8  $ there's an extension D $  'Dkk< Make sure we have a folder path. If not, use wdTempFilePath D\'  p& Make sure we can write to this folder$'F D F '* Use only the filename part; toss the path' D'  D $\ D $  '  'X 'D H FV D B@"k    & ,!%$\ D 'Dk D'i,F]0H` *'.) Set duration. 2'0 Set start time. 0'0O When the clock rolls over midnight, Timer will revert to zero. This will cause> "Do While Timer < Start + PauseTime" to wait a very long time_ Detect that the clock has rolled over with "Timer > StartTime" and just bail when that happensb Bailing is ok because nothing in PDFMaker is that time critical, so if a DoSleep call is a little! shorter than expected, that's ok 2 0 2 0 . bA@ Yield to other processes.X,PoHx]V This function estimates the character height of the first character of the selection''46 !!  !%!8!:'4E When you're looking at the first character on a line within a field,/ Word sometimes reports that the size is 999999 4 !! !8!:'4k 4 '4k ElseJ If Selection.Font.Superscript Or Selection.Font.Subscript Then' FontSize = FontSize / 2 End Ifkk 4'*6iI This routine removes all junk characters from the beginning of a string.E It's necessary because Word seems to put unprintable junk characters" at the beginning of some headings]0]H]`x'@ '<'> <':  : < $$B  < $'<yH k@  <':  : < $$B  < $'>y k  >'@ i I This routine removes all junk characters from the beginning of a string.E It's necessary because Word seems to put unprintable junk characters" at the beginning of some headings]]] 8P' <':'<  : < $$B'D D  D D  D ;not NAK nor TAB nor CR < < $'<k d Shift|JIS(Kanji) < < $'<kh  <$R'< <':  : < $$B'D D  D  < $'<y k  <':  : < $$B'D D  D  < $'<y k  <'@ihM A common thing is to have a new page after a page break start with a headingQ type, such as Heading 1. Word actually starts the heading as the last character,L the page break, of the previous page. Thus, when we calculate the heading'sM position, we are told it's halfway down the previous page, and our links andN bookmarks are off. Check here to see if the first character of a selection is7 a page break, and if so, move the selection beyond it.] !!  !0 %!!0 %!!d'< <$B  < " B@Fk0k(o O For a TOC entry, we want to link the entire line. When this routine is called,N the page number at the end of the line is selected. Keep moving the selection3 left until we stop moving or move to another line.]]]8]P]h]]]]]'H !.  B@ !'N$ ''''P_`_X !.Lh numMovedThisTime = Selection.MoveLeft(Unit:=wdCharacter, Count:=nNextJump, Extend:=wdExtend) "  %F'J Y If the TOC is the very first thing in the doc, Word will select way too much when we get I to the beginning of the first line. Detect this and select one char less ! N'Pk !0 ! N  LB@H'Jk J0 at beginning of doc'$   ! N ! N  ! N e LB@H  ''Jk !'N  J  J '  J $   B@H  B@ "  B@FD Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend For i = 1 To numMoved - 1H Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Next i P'Hi8]]]X'R 2'0$'FX? 2 0 T bA@ Yield to other processes.  F"Debug.Print "file opened for read" F$Z'VDebug.Print fileLength FV V 'Rx?k??i>]H]`^>'\ 2'0$'F^> 2 0 T bA@ Yield to other processes.  F'\ FV  B@"x0>(>i >x]]^>'` 2'0$'F^= 2 0 T bA@ Yield to other processes.  F Lock #fileNumDebug.Print "file locked"'` Unlock #fileNum FVx==i<(]d<'b$'F 'bd<k<  F'b FV  B@"d`<iX< ]@]Xp0< l$'nd< l'nk< n'f r t\ h'h h j %'<;AdobePDF h j %'<; < n'f <1e'fdH;'fk8;p0;i(;p]'rt; r t\ h'h h j %'<:AdobePDF h j %'<: <'rdh: <$z'rkP:tH:i@: (: h j$r'v v x v z  |'vk9i9]h'~9 r t\ h'h h j %'<p9AdobePDF h j %'<@9 < <'~k 99i9] 8 1'<d80'<k8 r t\ h'h < h j ,x8 <AdobePDF h j ,H8o@88](8 $T$R'< r t\ h'h < h j ,7 <AdobePDF h j ,7o7]x7 r t\ h'h  h j ,07 AdobePDF h j ,7o6]B This function deletes the .ps and .log file created by Distiller,( if pOptions.DeletePSAndLogFiles is trueh6 !  B@"1 .ps file log$ B@"k6o6 Q This routine returns True if Selection.Start is on the first line of a paragraph]`]'5 !. !0' !!!B@H  B@ 4 B@  !0  ! '4 B@H  Restore selectioni4]'&4G This function ensures that the selection is visible. This is necessary7 in text boxes, which can overflow into invisible space !0'  % !0   " $ B@ 3'&3ix3h3 KT$ Black'''KT$ Blue'''KT$ Cyan'''KT$ Green'''KT$ Magenta'''KT$ Red'''KT$ Yellow'''KT$ White'''S1'''n1o11]  B@  ,%'  KT  B@ KT  B@KT  B@KT  B@ KT  B@ KT  B@ KT  B@KT  B@KT  B@KT  B@KT  B@KT  B@ KT  B@KT  B@KT  B@KT  B@ KT  B@KT  B@KT  B@KT  B@n/ox/0]p]X/  ,%'` ` 'b b ` 'd ` `'f `  `  `  ` 'h ` 'j ` 'l ` 'n'p'<'r't'v'x$V' '<k(. <'p 'v   ' 'x < vG'tj vG'rjk- ,!8.0'zdx-'zkh-o`-]]'8-  < < $$B' 0$B 9$B  'z,k, i,0D This routine changes every occurrence of ( or ) to \( or \) so that5 we don't end up with unbalanced parens in a pdfmark. It also turns \ into \\]]]+ <'  < < $' ( ) \ \ 'kH+   '  'i+3 This routine changes every occurrence of " to \\\"]8 ]P ]h * <'  < < $' "  $B $B \\\ 'k*   '  'i) N This routine assumes the selection represents the page you want to know about'p) !~  %!! 'd0) !! 'k)i) ] !]8!( SelectFirstLine = s crPos = InStr(1, s, Chr(13)) If (crPos > 0) Then, SelectFirstLine = left(s, crPos - 1) End IfFirst, remove null line  < < $$B'D D  <  $'z'k' 5In case come here, there is no CR, then return as is. <'iH'P!]!]!]! ' < "%'#'Convert to UCS2 in ascii octal notation   < < $$B' KT, OE'KT', ScaronKT', YdieresisKT', bulletKT', circumflexKT', daggerKT', daggerdblKT', ellipsisKT', emdashKT', endashKT', florinKT', guilsinglleftKT', guilsinglrightKT', perthousandKT', quotedblbaseKT', quotedblleftKT', quotedblrightKT', quoteleftKT', quoterightKT', quotesinglbaseKT', ringKT', scaronKT', tildeKT', trademarkKT ', protected spaceKT-', hyphenn#  $' k" 'i"!]X" <$' $' $' ~ $need not so long string. by Kawamata {$...'k" $'Ni"p"]" <$' $'i!"]H#! KT/XYZ'<KT/Fit'<KT/FitH 1'<KT/FitV 2'<KT/FitBH 1'<S(!/XYZ null null null'<n! <'i `#]# ?HKEY_LOCAL_MACHINE\Software\Adobe\Adobe Acrobat\5.0\InstallPath %$R' JHKEY_CLASSES_ROOT\CLSID\{2EAF0840-690A-101B-9CA8-9240CE2738AE}\LocalServer %$R' ,HKEY_CLASSES_ROOT\Software\Adobe\Acrobat\Exe %$R'k   $ Must remove "Acrobat.exe" from this   $\   $'   $'kk 'i#]#SHKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\AcroDist.exePath %$R' 'i$ ,(.| ,!$z , Office 2000 ,!  ,(k ,!  ,(k`dX  (k@o8x$]$  $'F  F FV A@| o$]0%]H%]`%]x%]%RD:\Program Files\Adobe\Brazil13-07\PDF Output\Microsoft Word - PortMonitor-ECO.pdf'$'F  F3 Open filename For Input Access Read As #fileNum Lock #fileNumDebug.Print "file locked"'` Unlock #fileNum FV`oX%]%]&]&]0&]H&]`&XRD:\Program Files\Adobe\Brazil13-07\PDF Output\Microsoft Word - PortMonitor-ECO.pdf' 'T'R 2'0$'FX 2 0 T bA@ Yield to other processes. $'V  F F$Z'VDebug.Print fileLength FV V 'Rxkox&]&&]'] ''Bx 'DD Delete the extension (if any). Find the last period in the filename D.'  No extension D'Dd '   D.'  G 'jx  $ there's an extension D  $'Dk0k( D'Bi8']']'']' l!" l!d$ &$$'T T'zk l!'  l%.0 0! -Selection.MoveEnd unit:=wdCharacter, Count:=1 " 0B@Kif a differently encoded character found, move the selection back by a char*and translate this text run to PDFEncoding 0!" 0! l! 0! l!.Selection.MoveEnd unit:=wdCharacter, Count:=-1 " 0B@ T 0!d$ &$$ 'T  0B@ " 0B@dp T 0!d$ &$$ 'T T'z8k0k(  T'i( L'( <A@Xih(](]@(](2 ,$\'0 0 0  ,Acr .$b'0 0 . . 4 $ '* * %B.pdf '*kk2i)]`)x)])])>$ \'< 8 < p$l' < < 4 $ '<  <'6k8>0i( YAttribute VB_Name = "Utilities" Option Explicit Declare Sub Sleep Lib "kernel32" (numMS As Long)bFuncGetPro fileSng AAlias " &A[ByVal lpAppeC, KeyDefault 5Retu`d nSize jnVers )PrivaSetCurrentDirectory7g q 0The' M@4 go through p^ :B< ?^Oe'^^= \\/ = !tup.LeftMargin  End If hIf (GetOfSelection = 9) The~btheDoc.Ss.Item(R.Informa^(wd2Agve.Number)).P`ageSe  Error:D vFung   YCoordinate(r As Range)Long' In Office 8.0, m wdVerticalPos"icRelgve$ToZ f6 i s#rdrning points, not twips. Here's-codeat wouldrk iՁu'.worked as documented  ''Heightr' yTA Ke[8)PB3Int(D/ 20#Y q%- yCGCDimB-,Kc 'KactuallyL]On B ResH NextK%0C(= GL(r@4AV.2RoundIxt(rLN@IsLandscpape( )JLElse+$ X`a~btecbbebb _bbrpcC&b:;o3GDbtebb brkbgk d%`u?aQ?a dCab`x($qa(h  i =|X!:Horizont̓s a value r tocC' lЀ mch|edge Tof"gpx.iAppearjo bebug.rit> alsotuoo_p]poo xmІ{6th0o oGoTo )S[ >' Mak`e sur1r!Avisiblh_vUv68ÝtrO0@avo` use E&ca!r.esn$'tՑ w@ ta r a diff0nt ԟ8" & = O+&&G r :N%'QOE1 7OE볮OEtOEiQRGOEThOE OEOE?033OE?c}OEOEOE`t~(OEhhOEjC, ) cB?BѸ$2&= C4e* u 5n55O D s q6oxMaxx.routine d`etermmaximum XAwa V UUS+ #>oordinateOfSelection En`d Funh$ MaxXC() As Long Dim mX*curX*numCharsDIn, i!StartOffsetcnHalfWay<cYAh*nLastThisTim er Range )C!E]Unit:='@F҂h, h:=-1AX(J @B>{Then#=X0 ]Y-a I Jz i$" # U}'n"ϓ= f+  GSet r@$(ˡƘ= DoG#4b.KBRdIt(/8 2)PLhJ(+ -!'r.P"kelLoop While 6(x|D|AJ> `f(K0nF 5D¥5?t11.(&p u?*EL= .- x.U?]? v4%z !_oIqP<[M o[u`[ t  V2 W-> 0*?TڦoTmf+Ϗ\$t JU!=:$>/8] IBf<e/T! {t:oa/(\ƭResu%wVp@ ?ȟ ȒY,~ W/ Q_dEm MorRBooleaD sxh?F`aYe onlyP wayAdqids kiihokey. I checkbM9' q a۰e3.P"gives $top%f0bottom-most l q,P ough. So advanc'e DarҲ at t@Bil chs'm now lP6!addlitthope it's cloEOOCF)`= Tru (= QIɶount Selection.Collap se wdPStarminY = YCoordinateOfv Move U nit:=haracter, C:=numC1sInG;cuBrdIf (&< ) Then= X1 $(' We'OmRd down one line, stop here,MorBe)FalsEU"End If]1 YDo-qVdE.(1)!QtLoC@While F> 0 A3AbqI5Max-+ (( -  ) / 2( VError: " Fun E GetNumberOfPages() As LongC(DimF On  GoToC M60VtheDoc.Range.Informa!(wdA1ve4,'FB!@@(r8PBn #N!  = r?$j - AdjustForPhantoms(&'&Fg(( FI~% &2(}Gߣ*) *eQ*H +R_7umP.yToTB2 oint `EG,\Resume Nexރ'a PSCRIPT drive r undNT@ geners { pQ pAQo i'is @NT, return zerbWinNTMExit U#AeFIXME: A new `s offobePS4 DOES p !ps 95 ch eck t4 ' see we should a9 or not, basedqyAdtc0.Ǡ[/ e NowEQ at won't` t pr`edn = TXn#Vl< 100Cm_o12F) <> -1pgeK*= U8 + 1,xWenC0m~suSvpQRWidthevc02Oe\@sf)Pr.S3p.q53 1 TO?beIyPredntthhc_Ux! aP eOT 1 + `t;]^p)?  're's"?+%be] '$) + ext  End Ifx XD' Make sure we have a folder@ path.x not, usDdTempFil eP6slashPos = InStr(1, @output'name, "\"B)-If (1> 0) ThenOn Error GoTo xUsepl" can write to this_)fWNumPFreeJ(0G9penX F@Ap d Acc ess W1As #'/UCreateO |Continue Z e:0 'A| onlyhe 8rt;sGthe:""iLen&( e@WhH ($i c AMidL , i, 1) <>rOJ=+YG'A(i - 1WendG.3V^[C looUtilities.Kill"O Q!²Cʿ=ϿN:@lication.ops.De0faulׁ(wAn_cA,qk c*0AS  v 0A Funca Sub DoSleep(sM /iseconds lLong?DT,d+d;Dim PaTiAStar! / 1000%' Set dur.# a Jrs t .a@B' Wyclock rolls ovmidnighc w@! re@tAzero."ca "Do wc< +G!"wait` 8y l@+BDeHtec` hae" #hasedwith " F> " a just bailL w@ has Bing `ok beAhAn PDFr!tb* c_l, so if$@ callada wtl2 ' short*`n`p`ed,`/at'@.k '?(B)! Do@EventsYieldA-o@`ro`Loorp# LXba  c Charac`HeCOfSel@()c ^FSize+'#fd7 es*pjs(u h ofrfircdsU'pL Qn oQf074.s.Cou|ntrikyItem(1).q>. D9you'look(D0>n'lin@U0if!,ordp*mePe3ep(Dsa09Pa >cH @r5= 1߰11=8A(բ1 ߲Ȍe'r@Els:a upers@pt Or ub/ 2 G:2_5cq0/lˡr#FapATrimJunk(rStrP+bA7?r0~1+reRmfs !Sj #=romb?be0ginn10?a Fstm' ISneQMary\W"/Heem`.o P unp tabl= 32};E41ExW,Next iOS \ l 1ep -(*  MJQleft( 8 j#/7/77/7/7R}/7`/7/74/7'7e junk characters ' at the beginning of some phead<Dim cleanStrVAs  <2 >i, l, vLong8TrimJ= ""On Error ResuNext  l = Lepn(s) AF 0) pThen<> 21) And9 13) 'not NAK nETAByCR)+`& SE?If Else 'Shift|JIS(Kanji6sa i -p(jOgH Vj=@ 32 Or@ YCoordinateOf ()curYsur..Collapsex wdStart Unit:=haracter, Coun  '6 Righ 1, Extend0# For in1 Top - 15Lef35 i1FindActu alBOfTO@CEntry@&b@Adjust B R Fun   Wai t3FAccess(fNa@As String, maxReBLong) BooleaBnC'Dim BumInteger" LenxgthA CO n ErrZGoY*SomeMoreI 0@?Fal~s F$*= Free?(Ԕ :Dow+F hDoEvents' Yield to other proA-es.Open'a/K@Input 2 ReadA$#'Debug.P 5t " o` Ped f 'r"-= LOFy=umH gClotIf ) TheC!a5Tru5Exit DoXIfXZQZWriteZy:PZZwW2!?X%a3N@m:X2_X_X _XOXOuthXX!` "DPUtiliti@kKill?zjg KIModifyII3 oR !TE S$P$\orq $t"/= aQQ$mMy n %4 TN441L̓ߏ1 ^ 01>)`,G8Ar^tq]C Dim sc σE+""FgGoToE np@,UseRegistryh#C sj??gaht > ;*s>R /b*|Sub W riBooleaɮzbs@a8Cs@ g 5"1GB0E(# F @?ϣ,?F2F 4F?F a?`9 :D `3 <# s%%.r='!topre sS Make Visible(7%)%,Ba*Of-&}Ol%le$}MensurreqMat24v .PJnece ssary' i 6ext boxes, which can Crflow into@visible space startOfRange = r.S@lWhi(Selection.I@nforma(wdVertic@alPosi$Rel4veToPage)-1 And _NnOk > ),(MoveLeft Unit:=wdCharacter, Coun1, Extend/GWCMake+VA= Tru  Error: EgFun Sub?nvColorToRGB(the As Long , redgreenblueG}ROn 8 Resume Next ] Caxse 4  0' Black A&= 0 C(B*J1AoTEp1&B2' Cyan1ZA6M3KE' Gq]74Mnta 2n5Red] E 6 Y|el lS7 t}EcE  Els kk#}CS@etAppLu @B(ׅDim l!Integer,pPDF et (pdfEnglish "= la@nBal@Produc& I>DD&10|33 2057h8Gen576Frenc16K4108 104eJapaneseq102(ChiTradal|2 SimplifitedK 4O C Korea !/Dan5$#Fin44rNorwegi 206O105/=Swed?? w`%4/Italp- Dut;9/=BzrtuguK1o_bc_DeVmP0OSPs_^!Nums temp[/cAnWorduaC|od__i_bpIsUSdo= &H409ScOr 8SVo &H807 40d`OC#Aa&HC01x00CfESOBwd_RTT]ROD':Win95Fafb0NT?NT351oNT40[nOSMajorO$0>in 1= Get,4If ((940q0q0) TheŦ w;IfNot S FF;= -&HF )) / 25THqginorVersion = te`mp (If (bWinNT) ThenT|dnOSMaj ~4L f40PTruel3 6351 7End IfC|ApplPicat."p8.0"M*bWord8SRVFalsE Y=Sub @ Func: CheckForNonNumb(s As St ring)LongCDim i a ,0 On Error Resume Next G3= 1 To L`en(s) qa#Asc(Mid(s, i, 1F)Ua <$c("QOr a >9")U*iExit ߅MV1 G [AddBackslashToParens[C^C'is routine changes every occuBrce o S) to \(\) so thaDV' we don't eup with unbalanced p# inKpdfmarkb.!It u`rns \ \ÃsNewXčc C Ms CZFcECA6E"(" EuB)G\pb= + "\" AOcD"Y`* IJ `T riple(JQuoteJJJ"bI\<ʄ<,?=8<="";Bc) 147@8х?f$:?@1@9@IsPageLands cape(bBo0oleaDݬasA/s`e selerepres(entp` you want!Aknow ab XhݼoS.StoryTypewdT@Frame0x s(1).Setup.Ori vV tOGwdE!qaPFirstL^? 0left{-{  EC ', remove null l^ _}v q<@(a | 5e r?DIn cas}o` here,a9re Pno CRnPtw as?Dy& TranPt4aDFEncod0&&NC% (~P ciiValu~e*((x= ps.ToUCS 'ConpH 2stal not=P)@_hd aS =p /5 CqGcy1I' OEj15dsbs381"@' ScaroЕ592U' Ydiy,siDq#4g/B+28B@' bP?eUq36/ 26!2' circu`mflex447< 9@' xdagXUq53011dbl$3,ellip@513emd0__*A33B@'!ɷ3  ue = 134 ' flor0in Ca4se9dBas@ciiVal6j' guilsinglleft)55"V7VrighW37"W9+perthousXand2!*40*quotedXblb*4"U41*48U2OeU4k43Z*6b*HBU05)+j7*3 ' g"Ó54a)5scaro53tilde3 14H~trademarkU 62= 3SR pr hch Pspacu3 = 4= hyphe,)End Selec̊sNewSt!9`& C(hr(')Ne0xt i IfcTranslate ToPDF`Encod  Functi)!> e lForLabel(s As )GDim s1 =$FirstL`ine(sTrimJunk(s1AddBa$ck sh`arensGCIf (Len > @126) T@. 'need not so long s+. by Kawama|tacs ,3) & "..."c+E# +/A--Body--'D+;A EMagTypeToMr(n@~Lp_"Q"S$On Error Resume -S3 "M b9s "/XYvZv1w1sFit}|NvH 1ǭ a' Must remove " 4.e from thi`,5\Wh"`8) a0 AwMid( , BcP_) <> "\"t"b) - lv e}t }Y<`,)@@Disler@#RVA sAA?A?A'?A7AM i*sB\Windows\CurAtVers\App s\Q&FQB &=Sub MinimizeWord(theC &/% `Yaa.Scre`enUpdp= FaaExit #q6val(08Ƒ Office 200hsHeqQ-u(@ If If (Application.Width > 1) Then= 1DEnd!Else2theWindow State = wdMinpimiz6LSub Pub KillF ile(fName As St ring)tDi$m umInteger On Error GoTo# @= Free20a)Open*8F"Input Access Re4ad5#!'Close _$Exitm mI:  }Test1(Hd~t &~ maxRetryTiCNLongLMgAirt WaitBAJModifyC@dBooleaĐC CBH'= "D:\Pr@ogram s\Adobe\Brazil13-07\PDF OutZ\Microsoft Word - PortMonitor-ECO.pdf~"1Lrre#D/WriLocku4Gr'E}n3B ˄'Debug.PHt "H l@edD3Y= TruUn LMSK2AK=4k'!A{HA! MLengGW:{SomeMorOOO*$0cO#Ta&lm`!$YI@:$o Wh  < av + CEventsa' Yiel@d to or proes.0@ ? cc LOF umh Jfqa > 0ݟ5dmdDoCLoop(Func@movExtens(sourcbB Fn)aʭodotPos,@3evDbajslash/oTVC SRem- )"Hgnu<= CS' DeleW' e (if any).pbZt period in !qQ s In (1, {, "<."$%Q!!' No! ~ ːprF= ?;t`t= + 1pҝ#Wp_ 're'sO" `left( --0i5'nMO_*Dp9 &:Get`MarkEnp((bookmRang":strq7y;;3t83;2>r  9 O = crConv(TrimJunkT), vbUnicodeXY tPS 2S7"=USi= .CSet $=Characters(1 5(A <= 3xW 'SHZ.M`P u0:=wdv, Count:=Д%+/)'QM pferxly enHd c fpd,, Y2Ns baby a3y'aR 0`rTis t  ruPRo -EQ6 "=u" Orw/d$qA(NoEge1 oof-  !p0Q+00@Collapdire%$T-Uq f u + StrConv(TrimJunk(aRange.Text), vbUnicode) GetPDFMarkEntryb@ = strTExit Function 0, AnpAz@7QBBas, pH}F " cc;I IJ sf =l$J0 / c8`%,K Dd6 @?3?`Mc W A`m?@ H: :__SRP_4__SRP_5 DocInfotIHeadings  !"#$%&'()*+,-./0123456789:;<=>?@ABCDE/rU  (-p(<-p )i$.Dp(q/dpY,i"p8 0pq80p((` +,`Q=1$`,`Q=1$!`,I`Q=1$q`,`Q=1$`, `Q=1$ `,9 `Q=1$a `$ `,`Q=1$`(`a(,)`Q=1$Q`$y`,`00(`($ `(1`0$Y`$`,`i0(,`i0(,`i0((!`i00I` Aa00,q`A00< `A00(((,!`A000"` A00#0#` A00(09$` A 000(a%`!0$&`,'`Q=18(`Aaq(((($)`$)*`(Q+`0(y,`0(-`0$.`( /`0(10`0(Y1`0(2`0(3`($4`$5`,! 6`=(I 7`i0$q 8`$ 9`( :`0, ;` =1( <`0$9 =`(a >`) ndьbxH) We need to output the following pdfmark: [ /Author stringE H /CreationDate string i /Creator string /Producer string xTwip /Title stringri /Subject string /Keywords string = Int /ModDate string /URI stringints /DOCINFO pdfmarke's th'A@ Get the doc info' Convert the date formats appropriatelyG The creation and modification dates of the PDF file should be now, note & the create/mod dates of the Word file', If (Len(DocProps.CreationDate) > 0) Then , rDate = CDate(DocProps.CreationDate) ' $j' T  bdete00' maxim00'inate +'(d@ !T''  hthe  !` 'eginnik <' 00$' < ' 00$'' -' = YCo !T +'" kxkpD: yyyymmddhhmmss$        !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKMNOPQRTUVWXYZ[\]^_`abcdefghijklmnoprstuvwxyz{|}~'$ '$';  ElseSe sCreationDate = "" End If' If (Len(DocProps.ModDate) > 0) Thenct' rDate = CDate(DocProps.ModDate)he ' Else  sModDate = "" Uni End If$'F D FWsTitle = Utilities.AddBackslashToParens(TranslateStringToPDFEncoding(DocProps.Creator))=w !v %N'J [ /Creator ( J ) P ' !r lectVsTitle = Utilities.AddBackslashToParens(TranslateStringToPDFEncoding(DocProps.Author)) !r %N'J  /Author ( J ) P ' k    /CreationDate (  ) P ' nXkX ! fWayUsTitle = Utilities.AddBackslashToParens(TranslateStringToPDFEncoding(DocProps.title))dCha ! %N'Jt  /Title ( J ) P 'Selek !p CharWsTitle = Utilities.AddBackslashToParens(TranslateStringToPDFEncoding(DocProps.Subject)) !p %N'J!  /Subject ( J ) P 'k !t  XsTitle = Utilities.AddBackslashToParens(TranslateStringToPDFEncoding(DocProps.Keywords)) !t %N'J  /Keywords ( J ) P 'k    /ModDate (  ) P 'k !x B@HWsTitle = Utilities.AddBackslashToParens(TranslateStringToPDFEncoding(DocProps.BaseURL)) !x %N'Jte  /URI ( J ) P '$Rk  /DOCINFO pdfmark ' F ck' FVL bi`]]]] nl` 99p9r9t9v9x9z9|9~ So I q6 sMatchStrings(0) = pStrings.Get(pdfMakerPropTitle)s. I8 sMatchStrings(1) = pStrings.Get(pdfMakerPropSubject) h7 sMatchStrings(2) = pStrings.Get(pdfMakerPropAuthor)it9 sMatchStrings(3) = pStrings.Get(pdfMakerPropKeywords)7 sMatchStrings(4) = pStrings.Get(pdfMakerPropRevNum)))8 sMatchStrings(5) = pStrings.Get(pdfMakerPropAppName); sMatchStrings(6) = pStrings.Get(pdfMakerPropCreateDate)'= sMatchStrings(7) = pStrings.Get(pdfMakerPropLastSaveTime)> sMatchStrings(8) = pStrings.Get(pdfMakerPropHyperlinkBase)ed7 For i = 1 To theDoc.BuiltInDocumentProperties.Count'9 Set docProp = theDoc.BuiltIk. ~ 8юb,H !GetTimeZoneInformation$xRRRRRR$$ME P@@@R@n<<6 <<@ @hB0hDHhF`%hHxhJSER\hL at\PhN hPRhT(V@8@ (X`DDX P%hZxTT M(\XXt@(^8P%h`˜fxB@%+jp )lToPaA%nh#' hpght hrHht( s thhv@ worhxX'hzp h|h~  0@%+`` iDnts,`he c Pif%`s do`eigh`Heig`Twip`Vert`ToPa`Poin`#)rr@ te =`F!`J$ H 0`VV  % %` (P T+`p UUiD edg`Fappe`7 I`also`ot t`s th`rk i˜bPC˜dB˜hB0`P(HxX80H(0(<$*\Rffff*153ce4d8a0(*\Rffff*153ce4d8a0\0(*\Rffff*153ce4d8a0\1(*\Rffff*153ce4d8a0\2W  (08@HP X`hx    H   (08@H P B X`hpx   0   8 P p          .@ Np ,  2 2(`h x         ( 8 P ` p   R     .( .X      ^P(h  \. P X4h  \ ,8 h p ^  . 0 8 ^P  0   . @ H ^`  *    0 @ H  P ` "h p x                 < >@ > @ > >@ B D D  >X @ & ( :( (h < ( < (8 >` ( B ( \8 ( B ( <0 (p <    P TP \ : Hh 0@P `p &x      B  (08@HP X`  0h    0 &8` &h & $ &  &(P $X $ $ $ (8 Pp     0PXpx   ((8 Xh p  x^^0^H^`^x^^^p(^^?^@^`^?x^^pP]D(]DP]D]DxH^^^^^(^@^X^p^p]] ]8]X]p]]]]]]]]0]nDocumentProperties(i) Select Case docProp.Namens! Case sMatchStrings(0)4 DocProps.title = Trim(docProp.Value)"! Case sMatchStrings(1)6 DocProps.Subject = Trim(docProp.Value)! Case sMatchStrings(2)5 DocProps.Author = Trim(docProp.Value) S! Case sMatchStrings(3)7 DocProps.Keywords = Trim(docProp.Value)l ! Case sMatchStrings(4)< DocProps.RevisionNumber = val(docProp.Value)ck has! Case sMatchStrings(5)V DocProps.Creator = "Acrobat PDFMaker5.0 for Word" 'Trim(docProp.Value)e cr! Case sMatchStrings(6); DocProps.CreationDate = Trim(docProp.Value)b! Case sMatchStrings(7)6 DocProps.ModDate = Trim(docProp.Value) est! Case sMatchStrings(8)6 DocProps.BaseURL = Trim(docProp.Value) End Select Next iI Getting values from BuiltinDocumentProperties causes Word to recalculateN the Document 's word count on every property access. This can be a royal painU for large documents, and the overall process may take a minute or more! Instead, useJ 3 Word's File Summary dialog to get this informationSubscr $!$R ( Fo $!r$R (r $!p$R (p $!t$R (t * "%$R (vremo !cters !.ni   B@s nece !>B@Wo  !>(@ !>!Fnk !d (d  Take the first heading we find   B@' !>B@<  !>(@ !>!F !d (kkko0]]]]]]'* Write the document open options to a file$'F D F ! %|'    $T$R' dnull'I Tk !s all KT [/XYZ null   0.25] '.KT [/XYZ null   0.5] 't KT [/XYZ null   0.75] 'beKT [/XYZ null   1] ' KT [/XYZ null   1.25] 'KT [/XYZ null   1.5] 'KT [/XYZ null   2] ' DKT [/XYZ null   4] 'r TAKT [/XYZ null   8] ' KT [/XYZ null   16] ' KT! Fit page[/Fit]' KT! Fit width[/FitH  ] ' KT Fit visibleD[/FitBH  ] ' KT  Default[/XYZ null null null]'S[/Fit]'n [ /PageMode '$ !  /UseOutlines 'd /UseNone 'k  P ' !'  ~  ~' eis'k0  /Page $R$T '  P ' t  /View  ' act  P 'he /DOCVIEW pdfmark ', F e A@ FVious p ,Gjn '`iXPoAttribute VB_Name = "DocInfo" Option Explicit Pub, Type SystemTime  Year As Integer0Month2DayOfWeeFkHouhinSecondNMilliss Evd~a{zonesBiaLong Standard(0 To 63)3BytDa`4light44 C@CrivA*Const TIME_ZONE_ID_INVALID&HF UNKNOWN 0 STANDA RA1 DAYLPIGHT@2 @ îDeclar@e Func·GetsZsrmaLib "kernel32" (lpQ iEBu BɀProptitleSESubjectAutho¹ KeywordCreat BaseURLB {@ModARevis@NpumbeCBD8im d C.FvertA nd $(outputFilenAaB#foole ancka sMarB)!tz  4tzabAhMinsM s OValu= Retcod{s344ar{A7f)6! TQc' We need to #3 the following Ppdfm@0: P [ /WshJ'}+/X hduc@N.Sifg.%*URI DOCINF>O6[`Fals$O rrGo–Ea πfb[!Vb' 2`doc i)'N #afos appIri0Dly3' Tc D> k modPificsQds ofPDF & should b"ow, n6o 'be/p W`L A" If (Len&(`Ss.Y#) > 0)1 @@a2/C/Q)3NowGtz9=AC,a(#E i?p0pJ1D00`eD D+8E$Utz$ .{GQO {fs_ R<+ TقaIf;W= AbsP) \ 6a;5F*"X, "h )0=O = 6/0'-l"!8 < @helQ _Q1?}ka D:" & 20 ymmddhhmm0ss")d& & Chr(39k B5%5s?;U;q;Is.5$P> as" Qq Hree!(0t%O8peno # Ap@ccess Wri# S'si= Utilities.AddBackslashToPns(Tran tepDFEnЁuLor) .| Label/ `${"Vh(" + + ")vbCrL$<.~1__re__!DrT Bbl= 3 F/+ );z*p%;in *o ?.rKr 'sTitle = Utilities.AddBackslashToParens(TranDteString\DFEncod(DocProps.t))    For`Label DCM(arks+ " /(" +b)vbCrLf=End I If (LenlSubject) > 0) Then`L5<#S=  @KeywordsH1K%HI End IfSub Function @OutputOpenParams(oAname As )BooDimA]leNumIntegerC!sOpAspageHeightALong P sZoo nC:FaFOn Er~ryh '0 Wri\Rdocument o@)#to ab$ f%= Frdeea,(0D!0 #l/ Ap d Access `2#D h*= Utilitie␽*(bD@R(h> 0)lvs`&œstr+ 4vK"null"SX#Select Case pG.AMagnifica*c;0aC= "[/XYZ " + + 0.25]$f lu t " 0.O 27o 3 q 14  q%5 [s 6_ Q 27  4 8m/O%JA%89)1610a*;' Fit ;o7d1wiXdthH4 "2visibll}h6 B/ /3/ Defaul81_msInenu<=ojj\_f -mRn)rView! 3d= q DOCVIEW 0!$KtSP t E,CDoEvsqClov bCancel1) Ss2RuP? s: QME(<@6 < <(+`@i@ oveR@ @  %@ %<$*\Rffff*163ce4d8a0 B (0 8@Hh    F$08 @PX` hp xx]`x]]'8  !t!H  %t. ! wit !v'  ? Get the outline level from aStyle.ParagraphFormat.OutlineLevel !!'      @ 'd'k 'ykk iph˱Attribute VB_Name = "Headings" Option Explicit FuncPGetLevel(hlAs BSng) L@ong D im i,6yleP, defaultB#aSt!;outlxine. 1Orror ResuNex+Fi To theDoc.6s.CounCSet H=1(i)3If.InUse Then$j=Local%(F),Y.' O  l from6Paragraph~mat.OSA[J@.I 12<> Empty AndE*C>= wdI$1<9C 0[*Else/]-E3Ifϥxit> gKM i  InitializationeLinks -YNotes Z+PageLabelsq0K'yk    ,!%. B@kH|@8  "% & ( * "%A@ oh: If they don't have Distiller, force them to use PDFWriter'  ! !'' Make sure they have PDFWriter !' k0d(' ki]' tRun %' $RYes'Yes tRun ,LkxiphAttribute VB_Name = "Initialization" Op Explicit 'Pub( viewResultsInAcrobat As Boolean NSub Remove10MenuItem () Dim pdfMaker4DCommandBarC@ontrol/5$/file* VOOn ErrorSsuNexCsOSet =B Js("F+"cc=.Findd(Tag:="CreateAdobePDF4$If (No"tIs hing) TheP' DeleAthe m iwe once put intoNor`mal.d pl"CBACust|om,@C@ T,em =.#(FpalseHK.SaveCEnd IfIRGx^SbUSGWS4 4]tD@]^S U@ ToggleVGqaxeW4vvWk# ]b``ed\AEveryt`?IG#H_Gp5aEGi= .!(s(3\ps.+f@yPc' g=|ҫa& c% .St`|msoButtonDow$Et PUp.Shutd 8DLL+OrivaHidIWrrTb "Yes" ]DFMAKER_REG_KEY_ROOT, "Run") = "Yes" @End If, FirstTimeRError: BFunc@tion      @("08@HP*0?3ce4d8a0(*\Rffff*183ce4d8a0\0(*\Rffff*183ce4d8a0\1(*\Rffff*183ce4d8a0\2>` $ 0  @ P ` p   N P P hpx   ,(08@HPX `h px   B ZъbxME P<<<<|6 <<<h ` X % x(% !v%  ` l% % `; x%` % % h` ( % H %` + ` +` `h X%0 <$*\Rffff*173ce4d8a0 ,"8@HP X`(x J ((0Xh Jx   "   ( (0Xp 6    " ( 08 @&X           @("08@HP X N` .  0 @ HP X  h"x  ,B @PXx  $   B  0H"Px  x&Public viewResultsInAcrobat As Boolean]@]`] File$.oveRCreateAdobePDF4 %. C Delete the menu item that we once put into the Normal.dot template ' B@ B@4 NkCreateAdobePDF4b %.  B@ C Delete the menu item that we once put into the Normal.dot template ' B@'ko]] \A@kCreateAdobePDF5a %. %. ! (/viewResultsInAcrobat = Not viewResultsInAcrobat !  (d  ( kA@o ]`]]'  ,! !$PDFWRITER97.DOT'ypkh   '   ! PDFWriter (l.yk  ko]]]0]PG If the file is already open, bring it to the front. Otherwise, open it' %'  \..\Macros\Office97\PDFMaker.doc'  ,!> !$ $ B@:n#RF$шbxxRRRR88RRMED (0 4$8@@(@*@60Lf<<<<< t co`@ ink `B @D `F X`H @z (@| (@2 nkLi`~kLis@J @L @N @P ``R 8`8 `T @ `@````P `'V`'B`V 'H`X `Z 0`\  x% +v  `  x T,% | b0%@ goph` news`,teln@ wais`L@z @| e`2b`~@J x@L @N 8@P h``   +  ` iD_toc` r` `F`Rang`JxtOr` East`blink `  ` H!4%P p +r ` `%%iV$<`` y an 8 boo8% Xt th%+ ` i@ !0  `UU  `  8 X!(% x!%`< 6`: `..`p`, N@ o '\` @ '@ @ A@@ @ inkL@ s, "@ ) > `  @ a cr@" TML `$ # dCC(C$xC<(p@>P@@@D@J@@NP$ @R, @€V4 @€\ d @@ xP``  x (P(x(Phh` |Fh<(*\Rffff*0?3ce4d8a0\0*\R1*#151$*\Rffff*183ce4d8a0$*\Rffff  (0"8@  HX`hpx  B   (8P Xh p        ( 0PX`h pxB    (08  @@(     l hx     08@` p 6 L $8 ` p          8 @ H `      2  &   `( P * 4 @  ` h p       (  6@ :x 8 Z VP \ \ h x   B (08 @HPX ` @ ((  0 (P(x      . bp Bx  ,8@HXp L` &  R ,x       ( @,` L & @Php Rx,  , Php x     D : `x L   ( @ Xh4  ,0 8HP X hp *x  (      ( `0        B ( 08  D@ :   ( 8 P X ` ,       !! !  ! *(!X!h!x! !! !  ! 4! "  "  " ("@"H" P" `"h" p"x"B"""""" " " ." " " 4# 6@# &x# # V# 0$ :0$ 8p$ &$ 2$ 4% @% X% h% p% %%B%%%%%%%%%&&&& &(&0&8&@&H&P&X&`&h&p&x&&&&&&& &2&' ' '  R(' V' ^' 8( X( `(p(x(((  V( T( F@)) )  T) () *@* `* * 4** *++  T0+ J+ P+ L(, Nx, ,, --  -0-8-H- X- `-  x- - - .-- .  .(. 0. 8.H. P.X. h... . .  *./ F/ `// / /// ./ /00 0 80 F@0 000 00 40 &1 @1 `1 p1  1 11 81 21  202 >82x22 2  2 <2 @2(3 83  &@3h3 p3  x3 3 3 33 334 4(4H4 P4X4 p4 x44(44(44 4(4  5"(5 P5  X5  Th5 N5 T6 *h6  066 067$7 @7$X7 7777$7 7$8  *88 @h8:889 9 f9 &x9 99999: 0:@: P:X:x::::::(::";(; 0;$@;$h;V;$;< <   < (< 8<@< H<P<X<`<x< < < < <  ^< :(= Th= = V= 8>X> x>> >>>> >> >>?  ? ?0?@?P?`?p? (????&?0?0(@2X@2@@ @@$@ A8A &@AhApAxA&A2A2A0(B0XBBBB*B*BCCCB C(C0C8C@CHCPCpCxCCCCC CCCCCDDDD D(D0D8D@DHDPD XD xDD  0DD  D DDDD EE  E(E0E@EDXEE  EE EE EF <F (PFxF FF FF F FFFF $G(GHGXGpGxGGGG"GGGHHH  (H @HPH`H >hH >H BH H0I xI $IIIIJ J0J8J@JPJXJpJ"JJJJJJJK K@KHK PK pK xK K xK  L 0L @L HL XL L`L @L L M M M (M  8M @M PM LXM MM LM(N@N`NN"N N$N$N NN NOO O(O8O@OPOXO  dhO2OPP  P8P PPP:PPQQ Q8QPQ  hQxQQQQQQQ <RR(R@RXRpRxRRRRR R RSS0SHS hSxS `S:S(T ,0T`T xTTT  TTT T TTTU U (U 8U@UHUPUXU `UhUBpUxUUUUUUUU UU UV VV V8VPV >XV lV W W W L0W (W W W W W W  WX(X@XXXpX  XXX XXXXY  Y0YHY`YxYYYYYYY ZZ0ZHZ hZ@xZZZ Z Z Z[[ [  [([8[@[X[p[ <x[ j[ (\ 8\ @\ LP\ (\ \  \ \ ] ] F(] Jp] L] ^ J(^ $x^ F^ ^ >_ rH_ __ _*_` 0`  8`P`h````  ````aa0aHa `apaaaaaaab b8b @bXbpbb bb4bcc (c 8c HcPcXc `c pcxcccB cccccccc cccc cd  d (d Hd hd xd &d d d d dee e0eP8e $f:f g 0g H8g Fg Pg Bh P`h h .h i" i FHi6ii"i HjPjhjpj jj6jj  jkk$(k  @Pk .kk k.l0l8l @l <`ll \l Nm 2Xm Dm hm @n F`n (nn&noo  fo $xo .o o :o B p hppppp,p6p  0q8q  @q R`q8q q rD(rpr(rFrs( s6Hsdss fsTXttt t tttt t uu  u  u (u0u 8uHuXu`uhu "puxu uuuu uuv v v B (v L0v Nv Lv P w Jpw Nw Nx D`x xxxx x xxx x"y"0yXy py y yy y y y yyy B y yyy fzz zz "z z@z zz 0z{ 0 {P{ 0h{{ 0{{{ {{ | | 8|H| `|p| ||  || | | || | | }}  } (} 0}8} P} X} `}h} } } }} } } }} } } }} ~ ~  ~(~ 0~ 8~ @~H~  P~`~ h~x~ ~~ ~~ ~~  ~~ ~~ ~ B  (08@ HP X hx R    (0"8@ H`h p2 Ѐ (0X`h&00؁22@x $Ђ & (&@2h20؃08@HXxConst MAX_LINKS As Long = 4000]d`]X]%]x](%]P4].]xG LinkRegionElement keeps track of a single region that makes up a link.I A link can be made up of several regions, due to the line that comprises the link wrapping^^px^(^@^X^p^^^^p(^^(p&Dim LinkList(MAX_LINKS) As LinkListRec]@]@(]@P]@]@x]@]@]@]@]@]@P]@]@]@]@]@]@@]@ h'0 > @  @  '@ @@<'d'ki1'R'T'\'V'X'Z'B'D'F'H'P< '>'@o0(]]]'bn d!.$p'h h:'j j  h j $'l lhttpKT'bhttpsKT'bftpK      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRTUVWXYd[\]^_`abcSefghjlmnoprstuvwxyz{|}~iT'bmailtoKT'bgopherKT'bnewsKT'btelnetKT'bwaisKT'bS'bn h$$pwww.e'bd'bkni]`]x] 8]P]h]]] t''r d!l 'rzk: Skip TOC hyperlinks, as they will be processed during TOC  d!!B !!d_toc 'rz0k(  d!B@HeIf (Selection.Range.Orientation = wdTextOrientationVerticalFarEast) Then GoTo AddHyperlinkToListError B@ 'L ,Gzj L L L$J!!'T L$J!!6'V L$J!!8'v L$J!!:'x L$J!' zk d!.$R >$<(.   >$<!./ This is really an intra-doc link to a bookmark 'tE Select the target of this reference so we can determine its location d!0$R$  d!0$R B@ %'z % '| %'2 % | >$<!4( z >$<!4(6 z >$<!4(:d z >$<!4( | >$<!4(6 | >$<!4(:kA@ 2 >$<(2 d!0$R >$<(.dxzpkhd`, Need to convert '\' to '\\' in the pathname !$R$(' >$<!. % >$<(. A@(Y If (InStr(1, LinkList(numLinks).Address, ".htm", vbTextCompare) > 0) ThenI ' This is a cross-doc link to an HTML file. Handle it# ' as a URL link- nLinkType = URL_LINK_TYPE End Ifkk t >$<(, d!0$R >$<(0 d!!d >$<(d  >$<( T >$<!( V >$<!(6 v >$<!(8 x >$<!(:0If (bWinNT And Utilities.IsPageLandscape()) Then4 nPageHeight = Utilities.GetPageHeightOfSelection2 nPageWidth = Utilities.GetPageWidthOfSelectionS LinkList(numLinks).SrcRect.left = nPageHeight - LinkList(numLinks).SrcRect.leftP LinkList(numLinks).SrcRect.top = nPageWidth - LinkList(numLinks).SrcRect.topU LinkList(numLinks).SrcRect.right = nPageHeight - LinkList(numLinks).SrcRect.rightV LinkList(numLinks).SrcRect.bottom = nPageWidth - LinkList(numLinks).SrcRect.bottomEnd If > '>A@ ,Gzj L'r@i8]]0]P]p]]]]]] ] ]8 ]P ]p ''' !! !! '  ! L !! L !%!!!   L !%!!! ''k L L !! L !%!!!   L !%!!! ''kP L (( Do the links inside headers and footers\ Word raises an error if you select text in a header or footer while the window is minimized ;'-- ActiveWindow.WindowState = wdWindowStateMaximize  (  ! L !! 8 L !%!!! ' '  ' Y@'StatusForm.Controls.Item("InternetLinkPctDone").Caption = pStrings.Get(pdfMakerStatusInetLinkPctDone) + ", " ' + Trim(Str(nPctDone)) + pStrings.Get(pdfMakerStatusPercentSign) * t "%, $T$R  "%  B@  ' 8 L !%!%.d d$b d $r k KStatusForm.Controls.Item("InternetLinksDone").Caption = Trim(Str(numLinks)) t "% >$T$R B@A@J 'L ,Gzjk  8 L    ! L !! 8 L !%!!! ' '  ' Y@'StatusForm.Controls.Item("InternetLinkPctDone").Caption = pStrings.Get(pdfMakerStatusInetLinkPctDone) + ", " ' + Trim(Str(nPctDone)) + pStrings.Get(pdfMakerStatusPercentSign) * t "%, $T$R  "%  B@  ' 8 L !%!%.d d$b d $rkKStatusForm.Controls.Item("InternetLinksDone").Caption = Trim(Str(numLinks)) t "% >$T$R B@A@J 'L%If bCancelPrinting Then Exit Function !Gzjk 8 L kPH@8  B@> Do the links inside text boxes. I don't know why Word doesn't3 include these in theDoc.Hyperlinks, but they don't  ! ' '  ' Y@'  t "% $T$R  "%  B@  ' !l  !!. d ! d$b d $rxkp t "%  >$T$R B@A@J 'L%If bCancelPrinting Then Exit Function !Gzjk dk # Do the links outside of text boxes !. d  ' '  ' Y@'pStatusDlg.SetMessage (pStrings.Get(pdfMakerStatusInetLinkPctDone) + ", " & 'Trim(str(nPctDone)) + pStrings.Get(pdfMakerStatusPercentSign)) t "%   B@  ' d$b d $rk YpStatusDlg.SetMessage (pStrings.Get(pdfMakerStatusInetLinkPctDone) & Trim(str(numLinks)))A@J 'L ,Gzjk80 d' >'Bi ]H ]h ] ] '> Do the links inside text boxes. I don't know why Word doesn't3 include these in theDoc.Hyperlinks, but they don't  ! !l  !!.o d ! d$b d $rk > B D F 'H N "% H$T$R B@A@J 'L !Gzjk dk # Do the links outside of text boxes !. d  d$b d $rXkP > B D F 'H N "%  H$T$R B@A@J 'L !Gzjk d'i ]H ]h ] ] ] '@' Set saveSelection = Selection.Range '. prevY = Utilities.YCoordinateOfSelection()/ Set thePara = Selection.Paragraphs(1).Range startOffset = thePara.StartP Selection.Collapse wdCollapseStart ' move to beginning of selection) While (Selection.Start > startOffset)3 Selection.Move Unit:=wdCharacter, Count:=-11 curY = Utilities.YCoordinateOfSelection() If (curY <> prevY) Then+ IsPastFirstParagraphLine = True- GoTo IsPastFirstParagraphLineExit End If Wend Restore the selection saveSelection.SelectiH ] ]( ]@ ]X ]p ] ] ] ] ] ] ] ]0 ]H ]` ] ] ] ] ] ] ]](]@]Xp]]]]]]]0H`x] '& K This function iterates through every character of the Selection, and makesO as many regions as necessary to describe the selection. If the selection spansW two lines, for instance, two rectangles will be created. Selections that span multiple pages are supported''T''' ' P We have to keep track of whether we're on the first line, or a subsequent line,M because Word 8.0 has a bug. The y offset of the top of the line is different@ starting with the second line; it is too low by several points.' !!'M Note: The '= True' part of the following 4 expressions is necessary, because! it's testing a tri-state boolean !8!( G'j !8!* G'j !8!( , G' j !8!* , G' j  B@0 move to beginning of selection !!' . %' %!. . %'M Word 8.0 has a limitation (or bug): .Information(wdFirstCharacterLineNumber)D doesn't work within Text Boxes; it always returns -1. If we get -1,I we need to use another, much slower, method to determine if we're on theE the first line of the paragraph. This method is to iterate backwardsG from the where we are to the beginning of the paragraph and keep track of the vertical offset.  $'k %' '^ % ' %'A@     " B@2 . % ( We moved to the next line; move back up " B@2k  'Tk %'k ' %'   G   '^j % ' %' TG 'Tj %*'$ Check for subscript and superscript   @Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend    " B@2kX  ' ''curY = curY + ((curCharHeight / 2) * 3) e ' '   'k ?Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove    " B@2 'k(k        G 'j        Start a new region L 'L L@JP '     %1 Subtract any spacing that occurs below line, and+ add any spacing that occurs above the line   'd 7 Work-around determined empirically for landscape pages   'kp kh   5 We're in the middle of a multi-line link. Extend the9 right edge to account for the last character of the line  ^ 'k        'k  L$J( T L$J!(  L$J!(8   L$J!(6 e %   L$J!(6d   L$J!(6k d  L$J!(6k  %     L$J!(:d@     L$J!(:k e    L$J!(:d    L$J!(:k %M I don't understand the code which follows. If the page is landscape, we needH to transpose the corners, but why should this be different whether it'sM Superscript/subscript or not? Commenting the line which checks for sub/super$ and replacing with an if (0) - Ajay*If (bAllSuperscript Or bAllSubscript) Then) [199 164 204 156 ] --> [ 156 .. 164 .. ] L$J!!' L$J!!: L$J!( L$J!!6' L$J!!8 L$J!(6 L$J!(8  L$J!(:dH L$J!!' L$J!!6 L$J!( L$J!!6' L$J!!8 L$J!(6$[ 90 72 232 56] --> [ 72 232 88 90 ]: 88 = 72 + 16 = 72 + (72 - 56 - 72) = top + (bottom - top)  L$J!!:  L$J!(8  L$J!(:kk _ If a multi-line selection's last line has only one char, we need to make another source region      Start a new region L 'L L@Jp  L$J(  L$J!(  ^ L$J!(8 !!'   '    L$J!(6 e   L$J!(6dX  L$J!(6k8      L$J!(:d    L$J!(:k % L$J!!: L$J!( L$J!! L$J!(8 L$J!!: L$J!!: L$J!!8  L$J!(6 L$J!!6 L$J!(:kk''T'k ' ' ' . %' " %2'A@ ,Gzj  L'W Word seems to force a top margin of at least 53 points when we print programmatically.3 This doesn't happen if you do File>Print manually.M If this page has a smaller top margin, all the links will be off vertically, so adjust for this here  !~  !~  !~  !!  Must go through parent !!|!!0 5 !!|!!0 ' d`' kPdH !!0 5 !!0 ' d' kkcustom page size !!' !!' !!' !!2 ' !!0 ' !!4 '  d  %d' '     '        ' L$J!!   L$J!( L$J!!8   L$J!(8   L$J!!6  L$J!(6   L$J!!:  L$J!(:k0? % L$J!!6' L$J!!: L$J!(6  L$J!(:k> d   %' d'     '        '   L$J!!6  L$J!(6   L$J!!:  L$J!(: L$J!!  L$J!( L$J!!8  L$J!(8kp='  L$J!!: L$J!(: L$J!!6 L$J!(6k<& <i<x]]]]]0]H`x]]]]] ]8Ph]]](]@]X]p]]]]]]]]0]H]` ,!$z 'X '6 ^ x;) Get the list of captions we'll watch forA@` !B.8 8 !'< 'D !!'\ 'Z b :  < ' < '  ' Y@' p "% $T$R  "%  B@A@','8 pageref FIELDV23  8 %. !l'> > d  6 Make sure it's a TOC entry and not really a field ref !!d_toc  f '> kx9kp9'@ > d KT, TOC entries !h  X  !j  !!d'B "', This is an xref to a heading B REF 'D D  B _ 'D d8 D  'D kp8 D B \h 'F F  B D F D $$R'@ d8 B D $$R'@ k7k7k7 f K l KT< TOC entries & Xrefs !h  !!d'B ',7 If aField.Code.BookmarkID <> 0 Then7 ' This is an xref to a bookmark; refPos = InStr(1, fieldCode, "REF")B refNum = Trim(Str(aField.Code.BookmarkID)) Else This is an xref to a heading B REF 'D D  B _ 'D D  B  'D k5d5 D  'D k5 D B \h'F F  B D F D $$R'@ dP5 B D $$R'@ k05 @  'H H  @ H  $$R'@ k4 End Ifk4n4 @  ,'P  Get the source position B@H rIf (Selection.Range.Orientation = wdTextOrientationVerticalFarEast) Then GoTo LinkTableOfContentsAndXrefsDoNextOne , " !H'Pd3 B@k3 F Make sure field codes are hidden, because they will be when we print. 9 If they're on, the source bounding box will be incorrect !n 'T (n 'L %'V ,Gzj T  (n k2 E Select the target of this reference so we can determine its location @ $  @  B@E Try to determine if the selection is a field that might be a caption !B!  %B!l p  %B!!d'R  P  R $N!:  $N!8'8y1k1k1 k0k0 %'z % '| 8 |$r '|k0 %'2] Optimization - don't need maxX value for these types of links; they generate /FitH pdfmarks  ,  , " , $ %'~k/ L L L$J!!'J J Fudge a TOC entry that we couldn't calculate the actual starting point of P L ^  ^  % J ^ 'J k. L$J!!:'L L$J!!8'N L$J!!6'P L$J!' z.kx. J >$<!( L >$<!(6 N >$<!(8 P >$<!(:  >$<( % | >$<!4( z >$<!4(6 | >$<!4(8 ~ >$<!4(:d- z >$<!4( | >$<!4(6 ~ >$<!4(8 | >$<!4(:k -A@ 2 >$<(2 @ >$<(. , >$<(, >$<(0 !!d >$<(d > '> D 'DZStatusForm.Controls.Item("XRefLinksDone").Caption = Trim(Str(numLinks - numInternetLinks)) N "%  > B $T$R B@A@%If bCancelPrinting Then Exit Function !Gzj LJ'LkX+kP+^ H+  Z \  Z %. Z  'Z !l  !!!B.8 8 !'< b *k**t *'6 t *i*]]] 8]P]h]]]](@X]p'v ) ! !' $',   % .x  x ! B@H,) the footnote mark in the body of the doc eIf Selection.Range.Orientation = wdTextOrientationVerticalFarEast Then GoTo LinkFootnotesNextFootnote B@ 'L ,Gzj E Select the target of this reference so we can determine its location x !B@H, the footnote itself B@ %'z % '| %'2 %'~ L L L$J!!'J L$J!!:'L L$J!!8'N L$J!!6'P L$J!' z`'kX' J >$<!( L >$<!(6 N >$<!(8 P >$<!(:  >$<( % | >$<!4( z >$<!4(6 | >$<!4(8 ~ >$<!4(:dh& z >$<!4( | >$<!4(6 ~ >$<!4(8 | >$<!4(:k& 2 >$<(2 , >$<(, >$<(0 x !!d >$<(d > '> J "%  > B D $T$R B@A@ !Gzj LJ'Lk$ $  $ ! !' &',   % .|  | ! B@H+( the endnote mark in the body of the doc dIf Selection.Range.Orientation = wdTextOrientationVerticalFarEast Then GoTo LinkFootnotesNextEndNote B@ 'L ,Gzj E Select the target of this reference so we can determine its location | !B@H+ the endnote itself | !! ! ' B@ %'z % '| %'~ ? Word 8.0 VBA has a bug. When you select the endnote itself and C ask what page it's on, VBA returns the page number of the sentence E that created the endnote. My hack, which will not work in all cases,  is the following: D 1. Determine whether this endnote is at the end of a section, or  the end of the document @ 2. Use the appropriate page number for the end of section or  end of documment 8 This will not work if endnotes span more than one page.l destPageNum = Utilities.GetPageNumberOfSelection() ' This code would work if not for the VBA bug  %'2d   % %!%'2 2 2$ '2k L L L$J!!'J L$J!!:'L L$J!!8'N L$J!!6'P L$J!' z k J >$<!( L >$<!(6 N >$<!(8 P >$<!(:  >$<( % | >$<!4( z >$<!4(6 | >$<!4(8 ~ >$<!4(:d( z >$<!4( | >$<!4(6 ~ >$<!4(8 | >$<!4(:k 2 >$<(2 , >$<(, >$<(0 | !!d >$<(d > '> > B D 'F J "%  F$T$R B@A@ !Gzj LJ'Lk   'v xip](]@]X]p]]] >' zk'  [ /Rect [ x y x y ] /Border [ bx by c ] /Color [ 0 0 1 ] /H / /Action /Launch /URI (http://www.jimcole.com) /Subtype /Link /ANN pdfmark$'F D FA@  >' $ & 7 H LS(\h$r$ [ /Rect [ $<!!$T$R  $<!!:$T$R  $<!!8$T$R  $<!!6$T$R  ] P  /Border [ 0 0 R$R T$R  ] P /Color [ V$T$R  X$T$R  Z$T$R  ] P ' \ P ' /SrcPg $<!$T$R P ' $<!, KTA If (Platform.IsPDFFile(LinkList(i).Address)) Then? sLink = sLink + " /Action /GoToR" + vbCrLfJ sLink = sLink + " /URI (" + Trim(LinkList(i).Address); If Len(LinkList(i).Subaddress) > 0 ThenJ sLink = sLink + "#" + Trim(LinkList(i).Subaddress) End If' sLink = sLink + ")" Else $<!.$R %'J?sTitle = Utilities.TranslateStringForLabel(LinkList(i).Address) ! /Action << /Subtype /URI /URI ( J ' $<!0 $<!0$R %'JBsTitle = Utilities.TranslateStringForLabel(LinkList(i).Subaddress) # J ' k ) >> '  End If P '  /Subtype /Link P /ANN pdfmark ' ' KT' $<!. %   /Action /GoToR P ' : Check for a subaddress, which we will support via a named( destination if the target file is a pdf $<!0  Is the file a PDF file? /Dest / $<!0 P ' k' $<!.e5 Launch with no target will launch a copy of Explorer' V ElseIf (InStr(1, LinkList(i).Address, ".htm", vbTextCompare) > 0) ThenH ' It's a cross-doc link to a local HTML file. See if+ ' there's a sub-address= If (Len(LinkList(i).Subaddress) > 0) Thenb sSubAddress = Utilities.AddBackslashToParens(Trim(LinkList(i).Subaddress)) End If@ sLink = sLink + " /Action /Launch" + vbCrLf" writeIt = Trued(  /Action /Launch P ' ' k`sTitle = Utilities.AddBackslashToParens(TranslateStringToPDFEncoding(Trim(LinkList(i).Address)))If (Len(sSubAddress) > 0) Then' sTitle = sTitle + "#" + sSubAddressEnd If3sLink = sLink + " /File (" + sTitle + ")" + vbCrLf<sLink = sLink + " /Subtype /Link" + vbCrLf + "/ANN pdfmark" $<!.'J   J# 'JkP J "% 'J /File ( J ) P '  /Subtype /Link P /ANN pdfmark ' KT' K "K $K &KTK If (LinkList(i).srcPageNum <> LinkList(i).destPageNum) Then  /Page $<!2$T$R P '  End If ! %'b b b$1< Replace "1" with value of top b b $'b b $<!4!6$T$R 'b b b$2e< Replace "2" with value of left b b $'b b $<!4!$T$R 'b ! eL Inherit zoom, set zoom to null b $<!4!$T$R  $<!4!6$T$R  null 'bk ` sLink = sLink + " /View [ /FitH " + Trim(Str(LinkList(i).DestRect.top)) + " " + , /View [ b   ] P  /LNK pdfmark ' ' n@ F k A@ , FVz k '  FV<'>'@i ]0'PNh ,! P @N !  P$N(8 ! P$N(: P 'P o E This routine is called when the link generation code thinks that theG destination it is linking to is a caption that is below the associatedF picture, table, figure, etc. Word does not closely associate captionsJ with these items. Basically, the caption is inserted as a sequence field,D above or below the item, and that's that. Thus, determining if thisG destination is below the desired destination is imprecise and probablyG won't work in all situations. If this routine can't determine that the> associated item is there, it simply returns startY unchanged.]]] ]@ 0' !. V'r  " $ B@  "  B@  !l  % 'r 'ypkh  P  B@Hk(i `'   @  B@_If (Selection.Range.Orientation = wdTextOrientationVerticalFarEast) Then GoTo GotoBookmarkError' pihX ! KT$ None /H /N P  /InvisibleRect /N '\KT$ Outline /H /N P  /InvisibleRect /O '\KT$ Inset /H /N P  /InvisibleRect /P '\S' Invert /H /N P  /InvisibleRect /I '\n  ! KT$ None /H /N'\KT$ Outline /H /O'\KT$ Inset /H /P'\S' Invert /H /I'\nh ! KT$ Black'V'X'ZKT$ Blue'V'X'ZKT$ Cyan'V'X'ZKT$ Green'V'X'ZKT$ Magenta'V'X'ZKT$ Red'V'X'ZKT$ Yellow'V'X'ZKT$ White'V'X'ZS'V'X'Zn !,KT0'RKT1'RKT2'RSP1'Rn8 ! KT'TKT[ 3 2 ]'TS'Tno]@]`]]' !B.8 8 !'<  <  8 %.   !l d  !l  !l l  !l f ' zk  i custom page size]]] 8]Ph](@ !!' !!' !!' !!2 ' !!0 ' !!4 '  d  %d' '     '        ' >$<!4!   >$<!4( >$<!4!8   >$<!4(8   >$<!4!6  >$<!4(6   >$<!4!:  >$<!4(:k} % >$<!4!6' >$<!4!: >$<!4(6  >$<!4(:k} d   %' d'     '        '   >$<!4!6  >$<!4(6   >$<!4!:  >$<!4(: >$<!4!  >$<!4( >$<!4!8  >$<!4(8k{ {o{{NAttribute VB_Name = "Links" Option Explicit 'Const MAX_LINKS As Longl4000 >6_RESIZE@_CHUNKN1#LPURLH_TYPE $ CROTSSJF&2 &DOC&3&INTRA_&4T#5FOOTNOTE66END RegElement keeps track of a single r that makes upl.$A  can be de several s, due to$ecompriHsesthk wrapp~Type+ srcPageNumpSrc0Rect 0End  List A1DC(TexBSngAddressSubaSf)4dest4D35CaB5b BelowBoolean2sއ HM) Th aHs +  ReaePervÕ?f$` Tr;&E IfH:( Initial)nkGen@A,*' uNK@1J`wI?"Kp1%@}%s#;A= 4@Y;@?Y67Bcw70t01s? MU@ 5 Is (au1H0ori%urlShac:8nPohAQproto]c P ?_5T55q = LCase .r[  =( (,p ":"96> 09f = left- 1taSela uS 1"http(q>9es@fAmailx11B msoRangeU_02Exit #; @ ''' Skip h k@a0hey willPYcȵed during TOC For Each afield In aLink.Range.FPsIf (InStr(1,d.Code.Text, "_toc", vbCompare) <> 0) 0ThenIMAddHyperlpToList = True &Exit FunctioAEnf*fN~  Select'a'sOrienta0Awd_ VerticalFarEaste@ GoTo aError5Uti@litiesndActual=StarInumQRegIs@GetSource )^bCancelPt. j'1 T 2Aas!X@ TempBrc (j).SAct.lefD+ Y 8toplrigh _bottompageNumV'srcP GNot ResizeAѮ/ IS(D_s)".@resAyTrXim(é)!nAginalTʀ4CROSS_DOC_LINK`_TYPE'A1Len( ) r"'uis @really an intra-doc v to a bookmar.kannRE&Fg' Cc the `Rget offere^ so we cdetermine its 8locw !!Go(toBD(.Subadd1))( v.~What0:=wd , Name:= A dest€b@XCoord>teOfF(CeY!dbBGber 'A0g IsA Landscape(:/apXD 'R`’{ &)Y3X(z Else ?t1_.`\ Iz /#Adjus^tq0`qlCo~m#A_Q .? aCbnkO\C\D_ q1fr _%0' NeZconv '\'[$'\pinVpathnK tmp -ChToDirS@ZDoc.P5p)I OxoPlatform _Ajr/ ( (P 'HG? 5 .htmagra crossqn HTML file. HOlj !' asuURLu_ iu u^?"0"X= .cvF10$q`bŐ5#?8םI  .STT Fҭ0P[?e( bWinNT AovSov$ "nqPHeQp aWidthge0 -oE  P^ k|5 "`ـ&! _*.c 'End I(f  HnumLinks =" (+ 1Do@Events"If bCancelPrinting Then Exit Function\Next j AddH yperlnToListsTru e Error: T CreateURL() As BooleazDim a <E Shape r RangLthe3/ %n!sAndLong*@PctDon7DPoubl-n I@ntegerd19 d2 i  ;jkaSelAG bDoHeadeEJX btFals7iӄ= HOz GoTo uDoOCUC Z= fDoc. .Count +EjC#B BFor@ Each BI^nFGA j6 ,E .CIs@( Item((j)..M* >x 0)H(AM+2 6tr }S$Footer_$_$_$r#DFtH$ J_$+Y$%%BaLi' DoU !s insideD hvs a@f.' Word@ raise epif you sel] tin a d@ while window is minimiznoRa atusDlg.SetMessage (&rOstrus/2{iؠrD`t=Oh0s(k/RDIsi$(2o_GHNot , _LINK_TYPE ! j?sDoc`:4413g-T)o)ǿ)O8;) &4r&&?7÷&ReTempQ@SrcRegs|(0?Fu̴`F0/"y+Dogz˝ k 2da 'hWғ 3qnqheR?q! AqEAAQq2p\;5nqqܟqX==p=q= cc cq 0 '0 + Trim(Str(nPctDone)) + pDings.Get(pdfMakerStatusPercentSign) *R>Dlg.SetMessage (iInetLi nk", "p & _bpspqi = iG1D { ahaSection.Footers.Item(j).Range.H yperl}s(kAIf IsIn(-) T8hen@G (N@ot AddFT oList, URL_LINK_TYPEAGoTo Create@8sDo@Shapes"End If'Form.ControlDJ"I>ne").CapTWGumB#)TQ?DDoEvљGFReDim TempA7@SrcReg@st(0n#d$0y/EbCancelPrintBK Exit Fu>nWM(+C le>d#T@3D-KNe4xtg: kbjgepe f#AC ZOn Error _ b` Utilities.MinimizeWord A(veW`indow' Do the € inside t  box I don't know why doesAincluheseA DocA(, buty #`n Each aB In%iVd1 Iia&d2nAndo@/ d2/G%`{(%* 100#Z'wq_{ό!g..T!msoT ?Box;re Frame.ae r fnk3! _f_f_f76@_Lular i<#[~#&P#o_f_sSO q^^T/^']eL]fϏ]a( X( u_xtE4X?[t"O[Oo# XoutXofHX7Zas`8VS_751TTR= TTH'O1O1O1A߁ o'OUo _ _ _ Z =d1 ߰1RR` 8QQg,7oPmPO /N/N2 MMM@ED@EScûK CreDat$ToO/rDocs = FalsIOn Error GoTo 1NextA\' Do S s inside t* boxes. I don't know why Wor2d es "incluhese")R.h, but y'FY@Each aL (#1 AddFToList, CROSS_DOC_LINK_TYPE)YAg}!End If7Snum>Xv;-  Cs XRefHFootnotóSpStat@usDlg.@qMessage (rings.Get(pdfMaker $) & Trim(str("))))DoEventEEW?ReTempaSrcRegions(0 w!R0CCancelledC? Exit Funct /8}<:##"qcsA#outŒof(#>!AK ˈub7*tc/ss rA'A8+IZHJlnOnN/musm" "n#"̥m?j$6i!8?h-h?b 1 0MzyG7 ..Tru| OARA @hPastFirstParagraph e? QLsaveSele2E curYa0Long Qpr U MUnitT:=@hc0, Coun0-1QB'8?r<> Q1""7\/&5DWend%9 ?7dE' @Restor0hSih!Fs(p1).R D Sas`c.?m'|limita"(~): ? u( ' doesn't workb~in Text Boxes?always returm-1`we g-1Hneed`F QIHanor,\chh s9eOo)2de kmP* if P P5>Q1N=mkr backwardjfromLWV dAz'6s'[ tvwticOofaVOBc&`-1 OrqJ -1:s0SIsPWTv&)(D)EYINfSPOvX*Utilities.XCo#inw,Of9x= 7Y:Y?A3T13.Pd, DoEvh3< i1 b [eThe[1WIMqDUnit:=pI"g, "g:=u;t?Cr) x<> X  =eO1'n7vRQ, up5 s:=Տ#5= `҂&#E 3&%)M)uG &reb.0Xd/'(b> $sf1-2r2q ?2s.?2) FC o 5Q*67:+_:' Checkrsִq PoMP' . ;;, Extend<'QD) A S(i9Z.Oq 666LC/ A(5" / 3 zSpIo',b+ (0ight / 2) * 3)  ElseIf (bAllSubscript)` Then fcurCharHe= / 3d0subS8* 2kY bY - ( jnd If F'Selection.MoveRZUnit:=wdGacter, Coun 1, Exten^d&iH1) A6(i < > num$sI.n5 C @-1 9prev>E y.+= 1 Or .-4KX> max6{6CgKYJC2 PageNumB'=_U' Start a new regxMfLin4kRs* + ZReDim Preserve TempSrc(KKsav>en=cpastFirst@ee@EAE> parasՖNot Utilities.IsASLandscappe()$)ubtra any spacing that oc@s below@ line,`dG+aaddVabo e3cF= +eA A' Work-ar}d dJe~md [..`]_nA+D+++yOOHoonu:^ nTemp2 = pLinkSrcRegions(numD8).hct.toxp  ++rightv>-G>'bottomÅ''Else2@(lef,"Ҁ5Ú(5(4 '[ 90 72 232 56] --> [88A] =+ 16@ (+ (@-@ -=@)@%D- )SN(;_SC"(& =  /Endx Ifq+'  a multi-line s elect 's@ last has onlye char, we need3 make another source r£ (If CsInSel > 1 Ai >(curY <> savePrevY) Then 6' Start newR+# H QO ReDim serve>H.srcPageNu a Xمf `$xWid th/ /spaceAbo&= =J.ParagraphFormat.BeforYY`'  A[bAllSuperscrip>tGC+I= ђ + sS+|Hexl/b18!s-b uoon_H<vR?\max5o _?oe}2s(Utilities.IsaBLandscape()Q / / % C//* oodF//$ s 4__TD+ :?#-?5B_g2/ / + /Οa'P, ? k2= 0s}RX@-1p FPirst|eAruXd}p0CqQfy0{nIn@mc n'(wdb 1HacterberMrd`W(Unit:=wd, Coun 01 DoEv0entsWCancelPrintingp Exit FunBNext i GekSrD ۔S' Wordems@aprgi@n of aeA53 po s, w`qp pro`mcally.This doesn't happen @if youP `File>"nu0tprssm`A}ma ,  ks will be off vertically, ' so adjust for thi@s herexIf (Selection.StoryType = wdEndnotes* Or _ffFoot.4TextFra mei"s.Count > 0) Then' Mrgorrough parentvP.Docum.PageSetup.TopMargin+3nA= 53 - ,JElsƁ,.0nd If 62ÄPE#.1'coomlge (sizDnHepightX8pmB Width  Left|= rEH R% H Ǘ BottombH#AC(< 792 A@0h%< 61Not Utilities.Is!0Lands@cape()npdfPg-`cX"f7`Hrint`ableX4- (1+ "())Start D((- p ) *# g ) / in TempLinkSrcReg`s(num! ).Bct.l/@J?+- +߇ rDh_KLXnk#tAB> `Ab?m#'t?ntm!'#//,/"?/Kp L5K"BCHM/OL8C=Q *=1REY` +SLw^DLI\*FJ=TLYfLWLaX:E:OTB;:hЗt:1_],DT Lg%O]oiRjgi#LfY98MdB9s\s2BS5t"P /H~H/`%GetA"ourceError: 1HFun TOfCon tsXrefs() As B ooleaDim eFieldsafdestRan0lrLongi, j, c, 1jb?! Num! St`U!BCodem `Pos, h@r1 space , Y1@Xsrc<, ?sSequence abCap`BelowbCodesVisible As Boolean Dim @PctDonlD,ouhnlIn teger8d1 dd2*bAdjustStartnPage HeighLo ng Width; bSrc;LandscapbOffice2000?Sh.s CounJ>aW 7= (val(Application .Vers) @> 8) L inkTaOfContsAndXrefs =@ FalseOn Error GoTo DoNextOn C' Get the list o f MA%s we'll watch foDzBuildCapL@ CISField*Doc. num.UaXRef30CH_=,Zs H1C doU:FJi ?KF" A@= iC2 L EĄ= @ / d2 )F= (E * p100#yptusDlg.!NMess (rings.h(pdfMaker F) + "@+ Trim(str()XPercent Sign)DoEvslRbyj= -D+bABelow`$(S1' pV FIELDV23' y!EafDD@I`tem(i(BTC. If r(wdB ဠH) TheA) sure it's a TOC" ry @ not reall b fGInS@.1,  .Tl, "_toc", vbCompare)@01 pEnd I.Num ""Select Case+)bK(f'F%ieD"pOrross`pN`.1IOr A eate-uct7 A )1@ 3"!i\ B_LINK_0TYPE7!his @an xA]toIheadw PofH&GREFnGw ' K_>Eh+ 4  -uuh@vrC,,\>h  $V> ?x@5bWMidH F-C0 yVMo?(3?G? gB>, C;e  C &  1_D hso?7/?t?q>CROSS_p7I?' afpde.ЫkmarkID ~<#fBBbooR 3 CCPs(+akO A 1$O@*bo oPO X-"oPeQ#<oP_$I?9 LLh/;_ J`& Z6PQA'CZ_vQfYPYode,, FYO=??x` spxace0?#? ";s > 0) T@hen refNum = Trim(left(H, spacePos - 1))End If '  Selecth If Len%) AulinkType <> -1bAdjustStartqFalse*I' Get the source positio afieldn.P N( .Range.Or`ienta$;w dText VerticalFa rEast G oTo LiableOfCont"suXsDozN#n a?OC_LINK_TYPE FUtil@=es.FindActual4BOOfTOCEntryOENTDL ' Makhure b codes ahidden, becausesy will@$ w@ wuri8nt. N~y' @o@bounding boxincorrʨ A+bC"Visiǀm{howBKGM ХnumARtegsSB bSrcPageLands$cab= 1Is j( z !bCanpcelP!%! Exit Funcob( !UOxTrulZ̓, '. Tbw{gxofis eerez?can determine its locsoGotoBookmarkUFd.BwWhat:=wdE, Name:=@ A'y to_a _b`A ad`t mightA]a >4 3EFas.C@\tC1(1).®= wd Sequ-%aasbZwm! A.#For c0 eCap"շInStr(1ܩ, List(c).s7b? `jBBelow% @Odg+#vorO6 ?;i cQs7_ ^{X LXCoorYatPr6$-MAY Y5 `M%Os V8Above!(G?A[PadberO&f ' "O)miz- don't need maxX valuw6qus `Vs;Wy gener /FitH pdfSs20CROSS_REFr_q ЈOIFOOTNOTE/971*'M`##bo. Mj *@o Asrcr! Temprc(j).ЀR..1?1'}dgPe a  rg!ecouldc Pculёa s1po`!b)A 2axWidthC< 20"!Notό()7- ((* 3) / 2?9B!FbottomP @%s9r~/'o-topGF a` $/AA Resizeuq7?'0B|&s0'@ 3 a4Ynk$0nkList(numLinks).srcPage@Num = ` 8zIf (Utilities.IswLandscape()) Thenx DestRec@t.leftdStartY3F(top"X"righFbotto#kEndGElse3TMM;LM^IM?;L IfMSAdjustinatio nForC@omi0xHPAddressref&lType E!Suba""#Tex!dafield.Code.A3 ŗ@F+ 1XRef/"'`Gtu s@ a=P the@;.s( =% jX-E.Dzmso!kBoxaFQ8CC`FramC9Range.3 qX?-f2 GoTo do8&iWendOn Error B/~s%R3_Vb9ur a G- Footnotes() As Boolea$)a# `*s,, \sLoOri`3 wdC8VerticalFarEasts`: FindActual6$; p1 [pSourced+p=je`EjU ' G Rget3i s ^ so we can05~mine its loc;8T=el쩯;:XCoord1plc]((AYYBF%?=(dberOf0ADMax K:j@:$qL(j).6PonsCT.ect.top  srcPageNum = TempLinkSrcRegions(j). |If (Not ResizeList) ThenRExit `Functi"End If!l(num s).left؁StartX* Yrigh<d;botto[#<ZOmUtilit@ies.IsLandscape ()p^DestR^d_1C`FQ]ay!cSsElseV'MH7LHX)$#U=@ y! B/[o.l@TypeyEuba@ddress "F"`Tex~aFootnote.Range. F+ 1p`,tusDlg.SetM  (rings.Get(pdf`MakerC) & " & Trim(strf - IntePrnet(sCXRef)))oDoEvents/(CancePlledÉ Na(j+ ReDim0D'`)0 ePE"s :c icOn Error GoTo"T $`?FtheDoc.%.Count RENDNOTE_LINK_TYPE#F i`|1  e@ a  (i#*1\ .er6epp%l \8 'B P end! mark in2body ofXdocW 'Sea}d0Ori"fa wda18VerticalFarEastO s GlFindActual&0r"3!Source$$[ @ b,P6t6S ,E l  B0get#is ref so we can de9mine its loc;? T `el|bOfp*Ps,.Lum// ]XpXCoordinatelOf P%(?YYst` {Max+[' W 8.0 VBA has a bug. W you so1R 5 ask what p^it's on,returns@-ber3%e`]=t(credI. DMy ck,ich will Q wo?acases,=,Bfollow1T'1. D-wherVt% a a@ 2, or=aEH)pL 2Useapprpopri sf@WsP"Qwq20'A \f!Ts sp@>mo6r1 o>a. 4 )1KOd@1Thcodeuld$~fU)){PN(?6A/cS 6' F9.InmbJ(wdPk sIn0F;10i s(Q=wq_ive͠~top{PageNum~p &If (Not ResizeList) Th enExit Functqi If -(nums cX*YBfC-C#d(hUtilities.Is Landscape()Yk]Dest!dO|C_FP]`y!bSrElseAS6$e[F,$D?$4=#U=@ w&B/_Y$-l`Txype@ESubaddres2s ""`Textanote.Range.? F+ 1Foot J - `Inte0rnetBXR,ef p 6tusDlg.Set&M (rings.Get(pdfMakerC) & " & Trim(strj)))/DoEvents/ACancePlledC xN.j+ ReDimͱ0-Re)0 V'Es Pme:igOn Error GoTo *rSzTruDq OutpuAsPDFMarks(oRFilename@ As St1)BooleaDx=qsG wr`iteItOfQQ'gerwBiLong'spTitl6A6 Mag sS!#a:0jߠFM1% Fa_ c' [ /Cspx y 1] /Borderbx by c Col%([ 01H P/xA" (/LaЕhURI (http://www.jimc!.com2'0/tQT/"yNNBm'S5"= Free((8Open %l*F Apd hAccWW(#sJCOp$Ei0 7%"!e-` 0= "g" +7N[Ai;+P+\ _g? (u6X t^.b(t.`"]1vbCrLf}".!-Q0Thickn!)wStylre1"  /6w @ouRjO_wG=2nrBxlueH) N W%1s+ rHá+ cb@aPg04t/G Sel Casebt7 bURL_LINK_TYPE !LJcPlatformADFI!i 8! sLink = 8+ " /Action /GoToR" + vbCrLfx 'r URI (rTrim(List(i).Address)LIf Len 1Suba4 > 0 Then=#*& End I&z)"#Else sTitleUtilitiesBackslashToParpens()'!*Tran(teStringForLabelMCu<< /Otype /z{!>RE`C $r3 / /a`+ s0mYY).X$+sMag |`TToMଐ(pOps.anificB%Mid(1w!), 1Q"1"' Replace p valueAtop leftM -P_X0Pi).DestRect.top)) ElseIf (Mid(sMag, Len$), 1) = "2") Then ' R@eplace& with value of leftlUF a -b5<+ Trim(str(LinkList( ZpOpt`ions.qn`ifica KpdfMaker DefaultuInherit zoom, se to nullZ" " ]/!A"AEnd If r' sA?<+& /View [ /FitH*SY5XAr9_ ," ]vbCrLf@" /LNKB xmarkKw@weItDTrue$QSel?G+Print #fileNuA]g6DoEventsG@bCanceling`CloseFExFunc%#Next icOutputsAsPDFM%@&s*# rError:n sume #1ReDim Az0num0$!G @%vate Sub BuilxdCa"~ a a! As Eabedy D .CEFor Each f In Appl$. <# Preserv^eA s ]1?#! ).GBBelow@(A.posiDw#Pd .sNa:=f. z=mOe  969 YC@oordin:Above(ByVal startY8Long)  '`eis routine @called wAthe l genercode thsat' d @ `j !r@a cL# @I. associ@d%picture, tablfigetc. W  does not c{ly  G'C items. Bas NllyO %@ in &t!@as a`lqueE field, a ,' , aethat'.us,@terminifi js irp imp0reci proby won't work in  `,uOPRcad>e +gemo"PQsPr2epns&Thanged.# SDi'!bFouEBooleansaveCe$7rR3SOUUGoTo13(rWY= FaS0r@A.7D37QOit1  1dZqIM;L0 Unit:=0Gharac1, CP01, Extend#u "(W Typep $wd&InP=eShapeS_!UUtilUes.8Of([ˆ3{orQq2Sz  dxa!Not ] r~.# q)uXG(oto,k1(ref`Q*StW. ',y+..WG!ed, qg:=S'{r-.OriЕ^`= wdT`8VertASFarEast b i  My8a3!# tRe#@PXe_ETH)gh8Ca 0%?`' Non(s TH /NzAInvisi@ma# !"2?' 7A_n/_\OR3' Ip??/P=oevv&kIt% #C6!ƴse pOptions.LinkHilight Ca04 ' NoneV:s = " /H /N" 2  ' OutTli#TO T3TInse&P ) El+' In(ver"+I+End Selec Col or Blac6kYf"Re d0GreenBlueB+1RF ' "I;2"1"VCyan"$"Zo?#FHyF4I ' MagentaVFcF5`T_0_W6UYellow6'X47Whitg#{v E#41fkTyph!b,"BorderThickness`"0ml"12 #2o*]# ,eStyl$nk$ .[ 3 2 ]_s!X ub Func DoXRefsExist()SDim theFields As af#numWLongi' FaOn Error GoBBA((-Y) * ) /ij_uBC3E5Y {t "l`@4mB-,+.Y? ry= ?#eaA djustAinationForC om~Exit: Sub omment itself, which appears in the pop-up window.ng^0^H^`^x^^^^pH]@3Private commentList(MAX_COMMENTS) As CommentListRec]@]@]@'   ' @ 'd'kxpih](]H]h]]]]]](]@' ! . !'   %. ! !r $  !$' ! $' ! $' F Get the x,y,page# position of the text the comment is associated with ! B@H  B@8 move to beginning of selection zxkp % H $ ! (  $ ! (6  $ ! (8 $ ! !6H $ ! (: < !>' !@'  $ ! ! $ ! (  $ ! !6  $ ! (6  $ ! !8 $ ! (8  $ ! !:  $ ! (:kd  $ ! (  $ ! (6 $ ! !H $ ! (8 $ ! !6H $ ! (:k0$ $ ( !r $ (r ! $ ( !. !!d $ (d GcommentList(numComments).Text = Trim(GetPDFMarkEntryText(commentRange)) $ ( $ (  ' k ' i`]]]]] ]8]P]h]'  ' '  z`kX$'F D F   ! Write the comments as text notes $ ! A@ $ ! true' dfalse' k , $ ! !$T $ ! !6$T  $ ! !8$T  $ ! !:$T '^\sComment = Utilities.AddBackslashToParens(TranslateStringToPDFEncoding(commentList(i).Text))]sAuthor = Utilities.AddBackslashToParens(TranslateStringToPDFEncoding(commentList(i).Author)) $ !d %' $ !r %N' $ #)1= G SW [ /Contents (  ) P /Rect [ ^ ] P /SrcPg $ ! $T$R P  /Open P /Title (  ) P /Color [ $T$R  $T$R  $T$R  ] P  /Subtype /Text P /ANN pdfmark ' F A@ , FVz0k(  FV'  ' ' i]x'    % '  % '  %' kP Hi@8׵Attribute VB_Name = "Notes" Option Explicit 'Const MAX_COMMENTS As Longr2000 D<_RESIZE_CHUNKT5P The Comment objecf'.Reference field point@s to t4c4mark inserted j2upa#enpd of.j1.!]ScopYtextae 3rF>Rang>e+N6itself, which appearsVpop-up window.TyIListRec  AuthoJrSng In  іbxRR88ME P@ < < <6 <%(J 0hrH h `hdxh mmen(  pasP%( P%h 00h 44 % @8`d0@%.  `  + `` JJ @% ` %@ ` `@T `V` ` `` X%+ ` ;;iD`F`` `^` ` ` ` `   + ` i8i Xi `h 2C @ H@ @`X8<(*\Rffff*0?3ce4d8a0\0$*\Rffff*193ce4d8a0$*\Rffff*0?3ce4d8a0(*\Rffff*193ce4d8a0\0 ( 0 @ X` Z N hpx  :B  (0HXhpx B   0H ,`    L ( 48  p   $2 0 8 H *X0*0   (@2X2         ( NH      B  (08@HP X` hpx    (   (  @ P  X h p  b dp   Pz                0 B 8 @ H P X p x      x!Const MAX_COMMENTS As Long = 2000]2C The Comment objectR The .Reference field points to the comment mark inserted just past the end of theT comment. The .Scope field points to the text that the comment refers to. The .Rangebe madH field refers to the citials T`ʉPageNumbe"׃!sAtD= l"bOpenBooleapn E]24PrivagB ]&'A=(I)D  num?K.E;FuncResize()IG@FbK@kO@rrJGoTo G EIf (%+ 1 > ")SK + QReDim Pre@v+ Gc Tru$Els$@If@ML :cD%+ f,EerF5(;FK {):ecaDGi,!-ACA pdstarPtX, Yc^obOc% nrHpeigh"oWidth1  .(6VS(Ty Se, @/Doc.%6CYunF ai1 a C! &5=Item(i(QagLen*(%. )g0 AaNsReviewerIncludedGC,@ 6t, "4) mAeA= GetǧntՌ k'"x,y,u#`s`Ā dis ass(oci 7dhthK&.Sel"z! 53 llapse wdCo S3' moG0|beginnip Pr` Q@dToExit E i!IC9oUtilpes.IsLandscape("O l .e,).v.leftP0YCo ordinOf + (72 x* 2LstopX^q rI= p;//ct.bottom` ? /3!bW0inNT\s7 iW= g$>YX_YOe[?# -E{J!qOO%/3~(- 14ooo`u'05ooo`)ntog?FQ k ˔ _?!Z_?`&o7bD????a R.??3?>f.-_WMHA(|3R= vy$nt.Initi`al  hSet commentRange = aC<. \TList(numRs).Tex.tv @'ATrim(GetPDFMarkEnt4ry\(8))$colorKbOpeny+ 1@End IfNiEera te"True Error: d Function Convert%ToNotes(outputFilename As String)BooleaDim f NumInteger*iALongsRectB^8RedBGre[)Blu/ s<sAut~h|=(CK`Fals`DOn ] GoToTX Ɂ= 0@Ffs@ReVI0C If (Y ΃) TheDn*ExitȝC;= F-B( k\EFa'p_5ccess Writ0#D iV $-`'thes as tabnU a'4@wToRGBei).G, K$"Id!G A* .@Wb{-*g\s$"true" ED{AfI1'sd= str scope.left) + "q + _top#Origh)'bott,omg'v= Util es.AddBackslashToParens(Tra2n teDFEncod&Aݩ'E t$Ê  dBodyR# Labe~l- f X9"([ /4t}s \("@% %)vbCrLf&'t /+[p])s" /SprcPg,"}?+.Pagegber)+GB98: + _[Title"WCƒ[= SG" :l(J? Ml Subtype /2"/ANN pdfmLUW&Ppt a, ҁDoEv'XbCancel  @ KTD'> B KTa'> D KTr'> F KTA'> H KTR'> SX'> nHi@`]]'J  !'N $ save the current selection L  %.P P !B@H " B@  B@ R %'J N B@HiX'T @ V !Z !\  V !Z !^ ` KT:'T ,o 58 b KT$'T , 151 d KT$'T , 150 f KT-'T , 45 h KT.'T , 46nxkpihh]]H  'j  $'< <$'l l 'j i]8]X]x]]]]] B@  !(  ! D !B@H'r !!  !!v 'v !!4 '4 4  v  v  z "% & |  * "%$ 'x x ~  (@ d (@  (k kxkp  XoP]H]h]]]'Set theDoc = Application.ActiveDocument4 ActiveWindow.WindowState = wdWindowStateMaximize; theDoc.ActiveWindow.WindowState = wdWindowStateMaximize B@  !(  !"6 The next line of code puts the view into Normal view.%; This will cause links to come out slightly off vertically,age is$ so reset the view type to Page Viewe the !B@Hhy2 theDoc.ActiveWindow.View.Type = wdPageView'r !! g .p %! su %.p epla %! eAj %.p llSuk p !B@Hri6 theDoc.ActiveWindow.View.Type = wdPageView. ]  B@L$J " B@ " B@L$J " B@A@K If (Not aFooter Is Nothing And Selection.Fields.Count > 0) Then!! p  p !!B! ! p !!B%! 'r $   '  23 p !Z !*  $@( r  $@( 6 = 72 p !Z !* $>   $@( !! (l L %  $@( R %  $@( L p $T 't t   r '     $8 t     $' make   $j   $@( d  $@( kkW Debug.Print sFooterText & " " & Asc(Mid(sFooterText, 2)) & " " & sPrefixk(k  8/ The code above puts the view into Normal view.$; This will cause links to come out slightly off vertically, L> so reset the view type to Page View. Also, get the cursor out(:@ of the header/footer by resetting the SeekView. Sometimes ` 6єb xRRME P@ <$ <( <<0LX > <`% 0h Hh `h xh h  h A@%.  `X i  " % & %`* `,  `. +> ``@i  J ` iL , N  % P %+T h`@)V `%+j ` i `< `l  n `$w P % p p+%`r T`t P` N`v `4 `x   S ``-% p %`r `t  `   `?? ( % p H %`r `t ` /+ ` AAiD/`F0` 0 @@0%`  @C@@ @`hh@p h0$<*\R1*#139$*\Rffff*1:3ce4d8a0(*\Rffff*1:3ce4d8a0\0 ]  (08@HPXhB px       $0 4X 2     B  ( 0@ HX `p x  B   .8Hhx  B      ( @H `hB  " (08  @P `x    ,0( 8H P `px  @"   . :  B`   < B  *h 8      8 P  h  p <          @ RH  &     (  @ ` x     (   ( @ H ` h ^p      6 B( Dp F F HXp : D(@X`"hpx   *  (Hhx  (HXh(p   @  ` H  L P8 D  H 8 X x     B (08@H  P h    " ,   0 @ P hp  Jx   b  J*8hp6  ( 0  P@   $  , that@ puts the view back to Normal, so set it back to PageView again. B@ !! (lL$ !! ( ! !! (l!4 ActiveWindow.WindowState = wdWindowStateMinimize>'-- theDoc.ActiveWindow.WindowState = wdWindowStateMinimize  ! B@" !! (lo]]0]P]h]` B@argin  !(  !t prog'r !! %! _ %.p p !!B! smalle p !!B%! 'r ll   ' al   s p !Z !*  $@(  r  $@(  p !Z !* $>   $@( !! (l !%B@H %  $@( R %  $@( !| p $T 't t   r '     $8 t     $' ' @  $j   $@( d   $@( !kk  Else 9 If aFooter.Range.Characters.Count = 1 ThenaFooter.Range.Delete  AaFooter.Range.Shading.BackgroundPatternColorIndex = wdNoHighlight End If(F If aSection.Headers(wdHeaderFooterPrimary).Exists Then I Set aFooter = aSection.Headers(wdHeaderFooterPrimary)> If aFooter.Range.Characters.Count = 1 ThenL$aFooter.Range.DeleteJ!AaFooter.Range.Shading.BackgroundPatternColorIndex = wdNoHighlight End If End If k kx   B@!( !! (l$J !! ( $J !! (l$J ! B@ !! (l$Jo ]]](]H [ {Catalog} << /PageLabels << /Nums [ 0 << /S /r >> 1 << /S /D /St 1>>% 2 << /S /D /P (A-) /St 1 >> ] >> >> /PUT pdfmark8 ' CWarn the user that page labels can cause a shift in the page breakspA@n !@A@  $'F D F F [ {Catalog} P  << /PageLabels P << /Nums P  [ P `   8 !  D $@!  b : $@!  $T$R << /S / $@!  ' ' $@!  $T /P ( $@! ) ' k $@!  /St  $@! $T$R ' k8 >> P' re F trkA@ , FV zkk f '> F ] P  >> P  >> P /PUT pdfmark P FV!j kXkP' @always restore the page labels (@REFiAAttribute VB_Name = "PageLabels" Option Explicit Const MAX_PAGELABELS As Longz64 Type Rec sSRbn.NumberLAdjusted 5Style :sPDF  rsPrefixC End ^ 0 Pubwbs(=x)IiqPrivanum sInteger FuncFindLingScheme(s`)Dim aListTexmpl1 Level</Ns%FoprmatKnStart- }C6FalseO@rro@r Resu@NO%Q #re8ced`c>(n>SDűsaveRangBCHavSoz= 1g-\=  . '  the curre@Fs/`Set =Doc. sM- 1yC@5 MoveAUnit:=wdCharacP/, Coun0-G Collap9 odInSTkAp"ߎ qr& "ԅSep torő (Foo Q@Header)b (Iq.7*s.Includep0*MrO_ers.& C %6tL o|lox4'1:B"C' 58O wdEmDash;MPChr(151) ' 7`ojnooar5f0c0oiHypp "-6,45_YP@od; ".W66#3{qwO`Trans#TBoxEncoP(~^-Ns2 0..DFSs >2AddBacksha Qs(s2-ASub GiveCA3Warnd(R`tTd CqDsT0Dsv3m wfJD0anckSp ldbottomMargi s choi[LGeX IeWow.c[=1NlSg@Ta$.^61)?pSl > CfooterDistance = aSection.PageSetup. bottomMarginz B v If ((( O* 2 / 3) <= ) Or ( ~0))` Then YchoiMsgBox(pStrings.Get(pdfMakerBf), vbExclama8 vbOKCl,  ForWord))@oB$TQVpOp9sL abelsnFalse,E .# StatusDlDg.9ledTrund If#GoTo A.WarnZEndK JNext :  Sub #VF~Private  EnumeJr@F¹s(DfDim As ( HeadersT*Sepa orMPref ixOn EDrrRes@/ #ACC '@ t heDoceApplic.A@v nt@ sWindow.AxwdMaximiz<' D /#? Normal k Each6In!.7s'AA na3line of cod@e puts view int,o C . is will caPuse k`o m ut sl@ightly f vert@1lly,so resettype Z VFRangel@O$9(!.Ta =8 wd k T= <"" &Ys.Count > 60aOa#ONo?s? SeHMoveaUnit:=aEragraph, R:=1 4ChMcp-2cmonDoEvent@rL1 * +Is`?+ AField_0 k:?@ Item(1).Dul^a9 ϰoq6+ ! kMAX_PAGELABEL^S:3(Z).nNumberStylRC4s.  ).sSRvIwPDF ;(q eϟ! a?]w.?];]D  UtilitieOf/sAdjustebg4Infq|ZH_Bas= E-Len(7)nJs = % Whiy@.((dFrEQ($, 1>  _)lefvtg-PoeWen 1C= Transl To2Encod% Rν&w9mzbDebug.{` & "&c(Mid(, 2`  lϡ e ab`|9 Q?<lightly off vertically,  ' so reset the view type to P age VD. Also, gJcursor o$utof|header/foo@ter bytingSeekOSometim(es,aFpu ts)backNormal,it P again.Doc.Act ivateeW@indow.ETv= wd%a6 M<7umenc @5'UsNSt]1M@inimizi'x'--5" Utilities.Word_O%DPEnd S ub #AIf0 PrcA E*nKr@8FBs()CDim aSe@non As  HšBsTexttrSepa@MPrefix On Er"rRes@/ NC a4DQ.XføCFEachDInfEsC Cr== ""GI(f (e*.#s.Count > 0 A5(wd+ 7mary).Exists) Then S a V KC.Range.FieldhokItem(1). ultAeQLabels + 1k<= MAX_PAGELABEL.S ().nNumberStyle)d"#s. % sbS"_ F? um@).sPDFKGetk(1~?ٵai&P#ICh~c`s@Sel@ng&g#!Of ioneML?AdjusteB  P.Inf!t wdƠ-sO= ` b.Len(7)C.KsU= &Whi0/((WdaJr($, 1) <>  )leftg-PoeWen~dc2se= Transl@b To2EncodPj% ElsyYaz9e *@#Xw8h= 1dE 'Dp;G6Sha!.B grn05t?nColorIndex5wdNofH@% `d^  4x.rs?s9sD s>x OO_e_g&$=?,v#Oohw_eiOEbk_ain_e˺ߵ??c _{12Fun#CreKnE( 0FP[Pname)B`ooleafppmIntegerC i_1'sEntryq㌓1[ {Ca@talog}s2<< /R3 A[@f9["0"S@ /r >>1D /St 12P (A-v)ck]$r/PUT pdfCk GoTo> }ʤ0N0  P'Warn the user@at page labels can l a shift iHbreaksGivePrLping2If (pOpt ions.Ds = True) 0Then)EnumerateFooter]GcA> 0 >(f@ileNum`FreeF (0)a"Open o utputname For Ap d Access Write` As #) "Print , "[ {Catalog}" + v bCrLf" << /\ Xs [ =\iw1 To |i <= MAX_PAGELABELSQ ! Len(0(i@).sPDF-berStylqTcEsEntry@*Trim(strn - @1)) & OS /"  "<E >1refix<) /03@(/P (Q'A%) %End If-=nAdjustedK<>K>`St,&q2 3y$>>a(f!n9+DoEvent@EbCancel `\+Clo se Exit FuncJDNex@%z"@ ] A/ /PUT pdfmxarkuU 0iC tg MError:'always restore׏HփOn b P Res (  g3 PDFWriter$ <__SRP_c!__SRP_dPlatform#     0@HP "X`hpxB       ,@dH.  08b@" (  (8 @P @X 0`   J  0 Ph(p    F (  @8 x  @     @ (  0  8  P >h            8 (  80 h p x           F L LH L <  *(  X h x $   $  8  @H D  " ,b@  L N PH &$  P 8P  x  +Global Const HKEY_CLASSES_ROOT = &H80000000+Global Const HKEY_CURRENT_USER = &H80000001,Global Const HKEY_LOCAL_MACHINE = &H80000002$Global Const HKEY_USERS = &H80000003 ]D]D ^^p^^^ ^8^P^hpX* ]D`]] ]X]H ]@ ] $  KTHKEY_LOCAL_MACHINE\  ' KTHKEY_CLASSES_ROOT\  ' KTHKEY_CURRENT_USER\  ' KT HKEY_USERS\  ' nd ' k %' ki   ,kHo@]] ' !' ' e "% & ( ( "%A@ ',ki' ' ' oX]]]]]H' A@ ,!!Gzj L ,!!']0' & Figure out where the system files are! <  ,Software\Microsoft\Windows NT\CurrentVersion SystemRoot $ '  \System32\Spool\Drivers\W32X86\ ' et r 1\__pdf.ini ' et(pdfd 2\__pdf.ini ' kd  )Software\MicroZ  2+ђb SendMessageAH8WriteProfileStringA `$PeekMessageA LTranslateMessageA p DispatchMessageA,x RRRRME (@ @ 6 <p + p@ i `i i i  ,+ $p$ i  H fiN@mberi -De˜ B% h Numbh ( h h T h 8-'h PKTh h ( hP%+ Lp L ) 8A%i i 0B@i Pi L+ pp p )  "A%+ p0 ) PA% H  @ @ + `i 0 i P(<ipi `   `i  i (h=iHi hi >+ ` i `> ?` @?  X`+ `` zzi6` ` ` ` e li` boxe` ` $b ` X˜ B˜ `B @ X @Ҁ @ `H X`XX ` p <$*\Rffff*1;3ce4d8a0(*\Rffff*1;3ce4d8a0\0(*\Rffff*1;3ce4d8a0\1   2 2X 2 * H$ H  ( 8 HPX` hpx H   H H   B$ 0 8@ `h"p     ( "0X ` ",h   B soft\Windows\CurrentVersion SystemRoot $ '  * \System\PDFWritr.ini ' R k(! Make sure PDFWriter is installed$  ! 6$RPrompt' dAuto' k) Build a full pathname to the output file ,%. !' Dnks)D Delete the extension (if any). Find the last period in the filename  D.' '   D.'  G 'j  $ there's an extension D $PDF ' Dd@ D.PDF ' Dk ? Tell PDFWriter to whether use this filename or prompt the user   Acrobat PDFWriter PDFFileNameA@ d Acrobat PDFWriter PDFFileName DA@ k80 Prompt Acrobat PDFWriter PDFFileNameA@ d', 6$\' ,   "% &  * "%$   ', , 6$\' k0( ,zk Acrobat PDFWriter PDFFileName 6A@ k1 Tell the caller where we put the output PDF file 6' ]H    ' dh  ' kXkP@ The different Office apps all have different ways of priting toF a particular printer. Word lets you set the Application.ActivePrinterE property. Excel's help file says you can do this, but you can't. ButE it allows you to specify the desired printer in the PrintOut method.6 PowerPoint doesn't do either of these, unfortunately.$ Set PDFWriter as the printer to use ,! ' ! ,(  Disallow background printing Don't append Page range    B@   ,(  Acrobat PDFWriter PDFFileNameA@ 9 Something we do dirties the doc. If it was saved before,= mark it saved now so the user isn't prompted to save changes  (kki`A@ & Figure out where the system files are  )Software\Microsoft\Windows\CurrentVersion SystemRoot $ ' F The module containing this macro is called AutoExec. If the .dot fileH containing this module is placed in the Office Startup folder, the MainI function of this module will be executed when an Office app is launched. CreatePDFExcelMacroShowDialog' eCreatePDFWordMacroShowDialog' kI TogglePDFToolbar ' Toggle twice to ensure the toolbar reflects2 TogglePDFToolbar ' the ini file settingophAttribute VB_Name = "PDFWriter" Option Explicit #ConstHcelCompiljFalse8Power PointBIntegrated!TruB 'Global hHKEY_CLASSES_ROOT&H80-URRENT_U(SER -1-LOCAL_MACHhINE 2*S 3Privf Declare FuncSendMessage Lib "user32" A@lias "A@" _ (ByVhWnd As er,wMsg Paraml Any)LongZ/Prof@ySng1ker8nel1 G3 3lpApaAF'7, C/lpKeyDE "F3DI3CWM_WIN@CHANGx1A lęWND_BROADCASFType POINTixPAmYEnA Nms\ {vm6F3 wt tr ti@Gpt%-&nVpPeekyVjVRef lpR :GX$U Fil Minad\a".Remove"BBoole an%=PM_RpEMOVA)5"Transl{"Z#gNDispatch9lC Dim bEx /%Wor'.SystemRoot$)InimptSettiSwqGetrŎ(#CѠiniAen?f fFa`iBaEnsIsInD`(True-ADLen`im( >AORN@O))O0Fs@Status"1kmptDAutoi #z' Build a full pathbto a p{$! }(nenᇠ .Fa! ''l" exten~ (if any).last period5A! dotPoa*InStr(1,ᡠ, ".prevD# le d > 1'A$= c + `5$ 6yen!(&'a#re'n F*ko5left(,H) naT -.Wb' TeU?!|uV@ۀAr 8use we@ orohr' C4IDS_1RITER_PROMPT30ooc'e, 0i"Ambat pl"q(0a4wW|GS#_T TTq"L_   _ ;  "_RbCancelpnqLub%AccesCWaitFor9], 5hOaB(-A-r Msg`Box(ppLP's.p|AlrErr4or tBt%), vbExcla"m OrRetryc*8kerWordyl<>?' g!__s_ _* WRa o RA0...--8g =WRrcrDwe }q#?!Ic1D$Viab%r2_arangeVaria0ˤG$ (ly = wd 8WQOAllLi?A10 0diffOffice appcxlhavЄw@ays ofPki)Ito'particulamaer. rs you setWnrep'`oqГty.0Qhelp scan@is, bPD't.@~t 0&A1ys@pecify d@esired n/Pkbb O`me thod.Po`werPoesn'tei+rapse, unfortun@Doc.iOut B-:=Fals\e,$R :=#Variant, ToFi|le<S"evatof -tu ini4n, 0, "Acrobat " ",G' SomethAwe do dirtieCd@F If i(t wsd before,mark n@h sor iscprompteFd chRsNot bcIsD!y Thenkd(TrusEIfG Fun@o Sub MHainJ() DemineWhichm' Figure o@whe@ sy stem Aes ar!SBRoot$'Go(BaseKey:=HKEY_LOCAL_MACHINpE, _Se/:="SofDtw\Mi|s@\Windows\DVers@|tH &"`. module cont@%Ca@Ds ma9 cp@9AutoE0xec.D".d8a" . is plac@inEOffice Startup folder,B5 f9 of`!willS e uL5n anN `lah8ed. NbExcelMIniPbVn= "CrReqDFM!ShowDialoglEa Wor>d_ G 4 Z 'ABToggle`XToolbarD' # twc)@ensW3tdrefl J@o| G`\ sebG 8 ajhArU~|    RrU 8Ep!  ) "0F$p A q @qGLp !   4,qHpp 4,AIp 48 ` 9 Q i < ` 9 Q i  ( ` #$ `(! `0$I `IEiEnJ ѐbxME(6 << <+`@**i8 wdW` @ P`LwdWi` + ` i8es c`lashx%P@<$*\Rffff*1<3ce4d8a05B  ( @H  JP J H (8 F` D , (   0Hx    F 6H   B  J08 @H` x]`]x ] 8 %6'8ASSES_' 0C This routine is a platform-dependent routine that takes a pathnameal ConC from Word and ensures that it is a valid pathname for that system.800000B For instance, on Windows, this routines converts single backslash" characters to double backslashes.@ VBA doesn't re-evalulate the term Len(pathName) in the For loop> It won't even re-evaluate if I use the variable j, and change& j inside the loop. (I sure miss C++).os! Thus, I have to use a While loop* If this is a UNC pathname, leave it alone 8$\\- 8'zXkP 8' 'L:\W'  Lm3 $\L? result = left(result, i) + "\" + Mid(result, i + 1)N  $/  $ ' {  'C 'L-10kX  'A@ ' 0i(C On Windows, we simply check the file extension to see if it's .PDFhar' " ]  8$8$p' .pdf' ice" ixpAttribute VB_Name = "Platform" Function Convert Pathn(ByVal p8jAs Sng)"  Dim length!2Long.i, jresul>tR/p= Utilities.GetAbs\ol(() = qROn Error GoTo v #' This routine a p-dependentthat takes '' from Word an@d ensu it-vali6d ̓system.$F_instance, Windows,Vs cs single backslashcharacters to doubI \D VBAesn';e-e*uBeerm Lenc inCB*loopIt woeve(n raif I usvaria#j,BK*(ngej@sid A. (I S miss C++)KThuFI hav oa Whi:G&If-Pa UtNCc,Ajalon" (Mid=, 1, 2B)\\")@e>nOEx@EIfC=B'AjAai1i <= j#e, `u1#'e left() + "\""1$ - / i  R (W y# 43c B:  6% IsPxDFF`MFDǝ"B ooleaD' ywewmply checkifVextvsef it'xs . 4FalsUa MA= LCase(right9_4)    " ( 0 8 @  H  X  h tx      / / / / / < <8 <P <h < < < / / *x+ўbHe SetEnvironmentVariableA0 @PDFMakerUseAppPointer0 l,zPDFMakerPrepareAfterFirstPrint0 XPDFMakerPrepareForSecondPrint0 PDFMakerCreateStructure0 PDFMakerSecureDoc ( fFindWindowA HEnableWindowHl46GetModuleFileNameAHXGetTempPathA4 XxME 18L8L<<@< < < <> <<(<,<0<4<8<<<@ Hi@ +B 4p 4 i iD F Xp(X YH HYhYT+\ p CC i^i`$% %P @x@T  @%X & @\ * @^ , @b @0 @f p4 @h h6 @l : @p > @r @@v H @z `@|  @~ 0 T @ʘ Bʘ X Bʘ B!ʘ PB#ʘ B$ʘ B&ʘ B(ʘ B)ʘ !B+ʘ @ B-ʘ H!B.ʘ p!B0ʘ B2ʘ ! B3ʘ !B5ʘ 0 B7ʘ !B8$   `HD IIP  `D 44` x+ `D` iD ` t  `D VVi6 ` x` t p@  %` l`j` d 8 `@ VV9i6 `0 x`2 t`4 r +  `(D 1`2 t`0 p B 0`<`D `F  L `D== N x% t% p%`l`h`P pf ` ``\`~X`R T`T R L% d `L +n `H@0 ip  Sub`ter L`r produ`t lffic |  `D"`~ z Sub trFir%` r Prod`6lOffi` j g\pd` @ddfFi `%`X ^ Make` \nt L` Zrodu` Tffic` R \pdf ` ` `X \Pro  `  ``X `  P ` ` `  p`PP` ` F`   pXG % P x %` ` ` ` ` ` `` `  `ww`~ ` ` !` ocIs` .Aut` ` ` ` ff s` on s` sary` o co` !`X (` 'J ` !` ` ! ` 'N ! %P < MP eld @ tex`  m  8`   `` ! ` ! `  (  `WWi  (` ! `  (`~ ! ` (` '\ ` K T+ p`` F b`  imp` ing ,P `0the + ` ` 'V ` 9 M+ P`! ` 'r ` ; M+ `"+ 0`#`z ndow` eMin` `  0` $@ @ h` @T B@H@ ( `  ` ( ` ,  `p% i  ,`  ,  `& i 9 `  J P @L x @N ( @R P @V $ @Z ( @` . @d H2 @j 8 @n < @t D@x 8L@․ P@ʘ Bʘ  B ʘ (B"ʘ xB%ʘ B'ʘ B*ʘ  B,ʘ h B/ʘ B1ʘ B4ʘ  B6ʘ B9 P@  !p! `p!8 0 0 ` 8`Ppxhh Pp 0 ( 0Hx x h  P@ 0(X  8P! ! H!((':(!X \"<*\R5*#d*\R1*#d0*\R1*#d4$*\Rffff*1=3ce4d8a0( ( ( ((  ( ( 0  H H HH   $    0 H  @X D     B ( X0 Z V D@   .Q0 8" @HPX`hp x  * 1 -+   /0 P (%` " """0"8P"Xp"x"""""0"8P"Xp"""""" 8"@X"`x""""" "G( PX`h" px   $   6 ? 8 :Q@  Z  ( 08  @ t-P 6 ?.Q P Zh     b-( 6 ?:Q( Z@    j-  &p  4  6 ? ( .Q0 ` Zx  B (0 8 @@HP` p t- ( )8X`hp@x" $  N  ( 8 @ X x j !!  !*(!X!`!"h!p!x!!!!!!!!!!! !3! ,!$"D".0" H"X" x"  ">"" !" $@"# # # #  # ^(# 5## #  #3# ## $ $   $$0$ @$P$h$+$ %$$ $ 8$,$$$"%%%(% @%%P%h% 6p% % %%B %%%%%  % &"(&@&H&P& X&x& & ,%& & && &&& &''"'' '('0'8'@'H'P'X'`'h'p' x''  ''' ' <'(((  4((,(()0)  8) P) h)p)x))) ) B) ))* *(* @*H*  @P*** *,*** +++8+@+ H+P+ p+ "+ + ++ ++ <+" , H,X,`,p, x,, ,,, ",, ,,--- >- LX- .- X- &0. X.`. (h.0.. .. ... (/0(/X/ h/ x// /// (/// /// 0  2 0 (X0 z0 "1 (1  @81x1 111  R1 02@2 H2P2 p2 "22 22  2 2@2 t2 `3 p3 $3 3 33 3 3 333 4 44  4 04 44 4 4 4,585 @5H5P5  J`5 855 55 66 H6X6 h6p6 x666 6666 667 "77 7@7H7 P7 h7p7x777 "77  777 7777777"7888 8 88H8P8X8`8h8 p88 88 888 8888"88  999 909"89@9H9"P9X9 `9h9 p99 99 :(:0: 8:H: "P: RX: P: N; DP; >; R; :0< p<x<<<<<<<<<<<<< < <= = =  .(=X=h=== == (= = H= "@> Nh> $> > > J? ,P? ? ? ? ? ? >? 60@ 0h@ B@ 0@ A  (A *0A`ApAAA  LABB0B@B HB PB hBxB "BBBBBBBBBBBBBBBBCCCC C(C8C@C HC PCXCxCC CC  C CCCCD D8DHD`DhDDD D DDD DD  DDE E 68EXpEE EE EE F  F(F0F8F @FHFPF XF DhFFFF F G DG`GxG DG FG 8H .HH  TxH H H I  I 0I@IHI  `PI IIIJ J J 0J8J@J HJ XJ hJ,xJJ JJ JJ JKKK8K @K"HKpKKK K K KKK K L L,(LXL `LhLL LL LLL MM (M0M8M@M`MMM MMM  M MMM  .M(N@N XN xN N N NN N  N N N O,O@OHOPOpOO OO OO OOOP P0P  88PpPP P P PP P  P P P Q,QHQPQXQxQQ QQ QQ QQRR ,RHR PR `RpRxR RRR R R R SS S S 0S @S,PSS SS SS SSSSTT (THThTT  T TTT T T T T UU U U 0U @U,PUU UU UU UUUUVV (V@V HV XVhVpV xV V V VVVV V V V ,W 0W8W@W HWhW pW WWW WWWW X X  X(X 0X 8X HX XX,hXX XX XX XXYY(Y 0YHY PY `YpYxY YYYY Y Y ZZ Z Z (Z 8Z,HZxZ ZZ ZZ ZZZZ[[ " [H[ P[`[[[ [ [ [[ [ [ [ \,\H\ P\X\ x\\ \\\\\ \] ] ]0]8]@] H] X] h] ,x] ]] ]]]]^  ^ .0^ `^p^x^ D^ ^ ^ _ _ 0_ @_P_ X_ `_ <p_ "_ B_ F ` h` ` ` `` `  ` ` ` a,aHaPaXaxa aa aa aaaa ab0bPbXbpbxbb bb  b b bbbbb  bc c0c \8c c cccc  cDdHd  Pd`d hd pdd"ddd dd dde  :e 2He  eee e e e ee &ef  f(f0f  &8f`f xf f ff ,ff Hf(g 0g D8gg g  ggg g gg gh h @hPhXhhh xhhh .h 6h iii i0i @i`ii  ii$i i iij  j (j8j@j  Hj Xjhj j j  jjj jjjjj k (k 8kHk Pk `kpkxk k k kk  k k kk"kl*l 8l Hl Xl hl xlll"llll l lLlP(m xm2mmmm" mmnnnn n (n8n@nHnXn pn  nnn <n n n  n*oB8o  ooo o oo o o JoHp hpxp \pppqq (q :8q 2xq q qqq q r r 0r @rHrPr  Xrhrpr  &xrr r r r rrs  s s(s0s8sHsPs`s$pss Bs@ssss  s rsPt`tptttt tt t tt .t(uHuPuXu`u Bhupuxu  u u :uuu Buuv  v v P(vxvvBv vvBvvvvvv v v w&w0w8w@wHwPw `wpwxwwB wwwww Zw*0xb`x.x xy y8y@y  HyXy:py y y yy zzz "  z(z 0z (@z&hz*z,z,z" {0H{x{ " {{ { J{${*|,H|,x|"|0|}} `Public Declare Sub PDFMakerUseAppPointer Lib "D:\st\perforce\Producers\Main\PDFMaker\Office2000\Word2000\Debug\pdfmword.dll" (ByVal appPointer As Object)Public Declare Sub PDFMakerPrepareAfterFirstPrint Lib "D:\st\perforce\Producers\Main\PDFMaker\Office2000\Word2000\Debug\pdfmword.dll" (ByVal pdfFileName As String)Public Declare Sub PDFMakerPrepareForSecondPrint Lib "D:\st\perforce\Producers\Main\PDFMaker\Office2000\Word2000\Debug\pdfmword.dll" ()Public Declare Sub PDFMakerCreateStructure Lib "D:\st\perforce\Producers\Main\PDFMaker\Office2000\Word2000\Debug\pdfmword.dll" (ByVal pdfFileName As String, ByVal pdfFileNameColor As String)h]@(]@P]@x]@(]@]@P]@x]@]@]@]@]@]@]@ ]@@]@H]@p]@h]@]@]@]@]@]@]@] 8] `Handle to Word window]@ ]@]0 ] ] F] X ] ] XG](]Px] ]x] ]]] ]]  !] ]@       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnpqrsl~vyz{|}~]H!]h ]p!]  ]  ]!] ]!] ] 0 ]!  !'5If (bDocIsDirty And pStructure.AutoSaveWordFile) Then  !  B@'k`turn off showing of revisions on screen. This is necessary for the printouts to come out correct ,!$z ( k 'J ,! ! 't !'L ,!'^ ,!'` ! ! 'R ,!! 'N ,!! 'P ! !l'T !.< Make sure the View field code and View hidden text settings match their print settings ,!! ! 'X ,!! 'Z ,!! ,!! ( ,!! ! 'l ,!! ,!! ( ,!! ! 'd ,!! ( ,!! ! 'f ,!! ( ,!! ! 'h  ,!! ( ,!! ! 'j ,!! ( ,!! ! 'n ,!! ( ,!! '\ ,!( K Turn off the "Resize A4/Letter page option" because it will cause links toF be slightly off. Word implements this by setting the page size in theI PostScript stream at the last moment, well after PDFMaker has determined link locations. ,!! 'V ,!( 9 Must switch to page view to get true bounding box values ! (l ! ! 'r ! ( ; Must turn Draft mode off for Selection.Information to work ! (  ,!9 9 q@7'-- ActiveWindow.WindowState = wdWindowStateMinimize B@A@o ] A@  !'  ( B@B ,!B@kh B@A@ L ( B@H V ,!( \ ,!( T ! (l R ! ( Z ,!( X ,!! ( l ,!! ( d ,!! ( f ,!! ( h ,!! ( j ,!! ( n ,!! ( t ,! ( r ! (  ,! N 9 P 9 q hActiveWindow.Activate DoSleep (1000)Beep9 Something we do dirties the doc. If it was saved before,= mark it saved now so the user isn't prompted to save changes  (kA@ ,B@A@o R Distiller 3.0 has a bug. It uses comma as a delimiter between multiple filenames.S If I put the filename in quotes, Distiller still construes a comma in the filenameO as a filename delimiter. Thus, we need to check for commas in the .ps filename= and remove them, then tell the user we named their .pdf file] h' zPkH D,'   ' D  $ D  $ 'D D,' i ] ] ]( ]H ]` ]x  !'  ! !  % . ! "%KT ! $R' yn  6 %  ( FileOptions SendViaEmailA@ !  KT "%' KT "%' K KT "%' KT "%' KT  "%' KT  "%' KT  "%' KT  "%' KT "%' KT "%' KT  "%' KT  "%' KT  "%' KT  "%' K KT  "%' KT  "%' KT  "%' KT  "%' KT  "%' KT "%' KT " "%' KT $ "%' KT & "%' KT ( "%' KT * "%' K KT , "%' S . "%' n & ( * "%A@ k k k o  ] ] ] !If (viewResultsInAcrobat) Then6 0 '4 %'2 2   2 $"$"$ 2 "$ '2 k 2 \Acrobat.exe "$ 6 "$ '2 6$RTStatusForm.Controls.Item("Distilling").Caption = pStrings.Get(pdfMakerStatusViewing)A@ 2 : $8 ''4 k k 6 < 4 RHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Acrobat.exe %'2 2   2 $"$"$ 2 "$ '2 k 2  "$ 6 "$ '2 6$RTStatusForm.Controls.Item("Distilling").Caption = pStrings.Get(pdfMakerStatusViewing)A@ 2 : $8 ''4 k k k < > 4 @HKEY_LOCAL_MACHINE\Software\Adobe\Acrobat Reader\5.0\InstallPath %'2 2   2 $"$"$ 2 "$ '2 k 2 \AcroRd32.exe "$ 6 "$ '2 6$RTStatusForm.Controls.Item("Distilling").Caption = pStrings.Get(pdfMakerStatusViewing)A@ 2 : $8 ''4 k0k(k > @  4 HHKEY_LOCAL_MACHINE\SOFTWARE\Classes\AcroExch.Document\shell\open\command %'2  Remove the %1 from the command 2 %1'0 0  2 0  $$R'2 k 2 $"$"$ 2 "$ '2 k 2  "$ 6 "$ '2 6$RTStatusForm.Controls.Item("Distilling").Caption = pStrings.Get(pdfMakerStatusViewing)A@ 2 : $8 'kkk@ o8 ]x ] '  %'2 2   2 $R \Acrobat.exe '2 ' z`kXP RHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Acrobat.exe %'2 2   2 $R \Acrobat.exe '2 ' zki  From MSDN Article ID: Q144798H] ]]H This routine seems to cause problems with some printers, so don't do it| ,! 'F _ F %'D F F  $'F D  F   D Acrobat Distiller D Acrobat PDFWriter D Acrobat Distiller  |k?BX '< H  <J <h B@ o0]p]]]]]]]0]H]`]x]( ,!!'T V "% 'R !. ,!!B@H %'~ B@H ~ G'~j ~ ( zB@X N ,!!t N !l Z  N !!'       'd'k'P X If left(aHeading.NameLocal, 8) = "Heading " And Len(aHeading.NameLocal) = 9 Then N !v R $ R 'P kH P N ! N !v P  zB@\ kk N zB@^ B@` ! . !'   %. !  !r B@b kH#  T ,!! ,!(k#o#" !f h ' !f j ' !l ' x %8''0 bCreateStructure = bCreateStructureBookmarks !j ' !j 'o0"]P]h]v " !x '  p .joboptions 'r r $~'n z!d!  *.joboptions 'r r $~'t t  t t  .joboptions $  (z 'n z(!d !'n k!k!v !'n i ]]]](]@]X]p]]]]] StatusStartedA@ \Ak@ \5 No server to provide strings; this one is hard-codedMThe Adobe PDFMaker server cannot be loaded; please re-install Adobe PDFMaker. ( &Acrobat PDFMaker 5.0 for WordA@  `kX.Make sure that the selected joboption is valid !z $n  "% & ( * "%A@  kpStatusDlg.DestroyUnload StatusFormA@d '',' ' 'v < See if we're supposed to print the current doc, or open one ! '   ,!%.d ,!! k: Set a global we'll use to refer to the doc we're printing ,!.kX !  "% & ( * "%A@ |k'b !!'   'b k' ! ! !  ! ! B@d@ $B@ k(d  "% & &  * "%$  * ! ! B@d $B@ kd' kpkhk` ! !  "% & ( * "%A@ k|k8Moved this function call to "After saving the document."EAccessing Style.OutlineLevel changes the InUse property of the style.'So the style appears in the style list.RSaving the document after accessing Style.OutlineLevel results in styles remaining in the style list. Fixes 406254.A@L  ! ! ! !  "% & * "%$ ' * ! ( d',kk  !  ! !  "% & * "%$ ' * (j 'dx',khk` ! ! ! ! ',k( !. !B@H %'~ B@H+ Make sure they have Distiller or PDFWriter"If (Not IsAcrobatInstalled()) Thens MsgBox pStrings.Get(pdfMakerErrorAcrobatNotInstalled), vbExclamation Or vbOKOnly, pStrings.Get(pdfMakerForWord) GoTo CreatePDFFileErrorEnd If: If they're using PDFWriter, tell them they won't get much  !  B@ ,G jkHL If AutoChoose, figure out whether we're printing via PDFWriter or Distiller*' bSaveAutoChoose = bPrintViaAutoChoose'  !pdf$'6 !  ! 6 !$2' kHk@  6A@ m No longer view when printing via PDFWriter, because PDFWriter has a setting to control this and do it itself 6A@ ! If (viewResultsInAcrobat) Then B@ k@8 ! 6A@ kkd p  'p k p MThe Adobe PDFMaker server cannot be loaded; please re-install Adobe PDFMaker. ( &Acrobat PDFMaker 5.0 for WordA@  @k8   B@ ,  "% ( & * "%A@  kk ,G jD Must call SaveDocState before showing the status dialog, otherwise,2 SaveDocState won't be able to minimize the windowA '    "% & & * "%$  * B@ !'d'kkxStatusPrintingA@ ,!$z 'X A@k(|  StatusPrintingA@o]H ,!$z 'X \A@d ConfigureServer'A@| kA@op`` \A@k@ \A@d A@L 'A@| ko]] ,!$z 'X \A@k \A@d A@L ( X w9 % 'dXw8 % 'k8 'k ko \A@k B@ oPA@o'\'~ B@ 'p p MThe Adobe PDFMaker server cannot be loaded; please re-install Adobe PDFMaker. ( &Acrobat PDFMaker 5.0 for WordA@ d '\k B@o K If a user has a "Section Break (Odd Page)" or "Section Break (Even Page)",I Word may skip a page to ensure that the page numbers come out correctly.H Unfortunately, Word doesn't actually generate these blank pages when it= prints to PostScript under Win 95; it does under Win NT 4.0.7 This can cause PDFMaker's links to appear on the wrongL page. To avoid this, go to the end of every section, and see if any of them3 meet the conditions that will cause a skipped page]](]@]X]x]]]]]]](]@]X  +v ''Set theDoc = Application.ActiveDocument !!'   !%.  !%.P ' ' " bAdjustThisSection = False' B If aSection.PageSetup.SectionStart = wdSectionOddPage Then bCheckOdd = TrueG ElseIf aSection.PageSetup.SectionStart = wdSectionEvenPage Then bCheckEven = True End IfC If (bCheckEven Or bCheckOdd) And (nAdjustPoint < 1000) Then & Go to the end of the previous section P !B@H " B@  B@ R %'  %' 8 bNumberIsOdd = (nAdjustedPageNum Mod 2) <> 00 If (bNumberIsOdd And bCheckOdd) Then) bAdjustThisSection = True; ElseIf ((Not bNumberIsOdd) And bCheckEven) Then) bAdjustThisSection = True End If # We may have to adjust this section !B@H  B@ R %'  %' F' If (nNextAdjustedPageNum = nAdjustedPageNum + 2) Then    +v  'kk End If op]]]]]](]@]X]p]]]]]]]]0]H]`]x]]]A@ ,!$z 'X ,!$z' A@ OpusApp  $< ' $B '~ $ 'z z  k z &$$ (  w10 B@  ew9 B@dw8 B@kx B@   ( ! @k8$ ' B@" X $  ' $F '  $ ' /sModuleName = Application.Path & "\Winword.exe" 2SOFTWARE\Adobe\Acrobat Distiller\PrinterJobControl EPSPrinting  A@ k0' $' !"' ,!   $ !"',k' , kk B@>'-- theDoc.ActiveWindow.WindowState = wdWindowStateMaximize  !(  !! (l !! (l B@ %'~>'-- theDoc.ActiveWindow.WindowState = wdWindowStateMinimize ! B@A@ >' Turning off screen updating speeds up some VBA commands, but@' for some unknown reason, it causes Word to not print paragraph2' borders and rules. Therefore, don't turn it off.'' Application.ScreenUpdating = FalseN Windows Distiller ignores setdistillerparams if it occurs after any pdfmarks, so do it now. Distiller parameters Do bookmarks ! B@ FkFYpage labels should be the first thing to do as sometimes they cause change in page breaks !@ B "% B@ B "% B@"  $ '~ ! B@ EkE ~  ( ! B@ $ "% & ( * "%A@  PEdHE $ "% B@k EdE & "% B@kDdD ( "% B@kD' * %8 , %8 : "% B@ : "% B@"  $J'~ ! B@ DkD ~  ( ! B@ . "% & ( * "%A@  CdC . "% B@ . "% B@" kPCdHC  0 "% B@ 0 "% B@" dB 2 "% B@kBkBdB 0 "% B@ 0 "% B@" kxB B@  Turn URLs into linksA@`A@ ! B@ BkB'$$ for Office 2000 links handled by Dll X  !j  !< b  > "% B@ > "% B@" $'~ ! B@ 0Ak(A ~  ( ! B@ 4 "% & ( * "%A@  @d@ 6 "% B@ 6 "% B@" kh@d`@ 8 "% B@k8@d0@ 8 "% B@k@k@  B@  Links to other docsA@1$$ for Office 2000 cross-doc links handled by Dll X  !j  !:  b $'~ ! B@ (?k ? ~  ( ! B@ < "% & ( * "%A@  >d> N "% B@ N "% B@" k`>dX> > "% B@k0>d(> @ "% B@k>k= B@ % Link TOC and cross-reference entriesA@ ! B@ =k= !h  b  F "% B@ F "% B@" $6 '~ ! B@ <k< ~  ( ! B@ B "% & ( * "%A@  x<dp< D "% B@kH<d@< F "% B@k<d< H "% B@k; B@  Footnote/Endnote links J "% B@ J "% B@" A@ ! B@ H;k@; !H b $v '~ ! B@ :k: ~  ( !  B@ J "% & ( * "%A@  x:dp: L "% B@kH:d@: N "% B@k:d: P "% B@k9 B@  Index linksA@ ! B@ 9k9 B@  $ '~ ! B@ @9k89 ~  ( !  B@ R "% & ( * "%A@  8k8k8 Turn comments into notesA@ ! B@ h8k`8 !P R "% B@ R "% B@"  $ '~ ! B@ 7k7 ~  ( !  B@ T "% & ( * "%A@  `7dX7 T "% B@k07d(7 V "% B@k7d6 X "% B@k6 Article threadsA@ ! B@ 6k6 !T V "% B@ V "% B@"  $B'~ ! B@ 5k5 ~  ( !  B@ Z "% & ( * "%A@  5dx5 \ "% B@kP5dH5 ^ "% B@k 5d5 ` "% B@k4 B@  Document and revision infoA@ !b  Z "% B@ Z "% B@"  $'~ ! B@ (4k 4 ~  ( !  B@ d "% & ( * "%A@  3d3 f "% B@k3dx3 f "% B@kP3dH3 h "% B@k 3 Doc Open parameters $'~ ! B@ 2k2 ~  ( !  B@ j "% & ( * "%A@  P2dH2 j "% B@k 2d2 l "% B@k1 Document structure'$$ for Office 2000 links handled by Dll X A@ z   >pStatusDlg.SetMessage (pStrings.Get(pdfMakerStatusDistilling)) b "% B@ b "% B@" '$j '~ ! B@ 0k0 n 5 For some reason, the structure error handlers dumped out of the structure code.; Close the doc to get rid of the incomplete structure tags,? and reopen it. It would be good to warn the user, but it's too late to add more strings !'  ( B@B ,!%.k / ~  ( ! B@ p "% & ( * "%A@  .d. p "% B@k.dx. r "% B@kP.dH. t "% B@k . B@ k. Distilling v "% B@ v "% B@" A@ x %C@z 5 ' qx-A@ | h- B@~ $ ' ! v  *' d - z ' k- A@  ! Windows NT B@ k,Vturn off the fields at time of printing. Keeping them on can result in TOA going wrong $B '~  ,(. ,!(   B@  $B '~ X  2SOFTWARE\Adobe\Acrobat Distiller\PrinterJobControl A@ k+ B@ +| + !  "% ! ' & ( * "%A@  0+k(+ ++ ! +k*4the .pdf file is being created from .ps in parallel.+Keep waiting till it starts getting created ! h*k`* $R ! B@ *k*Debug.Print "WaitForFileAccess") ! )k)wait till file creation is over $` ! B@ `)kX)%Debug.Print "WaitForFileModifyAccess" )BpStatusDlg.SetMessage (pStrings.Get(pdfMakerStatusStartDistiller))A@' >pStatusDlg.SetMessage (pStrings.Get(pdfMakerStatusDistilling))A@  B@  ! P(kH( ,!  B@k( X !j  b "% B@ b "% B@"  A@ d'$$(' A@:  A@(kp' h''set the option back to what was initial/the code somewhere can set it to something else !',k&  (j $B '~  ,!   0 ,!,B@.kx&Delete log and ps files$ B@" $B$R.log B@"'~ ,(.A StatusPrintingA@  B@ k%' !' B@B  ,!B@ . B@ !',k@% , B@" !,B@d% ! v  "% B@ B@~ z  B@ d$ z !,B@k$k$ , ! B@~ z A@ k@$pStatusDlg.Hide B@ A@o$# ,!$z , Office 2000 B@ ^ ,( ` ,( L ( B@Hkp#oh#8]x]] x $' \..\Macros\Office97 ; \..\PDFMaker\Office97 ' \..\Macros\Office2000 ; \..\PDFMaker\Office2000 ' PATH$ 'x ; ; ; x 'x PATH x A@& k"o""] ]8]P]h] ! !k!$$(' ,  "A@*  A@( ! h!k`! !A@2 I$the printout has already taken place]$ '| B@~ %x !z .joboptions '   & ,!%$\ !z .joboptions ' ! h k` ,!  B@k0 % '~ A@ Chide the printing status dialog only for Windows NT and Windows2000 ! Windows NT B@ kVturn off the fields at time of printing. Keeping them on can result in TOA going wrong ,!( $B '~   B@  $B '~ B@ 4the .pdf file is being created from .ps in parallel.+Keep waiting till it starts getting createdDebug.Print "Before" ! k | $RDebug.Print "one" ! B@ k ! kwait till file creation is over | $`Debug.Print "two" ! B@ k ! B@ k | A@6   | B@" B@" | $B$R.log B@"o`]]] c:\' CHKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Print\Printers\ !" Port %$R' *'    $' kp ' `]8]X2@ ,$\'0 0 0 'GetOutputDirName = left(sTmpPath, nRet) , , 4 $' k2ip]]$ ' !'  $ _PDFMarks .ps ' ' i] ]8$ ' !' Microsoft Word -  $ noncolor .pdf ' ' ixP !*' iX H]]]] ! v ' !'  ! !$B %@'z d *'z k  z  (k z ' ix0]p]]]HSOFTWARE\Adobe\Acrobat Distiller\5.0\PrinterJobControl\Microsoft Word - ! 'T ,!$z , Office 2000 ;Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced $ ' HideFileExt $ ' A@   T T $'Tkk T'  T $( T $) T  $' T  $8' _ 'Tk  T' i0]$ ' JobOptions !z A@  PrefixFile$ A@  ViewPrintOutputA@  AskForPdfFileNameA@  DeleteLogOnSuccessA@  OutFile A@  IgnoreSecuritySettings A@ o]$ ' Cfor second print set the joboption in which color remains unchanged JobOptions A@  ViewPrintOutputA@  AskForPdfFileNameA@  DeleteLogOnSuccessA@  OutFile | A@  IgnoreSecuritySettings A@ o+Attribute VB_Name = "Printing" Public Declare Sub SetEnvironmentVariableA Lib "kernel32" (ByVal varAs BSng, 0l ()iPDFMaQUseApp$Poergpdfmword.d4llka$YObjectnstatusDlgt wgs FPrepAfterFpirstKUFileoption->ForSe0cond=bCreateuct>uvoUZ/ColorPy/@DocM AdodbeX.T'D:\st\perforce\Producers\Main\\Office2000\WDebug\C&?)8*89(1Qz?){%rY9%Ea%Func!~ Fin$dW`owc`userAlias "AlpClasslp )9Long r .EnqdhWndbBooleanB Cd GetM ilee&'$h#&fĩ$nSize&Dv- TempPath%'nBufferLxenga)l>p!A- BOB Exp@i t hAy@ved/ #sraSt$ PaginaIF0Å aMeas !CG Drafe/`Selpt@jARange[ViewTypIbSMa@gFe e bFieldCodeˢpb0ntO'CRevP[ agHeight! IntegerK 1WidS>HasVerticaplTexr? abMark_ pSpac_R,ParagraphalHy8phe/ Hiddeno riGoО! p''--J{wdMinim!;05`.CDo|EvP ub@8torN Dim sPas @!  Reope7!m6=a9 FullNamHT A3dClo%L@#s.O0V ,kqAKd92h` :.3+/'s.@oD5Br^_T_>s1 <3B4$/e.c 'Rtʣ1wa ??7m)qrfcaphs = bViewParagrMarks Application.ActiveWi ndow..ShowHyphenOpVal,1%All 7Browser.Target,n/eek /S Type/With toa.Pag in$save!MeasurementUniQ End 9 'hatPDoSleep (1000) B$' Something we do dirties thc. If Gwas Hd beforte,m{now sou\ isn't prompted to chan geINot bDocIsDy T@9".SNdPTru`CIf|DoEv@ODE Sub Fun@on CheckFilenameForCommas(output As St rL)BooleanDDistiller 3.0 hMa bugRt Ds c delimit between multi ple f!s.sII !BW in quote8s, GB nstKs a u_E"F%.auSneCocG s! .ps& @UZove!m,n teuACA - Cheir .pdfcDim Pos!-Long#On Error Resume Next#8GFalsG#*(bP9tViaPDFWr1)LPEx``D?OAJ#;= InD(1, +G`, ","paWh < (> !t?!a_ S= PleftU,'- 1) + Midw+` jendc #'&Sub Email@,h( =N?:%i!>retVal=lRdocProp!Antert y sjectCgiInt0eger( LMsg PKps.S#`L Kp= ""c/ biV1 TBuiltInl@.Coun_a6S#=p:(idSl%Cas).!6'"p# s.GetMakerASubQTrim( .ue?b9o1'Se1  yAA igpw0) "M@*)-", d') oF EFvhtc "q0D""y"KUj%ReportrPs #3 B ogUq05s90= RMA PICanrndϡ -1ÿLoadq_E_AMBIGUOUS_RECIPIENT, s   y AmbiguousRecip @TTACHM _NOT_FOUNDooojttachq.F BdOPEN_FAILURE!OpenAV WRITEeu*:Iz*29,*d"BADC"TYP?OOBad""DISK_FUL~LkFull_^ t??1FQ/rINSUFFIC!:_MEMORY/ OutOfMemory//NVALID_EDITFIELDS/0)0InvalidEdi ReldstMESSAG?'5ox/DMessagOvBSS  sErrMsg = pStrings.Get(pdfMakertorMAPIInvalidRecips) ACase X_E_INVALID_SESSION`D,Session LOGIN_FAILURlE, O JLoginFail(ureIMAG_USE??MageInUs!?NETWORKENetworkQ'@NO_@SNo?!NOT_SUPPORTEDNotSupp orted ~TEXT_TOO_LARG?~ITextTooLarg!~AMANY_F8ILE?/@Ma@nyFile/ERECIPIENTooa?$f D__Cd?! !YPE__QC?CTypeQ UNKNOWN_1bUnknown1ientÞbR_ABqGserAbsElse_ ] EmaREnd Select/ ! Box $=, vbExclamDat` OrO@KOnly,F`orWor !If qSub @ View8PDF<qName As SB4Dim kru ftPosLo,ngcvPer0PathbLaunchedBooleanSIf (pOp s. ) The'AaResultsInAc`robatI3On GoTo TryOldK8ey1S = Fa!G = Utilitie$Folder(C& Len()p > 0 !left, 1) <> Chr(34)_q z  +i+%  cS+ "\d.exe "# Wait*Accc&, 2/C 'Statusm.Controls.Item(P"Disl`").Ca#_[S%hT DoEZvpKskdAerTaskID ShellvbNormalFo$cuo` )&Tru 0) Then.left/, 1) <> Chr(34)9d =/ + + =End If * %"\ARd32.ex8e "5RpdfFileName .xWaitForAccess(, 2y'Statusm.Controls.Item("Distilling").Ca ptionFpStrs.GetAAMakerCV@ipŊDoEventsO1AderTaskIDAShellqvbNormalFocusbLa@unched@Txruei " 'PDFXTryOldKey3:GOn Error GoTo aH Exit kN8ot )JSysc.PrivateProf@C`OFTWARE\ClassesExch.D%@Sme\s\\open\command 05'@xmove the %1 fromb$kruftHPos`2In`(1,j, "%1~~j%Trim(-Aa+ =aa4Gy J"_4ca߄_`~_]׃_Y+i|v{S`ub FIsed() As BooleaDDim^$ORl# @gFals䙣fResuNex@#`=B9jIU0itieFozl(FE= 7w)@kmm~"3 6. Z 5# SS4RPRM izs0\Windows\CurBrRVersp\App ATML ߌp   o#hq'm$P0 C.rhntTopFla"g5#' F1`MSDN Article ID: Q144798+7+ 11sq42sDoerr4 s13'p0is routine seems to cause plwith Tso`4pЍt, don'tP~ U|)SJ=B @!licaB. Activ`{ins 9Do 9=D ppWri.d(9]rk9, <) -Loop Wh2S)#0 A?@x- "A 30 ԣer" Or OBƁO4bTNCompO4POCшC&(94CntOuange:=wdr&!.To,.:=sp, Tob31:=0 2"J P `figureServer4!0aHрb0yl^ r2s$/eLevelLongdef0aultPm bBuiltInqnnnumb {iPagesInps qW rbIsAHsav le 7BRSGG< ve vnt.S]@d9 ;Sr1 ) &`TpSet = Se .h DR.ScInfI(wdNumber|Ofw 0z If (numPagesInDoc < 0) Then = 0  pOptions.NumberOfx = ^VbHeadings.ClearActiveList"<> Empty And >= wdO81<9[]default]4PElseM1 .Ifb Builtf= tFa'BleftbNameLocal, 8*)W"w"=Len  9Ÿ YAs)A*2hTruFEL>!( Or.InUsejp's.AdHI, v 'Next GDeleteUnuse D ReviewerjtcSet theComos 9 r%H.Counh~i 1 ToK4aItem(i)7 aC(I.Rang1>eGp1Author +i# bIs`@GNotzavedDyTESub Private  Retri`Global(On ErrRes  Eb`ntViaPDFWri8ter@漀Creat = pdfMaker&,Dill?r&G$gFAssant erDeStructureBookmarkAU(Ea&From%bx "VI;S`BFCFun`on IsValidJobcB(sF As  y)@leanADim sFP8athFiLleL_m 0;pO )Go0A +3S| ) .GetCt!A KD =+ + ".jobop""Sq?DirHɅ) "" > gExit C[{' 6 "* O=  a/AQ 06&7$(n, Zn) -:)8 { AQ ɍP]5i r*:#'MV\S@V3[8OK5.:myTaskqbB0moChoose=P%@(A@WrCancЃdCAWord!nD'sJSH0y(Office2000nExpandSuvInteg_qnYesNo˯OpntrLongT *{rxr "S0us",rtedk)cQ5 1btInit iYzCallitEverythLCi((1' `ser to prov`ide s@; s one is hard-`coded3MsgBox " Adobe U Tcannloa; pd're-inst  .vbOK Only vbExcla@@(Acrt5.0 fq'Y Rc/3(c  ' sЂPa0 lec _vsCM=(OsQzp1sAj S), Zc#, `Rk 'pStatusDlg.DestroyUnload axForm\RetrieveGlobalOptions4bReopenDoc = False.CancelPr@inting 8UHser ed dViewerTaskID0NT IsAcrtInstall=-' See if we're @supposto pK the current doc, or" f onbsWordFilenameFpPDFMaker. 7If (Len() > 0) 0ThenSet=Applica.umFs.O$, z)*E/D*Cou@:= 0# GoTo Create8 wdNoGMbMsgBo x @gs.Get(pdfxed), vb@ExclamBj OrOKOnl|y,DhXExit Sub1HasVert`lTextnzO@n@;Range.ADr(L wd He FarEast)a> 1000)c&Truf3b8SavAggNo5E`.de8ath ""p.Auto!!U -() `AA AX(Read8ada +nDialogs(wd#aAs).Showlj!o T(Ta UTYesNo +@UDefaultButton1\V)/vb++hv.+ ,,!-iiS eVo-6 c=%]mDP&^ .a11UnableTBdnC!KOK L!e,'MovAvhi s funX cCz`"Aft0as? RbStruct@RevisѴkV.Vein= ogN@oHighl0tC3oaa@mzm ^///I9L2ub20p/-2 aw u3P>l5Se~.,#numPagesITInfNumberOfo9T:.S' QPԠԠy h5qDSip؀r Wri^:o(,'Qc,BNA)om/EDOUHU'_#'p!dyQuj, tem" won't gamuchqb?Via&3F@CWardXNoP:m,BLlPrinting) Then GoTo CreatePDFFileError  End If,'< AutoChoose, figure out whether we'"p via !Writ8or Distilled''fbSaveT = b8Via*FalseIf >(?x!9pdfvName7@Output n (fDoc.Full, " ")!4pOptions.PromptFor9! :<Get7Q, FD) <> True/1bUserCancelednZA v8Not Bl>n@D|({1O#@lŸ' No long!viewn S, becausehas a set to control @Mi@@do itselij=V- *m7z B' 1ResultsInAcrobat p Maker. ActivWordAnd cA o#Mq)SendbEmailۂ EFpEBFDLLOkb* UInitializ""`m'Msg Box " A8dobHB Hrv Pcann!^e@Raded; pleaNre-in stall,.", vbOKOn ly Or`ExclamaA8!V# 5.0 f@}<" ( PostScriptrerS @cted) J Gbz&Assant)4Mus PSm.Show/`̢ 2? H!eD4pSt`gs.!sB'):/R`.~//a!b '*{*'  cL!St``Fe s/+@ Q tus dfog, o`rwiC won'\e ableRminim7Re windCMwbSkiucty= 8yP I@sDirty3(b3w0dp3=Bookmarkso)pa"(TWarnpBe #Eg:s;YesNo, u#)Jvb2 .AG b=potd{U}?*ayP:f#@Mn "A&us=L"; bOffice2000(val(A pplic2O.Vers`) > 86Eyy5 ExPzSub 3"Pb?:   (Q P Pubp WithNoDlg( Dim As 4on+o7oY'1SaRePevheGlЃl 'ConSekHmeInOldWay9 SShut@nxz, 1On b NextcSbȋEzyth oi1  2f'g02OJ((retVa\****2* z/a/? Q0System.CurBs= wdNormalrL\ T= p)bPrefs("w9yoZ8Eq  + C@&(*2>,qt,(h s$+#0 1ko+ŰehavSqA+wcS' '"DnsmF( 1(( )6O.7)D! uq N6++'f L5/yDbzy!y0+ }* 5VIiț51OKΓpdfmarkOutputFi0leNa0`St Դoriginaln Hdisle0thARDim saveCurrentPrinter As StXg  bDoPromptpBooleantUserCanceledBRestor6eSeSe`ttingJCToFile s ErWrite@Access=DocPathOffice20D00docJN amL WordAMedPDFA`ctual7N@onColont8emp@naWindow"CwsModule5$, lengtDh%verp LenAIg On g0uKNextCCDoEvsCb]= (val(Application.Vers) > 8)cC @$ =  ChangePATHEnvVari0ableChW4nd@FED("Opus", vbNullCx bRetV@r= En , Fpalse aFlȀGetM(If  "" TheDGoTo ishCreFngExiWE4If!pOpY's. C=C0onv(Unpicod(-10),pStatusDlg.Launch ("w10"E@"992 8fgUpdDat@ogrB ar (5DSy*s`e.sT= wdCWa%)/2 Ed 2dfmarkOutpu BnC92M@PSE|DUtilities.Kill p%#aNot lHSpace$(25$a/C#0, , ()-@ left$IŎ('KIX& "\`pw.exe"#Key`uue HKEY_CURRENT_USER, "SOFTWARE\Adobe\Acrobat Dis-ler\rJobdtrol q@EPS`REG_SZIp#=a4bAssantN5/y@ctEG,[=bp6. aXlivU~, ) <> b a b35eP!TruZ<=  - TA:gNTqthe .rE ''--!ea.c!Ie wdMaximizw|Normal$w.View.TypS1 PageRepagiFnd!numslIn@S(A{I nf! h(wdNumberOf?P.in[RMt w E Adjustm'' Turn!off screud1speeds up soЍVBA commands, bux@0#unknown p{son, it causesb s o npZ4 paragraph `b N@ $ rs.xree, don't t a .1))SS2 "q! :H )sP ignPs setdQA ms ifccurs afHanyis,Eso  q 'eĠo bookQr0cHxed}E8HidD??y> /e label0hou ld bea% firsPht"a  tim`'y# c inge b0 kb e1L_ vmfM9 (Qs .(MakerrAus(]aDetai ls|OK>beAύp5OProgrdBar $(5]' . TOC aHcross-reference enesMDoEvDIfb|Ca lled) ThenGZ!HidH4(pOps.C*Ref _ A/(Not HasVerticalText)$eDIwVb OK =_TableOfContAW1X s(Z{-. I!9@,<HATru 8ReportErrorsLGa KHMsgBox" XD )F 3FkQBK b I zFootnote/ lUѥ E}|usBC`__{yggT oToTy]KKg a1a;%=O6߉iPK0(K4bg)KeEO A?K(>vOK @OK D| &D}?_uk//%K/ LȗIndexYK?_408&y S3 b@O utputAsAMarksmName4Aߣ7 _[˙ _@@" ?rs? LUq_?\?Acon?????/B ' Turn comm! into wpR 1eX-Sϖ HK1_F3`vrCTo 33( If (pStatusDlg.Cancelled) Then Hide 8GoTo FinishCreatingPDFFileExitVEnd If Not OKz = Tru Options.ReportErrorskjMsgBox ris.Get(pdfMaker-Text\es), vbE xclamon OrOKOnly, ForWord)9qEls lSetMessag~ed#lDoneL0Skip' Article $th@ds_DoEventD‘H&oI% T&ͬAHYUpdateDetaibReopenDoc = True OKCreateStructure() If (pStatusDlg.Cancelled) T8hen VVHid  GoTo @FinishzingPDFFil eExit PEn0d If Not bComplete' For some uson, the sy errhandlers dumped:\' out ofcode.AClosedto get rid!inc\Etags,&N_open it. It would be good /warn7user, bVit'soQl} add morBD@cs s@pPath@N.FullNamwSaved OR BHSICApplication.@uments.OA(%, False̱K^F#8pOp-s.ReportEsTD^ MsgPBox rj.Get(pdfMPakerBT), vbExclDamM OrOKOnly,s dWord&!av%E1:a th6 `& /v1bOffice@2000 ABpOptions.UeStructure 3HJf|DQ"\Details܎P1Speci5. temp[NamDEƒA!!Path@ChangeToDi r(@FFoldxer(A qecH@f, R`A  (DChB:'set~ oj back to what was tialD code somewhere can Jioth eDf̵bP@|aZ'Tru+YUJbLSavbRetVal`EnableWindow(hWnd, &!YB(@stor`vilnt`Y(ohe rAhs Curr j) ]WordBasic.I#"_up := , DoNotAsSysDefault:=1#)s 'Delete log aqs fGUities.6KA @TPrklPS!\(D#Trim(RemoveExtens}Q@ + ".`"cnum"PsInA]= 0#Scree6n"J=5Call Re4$=WriivBooleS"us", "B+ `( >PmeInOldWayForgetPref)I/ND doce#@0Full牄Clxose)թ#bs.Open ( $6D # BC`!v ԅ* ov (+&Vq+4 .+ XaFCpView .=bIsAcrobatInstP%ew1P3p&^`HUserpInpua5p8.Launchal4 !#L?cQ Asn!!-f"A)/qJN"zSPViaEm`z6c;aB >(n0 IHidCxDEroy SSub v /F HeSizeSOn E0rror0; Nex1valjeVerAT) > B8# '  V(0??Q*sNewJob! *m s.?dC "&) &v /8Q=0B? ޯA V= ChangeToDir(GetDistillerFolder@()) PDFMakerUseAppPoi nter (lication, pStatusDlgringsx (temp0Path!If (?.Canced) Then#GoTo Office2000Speci Structur eExit-Enpd If PrepareAfFirstPUt pdfFileNameNonColor, Mon.pOprs 'the pout has already tn place:Dim Word2edB2AXal As _G = ;(cablerInputsJob6d-p;.@SettqE() T+ EB.s@".joboH"2sNewȋ.D .DefaultAE(wdT@с"\"_A#?I:ziveDocument <>  C. atDAϱbRetV=$ p.CteeI\( w, cAdd>RegEntriesForbN0Oc)'hidNeab@E sB dialog only for Windows NT ar!x2Sys@.OperngR""M&h\Hl$# (' n offbfieldxt time. Keep 3m can resU in TOA g g `wrong Q\UTpd9F Ač=` Fals 2݁lefth- 1/0 #E|sTsͧ * 512{np#bOn Err": K%.ҿath(04 > 0 Ap.Q+ "Microsofth - " + left(6, Len)4)"nonc".pdf"A = End ˡA?Utilities. TempD}Y FinalHKOn Error GoTo 1M GMdpromptForEBooleanretValŁIgerC= Not pOps.Vie"wD; OrbIsAbatInstalled!FullIf (N) The',A7F= fMakerjCŁ=n(DPath, True, RemoveAExtens@ A$)DElse CSIfD;:  ""mpStatusDlg.Cance)`S# ? A ` WRepgKeya G`u0mentRlR F, sult, hid%)BILonstrPar rig|htA!-` gthjRi  "SOFTWARE\Adobe\Q Dis`yler\5.0\crJobControl\a6val(Applica!`.VerAG) > 8C7 ' Office 20003 &Bm=OgOpen-Ex(HKEY_CURRENT_USER, "Sware\Windows`\Curr@2\Exp`AdvCd", _gq0, QUERY_VALUEy3Re:D_*Query@ueEx;(@"H'@` @B, 4H ALClose` % A-J<> 0,+?@#пG)ei#N=B'0 i%1 @[fa Mid(, i, 1)(("Q).>1w i`t1X3= cf i,d27|_x YNext ipEAP(`D Sub Addf7E6tW(t`uG=@ ?rInt 7O  c MSet`(- 8LOCAL_MACHIN1P:DtpP/&qW , Prefix vMarkPS()?ueO O s@ |ACs;>3   0AskpPdfu _D DeleteLogOnSu ccess`1, oofpa ?(!s0IgnoreSecurity &ting REG_BINARY32 `_3esB (sNewF&A3߀?%0%3~t@=3'f0sec op# setA jobo in which 0.mains hangE77W6_1_1l??8_1, __OHrX_1_1ooiW1?Z(o// O2O2J2 !"#$%&\rU \,p 0,p 9Y, Xpq$p,p0pq, p, 4p!90!Xp Qii,i"p$`$`(`0(`0(!`0$I`$q`$`(` 0$ `$ `$9 `$a `$ `$`$`$`$)`$Q`$y`(`)0$`$ `$1`$Y`$`$`(`Y0(`0:n(Vѫl%EslVSu N- i%D12Ol9:]D>~6xl9:]D>~6%EslVMEPSPSSS6"           ( 8  H HX H,h H$ H$ H$ H$ H$ H$ H B(08 h .  \@ `pxB  ` 8P X ,`  ,B 0  8X p x] SetE]0 riab]]X er](]P] ]xx]uy<  ќbLRegCloseKey4HRegCreateKeyExAX RegOpenKeyExA|DRegQueryValueExAamhRegQueryValueExAensRegQueryValueExAemRegSetValueExA RegSetValueExA<RegDeleteValueA xME((6 << <h X Cʘ PCʘ Cʘ Bʘ Bʘ Bʘ Bʘ @Bʘ Bʘ HBʘ ?Bʘ B%+ Xp8 i N+ p  i pOii iOi 8i XixPii + DpD i i8QiXi xiR+hph i Ri i8iXSix i  + p i i(Ti8iXixTi  +"p i  ii8UiXixi +$p i ii8i&Xi(xi*+, p i i i8 i&X i(x i*+. (p ( i  i+ @ `X  i x ij " i0 i2   i4` `6 `8 +:0 ` i  i0 0i<  i> `@`+ `p  i   ij i0b` `6 0 C Cʘ (Cʘ xCʘ Bʘ Bʘ Bʘ hWBʘ B @ PhH 0 xX @ 0   (X   0 82p<$*\Rffff*1>3ce4d8a0V    ( 8HXh  x  hnam]C f] ens] is ]name] stem]]@]W 0J]h]H ]?XJ](X          ] !result of the SetValueEx function] !handle of open key]( j 6 8$ ' open the specified keyPDFMV lRetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, sKeyName, 0, KEY_ALL_ACCESS, hOpenKey&)` 6 0 4 2$:' 6A@   ' i @ ] ] <  KT >' RSetValueEx = RegSetValueExString(hKey, sValueName, 0&,'lType, sValue, Len(sValue))  0 <   B$$$$': KT >'@  0 < @$,': KT >'@ 0 < @$,':n(i 0 ] !result of the SetValueEx function] handle of open key j 6$ ' 6 0$.'  6A@ P ' iphsAttribute VB_Name = "Registry" Option Explicit Global Const REG_SZ A@s Longx1@BINARYH3HDWORD#4 &HKEY_CLASSE@S_ROOTo&H80,URRENT_USER , ,LOCAL_MACHINE2-)Sj XERROR_NO '0"BADDB#Hy ACANTOPEN READWRIT;5(OUTOFMEMO@p= 6INVALID_PARAMETZ7R ACCESS@_DENIEA%8Z8SNO_&E_0M 259OQUERY_*UwM\ALL_(@L&H3FAOPTIONv_VOLATILx Declare FuncCloseKey Lib "advapi32.dll" _@ (ByVvhA )ݒrHeatExQAliasC $A"Q, lp(Sub$Sng,Reserved%ClassdwdsamDesirQ Secu0rityFph"k@ultlpdwDisposi0*`5Ope~n@_*¤**ul## GFQuerLueE~x3F@"XuedKAlpGlpType7FlpData%O  lpcbB`,^, : 6NULLI@@u _=B_pEO-LVSetb -V.QG-"R*D co-sdw-l` 1/T /`cK -fF=pkQdlpV#?4r?pegDeleteCu N?__\H(# Pubp7`c44sQ5s͍vR ti2Variant2i& Dim lRUV'ressof the wpf4#1hoOhandle @ot key=Wdxq,E = K H(, , 0, "",qߗE, ۛ ,j )c 'R specifi2 '^ 6~(_ M&TW(g g), e&U(`D End* +S++B!+ lM !)( l5$w"q1SSelect Case "c2G=''@%(@%&', Len(~)1?Kj? 03u/B(p Pvp"bFromUnicode)&_ lValue = v SetTExReg0P p $   >0 @H  @"" 0  B8     &  0 H ` "    T R  Rx " NHX&p "(  0 @X hp   n H X` h x p   0@P 4X  4 H FX 8 J $(P h 0 H X p      0 H P X$x($ ($($  $  L (p$ x @ : * H (` ( p > & & ,( !+8!+@!+P!+h! ++2! L! L" X"0p"04"4"0"0"0" 8#4@# FX# P#8#4#0$ <$4H$0P$+X$(`$,h$,x$,$,$,2$0$,$,%,%0 %08%,H%,:P%,%,X%(&,V& ,h&,&,2&0&,& ,,H&8',@' '$ H' 8h'(' '(',',',(-(,20( Lh( L( )0 )048)4p)0)0)0) 8)4) F* PP*8*4*0* <*4*0+++(+,+,(+ (,0+,@+,2X+0+,+,+,+0+0+,+,:,,@,,X`,(,(V, (-(0-(2H-,-(- ,(H--(-$- .... H . &h. B. ../  (/ 0/ D@/ //// (/ 0(0 00 80H0P0  BX0 0 *0 0 0 81 *H1 x1 B1 1 1 2 2 2  ,02 >`2 2 2 2 2  *2  3 @3 `3 3 3 3333 33 034@4"4$@4 h4x4 >44 444 (45  B5X5 p5$5$5$5(5$5(5$5$5$6$6 \ 6 |6 07(07,87,@7(7,7(h8$p8(x8,8,8(9,h9(9$9$9 9$8: @:H:  "P:x: : (: N: .; H; h; (; ; ; ; < (< 2@< 0x< < < < < = = 60= h= H> 0H> $x> > 0> p> (X? j? ? 2@ 8@ H@ h@ `@ 0@ A ^(A A JA A 2A 00B 0`B rB C ((C PC $`C 0C 0C 0C D n(D D D 0D D D E tE ' JE$E $E$BE(@F(XF$hF$pF$F$G$G$H G $ DhG$G $ G GG@G"G H @HPH  DXH ,H@H"H$I (I8I (@I  hI   PI@I"IJ J0J P8J@J"JJ JJ DJ $ 68K 2pK 8K  LK B0L <xL <L BL 8@M lxM M "N N "O O 2O nP P 8Q XQ Q R 0(R XR $ 8R ,0S ,`S S , T PT 6pT T  @T"T$T U U &(U 2PUUU DULU @VXV -`V hV xV V V vV > W &`W JW W (W . X  PX$`X(xX(X$X$X $$X$X$2X ((Y((Y$0Y $8Y$ Y(Y$Z "Z$8Z $PZ $Z [ [ [ t[[[[ [[ [ 0[\ \(\J8\\\ &\\ \\]] 20]h] >]$] ]  t] HX^ v^_ _(_0_8_P_`_h_p_x_ __ _ _ __@_"_$` (`8` @``` h`` ` ````a Ba`axaa aaata bZ(bbb b (c8cTHc c@dHdPd hdxdd  d *d@d"d.e 8eHe (Pe 0xe@e"ee ef ,f @f 8`f 0f f f <f 80g "hg g  6g 8g (h 8h h |h `i &pi i  &(j $Pj <xj j .j 0k (8k D`k $k Hk &l @l :Hl (l Rl 0m .8m hm <pm Dm 6m *0n .`n @n <n @o Po >ho 6o @o  p 8p Pp <`p Xp Rp <Pq &q q (q 2q r r r s 2s s t $t Bt 6u R8u u 8v v w (w (0w FXw 6w  (w  x  x ((x  Px &hx 0x *x 0x y z0y y  Pz pz z z z 6z { { @({"0{$X{ {{ {  { {@{"{"| 0|@| H| @X|"`|"| |||| | B|@}X}h} p}x}  @} :}~~.~@~H~ `~p~~~~~~ ~~~~    :  <` vPZXȀvZ   @".Ȃ @("0$X   @؃" (8@  HXx    2 ؄   B$P$h x     & 8 ( F8 $$r $X h p   8 @ H P X@p"x Ȉ$ Ј( ((( ((B ,h,($  " 8  8@ x $ $ $((Ȋ,rЊ(H,rP(ȋ$Ћ(؋,X(8,X@($$ $$ P$`$"p$ $ T 6 ^P$$$TȎ$ (0,H,`(x((2,HЏ ( ,(, 0(@(H X$h  p (8 @H  P`"p T $ $0$8(H,`,x( (((T($  $($0$H$X$h$J HГ$(8$@ H P ` "p T  T` h 0 8H PX `p"  6T@&HpJ   И   @"(0 Xh (p   @Й"ؙ 08@P"X   @Ț"К  ( 0@@"Hp Л؛t`ZhȜМ ؜  pT ȞО   0 @@"H&p  0   $@Xh2РXؠ0H2`:   $0Xp2ТXH`2xȣ:У  ( $H p .Ȥ20X82: X `p x   ئB hx(\0 0@TP  H P ` h     @ت"( 0@ H X@p"x$ ȫث @",( Xhp@"*   B(pHrPȮЮ خ @h"p. ȯد@",0 `pdx       ȱ  б D 80 >h  , @"   @("0X x         д  8HX(pеص     B`x  B Fض   @ H :X ȷطȸ и(@HhH T0   PX ` $ "p `h  $08@пtؿP X ` Lh 2  ( @ H X  ` x   (0Xh  H (@Ph (x 2 D (h 2 D (0X`p Lx   @",( Xh p2 j (H \p 4  : HX  (p    6   0 H(X      (0@ P 0` N ,  J p 0 L J0 4 N , HP `h p V   @",@ p f  J Tp P N 8h L  6 @" (8 @ H  P`"hpx  xD]@]@] ] @`]0 L %!B@H  B@U Word tells us that any frames are first, but it prints them after the main body textPDFM- Move the selection until it's not in a frame !!!  !!! !%!! (0'N  !!! !0 N  !0'N4 " B@F (k o]@E Tables with vertically merged rows cannot have their rows enumeratedX'P R!Z'PX9XiX]p ^'\1 Truncate string at first non-printable charactersTag = TrimJunk(sTag)For i = 1 To Len(sTag)P:' If (Asc(Mid(sTag, i, 1)) < 32) Then* If (Asc(Mid(sTag, i, 1)) = 9) ThenG sTag = left(sTag, i - 1) & " " & right(sTag, Len(sTag) - i) Else$ sTag = left(sTag, i - 1) Exit For End If End IfNext i=If (Len(sTag) > 127) Then" sTag = left(sTag, 123) & "..."End If E Because we're printing, we need a double backslash before any parens!sTag = AddBackslashToParens(sTag)!sTag = AddBack      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkmnopqrstuvwxz{|}slashToParens(sTag)&sTag = AddTripleBackslashToQuote(sTag))sTag = TranslateStringToPDFEncoding(sTag)MakeStructureTitle = sTag<MakeStructureTitle = Utilities.TranslateStringForLabel(sTag)'\i]'` !!B !l d  !!d_toc '`zPkH "i00 'b]p !!B / !l d  !l  !l l  !l f  !!d_ref  ! !d 'bzXkP Ci8]]]]]0 F  H' F'  ' @@$@'2 Y@ Y@' kx $T'< d  <. <.0 '< <.e0 < '<kkStatusForm.Controls.Item("StructPctDone").Caption = pStrings.Get(pdfMakerStatusStructurePctDone) + ", " ' + Trim(s) + pStrings.Get(pdfMakerStatusPercentSign)  x "%,  <$R  "%  B@1nNumElementsProcessed = nNumElementsProcessed + 1 H'J DC:\Tmp\PDFMaker.txtProcessed element #: JV6dStatusForm.Controls.Item("StructPctDone").Caption = pStrings.Get(pdfMakerStatusStructurePctDone) + ", 100" + pStrings.Get(pdfMakerStatusPercentSign) x "%, 100  "%  B@k0A@o H]]]]]]](]@]X]x]]]]]]]0]H]`]]]]]]] ]8]X]x]]]]]]]0]H]`]x]]]]snafu8]snafu8]snafu8] snafu]8]P]h]]]]]]] ]( ]@ ]X ]p ] ] ] ] ] ] ] ]0 ]H ]` ]x ] ] ] ] ] ] ] ]8 ]P ]h ] ] ] ] ] ] ] ]( ]@ ]X ]p ] ] ] ] ] ] ] 'j 'n '''' ! ! '''''setting screenupdating to false ,!.' ,(. DC:\Tmp\PDFMaker.txtProcessing structureVPDFMaker: Special debug versionA@ hC Figure out how many discrete elements we're going to process so we can show a progress bar'F'H !j  F !! 'F F !!! 'F;nNumElements = nNumElements + theDoc.Range.Hyperlinks.Count7nNumElements = nNumElements + theDoc.Range.Fields.Count F !"! 'F F !$! 'F F !&! 'F F !!(! 'F  !!(!  %(.R R$P F  !%(!*! 'Fk8 7nNumElements = nNumElements + theDoc.Range.Fields.Count F ! ! 'F F ! ! 'F9nNumElements = nNumElements + theDoc.ListParagraphs.Count Fd'  'k@ k8 DC:\Tmp\PDFMaker.txtnNumElements: FV < The following elements can be marked as structured content: Sections - done Headings - done Paragraphs - done Links - done - UNDONE TOC - done (mark TOF as TOC) TOA - done Tables - done Index - done References - done Footnotes/Endnotes - done Lists - done - UNDONEN fixing behaviour if a doc has a shape anchored to a para at the top of a pageK if the prev page doesnt have enuff space for the para+image, then the paraK shifts to the next page but on inserting fields word goes crazy and shifts it back to the prev page ..G dont even try to understand .. just take it as a hack and gulp it down !!'    %!%!B@H  B@ R %' " $ B@  R %'     %!%(,k  ,!! ( ,!( 'L  !! L  'L  !!B !l . B@H !l d  !l  !l l  !l f  !!d_TOC  B@0kk 'liIf (pStructure.Links Or pStructure.Paragraphs Or pOptions.Bookmarks(pdfMakerBookmarksFromStructure)) Then !j  f !!'  '    'k.if the para has some text in it ... process it f!!! 'n'p'r. Move the cursor to the front of the paragraph f!B@HB if in a celland at the last para.. there is no end of para marker@ but an end of cell marker so if the cell has more than one para1 at the last para.. the entire cell gets selectedD also happens for the first para in TOCs/TOAs and maybe other places where no man has gone before !!  table insanity  % 2 %' 4 %' " $ B@ 2 %' 4 %'      B@2 f!B@H " B@ !!6!!0' !!6!!'N  N B@8d@  B@2 f!B@H " B@kdfixing TOC/TOA/Index !B! ''4  !B! 4  !B! '4  !B%!l :e'4d8  'k   !B!  !B%!l <(E do not process the entire index, selects whole index in the first go'  !B%!l >e(9 TOFs are also TOCs, May the Lord have mercy on your soul(3 if in TOCs, the first para selects the whole thing($ mark TOC and process the first para( then bail out !!'(Selection.Fields.Unlink,8 you have selected the same toc once more as the toc and, the next line are the same para, mark the last para and bail out  '  B@  B@2 " $ B@ !d$B  !d$B0E In case of a page/column break without any section break right after0F the TOC, mark the para right now, Word will not give it to you again.0 bug #415099 R %' !d$B  !d$B " $ B@  R %'  01 diff pages .. could be a plain column/page break  % L 4@ naah .. diff sections between TOC and the next para .. there is4I a section brk somewhere in between the preceeding brks .. skip this time@kd46 same page .. prbbly a continous section brk.. skip it@kkd  ''  B@ " $ B@  !d$B  !d$B  " $ B@k'  % " $ B@   ' ! :\p para "[/StPop pdfmark" !BB@b     B@2 ! :(\p para "[ /Subtype /TOC /StPNE pdfmark" !BB@b  push TOAk ! :6\p para "[ /Subtype /P /StPNE pdfmark [/StBMC pdfmark" !BB@b   B@2 " $ B@  !d$B  !d$B  " $ B@k ! :(\p para "[ /EMC pdfmark [/StPop pdfmark" !BB@b @'  !B%!l Be(1 do the same mark/process bailing out act for TOA !!'(Selection.Fields.Unlink  '  B@  B@2 " $ B@ !d$B  !d$B0E In case of a page/column break without any section break right after0F the TOC, mark the para right now, Word will not give it to you again.0 bug #415099 R %' !d$B  !d$B " $ B@p R %'  01 diff pages .. could be a plain column/page break  % L 4@ naah .. diff sections between TOC and the next para .. there is4I a section brk somewhere in between the preceeding brks .. skip this timeDXkPdH06 same page .. prbbly a continous section brk.. skip itDkkd  ''  B@ " $ B@  !d$B  !d$B  " $ B@kP'  % " $ B@   ' ! :\p para "[/StPop pdfmark" !BB@b     B@2 ! :(\p para "[ /Subtype /TOA /StPNE pdfmark" !BB@b  push TOAk@ ! :6\p para "[ /Subtype /P /StPNE pdfmark [/StBMC pdfmark" !BB@b   B@2 " $ B@  !d$B  !d$B  " $ B@k` ! :(\p para "[ /EMC pdfmark [/StPop pdfmark" !BB@b D'kkkkdB if inside a table cell, selection includes the end of cell marker and the para length goes wrong< checking if you are inside a table slows you down, so do it for all " B@k! not first entry of TOC/TOA/Index > hyperlinks are treated as an image and are thus just one char calculate paralen here !!  !d'  !!   %!!d  ' k l !0'jk'< Figure out if this is a TOC/TOA; should not reach here now;if so, skip it$If (Selection.Fields.Count > 0) Then i = 1 bDone = False2 While (i <= Selection.Fields.Count And Not bDone) $If (i > Selection.Fields.Count) Then! bDone = True ;ElseIf (Selection.Fields.Item(i).Type <> wdFieldPrint) Then$ bDone = True Else$ i = i + 1 End IfWend%If (i <= Selection.Fields.Count) Then7 If (Selection.Fields.Item(i).Type = wdFieldTOC) Then bSkipPara = True End IfEnd IfEnd If$ Is this a TOC entry? If so, skip itIf (Not bSkipPara) Then If (IsTOCEntry()) Then bSkipPara = True End IfEnd If 'ldH l j (0k( )sTag = MakeStructureTitle(Selection.Text)'^ DC:\Tmp\PDFMaker.txtParagraph tag: ^V 7 no hyperlinks in the para, thus calculate paralen here  !d' !d'k  B@'l< dont know when this gets called.. but let sleeping dogs lie x %8 f!@ z%| f!@ z%~' f!@ z%'x x 'x x e 'xk x$T$R'z'n ^ U If (pHeadings.IsBuiltInHeading(aPara.Style)) Thenv sTag = pStrings.Get(pdfMakerStructureHeadingTag) & sHeadingLevel & ": " & sTag* End If ' ! :\p para "[ /Subtype /H z /Title ( ^,) /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push paragraphd ! :\p para "[ /Subtype /H z /Title ( ^) /StPNE pdfmark" !BB@b  push paragraphkd ' ! :\p para "[ /Subtype /H z+ /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push paragraphd ! :\p para "[ /Subtype /H z /StPNE pdfmark" !BB@b  push paragraphkxkp''' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content'rkk FINALLY -- process the para n !j  snafu "Selection.Collapse wdCollapseStart GSelection.MoveRight Unit:=wdCharacter, Count:=ParaLen, Extend:=wdExtend 'ImageCnt = Selection.InlineShapes.Count If (ImageCnt > 0) Then NOT DOING images$"Selection.Collapse wdCollapseStart$nomore = False$For cnt = 1 To ParaLen$move one char at a time(start the para#! Selection.Collapse wdCollapseEnd$+Selection.MoveLeft wdCharacter, 1, wdExtend$*If (Selection.InlineShapes.Count > 0) Then$ends with an image% ImageEnd = True$Else(ImageEnd = False$End If$bkack to square one$/Selection.MoveLeft wdCharacter, ParaLen, wdMove$Selection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /Subtype /P /Title (" & sTag & ") /StPNE pdfmark""", False ' push paragraph$ASelection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend$*If (Selection.InlineShapes.Count = 0) Then$'does not start with an image$ mark the text$)Selection.MoveLeft wdCharacter, 1, wdMove$iSelection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /StBMC pdfmark""", False ' push image$"Selection.GoToNext (wdGoToGraphic)$dSelection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /EMC pdfmark""", False 'start mc Else"+ Selection.MoveLeft wdCharacter, 1, wdMove End If For cnt = 1 To ImageCnt$'mark the image$YSelection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /StBMC pdfmark""", False$*Selection.MoveRight wdCharacter, 1, wdMove$'end the image$WSelection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /EMC pdfmark""", False$DIf ((cnt <> ImageCnt) Or ((cnt = ImageCnt) And (Not ImageEnd))) Then$'mark the text(,Selection.MoveRight wdCharacter, 1, wdExtend(*If (Selection.InlineShapes.Count = 0) Then,)Selection.MoveLeft wdCharacter, 1, wdMove,lSelection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /StBMC pdfmark""", False ' mark the text,If (cnt <> ImageCnt) Then0"Selection.GoToNext (wdGoToGraphic),Else0Selection.Move wdParagraph, 10)Selection.MoveLeft wdCharacter, 1, wdMove0*If ((Len(Trim(Selection.Text))) <> 0) Then4*Selection.MoveRight wdCharacter, 1, wdMove0End If0hSelection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /EMC pdfmark""", False 'end the text,End If(Else,)Selection.MoveLeft wdCharacter, 1, wdMove(End If$End If Next cnt nSelection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /StPop pdfmark""", False ' pop paragraph Dmark the pne, bmc, emc and set pop para to true and mark stpop later  B@ ' !d$B  !d$B   " $ B@  '9  ' ! :&\p para "[ /Subtype /P /StPNE pdfmark" !BB@b B push paragraph '/_objdef {" & "PrevPara" & Format(SaveCount) & "}'p' ! :\p para "[ /StBMC pdfmark" !BB@b start mc$>store start page to see later if para spane more than one page R %'  End If End Ifk8 DC:\Tmp\PDFMaker.txtAfter End If 2V7= We've marked the beginning of the paragraph, and the heading% Now look for links in this paragraph DC:\Tmp\PDFMaker.txtIf (pStructure.Links)V6"If (pOptions.CreateStructure) Then NOT DOING links !I For nLink = 1 To aPara.Range.Hyperlinks.Count DC:\Tmp\PDFMaker.txt nLink a: vV5I Set aLink = aPara.Range.Hyperlinks.Item(nLink) DC:\Tmp\PDFMaker.txt nLink b: vV5= If (Len(aLink.Range.Text) > 0) Then/ aLink.Range.Select$+sTag = MakeStructureTitle(aLink.Range.Text)1 sTag = Selection.Text E nLinkEnd = Selection.End - Selection.Start ; Selection.Collapse wdCollapseStart 5 bStructuredBookmark = False 5 If (bStructuredBookmark) Then < bCreatedStructuredBookmark = True1 If (Len(sTag) > 0) Thenf sTag = pStrings.Get(pdfMakerStructureLinkTag) & " " & sTag Selection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /Subtype /Link /Title (" & sTag & ") /Bookmark << /Open true >> /StPNE pdfmark""", False ' push paragraph Else Selection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /Subtype /Link /Bookmark << /Open true >> /StPNE pdfmark""", False ' push paragraph End If Else+ If (Len(sTag) > 0) Theng ' sTag = pStrings.Get(pdfMakerStructureLinkTag) & " " & sTag Selection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /Subtype /Link /Title (" & sTag & ") /StPNE pdfmark""", False ' push paragraph Else Selection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /Subtype /Link /StPNE pdfmark""", False ' push paragraph End If End If) bCreatedStructuredContent = True'' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content2 Selection.End = Selection.Start + nLinkEnd& Selection.Start = Selection.End& Selection.Collapse wdCollapseEnd Selection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /StPop pdfmark""", False ' end marked content and pop paragraph& End If UpdateStructPctDone 0If bCancelPrinting Then GoTo CreateStructureExit Next nLink DC:\Tmp\PDFMaker.txtMark end of paragraphV* Now mark the Stpop if pop para, Move the cursor to the end of the paragraph f!B@H  B@ " $ B@ \ Move inside paragraph mark !d$B  !d$B  !d$B  " $ B@k) p snafu R %'   ' ' ! :)\p para "[ /EMC pdfmark [ /StPop pdfmark" !BB@b % end marked content and pop paragraph 8 if spans more than a page, store the para on first page  do a retrieve on the next page C otherwise the text on the second page wraps back to the first page  on inserting fields " insert softbreak to overcome that ' mark one para with two marked contents   R %  4 $ B@F " $ B@ P']8 'H R %' !d$B  !d$B  4 $ B@J'Hk& ! :&\p para "[ /EMC pdfmark [ /StoreName /PrevPara $# /StStore pdfmark [/StPop pdfmark " !BB@b  end marked content H 4 $ B@Jk%$ insert the Shft-Enter thing $d B@L ! :\p para "[ /StoreName /PrevPara $% /StRetrieve pdfmark [/StBMC pdfmark" !BB@b  start marked content  '$k$ r ! :'\p para "[/EMC pdfmark [/StPop pdfmark" !BB@b % end marked content and pop paragraphkh$k`$kX$ all doned@$ snafu) no chars in the para, mark an empty para f!!!' f!B@H !! !d$B  !d$B  . %'   B@check if in an empty table cell !N! 'k# . %'  " $ B@ , gives an empty para at the end of every row  %   R % %  " $ B@k " ! :\p para "[ /Subtype /P /Title ( ^) /StPNE pdfmark" !BB@b  push paragraph ! :\p para "[ /StBMC pdfmark" !BB@b }start mc ! :)\p para "[ /EMC pdfmark [ /StPop pdfmark" !BB@b % end marked content and pop paragraphk k k k    H  'HA@dk ' !GPj fkX   'HA@dk0 DC:\Tmp\PDFMaker.txtIf (pStructure.Lists)VIf (Not ListsDone) ThenNOT DOING lists' !j !R!   !T !!d  !B@H !! !!0 '  B@ !d$B  !d$B   " $ B@  'p' ' ! :D\p para "[ /Subtype /List /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push listd ! :)\p para "[ /Subtype /List /StPNE pdfmark" !BB@b  push listkp''' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content !B@H  B@ ! :\p para "[ /StPop pdfmark" !BB@b s end marked content'' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StPop pdfmark" & vbCrLf & "[ /StBMC pdfmark""", False ' pop listkA@d !GPj kkxDOING TOCS with paras# Enumerate any TOCs in this section DC:\Tmp\PDFMaker.txtIf (pStructure.TableOfContents)V"If (pOptions.CreateStructure) Then ) For Each aTOC In aSection.Range.Fields DC:\Tmp\PDFMaker.txtaToc: |!V & If (aTOC.Type = wdFieldTOC) Then  aTOC.Select 2 nLinkEnd = Selection.End - Selection.Start ) Selection.Collapse wdCollapseStart counter = nLinkEnd6 While (Asc(Selection.Text) = 12) And (counter > 0)1 Selection.MoveRight wdCharacter, 1, wdMove counter = counter - 1 Wend/ bStructuredBookmark = False1' If (bStructuredBookmark) Then!bCreatedStructuredBookmark = TrueSelection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /Subtype /TOC /Bookmark << /Open true >> /StPNE pdfmark""", False ' push TOCElseuSelection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /Subtype /TOC /StPNE pdfmark""", False ' push TOCEnd If bCreatedStructuredContent = True'' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content TocEntry = 1 TocEnd = -15 On Error GoTo CreateStructureEndTOC Mark each TOC entry( bSkipTOCEntries = False) Set aTOCEntry = aTOC.Next" UpdateStructPctDone> If bCancelPrinting Then GoTo CreateStructureExit aTOCEntry.SelectA While (aTOCEntry.Type = wdFieldPrint Or IsTOCEntry())  aTOCEntry.Select 3 ' If (Not IsTOCEntry()) Then " If (IsTOCEntry()) Then K TocStart = Selection.Information(wdFirstCharacterLineNumber)) If (TocStart > TocEnd) Then' bSkipTOCEntries = True5 Utilities.FindActualSelectionStartOfTOCEntry= nTOCEntryEnd = Selection.End - Selection.Start0 Selection.Collapse wdCollapseStart# If (TocEntry = 1) Then' TocEntry = TocEntry + 19 Selection.MoveRight wdCharacter, 1, wdMove6 If (Selection.Hyperlinks.Count > 0) Then9 Selection.MoveLeft wdCharacter, 1, wdMove Else7 Selection.MoveLeft wdCharacter, 2, wdMove/ If (Asc(Selection.Text) = 13) Then: Selection.MoveRight wdCharacter, 1, wdMove End If End If End If6 counter = nTOCEntryEndQ While (Asc(Selection.Text) = 12) And (counter > 0)L Selection.MoveRight wdCharacter, 1, wdMove6 counter = counter - 1 Wend" If (bStructuredBookmark) Then+ bCreatedStructuredBookmark = True Selection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /Subtype /TOCI /Bookmark << /Open true >> /StPNE pdfmark" & vbCrLf & " [/StBMC pdfmark""", False ' push TOC Else Selection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /Subtype /TOCI /StPNE pdfmark" & vbCrLf & " [/StBMC pdfmark""", False ' push TOC End If+ bCreatedStructuredContent = True'' ' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content aTOCEntry.Select; Utilities.FindActualSelectionStartOfTOCEntry0 Selection.Collapse wdCollapseEndK TocEnd = Selection.Information(wdFirstCharacterLineNumber) Selection.Fields.Add Selection.Range, wdFieldPrint, "\p para "" [/EMC pdfmark " & vbCrLf & "[ /StPop pdfmark""", False ' end marked content'' ' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StPop pdfmark" & vbCrLf & "[ /StBMC pdfmark""", False ' pop TOC entry  End If  End If " UpdateStructPctDone@ If bCancelPrinting Then GoTo CreateStructureExit/ Set aTOCEntry = aTOCEntry.Next" aTOCEntry.Select WendV"On Error GoTo CreateStructureError aTOC.Select Selection.Collapse wdCollapseEnd)Selection.MoveLeft wdCharacter, 1, wdMove#If (Asc(Selection.Text) <> 13) Then*Selection.MoveRight wdCharacter, 1, wdMoveEnd IfsSelection.Fields.Add Selection.Range, wdFieldPrint, "\p para ""[ /StPop pdfmark""", False ' end marked content''' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StPop pdfmark" & vbCrLf & "[ /StBMC pdfmark""", False ' pop TOCIf (bSkipTOCEntries) Then Set aTOC = aTOCEntryEnd IfEnd IfUpdateStructPctDone0If bCancelPrinting Then GoTo CreateStructureExit Next aTOCEnd If DC:\Tmp\PDFMaker.txtIf (pStructure.Tables)Vh Do tables now !j  R !!( DC:\Tmp\PDFMaker.txtBefore aTable.SelectV RB@H DC:\Tmp\PDFMaker.txtAfter aTable.SelectV8 ! !0 't  B@ t' !d$B  !d$B   " $ B@  '''9 if table has headers and spills over more than one page,4 mark headers as paras and start table from next row'X R%*!Z R!*! ' R %' RB@H  B@ " $ B@  R %'   'k0 RB@H  B@d'kX 4 how many times did i tell you not to get individual6 rows for vertically merged cells .. now go jump again\XkP\H  ' ! :E\p para "[ /Subtype /Table /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push TOCd ! :*\p para "[ /Subtype /Table /StPNE pdfmark" !BB@b  push TOCk@d8 R%*. !B@H  B@ ' ! :E\p para "[ /Subtype /Table /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push TOCdp~ ! :*\p para "[ /Subtype /Table /StPNE pdfmark" !BB@b  push TOCk~k~''' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content DC:\Tmp\PDFMaker.txtIf (CanAccessTableRows(aTable))V|' R$P DC:\Tmp\PDFMaker.txtCan Access Table RowsVh|^`| Enumerate Table rows  R!* DC:\Tmp\PDFMaker.txtaRow: !V{]P !'`  `  ' !Z'k`{  `   ` B@H !! !!0 ' !d$B  !d$B   " $ B@  'z  B@khzIf (aRow.Index = 1) Then Move cursor past Table pdfmarksnafu2 Selection.MoveRight Unit:=wdCharacter, Count:=1 End If?If ((HasHeaders) And (aRow.Index > 1)) Or (Not HasHeaders) Then ' ! :B\p para "[ /Subtype /TR /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push TOCdx ! :'\p para "[ /Subtype /TR /StPNE pdfmark" !BB@b  push TOCkxEnd If''' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content !N! bw'''  !N DC:\Tmp\PDFMaker.txtaCellV0w  B@H ! !0 '  B@ ' !d$B  !d$B   " $ B@  'hvk`v$If (bFirstCell) Then( Move cursor past TR pdfmark$2 Selection.MoveStart Unit:=wdCharacter, Count:=1(If (aRow.Index = 1) Then(2 Selection.MoveStart Unit:=wdCharacter, Count:=1(End If$End If' R %' '  ! :B\p para "[ /Subtype /TH /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push TOCdt ! :B\p para "[ /Subtype /TD /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push TOCk0td(t  ! :'\p para "[ /Subtype /TH /StPNE pdfmark" !BB@b  push TOCds ! :'\p para "[ /Subtype /TD /StPNE pdfmark" !BB@b  push TOCk`skXs''' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content B@H  B@ " $ B@  R %' snafu M if cell para spills over more than one page, you got work on your hands baby 0 first go to end of every page and pop the cell, W then go to end of that row, ie the last row in that page and pop the row and the table '   ' ! :\p para "[ /StPop pdfmark" !BB@b  end marked content   R %  4 $ B@F " $ B@ p R %' !d$B  !d$B  ! :\p para "[/StPop pdfmark" !BB@b  pop td( set poprow' !d'ko  '$snafuo'' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StPop pdfmark" & vbCrLf & "[ /StBMC pdfmark""", False ' pop Table cell knbn^n B@H  B@ " $ B@ snafuN yeah i know .. carry more burden .. who told you to spill text over two pages   !N!   ' '   R %  4 $ B@F " $ B@ hm R %' ! :\p para "[/StPop pdfmark" !BB@b  end marked content  'ldl]h  %N.f f!B@H  B@ " $ B@  ! :\p para "[ /StPop pdfmark" !BB@b  pop table$Blast row and not the last cell - pop table at the end of this cell ! R!*!'kkkk B@H  B@ " $ B@  ! :\p para "[ /StPop pdfmark" !BB@b  end marked contentdksnafu ! :\p para "[ /StPop pdfmark" !BB@b  end marked contentkj'' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StPop pdfmark" & vbCrLf & "[ /StBMC pdfmark""", False ' pop Table rowki H 'HA@d ki^ii RB@H  B@ " $ B@ 0 pop the table at the right place if text spills  ! :\p para "[ /StPop pdfmark" !BB@b s end marked contentdh  R!*! R%*%N.f f!B@H  B@ " $ B@  ! :\p para "[ /StPop pdfmark" !BB@b s pop tablekh'' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StPop pdfmark" & vbCrLf & "[ /StBMC pdfmark""", False ' pop Table H 'HA@d !GPj Rkg Cross references DC:\Tmp\PDFMaker.txtIf (pStructure.References)Vf"If (pOptions.CreateStructure) Then NOT DOING xref  !!B DC:\Tmp\PDFMaker.txtaRef: !Ve !l . DC:\Tmp\PDFMaker.txtBefore aRef.SelectVHe B@H DC:\Tmp\PDFMaker.txtAfter aRef.SelectVd$b DC:\Tmp\PDFMaker.txtIsCrossReferenceVXd ! !0 't  B@' ' ! :D\p para "[ /Subtype /XRef /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push XRefdc ! :)\p para "[ /Subtype /XRef /StPNE pdfmark" !BB@b  push XRefk0c''' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content B@H !0 t ( ! (0  B@ ! :\p para "[ /StPoP pdfmark" !BB@b w end marked content'' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StPop pdfmark" & vbCrLf & "[ /StBMC pdfmark""", False ' pop XRefk@ak8aA@d !GPj ka H 'HA@d !GPj  DC:\Tmp\PDFMaker.txtIf (pStructure.Indices)VP`*mark the left over one liner TOCs and TOAs !j ] h !$! h %$!!! h %$!B@H  B@  B@2 !d$B  !d$B  " $ B@k(_ ! :(\p para "[ /Subtype /TOC /StPNE pdfmark" !BB@b { push TOA  B@2 " $ B@  !d$B  !d$B  " $ B@kH^ ! :\p para "[/StPop pdfmark" !BB@b k^ h h !&! h %&!!! h %&!B@H  B@  B@2 !d$B  !d$B  " $ B@k] ! :(\p para "[ /Subtype /TOC /StPNE pdfmark" !BB@b { push TOA  B@2 " $ B@  !d$B  !d$B  " $ B@k0\ ! :\p para "[/StPop pdfmark" !BB@b k[ h h !"! h %"!!! h %"!B@H (If (Selection.Paragraphs.Count = 1) Then  B@  B@2 !d$B  !d$B  " $ B@kZ ! :(\p para "[ /Subtype /TOA /StPNE pdfmark" !BB@b { push TOA  B@2 " $ B@  !d$B  !d$B  " $ B@kY ! :\p para "[/StPop pdfmark" !BB@b kY hkY mark the index now !j   !  !!d  !B@H !! !!0 '  B@ ' !d$B  !d$B   " $ B@  'hX' ' ! :E\p para "[ /Subtype /Index /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push IndexdW ! :*\p para "[ /Subtype /Index /StPNE pdfmark" !BB@b  push IndexkhW''' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content !B@H  B@ ! :\p para "[/StPop pdfmark" !BB@b n end marked content'' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StPop pdfmark" & vbCrLf & "[ /StBMC pdfmark""", False ' pop IndexkU H 'HA@d !GPj khU mark the footnotes Footnotes and endnotes DC:\Tmp\PDFMaker.txtIf (pStructure.Footnotes)VT !j  x ! DC:\Tmp\PDFMaker.txt aFootnote: x !V T x !!d  DC:\Tmp\PDFMaker.txtBefore aFootnote.Range.SelectVS x !B@H DC:\Tmp\PDFMaker.txtAfter aFootnote.Range.SelectVS x !! x !!0 '  B@ !d$B  !d$B   " $ B@  '`R' ' ! :Y\p para "[ /Subtype /Footnote /Bookmark << /Open true >> /StPNE pdfmark [/StBMC pdfmark" !BB@b  push footnotedQ ! :=\p para "[ /Subtype /Footnote /StPNE pdfmark [/StBMC pdfmark" !BB@b  push footnotek0Q''' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StBMC pdfmark""", False ' begin marked content DC:\Tmp\PDFMaker.txt2 Before aFootnote.Range.SelectV P x !B@H  B@ DC:\Tmp\PDFMaker.txt2 After aFootnote.Range.SelectVO ! :*\p para " [ /EMC pdfmark [ /StPop pdfmark" !BB@b  end marked content'' Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /StPop pdfmark" & vbCrLf & "[ /StBMC pdfmark""", False ' pop footnotekxN H 'HA@d !GPj x k0N !GPj> ' If the selection is within a footnote, Word will lock up1 ' when you try to select the entire document.7 theDoc.Sections(1).Range.Paragraphs(1).Range.Select theDoc.Select& Selection.Collapse wdCollapseStart Selection.Fields.Add Selection.Range, wdFieldPrint, "\p pic ""[ /Title (PDFMaker-created structure) /Name /PDFMakerRoot /StTreeRoot pdfmark""", False DC:\Tmp\PDFMaker.txt Mark sectionsVL !j   !! DC:\Tmp\PDFMaker.txt Section: VpK] ] ] ] ]  %. !B@H'j    %.p p!!!  p!B@H  B@ R %'n p!!! p!%!B@H  B@ R %'l l n'jk JkJkJ A@L !!!' !d$B  !d$B   " $ B@  'pI< sTag = pStrings.Get(pdfMakerStructureSectionTag)@ sTag = sTag & " " & MakeStructureTitle(Trim(Str(i))) $T$R$\'^'  3 Close off the previous section, and open a new one !B@H j]   B@snafu ! :\p para "[ /StoreName / FrameSect  $< /StStore pdfmark [ /StPop pdfmark [ /Subtype /Sect /Title ( ^) /StPNE pdfmark" !BB@b  end marked content R %'t]8 x z B@  %'v v    | B@  %'vkF r p!!! r p!%!B@H  B@ R % t ! :\p para "[ /StoreName / FrameSect v$# /StStore pdfmark [ /StPop pdfmark" !BB@b  end marked content ! :\p para "[ /StoreName / FrameSect  $ /StRetrieve pdfmark" !BB@b  start marked content r p!%!B@H  B@ r p!!! ! :\p para "[ /StPop pdfmark" !BB@b | end marked content ! :\p para "[ /StoreName / FrameSect v$ /StRetrieve pdfmark" !BB@b  start marked contentdC ! :\p para "[ /StoreName / FrameSect  $# /StStore pdfmark [ /StPop pdfmark" !BB@b  end marked content ! :\p para "[ /StoreName / FrameSect v$ /StRetrieve pdfmark" !BB@b  start marked contentkBkB rdo a store and retrieve hered`B  B@ ' ! :3\p para "[ /StPop pdfmark [ /Subtype /Sect /Title ( ^,) /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push sectiondA ! :3\p para "[ /StPop pdfmark [ /Subtype /Sect /Title ( ^) /StPNE pdfmark" !BB@b  push sectionkAkAd@ No previous section to close ' ! :"\p para "[ /Subtype /Sect /Title ( ^,) /Bookmark << /Open true >> /StPNE pdfmark" !BB@b  push sectiond(@ ! :"\p para "[ /Subtype /Sect /Title ( ^) /StPNE pdfmark"" !BB@b  push sectionk?k?' F if footnote on the last page, section ends before the footnote starts , take care of that here and in the /docu tag !|! !  ~ | B@ R %'d>'k>  !! Close the last section !B@H ~ B@ R %''j !B@H !!!   B@ R %'n !!! !%!B@H  B@ R %'l l n'jd`= !B@HkH=k@= jB aSection.Range.Frames(aSection.Range.Frames.Count).Range.Select" Selection.Collapse wdCollapseEnd   R %'  !Selection.GoToNext wdGoToFootnote]P ! ! % . !B@H  B@+ElseIf (theDoc.Range.Frames.Count > 0) Then> theDoc.Range.Frames(theDoc.Range.Frames.Count).Range.Select" Selection.Collapse wdCollapseEnddh;  B@kP;+ElseIf (theDoc.Range.Frames.Count > 0) Then> theDoc.Range.Frames(theDoc.Range.Frames.Count).Range.Select" Selection.Collapse wdCollapseEndd:  B@k: ! :\p para "[ /StPop pdfmark" !BB@b q pop sectionk0:k(: k:  DC:\Tmp\PDFMaker.txt1 MoveToBeginningOfPrintStreamV9A@L !d$B  !d$B " $ B@(9 ! :.\p para "[ /Subtype /Document /StPNE pdfmark " !BB@b y begin marked content !!! !%!B@HU Word tells us that any frames are first, but it prints them after the main body text- Move the selection until it's not in a frame3 taking care of the footnote on the last page thing ~ B@ R %' !!! !%!B@H !!!'r r   B@ R %'n r !!! !%!%!B@H  B@ R %'l l n !!! !%!B@H  B@dh6  B@kP6  e R %'   ! ! % .!Selection.GoToNext wdGoToFootnote !B@H  B@Else*If (Selection.Range.Frames.Count > 0) ThenG Selection.Range.Frames(Selection.Range.Frames.Count).Range.Select% Selection.Collapse wdCollapseEndElseC theDoc.Range.Sections(theDoc.Range.Sections.Count).Range.SelectEnd IfEnd If Else*If (Selection.Range.Frames.Count > 0) ThenE Selection.Range.Frames(Selection.Range.Frames.Count).Range.SelectElseC theDoc.Range.Sections(theDoc.Range.Sections.Count).Range.SelectEnd If .ElseIf (Selection.Range.Frames.Count > 0) Then H Selection.Range.Frames(Selection.Range.Frames.Count).Range.Select& Selection.Collapse wdCollapseEndd2  B@k2d2  B@kx2 ! :\p para "[ /StPop pdfmark" !BB@b e begin marked content F'HA@dk2  x %8 DC:\Tmp\PDFMaker.txt2 MoveToBeginningOfPrintStreamVx1A@L  "%'^ ! :\p para "[ /Title ( ^%) /Open true /StBookmarkRoot pdfmark" !BB@b k0D A single block of marked content cannot span a page boundary in PDFM In Word, a structured element, such as a paragraph, can span a page boundaryI To abide PDF's rules, every /StBMC must have a matching /EMC on the sameH page. We've kept track of the net number of /StBMC pushes on each page.1 Now add the necessary /EMCs to meet PDF's rules.E CreateStructure = AddMissingPops(bLogEntries, fileNum, nLogEntry)'j StatusForm.Controls.Item("StructPctDone").Caption = pStrings.Get(pdfMakerStatusStructurePctDone) + ", 100" + pStrings.Get(pdfMakerStatusPercentSign) x "%, 100  "%  B@'n DC:\Tmp\PDFMaker.txtStructure doneV--P-  ,(.i-p]]'  !T !B@H A@   ' o--NAttribute VB_Name = "Structure" Option Explicit #Const bDebuPgLogd0.PrivanNumElements As Long :Proc essed&ubh nLastG(bComplerBooleanuSub MoveToBeginningOf nteam(0nSect9beBrG) DDimHSelSptartYOrror ResuNextheDoc.2s 7).Rang>e/%5.Collapse wd@' Word tells us that any frs are f@irst, it priI`m aft@; main bod6yE-'Le sB>until's not @ a#If (;.5F"2 > 0) The@gAF V= SQEndC"A‘ -1While+ And$C<>΄5G" CUnit:=@~haraBck, CoQ:=1e<? If Fun· CanAcATableRows(aBZ)!&h_Integer' s with verticall@y merg {r! canaEhaDveIir e:ndr`$6gGoTo0_ExAAFalse .`*form O :('))MakeTitle(sTagA%b)C A)iAwO  1r=šsng `un-"> cI= Trim0JunkY'F%i 1 2LenA~Asc(Midb, i, 1)) < 32i}':= 9dleft - & " & righE@i%aED& e+adQ #?LoB  iCA'G> 127123)x...@ d Becaue'?@R, we ne@sa dove backsl@ash be1eecpcns4AddBToPh ^'{Quot4Tran tq7 DFEncod33 '_PUnities.Label p"7DUDIsTOCE`ntry(WBfBFiel4RB?5{Qs Each f In_va$Q%)f.T$ypawdRPa0geReP qInAM(1, f}d e.Tex`"_toc", vbap"@1 Tru\@6kC .r5@o [s Cross erence/)+K.x.((OrKFootvdN41d`p'm_(ref@QmMHf.rlt!)IN1I  zQ7S8Upd@r+{PctDon 1$m7D"Rn6dB1m d2_m `KS''/85 = I3 ; :=/ = !t(* 1000#~/# UmAx9s!P(a< &  0!Ks, ".|")01 +p0dv1F21S"0"_V}'t4usDm`Vbols.Item(4").Cap= p%s.Get(pdfirpDone) + ", " _  '@+ T rim(spStrings.Get(pdfMakerStatusPercentSign)tLDlg.SetMessage (QkucturPePct&& .Y'nNu mElemgsProcUed =" + 1rnLast #If bDebugLog Then&Open "C:\Tmp\PDF.txt" For Apd AcP Write As 2 3 Pt #23Fe7 #:& -Clo se+End IfElseG 'C&m.Controls.It0em("rr").CaptionU*100"Ӣ ~0 DMDHoEv ASub FuncDCreat&eCL@()uBooleaĆDim aParaA`graphbSe@n$5rtLongbFirst b!IsHead'PopopsTag  AaLinkH`yperlgn?a!)e rbeyfs  $LevelTOCFieldhEbyp bSkipie6s!+nraT8ablRow CelBbF;s-o! 2b6Bia ,anIndex1Ref-+FopotnoeLisC]bʡ -b :cd`km\arbOcud rck[ EAfileZIntegersAa!5n)b]KqrToMovr(?EA"L! '`snafu Lp$>cantpn cnN`nomor2 . col1 P2_hrow P 2CurrYR posiRbdImCGAN"DQ a6/Nextfw8t PP :s8q3cou .[ A0$startp 0endA QdifIl0?1SaveC Pop/X40aTocjk)B2PuHarrerlB/#lNoErr 04D= 0 InsideTOC =@ FalseParaSeenT'settin g scrTupda8to fh PrevU.= @ApplicJon.Sh88' #If bDebugLog ThenOp"C:\Tmp\PDFMaker.txt" For Output Access Write@ As 23APrint #23, "Prortructure"Close MsgBox=: Special dX ve rsion"#E`nd If' Fig1 oQhow many diTelements we're goKbpR so $can s!a DgrwbarnNumE&= s D>ed{V@](pOpt/s.C@reateSE)a + theDoc.SecountC& "@Range.graph@$ 'hHyperlinkzFieldN!TablesO@fAuthoiBeContA.CpVcQHIF;3# piJ1 ToEAABSet a G (i)'GATCanC|bRows() U!a4V.  ){Next iSc J "0Index?IifFootnotaListwseAfterA(Int(*/ 100):a:< 2019 2M2 ɶ@eɃi: " &*Cʒ fol8low!be `rkas sQd c: ' " - donC$HeadpswLST`UNDONEc (mark TxOF pDTOA$Qn-^Referen{,/r-.!+E9 U fixqbehaviou@r if a@c h0 aPwape anc\z x atN top o!pagv0`Mzev q esp0e enuff spac*erRp+ijm ,nFe shifn!Hbon in(serfrk word0es crazy d 1it back  ..%$t ev0tryu0Hrsta`2.. jus0 6 hguDlpQdowSZhpslPBAvau1.Wae(?E"fHc @pes().A2HP(1).cYS`7c8 llap1pwdC@:StarCurrPP gInforbm(wd *A2d1edZberhQMoveLPeft @h!cU, 1,we!Y,< 5 _Y жti_2 BkBeeTru43Q@ &svsS@[FcWinAP'.Viewp%ow"wCod0ϙop >ndV $i*Each B I#"VEn0= ( ((=q OrZ}NpAw G (p0B1.TP_g", DvbComTe>)/ 0"Unqk]((+bFiRQv`{.'p.v8yBook1w`s(pdfFrom6b2 en If (pOptions.CreateStructure) Th For Each aPara I@n aSec|.@Range.,graphsZdexStart = False#?Seen! + 1LTOCEntries 8> 0z)= --End If9'if the p}has some text in it ... procxessYCBh$cterountb1bbIsHeadingzbPop/' Mov<AcursDtoDfro/oG€I@Sela cel$laeatlasta[cre is no e gmarkerbut an   t DyBAy$mo@th on'tigetB=edlso happ`ens fAY\fir=As/T(OAs1d/ybe oC placwhe"%mgbe qa>A4{.C_V ' tabl4nsanit&yso Inma(wdWithhInT! )dc col1_G |OfbColumnNumber)w row xRow kRight wd, 1,a2b G ` ((2<>32) Or (*  ?; '`$a, -ŧ#- kJ5 Current' s.L;?!=H  W Set"2z , sLE?~./?=;=/'fixA|\q\/In iXFieldipB2<> H3 ' diffls .. could b pl Zo/pL"pFw1 !>TS`yS = nLlnaahAsC s@tweena)a@v?wis;'@L`Jk somewhe Me1preceedingqPskippziimomGoTo M@h0# 0, IfE/y/' s'prbblycontinhous`ki OO//Count - YTru(?_?i_%`Leftdoo!Jomt)qH130 ݟ  %O"qЄ0d 13) And 0)) pThen+9 R(ighCgE+Ifo#k G.EGBPno@CIM@TOC:(IndexStart = TruE@BItem(i).T=HTOA' do the same ar/process bailing out act for ?Ea*Coun#'ss.K ' Un k?%bp 13) A0)) Then?)!F?Fe'd /E'H"J7{j:IndexStart`Tru"& Y }E' if inside a tab@cell, secludes the ` of a er7)8' a[length go`wrong# ' checking you are} slows down o do itogz all/%3-?r ' not first@tryaf!_/2'q!ENg)_Bq7' hdrlinksrtrea ted an imagn0thus ju@ onePaPalcul"z her2 Hf .v> 0 1Fa(! {nSû5Q%O sbSkipQO' FiDgu,outCthis a5; should370chB+w;ofpRso@F ?FUp';.$m-(z'iFh@b:D:=h' i <=. aEbOai >$ uOamOItem(i).TpE|wd"" 'w '/v'ݑip.'2> 'WO\?- *!ُA=0FieldTOC) Then 'tbSkipPara = Truel ' End IfP'$ _' Is t@his a @entry? so, sg itIf (NoAL = 0}>A 1.gB' 5BG !Collap-wdE_T l g' doCknow wG6getb7led.. but let sle eping@gs8 li8a9pOpAqs.Bookmarks(pdfBX&Fromhߢ$ Heads.M@ As)dnt(aA>yle? $ bG Lp ConvertTo* [. n Level ?"?  a" < 1}hm 1 -\> 99 OOsTrim(str()[?b1&I5oH!X) > Og)IsBuiltIu :$?o )06Get<62`q)d& "mf?w_;k'bCre kd d8@/_Fs.AddXRange, wdzpz\pbt ""[ /SubtPv /&Hz /҇ (C|@") /V << /bЊe >>tPNE X1Y""", Қ ' push7 e U'@SѪ ; ߯-t-?--_Aqo,o,o,o? o,OOOOOF+;ra;  +> End If lbCreatedStructuredContent = True'''Selection.Field@s.Add Range, wdPrint, "\p pic ""[ /StBMC pdfmark""", Falsew' b egin ed c$pPopHeading ig!P' FINALLY -- process the paraIf (NotH bP Is7A~pOpAas.vu) ThenZsnafu v@CollapjwStart*MoveRight Unit:=h7cter,` CounA;L@en, Exd C`ImageCµG.InlineShapeLa_F> 0eV' NOT DOING i*s"?":?5  nomxoreh"sFor c.1 T\o d8mB one cA at a tims!}'s!Qj'p[  '/[PLeftCZ1w?Xg' W Q 'ends with anN"¢`iŢ'E %' ;N''bkack to squa \ N?a^ u) Or (R=HQrpr))/O'Ni```?H#%_iQLLL{BMC pdfmark""", @False '  the t`ext P% 'If (cnt <> ImageCnt) Then+o'Selection.GoToN (wd Graphic),E:Move wdPara"gA, 1'Le$ft)Ch*cter),5-(Len(Trim(T)))05 eA(Righ/End IfTField@s.Add G?R0angeAUBPrint, "\p p] ""[ t/Ee%t3'oHd1'5cd'"x;9d9StPo;1 ' p?/xD'pn Nbmc, emc aHset to truebstala@ [CollapwdEStar} coun` = @While ((0(Asc` 12) Or 4@ A@&(> 0)߽bg#!%-߿c W`&aSaveC!.`$g~+  f3qPSubtype /P /04NE_14ushS"4 '/_objdef {" & "Prev#ForPmat( )}w3 [b`.L )mpOpqs.sD1OT DOINGT!n')1)nS1 To aaT..H ^r.fC a: a/uSpaO!.Item(GO>b W v0 !'MٴR  'aLink.Range.Selectpn'sTag = MakeStructure@Title( RText)QQpion.<; FnhEndM$ - Star t)Collapse wd$MbdBookmarkRFalsem!If (") ThenHbCreatDed$Tru# C$Len(Ao) > 0E#XBO~p@$ings.G@et(pdfArF)Av@) & "@& A =*GsFields.Aldd,xBPrint, "\p para ""[ /Subt ype /# /q¼ ("%1&) /x<< /Open e >>tPNE 7""", D@' pushgraph6bEH 7_!d_!v:zIf$@O4$rZF]bB|= [[ T [ge[[SW eW6w3A2 y?a;/UXT!zO\Content@e3\''Di/Q# QicQtBMC=1' begin Ned c ;_Y =hMy + % ) _ZeWoeo;gOZ jjtPodff*e a p1<  X'Upd3}PctDonކ_'XbCapncelh02 GoTo ӌ#PExiO:'Ne|xtc!  #1 DebugLog"C:\Tmp\PDFr.txt" F or Apd Access Write As 23b #23MMqof"Clo@@ # Now8 the StipW{Move!Rcurs` to? R]aP%Oǿ4(O ?bW Left Unit: =h cter@, Coun01, ExUd>rinside#(((0Asc(7 <> 13) A8t)0)}2 +Rpight`wda _'/1bK"Ι' snafuO*pagePrInformatP(wdActiv1ZAdjuspPNumber}diff- s }last? ߴ Selection.Fields.Add PRange, wdtPrint, "\p para ""[ /EMC pdfmark StPo< """, False' end *ed content a p3Rgraph  ' if spans more than asteon firLst!Zdo%retrieve the nexŧ orwizt#sezdE wus back toaeS)insertingޢ so@ftbreao@vercomRt'ƒonawi@th two~s While (pagediff > 0)ADInforma(wdAveEndAdj@ustedPNumber) >= lastAdAH[KeyLinM@a-K! LeftChcter, 1;AWsDim D;" As Booleana" =C1 = 99  If ((Asc(G T{) <> 32) A@11)) The_%! bE2J%;= True!!AIf/? G?d? /SNa/" & "PrevP dF}(SaveCount)AڀǟJNotjDg>owcmShft-zE@|rk@h/ 9Type3 A:=Chr(@2_]y$o#a##R7F#BG?startq?__iRq=B- 1a Y_%;1bP7Head%1C ?o O ' all vdtE_' snafuno cs i6nA,+@ emptyP&raaqW.7.s.W{1?(InATabО !O % }?1 rȊ }}c= 13) Or 90) CurrF̆ '1Collapwd0$'che0`pstrcelleqxoO1 1ڿm' gives{5 at#r7AGof ry rowy1Tyon.Information(wdAtEndOfRowMarker)) Then If (((CurrLine = Prev) And (Selec vetAdjustedPageNumb{E6!Of-sInDocument)nNot InATable&q8MoveRight wdCharacter, 1, j IfJField@s.Add  R0angeKPrint, "\p p[ ""[ /Subtype /P /Title (" & sTag")@tPNE pdfm@~""", FalseE' pushBgraph?, ,tBMC#start mc+!!EG! QtPoUQI ' eOed cont ap b`OPSeen Mod UpdateAf@])o0npElensProcess= +i 7StructPctDon.euL= 0pStatusDlg.Cancelled GoTo Cre@ureExit Next a 'AaB+< 2R)U( p #%#bDeb ugLogOp$"C:\Tmp@\PDFMa@.txt" For Apd AcA9 Write `As 23b #23!*5%.Lists)"1gClo` #$'" 4#Each a s4aaQJ(.³.TG)  㻏 acer),-c`^rXE CollapneF  Whi1e(0(Asc~C= 12) Or rtaF14u{u q)E _z_zU{'- 1/AW`]/_QbVDdBookat"Oky1a=b-d[1P/"1/<< /Fp\e >>ߟ=1 E  _ {0o {S SOL 9N5KuC= '|''M ic ? begin ˊ Q oIq ?EA_[((߭&__n Q ɡpvpLf % o%Q ϣ?ߒ3 (te6D2Y  Q$'S{TOCSp witÐr'h En@r@0y s )this s␃Q RF1§ጢOfd: @\!?aSs31Y23ش Print #23, "aToc: " & aTOC.IndexClose #End If6 '!If (xType = wdField) Txhen d392S`elect !"nLinkv= 'Pion.-S8tar @A5CollapewdcounterfA Q_'While (Asc(?Text)&12) A(0> 0)$CsMoveRightCharacO, 1, ""fE- 1 ! Wend z=bStructuredBo@okmark8False'  'bCreatedRTru7J 'a¥s.AddHVRangeQB\p p@Y ""[ /PSubt/ /:<< /Open Ae >> tPNE pdfB""", BC#' push @WEM1L1S_OCUN'P5Coi = #5.'RCH24d4ic!4tBMC/begin 2ed c#]Entryx[Bd-kPOn Error GoTo ZfZ@C MkeacbH eA bSkip xieser4SetbNexc Upd qPctDonoL}bCancel5ingsxiaI+ A.cyEA D ҂@ Or Is#y()"`ߪD,Not o*+ N`<ǜInformat(rstF ueNumber~gO (> )Z0?(_ZotQ Utilit,.Find2AgalOf! n zf]oe _ { 2$F+O~  __F GHsrls.Cq A-z- a1 LefwdIv/qer, 2[ Qob3OOA1k' > ǫi;O}Kb/_*_\G߼Wq*?k/*ßa)'.?ῼtyI ϼϼüv P Lf" [/SϦϑ F H x%A"[ /Subtype /TOCIptPNE pdfmark" & vbCrLf " [/StBMCt"", F alse ' push '$End ,IfP' |eatedStructuredContent = THrueB'' 3  Selection.Fields.AddRange, wdPrint, "\p pic "{begin ed c[Om' UaEntry.ZnUtilitie"snndAalxStartOf*'MECollapww@]nN TocAx=Informaa(ZrstCharacterLineNumber) ,s@@s@Eǰ tPo@~e@zP,d% B-4 ryKX?6,skZ UpdwwPctDo>nDva"@~ancelping Then GoT0o Cr!Exitf. Dt fi々jNexjE / WsD mWGG  n d 6:'On Error#! 'a#z'WG MoveLeft~, 1AIf (Asc(T7) <> 13)bC3aRigh}pa ߐdiÐ?1SZOEEgE_Q'bSkip@.nk4ASe=<{'ss .'JxJD a bCIo8I'GRD#g  #bDebugLoOOpP"C:\Tmp\PDFMaker.txt"$ F@Apd Access Write As 23( #23 QpU.Tab les)"CloP 5 ' Do t n0ow OpYQ~s.,M B EachP Inx aSRD _e~nW____SBzee dQ?#&"a/U Af;  7$ nkqɜ- WYB_ce?"_counQ =?While ((ct)D12)( Orex4)() A(> 0)Ω3Wlof_nsU - 1 σ?HasHeapders ?b?dBookC ' if? has haspills ~r more than  pa[տ'B7sr@q˄from n rF utNoÐ=VerticalMergO^1((<Rows(1).?A V̔!(.C!* @`#/ w 5 uC1@% ive@8AdjusPԸ   Selection.Collapse wd(End ,jMoveLeftjharacter, 1,4| Table\ = IInformBa(wdAv#AdjustedPageNumber)TIf (X>  Start) Then4hHasHeadersGTrueWIf a6~.ftSElsFNoErrorXV1 VerticalM`erge:OVNot S' how many times did i tell@ you nto get individualOAe' rows v(ly "m(d cs ..w go jump agaiyResume J:2EM DYEPbStructuredBoo`kmark A@bCrea@OکFields.AddRangeAtPrint, "\p p x ""[ /Subtype /"[ / << / Open e >>@tPNE pdf""", FaW' push TOC<\.S_VXnd WS\a2Ra= 䃀s(1Ac'h_P _PÁ_P_P_Pu_P_Pt_Pi_PeUP7ConptentC0 '''fDDDicDtBMCB' begin crkep] B # ,bDebugLog}H"C:\Tmp\PDFMaker.txt" F@rApJd Access Write As 23wa2P #23pP2C 1) Or< (ѡbI2ingHO ).p@8-o* q~((K<> 2)\ -counbҖ.a-,}<While (((Asc(fTex= 12c) 14B > 0)O^CRighw>dG- 1We;?= eju2  TEnd If'If (aRow.Index = 1@) Then' Move cursor past Table pdfmark=snafu#'Selection.jRight Unit:=wdCharacter, Coun 1&' (HasHeaders) A>) Or (Not 0bStructuredBookbCreatedOmTrueTGVFields.Add Range, wdBPrint , "\pyra ""[ /Subtype /TR /E2 << @/Open 9e >> tPNEń""", False"' pu@sh TOC-E 6@6S/:"! @Content?''agn> >ic>tBMC9begin !Zed cw69f@Cells.B| o?On ErrGoTo fff,Pop+BVLAbFirs.td?xFEach aIn C·s #`'bDebugLog%bs"C:\Tmp\PDFMaker.txt" Ap`wd Access Write As 23g #23"gClo {`Y!c=!G!_{!".[kn[!&=h-Sptart GlCollap"D cer`I%WhiP{(((Asc(A Text)12#o4)tr > 0))Gw~~1h- _Wend Ob.o x?r)_ ߤߤ '=ﰿ7P3c%o sa!Hpage2I@nforma(HwdAve APdjusPNumber8N P (kZ/= pcbIingz'ϰϰɰHϰϰϰϰ OqD o _;?o/$/q $OD ' push TOC $0Else'Selection.Fields.Add (Rang e, wdPrint, "\p para ""[ /Subty@pe /TD tPNE pdfmark""", Fai2nd IfhEbCreatedStructuredContent = Tru''''\6ictBMCbegin Red cC(#Cc aCell.0c ;Collap 0?[gg >=B=!?  HomeKeyLinпJ a"jwd W1K%R)If @((Asc(gText) <> 13) A=0)) Then //So/ՂGd/ / 'set MFOOP:RowBG~LOwwsumnIndexok??=]N- 1?Gko1'$ߧߧЧ0 & vLfϕب%Tfn N4 r @%:On Error GoTo~  /%aUoX2' yea@h i kn`<.`. car "b@urden @whoPldaҘ ttwo4s)Y)U |Bq1Cs.ⰿ? k o?/ o)/O.2͟ Wend L'Rlastpage = Selection.Informa (wdAveEndAdjustedP/Number)'h]Fields.AddrRange, wdPrint, "\p para ""[/StPodfmark""", FaHlse'  ed content'Mdiff- 1# #ET'Dim popcell As C#Set= aRow.s(LxNku.e.Cn%!ŐC ollapgwdmMoveLHeftCh@cter, 1K ڞ '] table#' row and not the }- a[ofis aC bIf (AIndex[aT.`Cs.Count) Then lHB` o?!q? If [R_R#'QUnit:=@[R):=2, ExdTa }SdPSK'snafu?:__ hEL'''kticM & vbCrLf"[BMC p#lAE 2 n zElempsProcedssq= q+n+UpdateStructPc0tDonNNext: o Creur:On Error GoTo }?$OCA@@@k?e0aBe5`righ ~lace i`qspillsO _Z?^ G_\.kqG F wdFieldIndexEntry)` ThenTbDebugLog&Open "C:\Tmp\PDFMaker.txt" For Apd Access Write As 23Print #23, "Before Select"(Clo|se(=iA0fter<]Is Crosserence() paAbnLink= Csion.-StartGy Colla2pwdbStructuredBookmark = Fals~e`a'bCreatedxTruX:s.AddJRan8ge,̀\p para ""[ /SubtA$/X /=<< /"u!e >> tPNE pdf"""","' push Am$Ez(.S_Xa7Conte= 7x'''7t7iBcD7tBMC2b egin A5ed c7J_Mwm + z !cs n.}?n .gdgtPoPS0 ' eGM0?B 'BPo{!Dt & v TLfB}Epwa #"UpdPMCMPctDonL (ptus@Dlg.CaklledsS GoTo Q@YExi_Next"tgM nNumElem:sPro1= sp+ 1?  ` te  SnOA7 To.ip){A '- the left ov linTOCs a0TOAs Opts.rDim CouðTПLongaa= 1 "`Doc.TablesOftX@!ESa[s(e)f.Prgraph1 5??x.N; 1PL#?;@7M~ , -+1(AsTc(T4)q 3) Or t0Fy{RightChc@, 1a1 OD7P0Rtύč`* + L1ЧQQ1A4`7.11/j+Re:?AoI9AFig d/A a1;AAA.kAA37*A ?'´n.Text) <> 13) And (Asc(Selectio 0)) The0n bMoveRight wdCharacter, 1,6~EvIfSFields.Add RangeUPrint, "\p pt ""[ /Subtype /TOC tPNE pdfmark""", Falsef' pushp TOAC_bP/graphjLef'If (ύ}g/StPok dTMN@j@CCount ForF = 1 To theDoc.TablesOfAuthorities.L6A_W ( )..FQȨT?>'%GZe4G CopllapSxtarOk]-1K_V_a lA___d]A___Ʊ!!_(!3___3`333_PE' ! index now`+pOpareateStructureAEac h anIb InEesc Aaa pLen(#> 0h  PK- $BxEPEPc9Q[er` WhxilepoE]2p) Orq4`r)_ Fzwd17 - ?R Wendbv"dBookb&= k/ a 3bC(doTrue_78_OOEC./ << /Ope@/x >>S2 Ep_ OOOD PojO  5DHContent'''MϰϰЕictBMC߯q' beginNed cFcOBe o5CP` ' 9O 00G & vLf?/ɠ%O%nN@umElem $sProcess`,= q+=JUpdfkPctDon AGp@`tusDlg.CancelledG GoǰFFExi vO"1 vfootnotq' F%id# bDebugLogF"C:\Tmp\PDFMaker.txt"r ApHd Ac We As 233á12 #23PBd%}. )"CloA #9~ׂ ` Nppend Access Write As 23 Print #23, "aFootnote: " & 8@.IndexfClosef #2EIf6If@ (Len(Range.Text) > 0) 0Then=)bDebugLog  O "C:\Tmp\PDFMaker.txt" For A+BeforeiHSelect"'mN k"fAfterCfcoun=Av-tart{DOCEion.Collap@wdSeWhile (((As c(C= 12 ) Or U4)h) A(E9)*A0MoveR ight ,haracH, 1,RE- 1 WObStructuredBookmark = False  3bCr eated Tru Ag"Fields.Add bh""\p p& ""[ /Subtype /E /<< /|`e >>tPNE pdf [/StBMC""",c"a' push fD$E'.~Sj_Z8C&ow= 8''N'i8ge8icd80begin 5ed co1ϟ_أ2 #ء#,Н@? ? ? % Ē #?@#6@ @@E7<;2oS>K= ' $o-hHI@gmOd 5~RIf (. ) ThenLHas sTruemx If MoveToBeginningOfPrintStr@eam (iuc)Ager'auCharactersCp While (((Asc(n Text)12 ) Or U4)) And (Ep> 0)5R0ightE&, 1,K'^6E- 1 1end 'A sTag /pKNs.Get(pdfMakeructur>eJ ,B& 2"@& Title(Trim>(@c=  st r bdBoo kmarkFa ls,NAZi > 1W' Cloooff the p}ious s, a6open a new onZLI8O4&daYiDim _Of/ As Lo>(NE p(""", FaV' push sw@I:5If 0GoTo@AL !0!(IIn@ maM(HwdAve4Adjus`PageNumber) ~H -1 =;$i 2#.S#"' Ca2=K a$ ." /0NextL1OAQ& HasFrames2k?0o**=?%Currq' (_P#)?!IoP P4oO888 QEI%?q\S%@  Not F A0'0/ .G/ P*`? ? m 0 (R>= A ac1o\o\o\_ 'Gga@iDim2{ As GSet=q_bus(c-9oAu=Aw?po @'M; (1)GWhile ((Asc(kT@K) = 12 ) Or U4)H2GA Righ thycter, 1H eIGubtype /DocumpNE p ͖ bAZ Aed con}'Gthe%..Ss({Ru ' Word tells us that any frames are firsbuVt pf`em af )`e@in body@ xt !,BsE~ il it's no n aG )tak`O caofb fooBt@e onlas age`C9GoTobpwdAFd ! NInforma!a(wdAveA`]AdjusuPNumberP__7:[7 Fb5Co*JCc gA> 0ge  $QCurr!'nd'%%()` e D 1 <>)4_$_J!~?_(]c1!L=: >= e9o QU_'_;_;\;;q7 qSet dDFZ>O'KrP.6_r$O'n'G Ef '!h=hL!3Pb7onox!cs/'0_  /ge.P///|/{ 6MQPfBp+OG0!ooo 1 ׹9Q /?/'?_Cq 767`r>0_n(g"nElesProA`= yUpdpcPctDonc%!BookA A1pOpBUs(From)(Cd2 MoveToBeginningOfPrintStream" Close #23 #End Ifl (1)RsTag = ps.Get(pdfMakeructuredBookmarkLabel=Selection.Fields .Add Range, wd, "\p para ""[ /Title (" & & ") /Open true /St>Root MD""", Falsee ' A si.bloc k of ed content cann)span aIge boundary in PDF%In Word,sK ~m#, such as"ragrap4h,. -)To@ abide3's rules,0 eve>A=MC must have@matchQ3 /E@oGhe sam@'/ . We' keTptOa=t@ net numberBpushe$s ea@0page.'Now a@scessEs to me@HE. 'C@teFMisbPops(bLogEntriA;fileNum, nDyT@&D(Status@Form.Ctrols.Item("CPctDone").Cap, ) + 100"@!Perc@Sign/ Dlg`.SetMN(/?b Complete'#If bDebug. Then#*7o"C:\Tmp\;.txt" - Apsd AcA Wri As aa| }& d!1 q >Err or: xitlicaScreenUp dnAPrev Fun Sub xxx(D&Dim a|Lim#iCi`(1C Ee #@A veDocu.sc"=.BAgMsgBox  iN NextCC <<<0{E9DC53A3-0975-4ED4-B92D-8CFE911DAE0D}{9A69C4F1-D825-4406-8C31-E6DC32F34F9B} `ph@%p %X%%8@pp<$*\Rffff*203ce4d8a0 48<@DHLPTX\`d "  0p B@ HoXP/Attribute VB_Name = "CreditsForm" Bas0{E9DC53A3-0975-4ED4-B92D-8CFE911DAE0D}{9A69C4F1-D82J406@31-E6DC32F34F9B} dGlobal!SpacoFalse atablPeclaIdTru BExpose0Templat@eDerivCustomizD4 P! Sub OKButton_Clic@k() On Error ResuNext .Hid^End$ $ѷLwc;Bb *4h:iCA;م̒ʎBy-6" 2ʈEz?z:x 2ʈEz?z:wc;Bb *4MEPSPSSS6"<<<0{693A68EF-B6BB-4143-B53B-C2C1D985CC92}{8ECAD0F2-D702-42F2-A88D-792D362290DB} @` ` `% %@lth% %p@P(<$*\Rffff*213ce4d8a048<@D "0@ HX` "hp  x   "(p $ "% & ( "%$  *', B@ k o@ ! 'x  (l  B@ L oP  "% (0  "% (0em  "% (0  "% (0oPAttribute VB_Name = "MustPrintPSForm" Bas0{693A68EF-B6BB-4143-B53B-C2C1D985CC92}{8ECAD0F2-D702-42A88D-792D362290DB} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivComizD v! Sub CancelButton_Click() On Erro@r ResuNext If (MsgBox(pSngs.Get(pdfMakerWarningConfirm0), vbYe sNo, Ap2p))@EB ) ThenC#b?@O .H idVAEnd If ;.< L0u3x;.< L0u3lp?wB:^MMEPSPSSS6"<<<0{AAFA894D-E5AE-4D9C-8252-CC68E2F74B5D}{74C94531-80EF-4688-9D89-B9329CFA3E91}` @` `% %@ %P%p@(L<$*\Rffff*223ce4d8a048<@ " 8 HX"`hpCreationOptionsNoDistillerWarning ! A@ B@ o @  "% (0  "% (0  "% (0  "% (0 o0(߱Attribute VB_Name = "NoDistillerWarningF@orm" Bas0{AAFA894D-E5AE-4D9C-8252-CC68E2F74B5D}{74C94531-80EF-4688-9D89-B9329CFA3E91} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD P! Sub OKButton_Click()  On Error ResuPNext Write#Boo@lean "~i onOpts", Showp.ValBAS}.HidJEnd. I1UserA_Initialize2Labe`l1.Ca%\pSngs.Get(pdfMak7FHT=DDMeDR>&X1Eq(OkC{RHѿP_~4IZ<㩎]58|Z1Fgr\X/- D_>dSy:yS8ESixy:yS8ESi_~4IZ<MENoFeatureWarningForm* EventModule%  __SRP_149f__SRP_15*CPSPSSS6"<<<0{38355D8E-5A7C-4631-AB67-9BD0725C58DB}{2D959E2F-981A-440B-935F-3E645396F819} @` ``taA `%0 %@% %XT@<$*\Rffff*233ce4d8a048<@DH$ "0@ HX` "hpx     "0H`xp $ "% & ( "%$  *', B@ x k o@] ! ' ! '_  h (f d@ j (f 8 k( !  ( B@ leo ! ! (j  "% (0  "% (0  "% (0  "% (0  "% (00oPHֲAttribute VB_Name = "NoFeatureWarningForm" Bas0{38355D8E-5A7C-4631-AB67-9BD0725C58DB}{2D959E2F-981A-440B     !"#$%&'()*+,-./012345678:;<=>?@ABDEGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdeghijklmnopqrstuvwxyz{|}~-935F-3E64539@6F819} dG lobalSpacoFalse CrablPredeclaIdTru BExpose0Template DerivCu@stomizD  P" Sub CancelButton_Click()  On Error ResuNext If (MsgBox(pSngs.Get(pdfMakerConfirm0), vbYesNo, AppW))EB ) ThenC#b/ntOъ.Hid@XEnd If >BAOK@Dim nVal As Long )b)ViaPDFWriter!@+Not DistillerOption.A) CfORps.'¬@y= o-E¹&?,\ ShowKG";F:$v[User_Initialize%[)En!faop.Instba@5d A sPVers74Me.Ca9b&mLabel1fAT sU? C1 3 2 em}Okcr(w<6 bDvD? Lmt!*=h8+3qR *zHxR *zHvD? Lmt!ME0 SS Sa8|0L6"P LL<4<8<<<,N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}8  %*4@ `dkp( ) %)%%00%`@$ )xp@` xXzm\%@H  t *H%p1 0V821Z0 *H @p o0 @n V@h k p@d d00H,<*\R1*#17c*\R1*#17e*\R1*#d0$*\Rffff*113ce4d8a0*\R1*#c0$*\Rffff*103ce4d8a0*\R1*#17b*\R1*#c1*\R1*#c68<(  "  (-8  P`hpx] 0 V!^ V!$  V! V!B@kkkoAttribute VB_Name = "EventModule" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse dCreatablPredeclaIdC@ExposeTemplateDerivCus tomiz E Public Withs App As Word.ati,onx .VarHelpIDhl-12 P]a Sub2_WindowActiv (ByVal Doc?umd,  WnJ) If AutoExec.nCalls <> 0 The@* @IsObjec"tid( the@) (\ A .1 AEndA rU 0+)Y)a ICqCC!C8CI 7 `@< Di 1D Eyl xltv| nvp$ knpz-dx ldh"X lh=2dhx "X  ,txhdp4 8ArU H8`(    @ 4n,0* pHdAdobePDFMakerAD@  = Vz @< J<  rstdole>stdole( f%\_VBA_PROJECT<dirF__SRP_0/^/__SRP_1fsrWarningForm(NoFeatureWarningForm233ce4d8a0 (NoFeatureWarningForm EventModule113ce4d8a0[EventModulebH( H(x`H0hP8 >֝O~ @֝O~ B֝O~ D֝O~ F֝O~ H֝O~ J֝O~ L֝O~ N֝O~ P֝O~ R֝O~ T֝O~ V֝O~ X֝O~ Z֝O~ \֝O~ ^֝O~ `֝O~ b֝O~ d֝O~ f֝O~ h֝O~ j֝O~ l֝O~ UQfmleftNameText Wordk VBAWin16~Win32MacVBA6# AdobePDFMakerA$stdole`Normal Officeu MSFormsC AdobePDFMakerX; ThisDocument< _Evaluate StatusFormHCancelButton_ClickMsgBoxR(pStringspdfMakerWarningConfirmCancelvbYesNopdfMakerAppNameȋvbYesa?(bCancelPrintingUserForm_ActivateZsCaptionxpdfMakerStatusCaption^ CancelButtonpdfMakerCancelButtonName\ Bookmarks?npdfMakerStatusBookmarksRw InternetLinkspdfMakerStatusInternet% ( PageLabelsJpdfMakerStatusPageLabels XRefLinksXpdfMakerStatusXrefz FootnoteLinksO.pdfMakerStatusFootnote XDocLinksGpdfMakerStatusXDoc k TextNotesxlpdfMakerStatusTextNotesuThreadsgpdfMakerStatusThreads DocInfopdfMakerStatusDocInfoDistillerParamspdfMakerStatusDistillerParamsXM StructuredzpdfMakerStatusStructure[ Distilling;VBookmarkPctDonepdfMakerStatusBookmarkPctDoneEnabled۪Visible XRefPctDone?pdfMakerStatusXRefPctDoneInternetLinkPctDonepdfMakerStatusInetLinkPctDone' StructPctDone pdfMakerStatusStructurePctDoneV BookmarksDone5pdfMakerStatusSearching$InternetLinksDoneS} XRefLinksDone FootnoteLinksDone+ XDocLinksDoneF TextNotesDone^ ThreadsDonePageLabelsDonec StructureDone> DocInfoDone DistillerParamsDone`(PrintingEntry5 ArticleThreadsRBEAD_RESIZE_CHUNK (!BeadRectitle~ srcPageNumSam  *\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#G:\Program Files\Office-2K\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{FE26DB0A-4870-45F6-9D4D-A2C0FCC15F7B}#2.0#0#C:\DOCUME~1\LEVU~1.SJE\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{CBD71DF4-5AED-11D2-BC74-0060979C3633}#1.0#0#D:\Program Files\Adobe\Acrobat 5.0\PDFMaker\AdobePDFMakerX.tlb#AdobePDFMakerX  <  ThisDocument0<3ce4d89fThisDocumentStatusForm0=3ce4d8a0StatusFormHMArticleThreads0>3ce4d8a0ArticleThreadsbx0.&AutoExec103ce4d8a0VAutoExecb(PH6AutoExit123ce4d8a0AutoExitb`Bookmarks0?3ce4d8a08Bookmarksbx7GDistMon133ce4d8a0DistMonbH(Utilities143ce4d8a0UtilitiesbDocInfo153ce4d8a0XDocInfob8Headings163ce4d8a0HeadingsbInitialization173ce4d8a0Initializationb` Links183ce4d8a0 Linksbx Notes193ce4d8a0 Notesbx  PageLabels1:3ce4d8a0@PageLabelsb86PDFWriter1;3ce4d8a0 PDFWriterbP8+Platform1<3ce4d8a0PlatformbhP Printing1=3ce4d8a0$ PrintingbRegistry1>3ce4d8a0 RegistrybStructure1?3ce4d8a0`Structureb?CreditsForm203ce4d8a0CreditsFormMustPrintPSForm213ce4d8a0 MustPrintPSForm,NoDistillerWarningForm223ce4d8a0,NoDistillercRect(!Recti threadNumBeadList!numBeads4 numBeadRecs3 numThreads5= ResizeListeSResizeListError(EnumerateThreadstb;_Shapetf?_ TextFramenumBoxesGi`riRange endMark lastSelectionStart} spaceBefore spaceAfter( leftIndentiyTopqyBottom6xLeftxRightN_thisXpageNumbFirstLineOfPara] bLandscape nPageHeight6 nPageWidthEnumerateThreadsError(theDoc+Shapes<Count0vItemz msoTextBoxID TextRange OverflowingPrevious:bHasTextP SelectionZCollapseu direction&wdCollapseStart| MoveRightUnit wdSentenceExtend?wdExtendd Utilities%(GetPageNumberOfSelection(YCoordinateOfSelectionx MarginTop(IsPageLandscape](SelectionIsFirstLineOfParagraphParentAnchor#rParagraphFormat(XCoordinateOfSelection MarginLeft<FirstLineIndent_ wdCollapseEndMoveLeftv wdCharacterwdMovez(MakeSelectionVisible6 MarginBottomeJ(CharacterHeightOfSelection˙ Application*ScreenUpdating! StartMove>ywdLinetop5right bottomH{(bWinNT+(GetPageHeightOfSelectionI(GetPageWidthOfSelection'(CreateArticleThreads_outputFilename-fileNum#sBead3sTitleWCreateArticleThreadsError,(TranslateStringForLabely vbCrLfTrim@str AutoExeccModule EventModule(bPDFMakerInitialized>w(nCalls(nWordLanguageCode0o (bIsUSEnglish5; (bIsEnglishV (bIsGerman (bIsFrench (bIsJapaneseZ(bIsChineseTraditional(bIsChineseSimplifiedK+(bWin95 (bWinNT351@(bWinNT40$%(nOSMajorVersionn(nOSMinorVersion־ (bWord8SR1DDocumentj (numPagesInDoc(bPrintViaPDFWriter)$(bPrintViaDistillerC(bUseDistillerAssistantM(bCreateStructure(bCreateStructureSaveY^(bCreateStructureBookmarks(bSkipStructure2(m_sOutputFilenameViaAPI (bReopenDoc(bBookmarksSkipped (dViewerTaskIDj (bDocIsDirtyn (bCameInOldWay]RemovePDFMaker1UIOJtkTemplate alreadyThereRfound+aToolbar CommandBarCustomizationContext΀ CommandBars DeletexfileMenu&menuItemjCommandBarControlP pdfSubMenu_CommandBarPopup  subMenuItem0VNormalTemplateqControlsKTag&HidePDFWriterUIbDirty fileMenuItemdourMenuCommandBarButton9bFound TemplateshUCase5  FindControl mmsoControlPopupl)Savedd(ConvertToPDFandEmail̜(InitEverything(pOptions} SendViaEmailYs(PrintingEntryWithNoOptionsDlg_J (ConvertToPDF(DoPrintWithLinks\(PrintingEntry1(GetStoredSettings(PrintingEntry3 (DoPrefsFormt(PrintingEntry2(ShutdownPDFMakerDLLhMain,ApptActiveDocument\(DetermineOSVersionh(PrintingEntry4 (MainPDFWriterx AutoExit (pDistiller (pPDFMakerL@ pPDFDistillerBOOKMARK_RESIZE_CHUNKs (!BookmarkListLevel NumChildrenDestPageNumber pageWidth!nDocPosUbookListsortedBookmarkList  bookmarkCount͵sortedBookmarkCount8lnumBookmarkRecs|numSortedBookmarkRecs  nLastStartPos ResizeSortedList3ResizeSortedListError(FindNthHeadinghL nOccurrence4 sHeadingName nStartPosdocEnd7docStartPaRange?MnLastSelectionStart bDoneE tempRangekbFindNthHeadingError{iFindNthHeadingExitFindnStylepFields7MoveDown̝ExecuteYFindText(CreateBookmarksFast/jabActive nBookmarkPos bDestLandscape"startX startY sText thisLevele compareLevelsRect sBookmarkCsMagx nMaxBookmarkLenDsThisHeadingNamebFormat( sFindText1 bookmarkRangewLrStart(IsDistiller4InstalledCreateBookmarksFastFindNextOneStyles p NameLocalpdfMakerBookmarksFromStructure (pHeadings-MarkAsStructuredContentU\ConvertToBookmarkAwdStyleTypeCharacter_ ParagraphsfForward (pStatusDlgc Cancelledk/ Information wdWithInTableTwdCell wdTable wdSection2 nextBookmark^wdAtEndOfRowMarkerk wdParagraphH(FindActualSelectionStart;(SelectFirstLine(TrimJunk!ChrK~ SetMessage1(SortBookmarkList[AdjustBookmarkLevelsCreateBookmarksFastError (MagTypeToMarkBookmarkMagnificationqpdfMakerMagDefault (AddBackslashToParens(TranslateStringToPDFEncoding nMinDocPos" nLastDocPos nLowestIndex /nPreviousLevelSortBookmarkListError`]nOuterMostLevel۔ DistMon0options DistillerPDFMakerStrings (pPDFWriter3Printerҩ WordHeadings$z (pReviewers WordReviewers WordStatusDlgB(InitializePDFMakerDLLg+retVal;InitializePDFMakerDLLError WordVersionZ8VersionstringsK Headingsw reviewers6DeletePDFMaker10Stuff4 Installed IsVersion4>(LaunchAcrobatDistillereaAddInʸAddInexLaunchAcrobatDistillerError]Launch. (DistillAFile  inputPathnameoutputPathnamebPromptForOutputName outputPathbPromptDistillAFileError IsMissing DistillFile(IsDistillComplete`fileNamejstatus+IsDistillCompleteError  FileStatus(TerminateAcrobatDistiller) TerminateyL(SelectDistillerAssistant distAsstNamecurrentPrinter sWordPadPathx`sWordStartupDirg+SelectDistillerAssistantError ActivePrinterp printerNamex_pdfMakerErrorNoDistillerPrinter' vbExclamationvbOKOnlypdfMakerForWordH WordBasicFilePrintSetupvDoNotSetAsSysDefault(GetPDFOutputFilename folderName pdfFileNamedefaultFileNamelcsjstarPosGetOutputFilename(RemoveFileExtension(SleepnumMSJ2kernel32_(GetProfileStringW lpAppName3~ lpKeyNameJ lpDefault%lpReturnedString7nSize} (GetVersion+SetCurrentDirectoryՕlpDird GetTempPath nBufferLengthlpBuffer>GetTempFileName2lpszPathlpPrefixString@wUnique[lpTempFileNamemGetFullPathName lpFileName2pBasek UseRegistryb(PDFMAKER_REG_KEY_ROOT:(nPageAdjustPoints?(RoundIt:gval (GetPageHeightV StoryType]wdEndnotesStory(wdFootnotesStoryQwdTextFrameStory_&Frames8 PageSetup pageHeight SectionswdActiveEndSectionNumber (GetLeftMarginMGetLeftMarginErrorY LeftMargin](GetLeftMarginOfSelection4kGetLeftMarginOfSelectionError (YCoordinateHeight|yPoints 4 wdVerticalPositionRelativeToPageS YCoordinateOfSelectionError (XCoordinate2xPointsXCoordinateError  (GetPageNumber}"wdHorizontalPositionRelativeToPageXCoordinateOfSelectionError(MaxXCoordinate$(MaxXCoordinateOfSelectionmaxX.curX) numCharsInSel# nStartOffsetc nHalfWayCharcurY&halfY OnLastCharThisTimey nNextJump݁nXOffseteMaxXCoordinateOfSelectionError Charactersrg(MaxYCoordinateg(MaxYCoordinateOfSelectionmaxY.minYXnumMovedVmoveMore;MaxYCoordinateOfSelectionError!(GetNumberOfPages( NumberOfPagesGetNumberOfPagesErrordwdActiveEndPageNumberVnPageNumGetPageNumberError(AdjustPageNumberForPhantomsGetPageNumberOfSelectionErrorC nNumToAdjust nAdjustPoint (GetPageWidthCGetPageWidthErrorGetPageWidthOfSelectionError,(PostScriptPrinterSelectedKPostScriptPrinterSelectedError^akeyName driverNamexrealPrinterNamew monitorName!dotPosVSystemaPrivateProfileString[ ntNameLen ntPrinterNamed[commaPos comma2PosNPostScriptPrinter(CreateOutputFilenameCJsourceFilenameextO prevDotPosBslashPosk# outputFile9iCreateOutputFilenameError/ UseTempPathCreateOutputFilenameContinueB(KillFileűDefaultFilePathRwdTempFilePath.(DoSleep<_NumMilliseconds  DoSleepError PauseTime StartTimeLTimerXFontSizeCharacterHeightOfSelectionErrorJFontUSize cleanString cleanString2҄ TrimJunkError Asc!uvm MoveStart}"(FindActualSelectionStartOfTOCEntrynumMovedThisTimesaveSels_LastEnd> bAdjustStart(WaitForFileAccessz maxRetryTime& fileLengthw WaitSomeMore`LOFc(WaitForFileWriteAccess WaitSomeMore2H(WaitForFileModifyAccess^(CanWriteToFileIhEndCanWriteToFilek(GetPrivateBooleanF sSectionName'sKeyName0 DefaultValue*defVal.GetPrivateBooleanErrorZ(GetPrivateIntegerB3GetPrivateIntegerError(GetPrivateIntegerRangeCheckJminValuemaxValueccorrectedValue3(GetPrivateStringH{GetPrivateStringErrort(WritePrivateBooleanKbValue(WritePrivateIntegerhnValueH(WritePrivateStringsValue$(DeleteLogAndPSFile0? psFilename logFilenameDeletePSAndLogFiles charStartB$SelectionIsFirstLineOfParagraphError+FirstzMoveEnd* startOfRangeMakeSelectionVisibleErrorݟ(ConvertColorToRGBtheColorredgreenblue(SetAppLanguage^dlangg SetLanguageGpdfMakerEnglish InternationalwdProductLanguageIDpdfMakerGermanpdfMakerFrench?pdfMakerJapanesepdfMakerChineseTraditionall!pdfMakerChineseSimplifiedpdfMakerKoreanpdfMakerDanish<pdfMakerFinnish0;pdfMakerNorwegianpdfMakerSwedishpdfMakerSpanishҖpdfMakerItalian pdfMakerDutch>pdfMakerBzlPortuguese versionNum~tempR wdJapanesewdTraditionalChinesewdSimplifiedChineseWg(CheckForNonNumbersjRaXsNewtcZ(AddTripleBackslashToQuote OrientationwwdOrientLandscapeξcrPos sNewString asciiValueToUCS$s1_(TranslateStringForBodynMagType(GetAcrobatFolderS sAcrobatPathj(GetDistillerFolderusDistillerPath (MinimizeWord theWindowcWindow6 WindowState|wdWindowStateMinimize4a KillFileErrorEKill(Test1ctestEnd(Test2cFileLenRemoveFileExtensionError5(GetPDFMarkEntryText!GetPDFMarkEntryTextError)endPosb rangeEndPosK LanguageIDStrConvx' vbUnicode (ChangeToDir~(GetTempPDFFileRsTmpPathuJsTmpName3nRetLGetTempPDFFileError vbNullCharY(GetAbsolutePathNameOpathName'sBase  sFullName~GetAbsolutePathNameErrorܝ (!SystemTime1Year6nMonth DayOfWeekDayHourќMinuteamSeconds Milliseconds (!TimezoneInfo,Bias StandardName} StandardDate  StandardBiasr DaylightName' DaylightDateA" DaylightBiasTIME_ZONE_ID_INVALID~PTIME_ZONE_ID_UNKNOWNTIME_ZONE_ID_STANDARDTIME_ZONE_ID_DAYLIGHTP(GetTimeZoneInformation(MlpTimeZoneInformationȬ (!DocPropInfo SubjectRPAuthorKeywordsTCreator34BaseURL‘ CreationDateModDateRevisionNumbergDocProps (ConvertDocAndRevisionInfohsMark$tzInfotzHoursQtzMins(sHours(sMins`OValue tzRetcode sCreationDate0sModDatearDateOConvertDocAndRevisionInfoError GetDocInfoYNow%docPropQDocumentProperty&V sMatchStrings%DialogswdDialogFileSummaryInfoWhatC wdGoToLine9Which wdGoToFirst ClearFormatting) wdStyleTitleYwdStyleHeading1A?(OutputDocOpenParamspsOptionsu sPageHeightsZoomX nFirstPageM^OutputDocOpenParamsErrorzPageMagnification ShowBookmarkPanebFirstPageNumber%( GetHeadingLevel/ headingName StyleName defaultLevel aStyle* outlineLevel՚InUsewdOutlineLevel1wdOutlineLevel9 Initialization5( Remove10MenuItemCpdfMaker4MenuItempdfMaker5MenuItem\Save( ToggleViewResults acrobatMenu viewResults@U (ViewPDFFileState msoButtonDownJ msoButtonUp6HidePDFWriterToolbar=DisplayHelpFileuserGuideFilenameourDoc,aDocbShown eDisplayHelpFileError DocumentsFullNameОActivate|ReadOnly4<pdfMakerErrorNoHelpFileh IsAcrobatInstalledfPDFWriterInstalledP ( FirstTimeRuntregVal 2FirstTimeRunError LinksLINK_RESIZE_CHUNK URL_LINK_TYPEo CROSS_REF_LINK_TYPE_CROSS_DOC_LINK_TYPEϽINTRA_DOC_LINK_TYPEM TOC_LINK_TYPEFOOTNOTE_LINK_TYPE:0ENDNOTE_LINK_TYPE(! LinkRegionElement (! LinkListRec:RlinkType]Address Subaddress+M destPageNum3=DestRect(! CaptionListRec[ bCaptionBelow?CsNamedLinkListnumLinks{# numLinkRecs>numInternetLinks numXRefLinksnumFootnoteLinksoi numXDocLinksGTempLinkSrcRegionsnumLinkRegions CaptionListմ numCaptionsmsLinkBorderThicknessksLinkBorderStylei fLinkColorRed5fLinkColorGreenfLinkColorBlueV sLinkHilightExWidth( InitializeLinkGeneration#q( IsInternetLink aLinkF HyperlinkwurlcolonPos3protocol]IsInternetLinkError; LCase:( AddHyperlinkToList+ nLinkType4EndXCEndYC destStartX destStartYdestEndX?nOriginalLinkTypeafieldatField3tmpAddHyperlinkToListErrorimsoHyperlinkRangeZCode vbTextCompare Q( GetLinkSourceRegions ( GotoBookmark=?wdGoToBookmarkJ( AdjustDestinationForCustomPagePath2 Platform#(ConvertPathnameh( CreateURLLinksQaShapetheLinks< Hyperlinks:nShapesAndLinksHGPctDonenPctDone\d1\d2\aSection8SectionG bDoHeader|WCreateURLLinksDoShapesHeaders"FootersCreateURLLinksDoNextHeader` ActiveWindow+wdWindowStateNormal`epdfMakerStatusPercentSignh CreateURLLinksDoFootersCreateURLLinksDoNextFooter CreateURLLinksDoNextShape/\CreateURLLinksDoRegularTCreateURLLinksDoNextLink9CreateURLLinksError( CreateLinksToOtherDocsօCreateLinksToOtherDocsNextShapeCreateLinksToOtherDocsNextLinkCreateLinksToOtherDocsError( IsPastFirstParagraphLine saveSelectionNprevYthePara startOffsetW^IsPastFirstParagraphLineExit> prevPrevXU savePrevYprevX curPageNum, prevPageNum curCharHeightHsuperScriptCharHeightUWsubScriptCharHeight maxCharHeight! pastFirstLine1 curLineNumzparasFirstLineNum bAllSubscriptQbAllSuperscriptbSomeSubscript&bSomeSuperscript{d spaceAbove spaceBelownTempAnTemp2 nMarginAdjustr@ pdfPgWidthH pdfPgHeight:$ printableXj printableYjnPageLeftMarginnPageRightMargin6nPageTopMarginynPageBottomMargin+printableStartXprintableStartYtmp1jtmp2kGetLinkSourceRegionsError>| SubscriptV Superscript wdUndefinedMAwdFirstCharacterLineNumber[ TopMargini RightMargin[ bottomMarginu( LinkTableOfContentsAndXrefsNK theFields destRange numFields׉ fieldType&refNumD fieldCoderefPoscNhyperPosdspacePosz srcStartX srcStartYsrcEndX2srcEndY/ sSequenceCodeqX bCodesVisible bSrcPageLandscape bOffice2000nShape) shapeCount5$LinkTableOfContentsAndXrefsDoNextOneJBuildCaptionList{doLinksAwdFieldPageRef  wdFieldRef CrossRefLinksn(CreateStructurewdFieldNoteRefG ShowCodeswdFieldSequence?( YCoordinateAboveCaption LinkTableOfContentsAndXrefsError ( LinkFootnotes aFootnoteAFootnoteNaEndnote_Endnote numFootnotesR| NumEndnotesR bEndOfDocFLinkFootnotesNextFootnotej Footnotes ReferenceeLinkFootnotesNextEndNote Endnotes~Location-wdEndOfDocumentwdNumberOfPagesInDocument >LinkFootnotesError( OutputLinksAsPDFMarks-\sLink{writeItz sSubAddress5OutputLinksAsPDFMarksErrormSetLinkOutputOptions r (IsPDFFile EscapeSJIStLinkMagnificationaCaptioni CaptionLabel\ CaptionLabelsQopositionwdCaptionPositionBelow@YCoordinateAboveCaptionErrorlwdSelectionInlineShapeGotoBookmarkError LinkHilight= LinkColor= LinkLineStyleQ ( DoXRefsExistDoXRefsExistErrorwdFieldFootnoteRef| "AdjustDestinationForCustomPageExitO NotesCOMMENT_RESIZE_CHUNK@(! CommentListRecsInitialsX PageNumber> scopeRect commentRect;color2FbOpenR gNotesOpen commentList  numCommentsbnumCommentRecs( EnumerateComments theCommentsbComments)aCommentHtCommentHsnum commentRangeEnumerateCommentsError]#( IsReviewerIncludedScope0Initial( ConvertCommentsToNotes!+sNotecolorRedS colorGreen colorBlueYlsCommentasAuthorI)ConvertCommentsToNotesError43IsReviewerIncludedErroriInclude`MAX_PAGELABELS (! PageLabelRec*= sLabelStringX nPageNumbervnAdjustedPageNumber nNumberStyle)sPDFNumberStyle^sPrefixC' numPageLabels_( FindNumberingSchemeÝ sStyleNametl aListTemplate ListTemplateR aListLevel ListLevelt numberStyle sNumberFormatnStartingNumber\ ListGalleriesRwdNumberGallery ListTemplates4 ListLevels  LinkedStyleG; NumberFormatRStartAt$( GetPDFNumberStylewdListNumberStyleArabic* wdListNumberStyleLowercaseLetterwdListNumberStyleLowercaseRoman> wdListNumberStyleUppercaseLetterwdListNumberStyleUppercaseRoman( GetPrecedingPageNumber,nSectionNumber& saveRange aPrevSectionwdActiveEndAdjustedPageNumber6( GetSeparatorChar theFooter HeaderFooter PageNumbersIncludeChapterNumberxKChapterPageSeparator?wdSeparatorColonwdSeparatorEmDashwdSeparatorEnDash^,wdSeparatorHyphenswdSeparatorPeriod( TranslatePrefixToPDFEncodings2_( GivePageLabelWarningaFooter5 sFooterText_ sSeparatorfooterDistancekchoice{pdfMakerBottomMargin vbOKCancelx?vbOK%PageLabelWarningEnd)EnumerateFootersowdHeaderFooterFirstPage8gExists]wdHeaderFooterPrimarydresulturViewI wdPageViewvSeekView$wdSeekMainDocument( CreatePageLabelssEntry\CreatePageLabelsError-[ PDFWriteri ExcelCompilePPowerPointCompileAIntegratedCompile SendMessagehWnd/wMsg+awParamblParam7user32*WriteProfileString_lpApplicationNamealpStringzWM_WININICHANGEHWND_BROADCASTYPOINTxoYlmsgQmessagetimept^ PeekMessage lpMsg2 wMsgFilterMin wMsgFilterMax wRemoveMsg PM_REMOVETranslateMessage*DispatchMessagebExcelbWorda, bPowerPoint@ SystemRoot%JIniPromptSettingGetPrivateProfileSetting iniFilenameMBaseKeypZSetting| WholeSection(HKEY_LOCAL_MACHINE(HKEY_CLASSES_ROOT$(HKEY_CURRENT_USERʝ (HKEY_USERSiSetPrivateProfileSetting(ValueK(EnsurePDFWriterIsInstalledr bReportErrorTpdfMakerErrorNoPDFWriterDetermineWhichApp:(PrintPDFFileViaPDFWritersStatussSaveCurrentPrinter) bWriteAccess_)printCurrentPageOnlyIDS_PDFWRITER_PROMPTzpdfMakerErrorCantWritePDFFile vbRetryCancelvbRetryg rangeVariant|wdPrintCurrentPage1wdPrintAllDocumentO PDFWriterNamePrintOut. Background. PrintToFileolengthYConvertPathnameErrorzIsPDFFileError{ Printing(SetEnvironmentVariableAavarNameYc(PDFMakerUseAppPointerGz appPointerE& statusDlg pdfmword.dll.(PDFMakerPrepareAfterFirstPrintf(PDFMakerPrepareForSecondPrint`(PDFMakerCreateStructure?vpdfFileNameColor(PDFMakerSecureDocUH (FindWindowK lpClassName lpWindowName (EnableWindowbEnableߕ(GetModuleFileNameahModule hActiveWindow+TsaveWindowStatesavePaginationUsaveMeasurement% saveDraftMode) saveViewTypecHbSaveMapPageOption1bViewFieldCodesbPrintFieldCodesM bPrintReversecKsaveWindowHeightsaveWindowWidtheHasVerticalText' bViewTabMarks-p bViewSpaces;bViewParagraphMarksbViewOptionalHyphensbViewHiddenTextUbViewAllbPDFMakerDLLOkф nSeekViewType~ nBrowseTarget bIsAcrobatInstalledg! PathEnvVar(FinalPDFFileNameV(WordPrintedPDFFileNameColorUbRetVal(MAPI_E_AMBIGUOUS_RECIPIENT(MAPI_E_AMBIG_RECIP(MAPI_E_ATTACHMENT_NOT_FOUNDܧ(MAPI_E_ATTACHMENT_OPEN_FAILUREGj(MAPI_E_ATTACHMENT_WRITE_FAILURE(MAPI_E_BAD_RECIPTYPE%(MAPI_E_BLK_TOO_SMALL'(MAPI_E_DISK_FULL/(MAPI_E_FAILURE(MAPI_E_INSUFFICIENT_MEMORY(MAPI_E_INVALID_EDITFIELDST(MAPI_E_INVALID_MESSAGE2:(MAPI_E_INVALID_RECIPSm(MAPI_E_INVALID_SESSIONN(MAPI_E_LOGIN_FAILURE(MAPI_E_LOGON_FAILURE&(MAPI_E_MESSAGE_IN_USEz(MAPI_E_NETWORK_FAILURE(MAPI_E_NO_MESSAGES(MAPI_E_NOT_SUPPORTEDio(MAPI_E_TEXT_TOO_LARGE|(MAPI_E_TOO_MANY_FILES(MAPI_E_TOO_MANY_RECIPIENTSg(MAPI_E_TOO_MANY_SESSIONS5(MAPI_E_TYPE_NOT_SUPPORTED0(MAPI_E_UNKNOWN_RECIPIENTx(MAPI_USER_ABORTGD(MAPI_E_USER_ABORT(SUCCESS_SUCCESS| SaveDocStateČ AutoSaveFile/K ShowRevisionsuBrowserTargetFDraft: PaginationMeasurementUnitTShowFieldCodes'PrintFieldCodesWBShowHiddenTextkPrintHiddenTextShowTabs  ShowSpacesShowParagraphs{ ShowHyphens\ShowAllI PrintReverse` MapPaperSize(wdPoints(RestoreDocStateosDocPathf"RestoreWindowSized(CheckFilenameForCommas t (EmailPDFFilelRetValsSubject.sErrMsgC^BuiltInDocumentProperties_pdfMakerPropSubjectSendMail ReportErrorspdfMakerErrorMAPICantFindFileFpdfMakerErrorMAPICantLoadMAPI?pdfMakerErrorMAPIAmbiguousRecipj#pdfMakerErrorMAPIAttachmentNotFound#pdfMakerErrorMAPICantOpenAttachment$pdfMakerErrorMAPICantWriteAttachmentpdfMakerErrorMAPIBadRecipTypepdfMakerErrorMAPIDiskFull"pdfMakerErrorMAPIFailurepdfMakerErrorMAPIOutOfMemoryɚ"pdfMakerErrorMAPIInvalidEditFieldsOpdfMakerErrorMAPIInvalidMessage5pdfMakerErrorMAPIInvalidRecipsl}pdfMakerErrorMAPIInvalidSession6pdfMakerErrorMAPILoginFailure6pdfMakerErrorMAPIMessageInUseGpdfMakerErrorMAPINetworkFailure2mpdfMakerErrorMAPINoMessagesQ`pdfMakerErrorMAPINotSupported(pdfMakerErrorMAPITextTooLargeJpdfMakerErrorMAPITooManyFilespdfMakerErrorMAPITooManyRecips2 pdfMakerErrorMAPITooManySessions !pdfMakerErrorMAPITypeNotSupported5!pdfMakerErrorMAPIUnknownRecipientpdfMakerErrorMAPIUserAbortpdfMakerErrorMAPIEmailFailedkruftPos= viewerPathV bLaunchedViewPDFFileTryOldKey1ShellV vbNormalFocusViewPDFFileTryOldKey2ViewPDFFileTryOldKey3ViewPDFFileExit*sClearPrintToFileFlag sDriverName sPrinterName wdPrintFromToWFrom~ ConfigureServeraHeadingbBuiltInsHeadingu bDocIsCleanpdfMakerHeading$.ClearActiveListwdStyleTypeParagraphAddStyleDeleteUnusedStyles%A ClearActive=AddrRetrieveGlobalOptions{ PDFCreator$pdfMakerPDFWriterpdfMakerDistillerȗUseDistillerPrintern(IsValidJobOption sJobOptionnsJobOptionFileNameT:tempJobOptionNameeIsValidJobOptionErroriGetSettingsPathNameԭ JobOptions7 CreatePDFFilexOK^myTaskc{TaskǕbSaveAutoChooseh bUserCanceledz sWordFilenameZ nExpandSubDocunYesNoh\ nOrientation.bSave>CreatePDFFileErrorpdfMakerErrorJobOption WordFilenameProtectionTypewdNoProtectionpdfMakerDocProtected"$ wdTextOrientationVerticalFarEastLwdDialogFileSaveAsNShowpdfMakerSaveDoc",vbDefaultButton1pdfMakerUnableToSaves SubdocumentsT@ExpandedpdfMakerExpandSubDocumentsqPrintRevisions Revisions\pdfMakerNoHighlightChangesShowFeatureWarning NoFeatureWarningFormPromptForPDFFilenameActivateWordAndAcrobat`3 MustPrintPSFormpdfMakerErrorMustPrintPS5&pdfMakerWarningMustSaveBeforeStructurezCursorlwdCursorNormalS ShowPrefsGetVersion1PrefsS.EnumPageNumberAdjustmentsnSection1 numSections bCheckEvenj bCheckOdd+ bNumberIsOddnAdjustedPageNumnnNextAdjustedPageNumP"bAdjustThisSectionnLinearPageNumnNextLinearPageNum*pdfmarkOutputFileNamebSavePromptSetting bPrintToFileK sPrintErr docFileNameWordPrintedPDFFileNameActualyWordPrintedPDFFileNameNonColor#f tempFileNameItempPathaWindowW  sModuleName-verwprinterNameLen {(ChangePATHEnvVariableG vbNullString(GetFinalPDFFileNameFinishCreatingPDFFileExitFinalPDFFilePath'UpdateProgressBar wdCursorWait(GetPDFMarkPSFileNameu Space  (SetKeyValue%=(REG_SZd wdNormalView Repaginate$\Hide9z UpdateDetailsypdfMakerErrorPageLabelsJpdfMakerDonePageLabelspdfMakerSkipPageLabelspdfMakerBookmarksFromHeadingsLpdfMakerBookmarksFromStylesp{pdfMakerErrorBookmarksQpdfMakerSkipBookmarkpdfMakerDoneBookmarkpdfMakerErrorInternetLinkpdfMakerErrorInetLinkspdfMakerDoneInetLinks CrossDocLinksƮpdfMakerErrorXDocLinkpdfMakerDoneXDocLinks pdfMakerSkipXDocLinks*pdfMakerErrorXRefLinkpdfMakerErrorXRefLinksjgpdfMakerDoneXRefLinkspdfMakerSkipXRefLinkspdfMakerErrorFootnotesKnpdfMakerErrorFootnoteLinks%pdfMakerDoneFootnoteLinkspdfMakerSkipFootnoteLinkspdfMakerErrorLinkCreation@pdfMakerErrorTextNotespdfMakerDoneTextNotes0pdfMakerSkipTextNotespdfMakerErrorThread֘pdfMakerErrorThreads?pdfMakerDoneThreads[pdfMakerSkipThreadsConvertDocInfoxpdfMakerErrorDocInfoNpdfMakerDoneDocInfo)pdfMakerSkipDocInfol<pdfMakerErrorDocOpenParams@OpdfMakerDoneDocOpen(bStructureCompletePpdfMakerErrorTags4pdfMakerDoneTagspdfMakerSkipTagspdfMakerStatusPrintingwdDialogFilePrintLUpdateCreatePDFPrintErrorDisableUserInputs}_!(GetWordPrintedPDFFileNameNonColorV%(AddDistillerRegEntriesForNonColorFile$OperatingSystem[HidePrintingStatusDialogvfUpdateFieldsAtPrintm (DeleteKey EnableUserInputsCreatePDFPrintOkpdfMakerErrorPrintSErro Description (Office2000SpecificStructureGForgetOldPrefsp3pdfMakerStatusViewingiLaunchDocument%(Destroy PDFLFolderj$PDFMDllsFolder1gPDFMDllsFolder2hEnviron,pdfFileNameNonColorhsNewJobOptionPath,sJobOptionPathGOffice2000SpecificStructureExit (GetWordPrintedPDFFileNameColor"CreateNewJobOption"(AddDistillerRegEntriesForColorFile4(GetOutputDirName.pdfPos)portName-> outputdirnamePDFMarkPSFileName.?docName׷WordPrintedPDFFileNameEndGetFinalPDFFileName^promptForFileName|(GetRegKeyNameForDocument$lResultMUhideFileExtOption#leftPartaI rightPartC strLength9. (RegOpenKeyEx2|(KEY_QUERY_VALUE(RegQueryValueExLong (RegCloseKeylregKeyNameForDocumentc (REG_BINARY(> Registry (REG_DWORD (ERROR_NONE/ (ERROR_BADDBp (ERROR_BADKEY}V(ERROR_CANTOPEN(ERROR_CANTREAD=%(ERROR_CANTWRITEj(ERROR_OUTOFMEMORYö(ERROR_INVALID_PARAMETERQ(ERROR_ACCESS_DENIED(ERROR_INVALID_PARAMETERSֳ(ERROR_NO_MORE_ITEMS+^(KEY_ALL_ACCESS<(REG_OPTION_NON_VOLATILE&hKey  advapi32.dll}0(RegCreateKeyExlpSubKeyReserved\lpClass2 dwOptions samDesired(lpSecurityAttributes phkResult4lpdwDispositionYE ulOptions[(RegQueryValueExString lpValueName) lpReservedPlpTypelpDatah0lpcbData4(RegQueryValueExNULL8(RegSetValueExStringdwTypelpValuecbDatai(RegSetValueExLong(RegDeleteValue+ sValueName vValueSettingS) lValueTypeXhOpenKey disposition (SetValueExlTypesvValuehlValue܅ vbFromUnicode0 bDebugLog N nNumElementsnNumElementsProcessedo(nLastNumElementProcessedMoveToBeginningOfPrintStreamnLastSelectStart:5CanAccessTableRowsmoaTable1TableneCanAccessTableRows_ExitUniform?OMakeStructureTitleOsTag2 IsTOCEntry3IsCrossReferenceSUpdateStructPctDone)aPara Paragraph nSectionStartw bFirstParaYbParaIsHeadingIbPopParag bPopHeadingnLinkEnd"nLink) nHeadingLevel sHeadingLevelHaTOCN aTOCEntry_XbSkipTOCEntries~ nTOCEntryEndXXaRow2DRowaCellCell bIsHeadingRow"nRowEndnCellEnd6# bSkipPara_5anIndexvTIndexaRefBaListList*bStructuredBookmark@bCreatedStructuredBookmark\~bFirstStructureBookmark bLogEntries՜sLog% sTab2 nLogEntrylbCreatedStructuredContent38 nNumToMove: bFirstCell'Para~ParaLen'$ cantprintcnt+nomorek col1col2row1Urow2U CurrentStartImageCntLinkCntImageEndiLinkEnd'LastFootdNextfoott CurrentPage@ ListsDonebcounter IndexThere IndexStart>IndexEndv startpageendpagepagedifflastpage8 SaveCountY}PopRow PopLastCell LastPopCellq;PopTable2 TocEntry:TocStartTocEnd HasHeadersK TableStartTableEndNoError ParaCount ShapesCount ShapesCounterNCurrPageM*PrevPage} PrevUpdatingCurrLinea?PrevLine,InATable^{ParaSeen UpdateAfter; InsideTOC}G TOCEntriesgTOCMove/TOCPage? TOCNextPage CreateStructureErrorIndexesTablesOfAuthoritiesFKTablesOfContentsSTablesOfFiguresTablesRowsUPageBreakBeforewdFieldIndexEntryUnlink0wdEndOfRangeColumnNumberxOwdEndOfRangeRowNumber?LastbhSetRange wdFieldPrint wdFieldIndex wdFieldTOC! MarkParaTOC wdFieldTOA MarkParaTOAHomeKeyDoneEnd)EndKey5TypeTextCellsCreateStructureExitcListParagraphsBListsCreateStructureEndTOC VerticalMergec HeadingFormatVerticalMerge2YCreateStructureEndTablehRowIndex6dCreateStructureEndRow& ColumnIndexPpopcellTOCCountl HasFrames FrameCurrPage1WSectionCurrPage PrevSection FramesCountAEndPageOfSection6<SectionNextPage wdGoToPaged wdGoToNextw wdGoToLastxwdGoToFootnote;GoToNextfootzpdfMakerStructuredBookmarkLabelN(xxx CreditsFormOKButton_ClickfPrintViaDistAsstOptionUserForm_Initialize5cText1~"pdfMakerWarningMustPrintPSFormText%pdfMakerWarningMustPrintPSFormCaptionys%pdfMakerWarningNoDistillerFormOption1bOKButton|pdfMakerOkButtonName" NoDistillerWarningFormShowDistillerWarningWLabel1,"pdfMakerWarningNoDistillerFormTextm%pdfMakerWarningNoDistillerFormCaptionnValIaPrintViaDistillerOptionpdfMakerWarningNoFeatureCaption pdfMakerWarningNoFeatureFormTextM pdfMakerWarningNoFeatureOption1pdfMakerWarningNoFeatureOption2App_WindowActivate1DocWn_ IsObjectValidoUserFormNClickClassWindowActivatedtImage1_Image2`Label19ILabel20eLabel21fLabel22gCreditColeSoftwarecLabel23hLabel24iLabel25jLabel26k InitializeN _B_var_Stringӊ _B_var_UCasea _B_var_LeftQ _B_var_Midp _B_var_TrimmT _B_var_Chr\; _B_str_LeftV_B_var_pdfMakerUnableToSave~t% /  2  7 $ 9:9A   +(Y8 W [4a)>eJ!@Xa@P" EȃH`QN @  $@B @@@@$T}ax" P0` 1#@@*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automaption/DOPfficDO>fPicDD2DF8D04C-5BFA-101B-BDER5DAAB42DProgram Files\C ommonMicrosoft Shared\@10\MSO.DLL# 10.0 Object LibrarFyKMSForms> MSFr ms3D452EE1 -E08F0A-8-02608C4D0BB4RFM20& ^L&/;$1iIpAHp00}#;7@p# 50 AFE26DB0A-4870-45F6-9D4D-A2C0FCC15F7B6DOCUME~1\LEVU~1.SJE\LOCALSTem`p\VBEb7.xexdc<@".E .`M BX>@ AEbPD@lMak@rX7}@ 8CBD71DF4-5AED-11D2-BC74P60979C3633}#1D:\\Abat 5.0\\J{XdK@bvThisDocumentGThU gsoguOen {2#H 1b`",Q""+ Statubs4Ga`uaEb,26M( "rticleThreadsG>ra!&r@>a@AsCEM2.&4b!Ex ecGuA oEx ci2ro6oZvi Gmirgitoao+ӭDl Bo@okmark@2`o omor312/7G ,DistPMonG>DftMn.2-@OUt@ilitieUi wi ufsoBInfouaBI Bflu _8_\q$bH7ing`&H6igpA&5&= = 1@Inaliz^aQ3@!Caz't@ o 3@[3@_MiB# `O Ɗ Linq0SL n/2R)_Not'N@ t' PageLabelQ`PgLpvlR[S`sWh?N|DpvWriterGDS~Wrpr>j6o68`f/Platf^P&1#6/5/=P _Print`7aрs7O4;!RegVry5Rg@Qr~y`5=Str@uctureSSUPVrucpueTfSo?M^C0itdnCrdr's2[U֐;=( Must!PG oxtP a!rm2PS v0u NoyillerWarn0,,p IG{sQrWErp-2zl9e:_ 9?h_ P QPNo$Feбre0 ningFormG(NoFeaturHW,rni gloTmoFeatureWar2*H1`  ," Y+  EventMod@uleGvnMdjl ,2,I)IbI@rU~~~~~~~~~~~i er4InstalledLaunchAcrobatDistiller DistillAFileIsDistillCompleteTerminateAcrobatDistillerSelectDistillerAssistantGetPDFOutputFilename ,,$ RemovePDFMaker1UIHidePDFWriterUIConvertToPDFandEmail ConvertToPDFDoPrintWithLinksGetStoredSettings DoPrefsFormMain \T(@VBE6.DLL S `ďYl|Yl| ƏYl|SetEnvironmentVariableA kernel32 SetEnvironmentVariableA IqPDFMakerUseAppPointer pdfmword.dll PDFMakerUseAppPointer YPDFMakerPrepareAfterFirstPrint PDFMakerPrepareAfterFirstPrintIsValidJobOption YPDFMakerPrepareForSecondPrint PDFMakerPrepareForSecondPrint Y PDFMakerCreateStructure PDFMakerCreateStructure YPDFMakerSecureDoctU@)CX`63 PDFMakerSecureDoc Y  FindWindow user32 FindWindowARetrieveGlobalOptions @ EnableWindow EnableWindow  `GetModuleFileName GetModuleFileNameA Iy! GetTempPath GetTempPathA IA" SaveDocStateRestoreDocStateCheckFilenameForCommas EmailPDFFile ViewPDFFileIsAcrobatInstalledConfigureServerPrintingEntryWithNoOptionsDlgPrintingEntry1PrintingEntry2PrintingEntry3PrintingEntry4InitEverythingEnumPageNumberAdjustmentsPrintingEntry5RestoreWindowSizeChangePATHEnvVariableOffice2000SpecificStructureGetOutputDirNameGetPDFMarkPSFileName !GetWordPrintedPDFFileNameNonColorGetWordPrintedPDFFileNameColorGetFinalPDFFileNameGetRegKeyNameForDocument %AddDistillerRegEntriesForNonColorFile "AddDistillerRegEntriesForColorFile \LrU@)CX`63qU@)CX`63(( w F F1)Y)p FzU@)CX`63/TX`63CX`63}C|VX`63}C|VX`63ㆁVX`63ᆁVX`63**1) P Printer GetTempFileNameA (DoNotSetAsSysDefaultFilePrintSetup *Sleep Sleep I,GetProfileString GetProfileStringA I- GetVersion GetVersion Iq.8SK*m0rU ~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  _'9IN>   )Ii!9Qq1Y  ThisDocument StatusFormArticleThreadsAutoExecAutoExit BookmarksDistMon UtilitiesDocInfoHeadingsInitializationLinksNotes PageLabels PDFWriterPlatformPrintingRegistry Structure CreditsFormMustPrintPSFormNoDistillerWarningFormNoFeatureWarningForm EventModuleAdobePDFMakerA jHKEY_CURRENT_USER\Software\Adobe\Acrobat\PDFMaker\5.0F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  A F -G:\Program Files\Office-2K\Office\MSWORD9.OLBWord 90FC:\WINNT\System32\stdole2.tlbstdole 9L-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice 1.E .`M C:\WINNT\System32\FM20.DLLMSForms ) ) Q  &pHEM_{4C:\DOCUME~1\LEVU~1.SJE\LOCALS~1\Temp\VBE\MSForms.exd  ) ) Zt`63>D:\Program Files\Adobe\Acrobat 5.0\PDFMaker\AdobePDFMakerX.tlbAdobePDFMakerX XDocLinksDone ! k FrMFXAۘS  F4iJ{ۛg FDocument @v䐀uGIȆb^tGCPɶd܀O1n;|}kVHD8oͤjG'/C"-?@ XRefPctDone!-6S` y 0InternetLinkPctDone StructPctDone BookmarksDoneInternetLinksDone XRefLinksDoneFootnoteLinksDone TextNotesDone ThreadsDonePageLabelsDone{lFWJO CancelButton DocInfoDoneDistillerParamsDone InternetLinks StructureDone XRefLinks FootnoteLinks XDocLinks TextNotesȏ[qJ eUserFormgfG{\N\5Cd F3Dynamic 9 a@ThreadsDistillerParams DistillingBookmarkPctDoneCancelButton_ClickUserForm_Activate  CreatePDFFileInitializePDFMakerDLLShutdownPDFMakerDLLIsDistilletCurrentDirectory SetCurrentDirectoryA I9/XGetTempFileName I+xGetFullPathName GetFullPathNameA I0RoundIt GetPageHeight^ FGetPageHeightOfSelection GetLeftMarginGetLeftMarginOfSelection YCoordinateYCoordinateOfSelection XCoordinateXCoordinateOfSelectionMaxXCoordinateMaxXCoordinateOfSelectionMaxYCoordinateMaxYCoordinateOfSelectionGetNumberOfPages GetPageNumberGetPageNumberOfSelectionAdjustPageNumberForPhantoms GetPageWidthGetPageWidthOfSelectionPostScriptPrinterSelectedCreateOutputFilenameDoSleepCharacterHeightOfSelectionTrimJunkFindActualSelectionStart "FindActualSelectionStartOfTOCEntryWaitForFileAccessWaitForFileWriteAccessWaitForFileModifyAccessCanWriteToFileGetPrivateBooleanGetPrivateIntegerGetPrivateIntegerRangeCheckAppGetPrivateStringWritePrivateBooleanWritePrivateIntegerWritePrivateStringDeleteLogAndPSFileSelectionIsFirstLineOfParagraphMakeSelectionVisibleConvertColorToRGBSetAppLanguageDetermineOSVersionCheckForNonNumbersAddBackslashToParensAddTripleBackslashToQuoteIsPageLandscapeSelectFirstLineTranslateStringToPDFEncodingTranslateStringForLabelTranslateStringForBody MagTypeToMarkGetAcrobatFolderGetDistillerFolder MinimizeWordb FKillFileTest1Test2RemoveFileExtensionGetPDFMarkEntryText ChangeToDirGetTempPDFFileGetAbsolutePathName 88 E~\LEL _  F PDFMaker File F F CreateAdobePDF  Fj F PDFWRITER97.DOT PDFWriter PDF F ,Print via PDFWriter... PDFWRITE.DOT .Adobe Acrobat PDFWriter F &Create Adobe PDF...  +=h8+3qvD? Lmt!*=h8+3qR *zH F!=h8+3qClassPgv3+3o VBInternal ID qD@App_WindowActivate H44   SendMessage SendMessageA EPWriteProfileString WriteProfileStringA IFp PeekMessage PeekMessageA IGTranslateMessage TranslateMessageA AHDispatchMessage DispatchMessageA IGetPrivateProfileSettingSetPrivateProfileSettingEnsurePDFWriterIsInstalledDetermineWhichAppPrintPDFFileViaPDFWriter MainPDFWriter  . F F Fu F E  V @l F , i ` x  CountN-[DR FileOptions SendViaEmail   \Acrobat.exe  Started+ HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Acrobat.exe5 F  " HKEY_LOCAL_MACHINE\Software\Adobe\Acrobat Reader\5.0\InstallPath \AcroRd32.exe   h & HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AcroExch.Document\shell\open\command %1 `  X  \Acrobat.exe, FS F@ F= F .joboptions *.joboptions Status( The Adobe PDFMaker server cannot be loaded; please re-install Adobe PDFMaker. :Acrobat PDFMaker 5.0 for Word F F;   1 y( 8 inputPathnameoutputPathnamebPromptForOutputNamefileName folderName pdfFileNamedefaultFileNamevarNameval appPointer statusDlgstringsoptionspdfFileNameColor H lpClassName lpWindowNamehWndbEnablehModulenSize nBufferLengthlpBufferoutputFilenamenValue sJobOptionpdfFileNameNonColor tempFileNamesNewJobOptionPathnumMS lpAppName lpKeyName lpDefaultlpReturnedStringlpDirlpszPathlpPrefixStringwUniquelpTempFileName lpFileNamepBase 1XrnPageNumsourceFilenameextNumMillisecondss maxRetryTime sSectionNamesKeyName DefaultValueminValuemaxValuecorrectedValuebValuesValue psFilenametheColorredgreenbluenMagType a<h theWindow bookmarkRangepathName Cx D DApp ) a DocWnwMsgwParamlParamlpApplicationNamelpStringlpMsg wMsgFilterMin wMsgFilterMax wRemoveMsg iniFilenameBaseKeySectionSettingValue bReportError$  }5%R KQ$Tahoma $* Image1 R KQlt ( @CreditsFormI?2Pw<w<fko13 CompObj4a     " !#%&'()*+,-./0123456789:;<=>?@ABC p p p p p py ??????? R KQlt ( @pppppppxpxpppppppp0aAO@@aÇr(TMh@xTahoma4(#Adobe PDFMaker for Microsoft Word18@TahomaX(G Copyright 1997-1998, Adobe Systems Incorporated. All Rights Reserved.'5Tahoma( Engineering@TahomaL(9Cole Software Consulting, Incorporated Half Moon Bay, CA5TahomaL(;Amy Jaeger, James Bonacci, Denis Neema, Adobe Systems, Inc.U5Tahoma(QE@Tahoma(OK {uTahoma$(Project Managementrm@Tahoma8((Maria Yap & Tim Oey, Adobe Systems, Inc.S5Tahoma$* Image2r(28Label19(2XLabel20(2xLabel21{(2@Label22442lCreditColeSoftware"( 2lLabel23 ( 28Label24* ( 74OKButton; B( 2HLabel25n (2X Label26n Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} CreditsForm Caption = "Adobe PDFMaker for Microsoft WoVBFrameFMustPrintPSForm 7w<@ w<fo68rd Credits" ClientHeight = 3420 ClientLeft = 30 ClientTop = 330 ClientWidth = 5400 StartUpPosition = 1 'CenterOwner TypeInfoVer = 19 End $   }R KQ$Tahoma(74OKButton(OK zuTahoma6n 5Tahoma6n$F@p&0G5TahomahCancel uTahoma(2,Text1ton4DPrintViaDistAsstOption], ;<CancelButton Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} MustPCompObj9aVBFrame/NoDistillerWarningForm.<@ w<w<frintPSForm Caption = "Adobe PDFMaker" ClientHeight = 3444 ClientLeft = 30 ClientTop = 330 ClientWidth = 4485 StartUpPosition = 1 'CenterOwner TypeInfoVer = 11 End $  },R KQ$Tahoma(2,Label1on : 5Tahoma(OK zuTahoma<Fo;=CompObj>aVBFrame5NoFeatureWarningForm*5:Aw<`w< {1GDon't tell me againi5Tahoma(74OKButton 10\ShowDistillerWarning  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} NoDistillerWarningForm Caption = "Adobe PDFMaker" ClientHeight = 3120 ClientLeft = 30 ClientTop = 330 ClientWidth = 4530 StartUpPosition = 1 'CenterOwner TypeInfoVer = 4 End $  },<R KQ_Tahoma(2,Label1 g 5Tahoma$F@N&1G5Tahoma(OK zuTahoma$F@&0G5TahomahCancelfKo@B$CompObjCaVBFrame4 uTahoma0DShowFeatureWarningng(74OKButton44DPrintViaDistillerOption, ;<CancelButton  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} NoFeatureWarningForm Caption = "Adobe PDFMaker" ClientHeight = 3372 ClientLeft = 30 ClientTop = 330 ClientWidth = 4530 StartUpPosition = 1 'CenterOwner TypeInfoVer = 12 End $ * g}"R KQ$Tahoma, 2PBookmarkson,,Creating bookmarks...onmS7 @Tahomaon0,Creating Internet links...SStatusFormF`w< &w<foEGCompObjH#aS7 @Tahomaon4, Creating Cross-document links...mS7 @Tahomaon8,!Creating Cross-reference links...arkmS7 @Tahomaon,,Creating Text notes...nmS7 @Tahomaon0,Creating Article threads...mS7 @Tahomaon8,"Converting Document information...rkmS7 @Tahomaon(SkippednS5Tahomadn(SkippednS5Tahomadn(SkippednS5Tahomadn(SkippednS5Tahomadn(SkippednS5Tahomadn(SkippednS5Tahomadn(SkippednS5TahomadnhCanceldn uTahomadn4,Starting Acrobat Distiller...mS7 @Tahomadn8,     !"$&'()*,-./012345679:;<=>?@ABCDEFGHIJKLMNOPQSTUVWXZ[\]_$Creating Footnote & Endnote links...mS7 @Tahomadn(SkippednS5Tahomadn((Configuring Distiller...mS5Tahomadn(SkippednS5Tahomadn0,Creating Internet links...&S7 @Tahomadn$&S7 @Tahomadn0,Creating Internet links...&S7 @Tahomadn,,Creating Page labels....S7 @Tahomadn(SkippednS5Tahomadn4,Mapping document structure...S7 @Tahomadn(SkippednS5Tahomadn$&S7 @TahomadnO0 2TInternetLinksns, 2XXDocLinksink, 2\XRefLinksinkD, 2PTextNotesink; (2TThreadsn( 2\DocInfon0 08BookmarksDonensIO4 08 InternetLinksDoneI0 08 XDocLinksDonensI4 08 FootnoteLinksDoneI 0 08 TextNotesDonensI; , 08 ThreadsDonenI, 08DocInfoDonenI, ;<CancelButtong ', 2XDistillingon0 2\FootnoteLinksns 0 08XRefLinksDonensID02HDistillerParams408DistillerParamsDoneI02TBookmarkPctDone, 24XRefPctDoneDO 4!2TInternetLinkPctDoneO, #2PPageLabelseD 0$08PageLabelsDoneeI , '2XStructuresDo00 (08StructureDoneeeI00 )24StructPctDoneeeO Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} StatusForm Caption = "Acrobat PDFMaker for Microsoft Word" ClientHeight = 3885 ClientLeft = 30 VBFrame%dPROJECTwmD+/PROJECT8g1Table$? ClientTop = 330 ClientWidth = 4950 ShowModal = 0 'False StartUpPosition = 2 'CenterScreen TypeInfoVer = 103 End ThisDocumentThisDocumentCreditsFormCreditsFormMustPrintPSFormMustPrintPSFormNoDistillerWarningFormNoDistillerWarningFormNoFeatureWarningFormNoFeatureWarningFormStatusFormStatusFormArticleThreadsArticleThreadsAutoExecAutoExecAutoExitAutoExitBookmarksBookmarksDistMonDistMonDocInfoDocInfoHeadingsHeadingsInitializationInitializationLinksLinksNotesNotesPageLabelsPageLabelsPDFWriterPDFWriterPlatformPlatformPrintingPrintingRegistryRegistryStructureStructureUtilitiesUtilitiesEventModuleEventModuleID="{00000000-0000-0000-0000-000000000000}" Document=ThisDocument/&H00000000 BaseClass=CreditsForm BaseClass=MustPrintPSForm BaseClass=NoDistillerWarningForm BaseClass=NoFeatureWarningForm BaseClass=StatusForm Module=ArticleThreads Module=AutoExec Module=AutoExit Module=Bookmarks Module=DistMon Module=DocInfo Module=Headings Module=Initialization Module=Links Module=Notes Module=PageLabels Module=PDFWriter Module=Platform Module=Printing Module=Registry Module=Structure Module=Utilities Class=EventModule HelpFile="" Name="AdobePDFMakerA" HelpContextID="0" VersionCompatible32="393222000" CMG="37359B32BDD694DA94DA92E092E0" DPB="0A08A667648464849B7C6584DF4A61FD018ECAE5FC16E1124A22EBDDD40B1A05863940681C" GC="DDDF7158972A982A982A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C CreditsForm=0, 0, 0, 0, C, 198, 198, 765, 645, C MustPrintPSForm=0, 0, 0, 0, C, 220, 220, 787, 667, C NoDistillerWarningForm=0, 0, 0, 0, C, 0, 0, 567, 447, C NoFeatureWarningForm=0, 0, 0, 0, C, 22, 22, 589, 469, C StatusForm=0, 0, 0, 0, C, 44, 44, 611, 491, C ArticleThreads=22, 22, 525, 469, C AutoExec=198, 198, 701, 645, AutoExit=0, 0, 0, 0, C Bookmarks=0, 0, 0, 0, C DistMon=176, 176, 679, 623, DocInfo=0, 0, 0, 0, C Headings=0, 0, 0, 0, C Initialization=0, 0, 0, 0, C Links=0, 0, 0, 0, C Notes=0, 0, 0, 0, C PageLabels=0, 0, 0, 0, C PDFWriter=0, 0, 0, 0, C Platform=0, 0, 0, 0, C Printing=154, 154, 657, 601, Z Registry=0, 0, 0, 0, C Structure=0, 0, 0, 0, C Utilities=0, 0, 0, 0, C EventModule=0, 0, 0, 0, C Oh+'0l   ( 4 @LT\dssAnupfnupnupPDFMakerA.dotoLe Vuer4 VMicrosoft Word 9.0@Ik@VL2@w<SummaryInformation(OMRDocumentSummaryInformation8Y(CompObj^jObjectPoolNw<w<՜.+,0 hp  Adobe Systems Inc.  Title  FMicrosoft Word Document MSWordDocWord.Document.89q i8@8 NormalCJ_HaJmH sH tH <A@< Default Paragraph Font  z8@0(  B S  ?Anup Sheetal SinghH:\Anup\PDFMakerA.dotLe Vu4L:\Producers\PDFMaker\Word 97 PDFMaker\PDFMakerA.dotSign<} -, Y 0) *H 010 *H 0R +7D0B0 +7KPc#ך?qp0 0 *H ;^Hwwe0@0Ǐ7ے(<g0  *H 0a10UInternet10U VeriSign, Inc.1301U *VeriSign Commercial Software Publishers CA0 960409000000Z 040107235959Z0a10UInternet10U VeriSign, Inc.1301U *VeriSign Commercial Software Publishers CA00  *H 0ieRT(bTUDEJ;~Ȁ k)vsb<ulMԘisbN1 }GQod5}gwQ>wCʣA="HH0  *H ujdxç2ur&`0LH4RJQS-{1eAA/czszAЎ:84Duqā85J>2!8\8dT_݈)Oqd1<<00%J8Y]s_]ܣ0  *H 010U VeriSign Trust Network10U VeriSign, Inc.1,0*U #VeriSign Time Stamping Service Root1402U +NO LIABILITY ACCEPTED, (c)97 VeriSign, Inc.0 970512000000Z 040107235959Z010U VeriSign Trust Network10U VeriSign, Inc.1,0*U #VeriSign Time Stamping Service Root1402U +NO LIABILITY ACCEPTED, (c)97 VeriSign, Inc.00  *H 0. h|,-.  WSu3* [4 Z%}XsjxqX)X^-bXq"X/6MJ;"V~!lJGj6 -Ӵ90  *H aU>{ǒ~"Գ+[D x~rȲ㉔LNaﳤF=P4 pV*cyis.(]  γ(y)gBHaSs?OUcc00kzm\obOC0  *H 010U VeriSign Trust Network10U VeriSign, Inc.1,0*U #VeriSign Time Stamping Service Root1402U +NO LIABILITY ACCEPTED, (c)97 VeriSign, Inc.0 010228000000Z 040106235959Z010U VeriSign, Inc.10U VeriSign Trust Network1;09U 2Terms of use at https://www.verisign.com/rpa (c)011'0%UVeriSign Time Stamping Service0"0  *H 0 za벧c+aހ='9)fHOO^/Ǒ{!NXc-)pP햻@۾%BU狙1L$*MhaXr0HO/oc ىʂ{K(Łh@F:?6LTBZze{GT=3*^:.uk=`BO[?"1s+FLmP.K*xt=,G100@+40200+0$http://ocsp.verisign.com/ocsp/status0 U00DU =0;09 `HE0*0(+https://www.verisign.com/rpa0U% 0 +0 U0  *H -Oc`,$R 볼g#F M|z 02h2;'{>! Ř@W%误j;#)]@US6:9ess2ү0<U 5Digital ID Class 3 - Microsoft Software Validation v21 0 UUS1 0 UCA10USan Jose10UAdobe System Inc.10U Document Technologies00  *H 0}ΆE daͲl Rax2&^/vS``2GP `6cjR(QAO7 j7[M(GAte~8,к }0y0 U00 U0U0{Ch8n; c0a10UInternet10U VeriSign, Inc.1301U *VeriSign Commercial Software Publishers CAǏ7ے(<g0!U000  +70 U 0@06 +7 #0)'https://www.verisign.com/repository/CPSThis certificate incorporates by reference, and its use is strictly subject to, the VeriSign Certification Practice Statement (CPS) version 1.0, available in the VeriSign repository at: https://www.verisign.com; by E-mail at CPS-requests@verisign.com; or by mail at VeriSign, Inc., 2593 Coast Ave., Mountain View, CA 94043 USA Copyright (c)1996 VeriSign, Inc. All Rights Reserved. CERTAIN WARRANTIES DISCLAIMED AND LIABILITY LIMITED. WARNING: THE USE OF THIS CERTIFICATE IS STRICTLY SUBJECT TO THE VERISIGN CERTIFICATION PRACTICE STATEMENT. THE ISSUING AUTHORITY DISCLAIMS CERTAIN IMPLIED AND EXPRESS WARRANTIES, INCLUDING WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE, AND WILL NOT BE LIABLE FOR CONSEQUENTIAL, PUNITIVE, AND CERTAIN OTHER DAMAGES. SEE THE CPS FOR DETAILS. Contents of the VeriSign registered nonverifiedSubjectAttributes extension value shall not be considered as accurate information validated by the IA. 64https://www.verisign.com/repository/verisignlogo.gif0DU =0;09 `HE0*0(+https://www.verisign.com/rpa0 +700  *H _`9B" 4΃ݛ(b##1l yGm <ۚ^R 7CG  O,̜ ۶08޶1[9U*C[ZL;*3·.3}Ua+lyp}uyӕW:&n4,nM_}a'b ȧ2qWDfqT:7CE n@CERTlb760611d-8d6b-4719-b668-619559587675Microsoft Base Cryptographic Provider v1.0C'H~6]SD! a:\myprivatekey.pvkMicrosoft Base Cryptographic Provider v1.0*/*pJWGٿ!kSy0<U 5Digital ID Class 3 - Microsoft Software Validation v21 0 UUS1 0 UCA10USan Jose10UAdobe System Inc.10U Document Technologies00  *H 0}ΆE daͲl Rax2&^/vS``2GP `6cjR(QAO7 j7[M(GAte~8,к }0y0 U00 U0U0{Ch8n; c0a10UInternet10U VeriSign, Inc.1301U *VeriSign Commercial Software Publishers CAǏ7ے(<g0!U000  +70 U 0@06 +7 #0)'https://www.verisign.com/repository/CPSThis certificate incorporates by reference, and its use is strictly subject to, the VeriSign Certification Practice Statement (CPS) version 1.0, available in the VeriSign repository at: https://www.verisign.com; by E-mail at CPS-requests@verisign.com; or by mail at VeriSign, Inc., 2593 Coast Ave., Mountain View, CA 94043 USA Copyright (c)1996 VeriSign, Inc. All Rights Reserved. CERTAIN WARRANTIES DISCLAIMED AND LIABILITY LIMITED. WARNING: THE USE OF THIS CERTIFICATE IS STRICTLY SUBJECT TO THE VERISIGN CERTIFICATION PRACTICE STATEMENT. THE ISSUING AUTHORITY DISCLAIMS CERTAIN IMPLIED AND EXPRESS WARRANTIES, INCLUDING WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE, AND WILL NOT BE LIABLE FOR CONSEQUENTIAL, PUNITIVE, AND CERTAIN OTHER DAMAGES. SEE THE CPS FOR DETAILS. Contents of the VeriSign registered nonverifiedSubjectAttributes extension value shall not be considered as accurate information validated by the IA. 64https://www.verisign.com/repository/verisignlogo.gif0DU =0;09 `HE0*0(+https://www.verisign.com/rpa0 +700  *H _`9B" 4΃ݛ(b##1l yGm