ࡱ > 3 5 2 y bjbj
* h h x x . C V . . . . . . / 2 d . . .
= C k7
) . 0 . 2 2 2 $ . .
. 2 x :
h%o ( / =!"#$% ^ 2 0 @ P ` p 2 ( 0 @ P ` p 0 @ P ` p 0 @ P ` p 0 @ P ` p 0 @ P ` p 0 @ P ` p 8 X V ~ _HmH nH sH tH 8 ` 8 N o r m a l _HmH sH tH D A D D e f a u l t P a r a g r a p h F o n t V i V T a b l e N o r m a l :V 4 4
l a ( k ( N o L i s t PK ! [Content_Types].xmlj0Eжr(Iw},-j4 wP-t#bΙ{UTU^hd}㨫)*1P' ^W0)T9<l#$yi} ;~@(Hu* Dנz/0ǰ $ X3aZ,D0j~3߶b~i>3\`?/[G\!-Rk.sԻ..a濭? PK ! ֧ 6 _rels/.relsj0 }Q%v/C/} (h"O
= C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_ 6LR7`0̞O,En7Lib/Se е PK ! ky theme/theme/themeManager.xml M
@}w7c(Ebˮ CAǠҟ7՛K
Y,
e.|,H ,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+&
8 PK ! P theme/theme/theme1.xmlYOo6w toc'vuر-Mn iP@I}úama[إ4:l ЯGRX^6؊>$ !)O^rC$y@ /yH*)UDb`}"qۋJחX^)I`nEp)liV[]1M<OP6r=zgbIguSe bORD۫qu gZo~ٺlAplxpT0+[}`j zA V2Fi@qv֬5\|ʜ̭NleXd sjcs7f
W+Ն7` g ȘJj|h(KD-
dXiJ؇(x$( :;˹! I_TS 1?E ??ZBΪmU/ ?~xY'y5g&/ɋ>GMGeD3Vq%'#q$8K )fw 9:ĵ
x}rxwr:\TZaG*y8IjbRc|XŻǿI
u3KGnD 1NIBs
RuK>V.E L+M2#'fi ~V vl{u8z H
* :( W ☕
~JTe\O*tHGHY }KNP*ݾ˦ TѼ9/#A7qZ $*c?qUnwN%Oi4 =3ڗP
1Pm \\9Mؓ2aD];Yt\[x]}Wr|]g-
eW
)6-rC Sj
id DЇAΜIqbJ#x꺃 6k#ASh&ʌt(Q% p%m&]caS l=X\P1Mh9MVdDAaVB[݈fJíP|8 քAV^f
Hn- "d>znNJ ة>b&2vKyϼD:,AGm\nziÙ .uχYC6OMf3or$5N HT[XF64T,ќM0E)`#5XY`פ ;%1U٥m;R>QD DcpU'&LE/pm%]8firS4d 7y\`JnίI R 3U~7+#m qBiDi*L69mY&iHE=(K&N!V.KeLDĕ{D vEꦚdeNƟe(MN9ߜR6&3(a/DUz<{ˊYȳV)9Z[4^n5!J?Q3eBoCM m<.vp IYfZY_p[=al-Y}Nc͙ŋ4vfavl'SA8|*u{-ߟ0%M07% < ҍ PK !
ѐ ' theme/theme/_rels/themeManager.xml.relsM
0wooӺ&݈Э5
6?$Q
,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{ P8g/ ]QAsم(#L[ PK- ! [Content_Types].xmlPK- ! ֧ 6 + _rels/.relsPK- ! ky theme/theme/themeManager.xmlPK- ! P theme/theme/theme1.xmlPK- !
ѐ ' theme/theme/_rels/themeManager.xml.relsPK ]
%o %5 H,= A E L V * * V * * V * *
(
A d o & b e P D F C r e a t e A d o b e P D F 7 . 0 C u s t o m P o p u p 5 5 0 6 0 3 1
( A c r o b a t & C o m m e n t s I m p o r t C o m m e n t s 6 C u s t o m P o p u p 5 5 0 6 2 3 4 ( M a i l R & e c i p i e n t a s A d o b e P D F A d o b e S e n d T o M a i l A s P D F 3 ( ( k k k k k k 22 k )) k uu }} ZZ k // vv 99 GG k k k k ff ff ff ff ff ff ff ff DD ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff p ( @ C u s t o m P o p u p 5 5 0 6 0 3 1 C u s t o m P o p u p 5 5 0 6 0 3 1 91 ( & C o n v e r t t o A d o b e P D F ( ( ff ff ff ff ff ff ff ff ff ff ff ff 22 ff ff ff ff )) ff ff ff ff uu }} ZZ ff ff ff ff // vv 99 GG ff ff ff ff ff ff ff ff ff ff ff ff DD ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff p ( @ ( C o n v e r t t o A d o b e P D F a n d & E M a i l ( ( k k k k k k 22 k )) k uu }} ZZ k // vv 99 GG k k k k ff ff ff ff ff ff ff ff DD ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff p ( @ ( )C o n v e r t t o A d o b e P D F a n d S e n d f o r & R e v i e w ( ( ff ff ff ff 3 3 ff ff ff ff 3 3 3 3 ff ff ff ff 3 f ff ff ff ff 3 3f 3f 3f 3 ff ff ff ff 3 3f 3f 3f 3f 3 33 ff ff ff ̙ f3 3 f33 f33 f 3 3 3 3 3 ff ff 33 f 3 f33 f f3 ff ff ff ff ff f33 f 3 f f3f U 33f ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff p ( @ p ( C h a n g e C o n v e r s i o n & S e t t i n g s %
z J ) C u s t o m P o p u p 5 5 0 6 2 3 4 C u s t o m P o p u p 5 5 0 6 2 3 4 91 ( & I m p o r t C o m m e n t s f r o m A c r o b a t . . . ( & C o n t i n u e I n t e g r a t i o n P r o c e s s . . . ( & A c c e p t A l l C h a n g e s i n D o c u m e n t ( & D e l e t e A l l C o m m e n t s i n D o c u m e n t ( & R e v i e w i n g T o o l b a r A d o b e R e v i e w i n g T o o l b a r 1 9 ( & S h o w I n s t r u c t i o n s . . . T e m p l a t e P r o j e c t . P R C S L A B E L . M A I N ! T e m p l a t e P r o j e c t . P R C S E N V E L O P E . M A I N T e m p l a t e P r o j e c t . P R C S L E T T E R . M A I N T E M P L A T E P R O J E C T . P R C S L A B E L . M A I N T E M P L A T E P R O J E C T . P R C S L E T T E R . M A I N ! T E M P L A T E P R O J E C T . P R C S E N V E L O P E . M A I N @ ` @ U n k n o w n G * T i m e s N e w R o m a n 5 S y m b o l 3. * A r i a l A B C a m b r i a M a t h " h Ef k Y r4 d \T G HP ( ? %o 2 ! x x L e t t e r M e r g e K a t t a
T h e S c h o o l O f Oh +'0
@ L X
d p x LetterMerge Katta CCLTRGEN The School Of 224 Microsoft Office Word @ B2 @ @ o*ǿ@ n" ՜. +,D ՜. +,P
p x
MAXIMUS INC 6 LetterMerge Title P ; C Date Completed @ ӹj
! # $ % & ' ( ) + , - . / 0 1 4 9 Y 7 8 : V O < = > ? @ A L C D E F G H I J K ; M N P Q R S T U w X Z [ \ ] ^ i ` a b c d e f g h W j k l m n o p q r s t u v { | } ~ R o o t E n t r y F 376 - 1 T a b l e 2 W o r d D o c u m e n t S u m m a r y I n f o r m a t i o n ( " D o c u m e n t S u m m a r y I n f o r m a t i o n 8 * M a c r o s u7 k7 V B A u7!7 T h i s D o c u m e n t
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R T V X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ < j x # < YY A0־i F ʂф/F!M^V x ʂф/F!M^VYY A0־i ME ( SL S S 6" N 0 { 0 0 0 2 0 9 0 6 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } ( % H ` % % ` h 8 @ 0 E
$ * \ R f f f f * 0 9 4 a 4 8 c 5 7 a 4 x Attribut e VB_Nam e = "Thi sDocument"
Bas0{00020P906- 0C $0046}
|GlobalSpacFalse dCreatabl Predecla Id Tru
BExpose Templ ateDerivBustomizD2
rU
4 9 Q a ` rU @ n _ _ S R P _ 4 _ _ S R P _ 5 B P R C S E N V E L O P E B
& _ _ S R P _ 2 \ rU ~| Q
A
Q i
Q )
a
y
1 ! 9 a a I I y A y ) y nter Template File Path: Input $ 4 ' F WordBasic.Input "Enter Template File Path, (" & DirDoc$ & ")", DirDoc$ k Enter Extract File Path: Input $ 4 ' E WordBasic.Input "Enter Extract File Patch, (" & DirLtr & ")", DirLtr$ k x d p PS_HOME $ 8 \WINWORD\ ' TEMP$ 8 \ ' Enter Extract File Path: Input $ 4 ' E WordBasic.Input "Enter Extract File Path, (" & DirLtr$ & ")", DirLtr$ Enter Template File Path: Input $ 4 ' F WordBasic.Input "Enter Template File Path, (" & DirDoc$ & ")", DirDoc$ Enter Letter Code: Input $ 4 ' " 0 WordBasic.Input "Enter Letter Code", LetterCode$ B Enter Sort Option: 1 = Country, Postal; 2 = Last Name, First Name Input $ 4 ' $ ^ WordBasic.Input "Enter Sort Option; 1 = Country, Postal; 2 = Last Name, First Name", SortOpt$ PS_HOME $ 8 \WINWORD\ ' k TEMP$ 8 \ ' k x k p validate user file path $ ' . $ ' 0 . \ \ ' k 0 \ \ ' k CCLBL " _ 2 .CSV ' (
CCENVELOP.DOC ' & Merging & with ( @B@B & F @B@D ( J F L N P R T V X Z \ ^ @B@H
h `! b! d( f `! b! d! f' j j
$ 1 2 SELECT * FROM DataNm$ ORDER BY Country, PostalSort \ ^ @B@l k $ 2 B SELECT * FROM DataNm$ ORDER BY AddrLastNameSrch, AddrFirstNameSrch \ ^ @B@l k k x n p b @B@b SAENV " _ 2 .DOC ' * * @B@r , 6 Print Envelopes Now? (Y/N); [Y] = Yes, [N] = No, (No) , @B@ k ,$ t ' , , Y x 0 z | ~ h l 1 @B@v
d ! ' * $ B@B k B@ `B@H `! B@ `B@B open Merged Letter * F B@ `B@ `B@B open Merged Letter * F B@ `B@ k o j Attribut e VB_Nam e = "PRC SENVELOP E"
Publ ic Sub MAIN()
". vDescr@iptionS canProt macro to prompt you if t he docum ent bein g opened containrs9s. m ZcDatayInv oke_FuncyTemplate "ject. . PDim D irDoc$
LtrLetterCodeSortOptFileNmB!SavePr@intNowL Path As 2S ng=
In@stance
$sInpu tBox("EnaV an n umber:", ""
' WordBasic.
N
, (" & A#")@k% C 1(Test>AEnv iron("TE MP") + " \CCLTRGE8N_"A.DAT@d
Set FSO6CreoObo("Sng.Syst em5If (
BExists(#)) The n
'f ine
Els e 'check L custom ho@dirB
a2PSME 03End If
l'O Forg@`@x#1%l#<1,A, IH, E, Clo@>f[""$ (Lk 0 V+L`,,?LLp%Mr e( )a Extrac`JuKbmch
3K=aPS_HOME$HWINWORD\`_. qgL
w2.$ $ CՏ?C bd+]@&M
TuHw`' iP
Am C À: 1 C@ountry`oo! l; 2Last ,`grd4H ;_ meL Ch!`~w '**9ra_ -`-&3R'valid_ user Jf;p s
s= Mid(
QOn ) iDP
( x ME 0 6
L L L L L L <4 <8 << < @ ` @ Tk r r J ScanProt macro to prompt you if the document being opened contains macros. ! TemplateProject.PRCSENVELOPE.MAIN opP x P t B@P"p P$l P&h P(d P*` P,H \ `.X `0` T `2 P % 0 P 0 48< @h`t @ @ nter@ 0 gn, @ ign @( Publ@@ 0000@X ]10@p U@ 1U@ ial @ CA1F@ n.co@ orp.@ 961>@x p ClasP6l @:\ @H X @` T @x P @L @X H @ 8 @ ( @ @ @ @8 @P @h @ @ @ @ @ x @ h @ X @( H @@ 8 @ ( @p $ @ @ @jx @ @ @( @ _ @_ h ( _ @ ( d @ @ @ @ @ @ t @ d @T E
$ * \ R f f f f * 0 7 4 a 4 8 c 5 6 0 * \ R 0 * # 1 4 * \ R 0 * # f * \ R 1 * # 1 7 b * \ R 1 * # c 1 * \ R 1 * # 6 8 * \ R 1 * # c 6 * \ R 1 * # 1 1 3 * \ R 1 * # 1 1 6 * \ R 1 * # 8 3 * \ R 1 * # c 5 * \ R 1 * # d 4 r " ( 0 8 @ H P X 2 @ ` F 2 E * 8 h
6 E
(
@
P 2 @ ` L
0 @ L 0 & . . 0 @ L 2 @ X L * @ 6 Z @ H d
& . H
P . ` , ,
( 8 2 3 @ x . ? / r < ` E x
L .
\ . x " 6 2 3 '
H )
X
`
p
v
D 0 H
P
9 `
p *
- x
- x
0 8 H ] ] ] ] ] ] 0 ] H ] ` ] x ] ] Enter an instance number: Input $ 4 ' 2 Temp ? WordBasic.Input "Enter Instance Number, (" & Inst# & ")", Inst# Instance$ = CStr(Inst) TEMP$ 8
\CCLTRGEN_ 2 .DAT ' 6 Scripting.FileSystemObject$ < . : 6 :% > fine d check in custom home dir PSMERGE $ 8
\CCLTRGEN_ 2 .DAT ' 6 k 6 :% > A 6 " $ , V EvuR dc<> kHQ@ m0 2 qo!? ata rBLr(sCSVYFuCC4.DOC@YraStatus Bar "Mer g wiAV7qBkq-:=d, Read Only:=0
B
Mailae1Sour,@;nfirmConvers`5spJ inkTo:=pAdd ToMruPasswP:="@6tRe 0, Wri w\d0 n>rStQL!e1!Active.v.G.3Recp wdC
TotalP`)>=ITt@5A@"1eQueryN`+SELEC T * FROM
4 `BER BY PQO02J 2 V C !2 P#rq(Sr~FiY%=
"p4e e .3, tina҂*6 0,Я`xFSAP<18@+Bb}:.]>!9
:=p 桁 u'Qqel0s ? (Y/N)i[Y]Yes, [N No`|Noa`D^9UCase(#X 4"Y_ cR AbpPdPr2RPange70PrTo@F!a9, Tot yp@Copieg 1{ag pOrd=@BC8Col2HBackgrd3qQEach UAsPoc
. s/ fX y().3#Ch
wd DoNot6 es
End IfNex t docXDo cuments.Add@ActiveX.Select0Cont n .Copy 0`1\50
l\? 0 (@ %: @ %: %: %:( %( %:1 %: %( %( %(h %:H %(( %H $
@ H A
B C D E F G H I J K L M N H
H $
, QH[r A0 l`F@]@ D''0 $H $
, H
0 O $
. ) H$6 0 s6 9$''''0H $
, H
D O ) H$6 0 H $
4 H
. H *$H $
4 H
. $
P ) H$ -'''0H $
4 H
. H6 0 x$'T'd't''''''p''''c0'`M@@H $
, H
X O ) H$6 0ptdT H $
4 H
. H -'''0H $
4 H
. H6 0 x$'T'd't''''''p''''c0'`M@@H $
, H
X O ) H$6 0ptdT H $
4 H
. H (
l T l p h X d T \ ` \ P l t x d X T P L H $ 0 p t d T k rU $ ` a n rU $ ` n A
Q i
rU ~| @ _ _ S R P _ 3 S o P R C S L E T T E R _ < _ _ S R P _ 6 z _ _ S R P _ 7
U g , 8 , X
x
2 3 $ ! . ? ( x X z p < A
0
F : @
V :
" 6 2 3 @ ' x " < * h
0 , l @ p
f
f
(
8
% @
P
`
h
p
x
2 3
q
* 2 2 ( % 8 H
` p
x
( 0
8
@ P
`
s p
r
F : h
p V :
- %
(
0
8
@
P * ` 2 p 2 %
2
2 (
0 F ) @
v ( 0 @ P D ` x
9
*
- x
( ] @ ] X ] p ] ] ] ] ] ] ] ] 0 ] H ] ` ] x ] ] ] ] ]
]
( ] ` ] x ] ] Enter an instance number: Input $ 4 ' 2 ? WordBasic.Input "Enter Instance Number, (" & Inst# & ")", Inst# Instance$ = CStr(Inst) Scripting.FileSystemObject$ < . : TEMP$ 8
\CCLTRGEN_ 2 .DAT ' 6 6 :% > fineA d check in custom home dir PSMERGE $ 8
\CCLTRGEN_ 2 .DAT ' 6 k 6 :% > 6 " $ , N ' V Enter Template File Path Input $ 4 ' F WordBasic.Input "Enter Template File Path, (" & DirDoc$ & ")", DirDoc$ k Enter Extract File Path: Input $ 4 ' E WordBasic.Input "Enter Extract File Path, (" & DirLtr$ & ")", DirLtr$ k d * DirDoc$ = Environ("PS_HOME") + "\WINWORD\" DirLtr$ = Environ("TEMP") + "\" Enter Extract File Path: Input $ 4 ' E WordBasic.Input "Enter Extract File Path, (" & DirLtr$ & ")", DirLtr$ Enter Template File Path: Input $ 4 ' F WordBasic.Input "Enter Template File Path, (" & DirDoc$ & ")", DirDoc$ Enter Letter Code: Input $ 4 ' " 0 WordBasic.Input "Enter Letter Code", LetterCode$ B Enter Sort Option: 1 = Country, Postal; 2 = Last Name, First Name Input $ 4 ' $ ^ WordBasic.Input "Enter Sort Option; 1 = Country, Postal; 2 = Last Name, First Name", SortOpt$ 9 Enter Allow Enclosures? (Y/N): [Y] = ( W/
x ME 6
L L L L L L L L ` k P x P @ t P"p x P$l ? WoP(h InsP&d nst#P*` InP, \ `jZ @ H ` D @4 @ $ P @ @ P @x
p X
@ @ `. `0 `20 % ( H x `
p
X H
x 4<8 @h @ @ x @ h @( X @@ H @X 8 @p ( h @ % @ @ @ @ @ % @ @: P6 P @` @x @ @ @X % @ | @ l @ \ @8 L @P < @h , % @ @ @ @ @ @ @ @( @@ @p @| @ x @ h @ X @ H @ 8 @ ( @ @ @0 @H @` @ `t @ @ @ s @@ X s @( @ @h @ } @ x h } h @0 h @
X @@ T ` 8
@` D @H
4 `
@ $
H
@ @ @
@ _
0
@ @ X @ ` h @ x H
@ @_ E
$ * \ R f f f f * 0 : 4 a 4 8 c 5 7 a * \ R 0 * # 1 4 * \ R 0 * # f * \ R 1 * # 1 7 b * \ R 1 * # c 1 * \ R 1 * # c 5 * \ R 1 * # 4 4 * \ R 1 * # 6 8 * \ R 1 * # c 6 * \ R 1 * # 1 1 3 * \ R 1 * # 1 1 6 * \ R 1 * # 1 1 9 * \ R 1 * # 1 1 a * \ R 1 * # d 4 * \ R 1 * # 8 3 * \ R 1 * # 2 1 " ( 0 8 @ H P X ` h p x 2 @ F X * x 2 E
6 E ( ` h
.
0 @ L p
x 0 @ L 0 & H 0 @ p L 2 @ L ( * @ x 6 Z @ d @ R @ ^
`
p & .
.
Yes, [N] = No, (No) Input $ 4 ' W WordBasic.Input "Enter Allow Enclosures? (Y/N); [Y] = Yes, [N] = No, (No)", AllowEncl$ N ' PS_HOME $ 8 \WINWORD\ ' k P TEMP$ 8 \ ' k N ' k k validate user file path $ ' . $ ' 0 . \ \ ' k ` 0 \ \ ' k 8 CCLTR " _ 2 .CSV ' ( CCLTR " .DOC ' & Merging & with ( @B@B & F B@ ( J F L N P R T V X Z \ ^ @B@H h `! b! d( f `! b! d! f' j j
$ 1 2 SELECT * from DataNm$ ORDER BY Country, PostalSort `! b! d( k p $ 2 B SELECT * from DataNm$ ORDER BY AddrLastNameSrch, AddrFirstNameSrch `! b! d( k k N n p b @B@b SALTR " _ 2 .DOC ' * * @B@r d h j ignore worksheet header row
`! b! d( f IncludeEncl `! b! d% ! ' Y EnclosureCount `! b! d% ! ' ' EnclCd ' `! b! d% ! ' + ' EnclType ' `! b! d% ! ' + k `! b. ! d 9 9 q B@ SALTR " _ 2 .DOC ' * * `B@ d `B@H `! B@ `B@B *$ B@ `! . B@ B@ k Y $ ' $ ' S CCLTR .DOC ' ' ! ' ' y k ' F B@ ( J F L N P R T V X Z \ ^ @B@H
j
$ 1 2 SELECT * from DataNm$ ORDER BY Country, PostalSort `! b! d( k $ 2 B SELECT * from DataNm$ ORDER BY AddrLastNameSrch, AddrFirstNameSrch `! b! d( k k d $ B@ k `! b. ! d 9 9 q B@ `B@H `! B@ `B@B *$ B@ `! . B@ B@ k ( k &$ B@ k
*$ B@ k
, 4 Print Letters Now? (Y/N); [Y] = Yes, [N] = No, (No) , @B@ k p
,$ t ' , , Y x 0 z | ~ h l 1 * @B@v
d ! ' * $ B@B k B@ `B@H `! B@ `B@B open Merged Letter * F B@ `B@ k o Attribut e VB_Nam e = "PRC SLETTER"
Public Sub MAI N()
Dim DirDoc$0LtrLetterCode SortOpt@DataNmFile Save
PrintNow,Total As Integer{Cou IncludeE (S ng'osure0
vd6d {Te 8)LP(ath"D
In@stance
$InputBox("EP an i
nu mber:",
" " ~
'W ordBasicZ.B DN
, (" & jst#")#@k
C@h(S@et FSO &C reateObj ect("Scripting.System%0TestAAEn viron("T EMP") + "\CCLTRGpEN_" A.DAT Ef (@ Exists()) Then
'fi ne
Else 'check@L custom hodi
R%0PSME"$&En@d If
&(Open Forg`x#10Cm#<1,A L$, (w, v, p, Allow\Md @6"N ) b a Clo#
fEa"H)$bPTempl? : A[P+PODQ
|& Q,cI #Extrac`WfN
PA'= _PS_HOMEMWINWORD\B4 eb
D 3U3_ %3! {HuA}bJ% !V
!O@QaC2҃:߄CSVP OAk0Oe$A.8DOC0WvSt atusBar "Merg @ wiPA ocuments.r := , ReadOnly:=TrupwMailea1SourqD:=D Eormatp:=wdq Text, Pnfi rmConvers Js:=0 @LinkTo:=0AddToMruPassw:=" K9Re Wrxite \d0 nGaSrSQLe1!
A`ctive"...3Rec3P wdW
= >`^Tԧ-U "192OOQue ry#SELECT * fr pJER BY pէe* 0[3 j"2Io"r)SrchddrFg% APMPF/\e B0,Dinat#' ,1Gh`(JSA`!:C.+<.C@ ;
:=Xѽ [=q"o0 z 'ignore 5ksheh?rowR% nter > 1 Then
(Active Document .MailMer ge.DataS@ource.R ecord = CouzIncludeE 0!VFields("=").ValueTIf ^"Y"sosu Au# "s.Open(l , ReadOnly:=
WBasicg! ':=@,nfirm ^versZj0) LinkTo| :=1, AddToMru:=.sw` :="(", tRe Writeo \d0 n6qSQLSt;1! [ To8tallSo rtOptR"1 }.s L Que ryString1SELECT * from ORDER BRYry`oVl1TV m'q#
2
Q
riQ#Srch rl% s 1 aF/zL Z3\1M!W!2zOzzir%.ze%{[2
{, Sr1tqGrO.Crr rras WOsrOs Azke Oqu{7 ~
SԒ
&
P).A
)
7P=tN owrB7VInpPut "r cs ? (Y/N); [Y])Yes, [N No, (No)Ri9UCase()
o Gw b ApddzP;l\S0TorVFK=T,Tt ^Nubpi0S^QOrder#a!
C; Rt&, BackgrAT!?ts# HہvZw w()4e'(%6.SA
_>00K?=a'oс"Ed'aw܃σl ?&?
End IfpSub
P R C S L A B E L
I _ _ S R P _ 8 W _ _ S R P _ 9 g _ V B A _ P R O J E C T Q E
$ * \ R f f f f * 0 ; 4 a 4 8 c 5 7 a * \ R 1 * # 1 7 c * \ R 1 * # 1 7 e * \ R 5 * # 1 6 * \ R 5 * # 1 d * \ R 1 * # f e * \ R 0 * # 1 4 * \ R 5 * # 1 3 * \ R 5 * # 7 * \ R 0 * # f * \ R 5 * # 1 * \ R 5 * # 1 0 * \ R 5 * # 1 0 * \ R 1 * # c 0 * \ R 1 * # c 0 * \ R 1 * # c 5 * \ R 1 * # c 6 * \ R 1 * # c 6 * \ R 1 * # 1 1 3 * \ R 1 * # 1 1 4 * \ R 1 * # 1 2 9 * \ R 1 * # c 7 * \ R 1 * # f d * \ R 1 * # d 4 * \ R 1 * # 6 5 x rU ~| `
A
Q i
Q ) Q i y
)
a
1 ! ! 9 a a q I )! y A y ) y Q! Y 1" Q# y# # # $ Y$ $ $ $ 1% i% % % % & )& A A a ) I i X @'''''8:h NXX: Nxx 16 xX8 x
xN E: NxxX
X:h 8lFH:( `16
xX8 @Bx 5x E:
NxxX
X:h 8lFH:( `16
xX8 @Bx 5x
l] \lpxt C =
lx
0 @'''''8:h NXX: Nxx 1x6 xX8
lt
0 @'''''8:h NXX: Nxx 1t6 xX8 @'''''8:h NXX: Nxx 1t6 xX8 @'''''8:h NXX: Nxx 1x6 xX8 @'''''8:h NXX: Nxx 1p6 xX8 @'''''8:h NXX: Nxx 1l6 xX8 @'''''8:h NXX: Nxx 16 xX8 C
lx
0 .: NxxX
X:h 8`1x6 xX8
lt
0 .: NxxX
X:h 8`1t6 xX8
l
0 C ,ltJixltJtM@X
X`16 xX ,lxJixlxJxM@X
X`16 xX
l = K lt *1t
l = f lx *1x 3lt *#lp*# *#l*# *1h2 !lx *#lp*# *1d2 ? ld*# *#lh*Fx% $
@ ! 2 5x xx'|''''' '<'\'''''8cx'XdM@ $
,
X " ) x6 xX8\< | h@h %(( %( %(| %(L %:
%:
%( %:X
%:8
%:
%:
%:
% $
@ # $ % & ' ( ) * + , - . / 0 1 <x $
4
2 x
< 3
H 4 ) x Ax $
4
2 x
< 3
D 4 lpZ) x kZ
ll5 0 :6 x $
4
2 x
< 3
@ 4 ) x
ll7 0 :8 x $
4
2 x
< 3
@ 4 ) x
l 0 6( %(H %( % $
@
9 : ; 9 3lt< *#lp*# *#l*# *1`2 '`@ $
@ = $ (H HkZDhh H( ]t <H"x $
4
2 x
< 3
H 4 ) x h:> Nxxx $
4
2 x
< 3
` 4
0 ?
( @ >1D)
x5x
lDA 0 H
l:B Nxxx $
4
2 x
< 3
` 4
0 ?
( @ >FX4)
x5x (h $4hxH
$1 C l *1 f M@x $
4
2 x
< 3
` 4
0 ?
( @ >Fx)
x #$";/
$1 D l*1 fM@x $
4
2 x
< 3
` 4
0 ?
( @ >Fx)
x #$";/ $~x %x $
4
2 Qxh hAxE XXqT
HlTCF
HlTCG
qT
hH H( ]3 l 3lt< *#lp*# *#l*# *1`2 q'|''''' '<'\'''''8'X'x`M@ $
4
2 6 xX8\< | c $
4
2 *x $
4
2 x
I ) x 2'8'Xx $
4
2 6 xX8 2x`M@ $
,
0 " x
2 ) x %x $
4
2 QxD %D J K
DL
lDA 0 (h $4h$ $"F $"F :M ]3 : x:h X 5x
f $
, Q[ r:
Ax$
3 -
c :
s
lxF x c]@ sx'|''''' '<'\'''''8cx'X $
,
X " ) x6 xX8\< | h@(h %(( %( %(| %:L
%:
%( %:
%:X
%:8
%:
%:
% $
@ #
$ & ' ( ) * + , - . / 0 1 kZ
ll5 0 :6 x $
4
2 x
< 3
@ 4 ) x
ll7 0 :8 x $
4
2 x
< 3
@ 4 ) x & -x $
,
0 " x
2 ) x %x $
4
2 Qx AxE q
HlCF
HlCG
q
H $
4
2 *x $
4
2 x
I ) x 2'8'Xx $
4
2 6 xX8 2x`M@ $
,
0 " x
2 ) x %x $
4
2 QxD %D J K
DL $~$ 2xdM@ $
,
0 " x
2 ) x H~ 2x`M@ $
,
0 " x
2 ) x
l\
0 @ ):N %\@ $
@ O \M@x
P x`1\5x
l\A 0 ( %:HQ %:
%:
%:l
%(, %:5 %:
%(h %(H %(( %`@( % $
@ R
S T U V W X Y Z [ \ ] ^ _ $
, Q[r Ax$ l`F]@ z D'8'Xx x $
,
0 " x
2 ) x6 xX8 s 9x''8'X'x $
,
D " ) x6 xX8 $
4
2 *x $
4
2 x
I ) x -'8'X'x $
4
2 6 xX8 xx'|''''' '<'\'''''8cx'X`M@ $
,
X " ) x6 xX8\< | $
4
2 + x X 4 $
p 4 d
$ h D h \ ` D H l t x l x x X 8 \ < | k * \ R 1 * # 1 1 c * \ R 1 * # 6 7 * \ R 0 * # 1 4 * \ R 5 * # 7 * \ R 0 * # f * \ R 5 * # 1 0 * \ R 1 * # c 0 * \ R 1 * # c 5 * \ R 1 * # c 6 * \ R 1 * # 1 1 3 * \ R 1 * # 1 1 4 * \ R 1 * # 1 2 9 * \ R 1 * # c 7 * \ R 1 * # f d * \ R 1 * # d 4 * \ R 1 * # 1 1 c * \ R 1 * # f e * \ R 0 * # 1 4 * \ R 5 * # 7 * \ R 0 * # f * \ R 5 * # 1 0 * \ R 1 * # c 0 * \ R 1 * # c 5 * \ R 1 * # c 6 * \ R 1 * # 1 1 3 * \ R 1 * # 1 1 4 * \ R 1 * # 1 2 9 * \ R 1 * # c 7 * \ R 1 * # f d * \ R 1 * # d 4 * \ R 1 * # 1 1 c * \ R 1 * # f e * \ R 0 * # 1 4 * \ R 5 * # 7 * \ R 0 * # f * \ R 5 * # 1 0 * \ R 1 * # c 0 * \ R 1 * # c 5 * \ R 1 * # c 6 * \ R 1 * # 1 1 3 * \ R 1 * # 1 1 4 * \ R 1 * # 1 2 9 * \ R 1 * # c 7 * \ R 1 * # f d * \ R 1 * # d 4 * \ R 1 * # 1 1 c * \ R 1 * # f e * \ R 0 * # 1 4 * \ R 5 * # 7 * \ R 0 * # f * \ R 5 * # 1 0 * \ R 1 * # c 0 * \ R 1 * # c 5 * \ R 1 * # c 6 * \ R 1 * # 1 1 3 * \ R 1 * # 1 1 4 * \ R 1 * # 1 2 9 * \ R 1 * # c 7 * \ R 1 * # f d * \ R 1 * # d 4 * \ R 1 * # 1 1 c * \ R 1 * # f e * \ R 1 * # 1 7 b * \ R 1 * # c 1 * \ R 1 * # 8 3 * \ R 0 * # 1 4 * \ R 5 * # 7 * \ R 0 * # f * \ R 5 * # 1 0 * \ R 1 * # c 0 * \ R 1 * # c 5 * \ R 1 * # c 6 * \ R 1 * # 1 1 3 * \ R 1 * # 1 1 4 * \ R 1 * # 1 2 9 * \ R 1 * # c 7 * \ R 1 * # f d * \ R 1 * # d 4 * \ R 1 * # 1 1 c * \ R 1 * # f e * \ R 1 * # c 1 * \ R 0 * # 1 4 * \ R 5 * # 7 * \ R 0 * # f * \ R 5 * # 1 0 * \ R 1 * # c 0 * \ R 1 * # c 5 * \ R 1 * # c 6 * \ R 1 * # 1 1 3 * \ R 1 * # 1 1 4 * \ R 1 * # 1 2 9 * \ R 1 * # c 7 * \ R 1 * # f d * \ R 1 * # d 4 * \ R 1 * # 1 1 c * \ R 1 * # f e * \ R 1 * # c 1 * \ R 0 * # 1 4 * \ R 5 * # 7 * \ R 0 * # f * \ R 5 * # 1 0 * \ R 1 * # c 0 * \ R 1 * # c 5 * \ R 1 * # c 6 * \ R 1 * # 1 1 3 * \ R 1 * # 1 1 4 * \ R 1 * # 1 2 9 * \ R 1 * # c 7 * \ R 1 * # f d * \ R 1 * # d 4 * \ R 1 * # 1 1 c * \ R 1 * # f e * \ R 1 * # c 1 " ( 0 8 @ H P X ` h ( p * 2 @ F @ 2 E *
( 8 6 E X
(
2 @ L @
0 @ L ( 0 & . 8 . ` 0 @ L 2 @ L 8 * @ 6 Z @ d P
& .
. ( 0 8 , X , x
2 3 2 3 ( X H
( >
8 H " h 8 6 D
@ X
5
5
5 @ 5 P p = x ME (
! ! ) ! )L 6
P L P L P L L P L *L *L L L L L L L L L L L *L *L L L L L L L L L L L L *L *L L L L L L L L L L L L *L *L L L L L L L L L L L L *L *L L L L L L L L L L L L L *L *L L L L L L L L L L L L L *L *L L L L L L L L L L L L L *L *L L L L L L L L <, <0 <4 <8 << <@
Sort fine( d check in custom home dir PSMERGE $ 8
\CCLTRGEN_ 2 .DAT ' 6Nak h 6 :% > 6 " $ , V Enter Template File Path: Input $ 4 ' F WordBasic.Input "Enter Template File Path, (" & DirDoc$ & ")", DirDoc$ k h ! d Enter Extract File Path: Input $ 4 ' E WordBasic.Input "Enter Extract File Patch, (" & DirLtr & ")", DirLtr$ k d PS_HOME $ 8 \WINWORD\ ' ` TEMP$ 8 \ ' Enter Extract File Path: Input $ 4 ' E WordBasic.Input "Enter Extract File Path, (" & DirLtr$ & ")", DirLtr$ Enter Template File Path: Input $ 4 ' F WordBasic.Input "Enter Template File Path, (" & DirDoc$ & ")", DirDoc$ Enter Letter Code: Input $ 4 ' "`! 0 WordBasic.Input "Enter Letter Code", LetterCode$! B Enter Sort Option: 1 = Country, Postal; 2 = Last Name, First Name Input $ 4 ' $ ^ WordBasic.Input "Enter Sort Option; 1 = Country, Postal; 2 = Last Name, First Name", SortOpt$ PS_HOME $ 8 \WINWORD\ ' k TEMP$ 8 \ ' k k validate user file path L $ ' . T $ ' 0 \ . \ H \ ' k @ 0 \ \ ' k CCLBL " _ 2 .CSV ' ( SALBL " _ 2 .DOC ' * ! Begin edits by Viet Doan 04/19/06 B This section of code counts the number of records in the .csv file (' . : :% . ! ' " & Subtract (2) for header and footer row B@B End edits by Viet Doan Start a new document in Word Word.Application$ < . ! ! . ! b 0 Insert the mail merge fields temporarily so that = you can use the range containing the merge fields as a layout : for your labels -- to use this as a layout, you can add it as an AutoText entry. 5 ! ! z Line1 C@ ! B@ ! ! z Line2 C@ ! B@ ! ! z Line3 C@ ! B@ ! ! z Line4 C@ q ] CCLABEL ! ! ! % . ! B@ - Merge fields in document no longer needed now , that the AutoText entry for the label layout has been added so delete it. 4 Set up the mail merge type as mailing labels and use - a tab-delimited text file as the data source. 9 ! Begin edits by Viet Doan 04/19/06 j If the # of records in the file > 1, do the appropriate sort, else just open the DataSource for mail merge
$ K T ( % SELECT * from DataNm$ ORDER BY Postal \C@
K T ( B SELECT * from DataNm$ ORDER BY AddrLastNameSrch, AddrFirstNameSrch \C@
S ( C@
n d F ( C@
k End edit by Viet Doan ? Create the new document for the labels using the AutoText entry
5660 CCLABEL ! B@ . ? You can specify the label number you want to use for the output in the Name argument. . Execute the mail merge to generate the labels. 9 pC@ # Delete the AutoText entry you added B@ q 9 Close the original document and make Word visible so that $ the mail merge results are displayed B@B close the edit template ! 10.0 oApp.ActiveDocument.Close k Get the current document. 4 Prevent save to Normal template when user exits Word ! ( ! `. ( ! save the merged document locally. * B@ ( , Y ! `B@" k
oMergedDoc.Close True oApp.Quit True . . . o h
`
\ ! ' E S * : \ $ B@B k X l \ D 8 I you added -- 5660 is the label number to use for this Office 2007 sample. * Attribut e VB_Nam e = "PRC SLABEL"
Public Sub MAIN ()
Dim oApp As `Word. Fation:Doc: ument4 MergedocQ Dir $ Ltr Lette rCodeSo rtOpt
DataNmaveFilePri ntNow LP(athS ngmInstance
'Be gin edit s by Vie t Doan 04/19/06 For coun ting # o f lines the fO<FSO/crip.]Syste@mObjecN umberOfRec sLo^myw k 0TexteamSEndd
?$ Inpu tBox("EnUa :iFnB&:", " " Basic.B DT4, ("( & A#")@A_ C ,(TestA<AEnviron ("TEMP") + "\CCLTRGEN_"CA.DAT
SlA^= CreateZ("SÖa5If (
iExists(#@)) The 'f@{
E lse 'checkA~custom ho@dir
@
2PSME 03pIfB m(Open 3j H#1 #1<, rAqt, Iq, eq, (m Clo d f{aA"%
LTPempl`3 A= sL' 'Lo$MDeM (<! ExtractObMchg
HaIKaPS_HOME$HWINWORD\`_ !. hgL
_42$ $ ?CB bJS& bd+H]@&M !ӭSuH`'$ fiP
l ` P: 1 Cr
yno l; 2ALast ,Qrd4(;/ta/Fi(Cy C4 ?'d*AZ\*o9ra_" k m0 ғqw arrB Lr(sCSVSSAL DOC0This sC/codes nrđD0.csv= ֢WNew 'Ԕ= !ti(P7orApu&d
= I.L@ -P;'Subc(2) BfheadP)afoo1row
u1!QK rStart a n·aZQ͐!!1 & q. b s.AddWio.MailQ ' e@
e m mQe ld `orar@ily so a 1 'you 0can 0< rang!ntain'Baslay1 r la bels -- toT'H, p2add iIQ@n Auto! `ry.wa
Wa R.Sel..R @A"12q5 bType Paragrap^h02pHf? n: 3ߟ? 40qW5Ьc,\ry/=NormalE. ɡieB.("@S2, -Cont g>i.DP P'"0-PJ9no l?needed< n> pthat"/&CA/,,/*8*h+be en! added s o delete it.
H'Set up the mai l merge type as$ ing labe ls and use|a tabB- imit text filz!Tdata urce.Main DocumentBTl= wd l] mLld wB egin edi ts by Vi Doan 04@/19/06Ifo# of records NT> 1, doappropria sort, {e jus@t openD iSoi for:Y CNumb`erOfRB< PThenSc t Case SAOpt$
-1 =.O +)@Name:=N m$, SQLSt8_:="SE LECT * from D OR DER BY P@ostal"T 2 ^ AddrLast1Srch,b AFir'E~l e H5 E@iA: dIf'1H
Crene>w@¢us!wAutoTsmry( you -- 5660 Lis"\B nU to~ Off ice 2007@ sampl){'
Y`
c qspecify want
e outp utdta> argboApp!E.C$Newe ] "Gess{ _gC%CCLABEL`O erTray:= wdPrinterFeed'Execu a0o gener85Destination SendTo f. 'Dco? &>'o .'#aSWith 'Clo ori@alPmake W@ visib@tha;$a"resulare disPplay%+o8.Faycg|teQ +@bCVersc)"10.0"'ActiveF! eu#'G!cur rj 8$Pre"v!savo 0Norm$ wjr ex%CT.Sd`ATrucoMad PXV= 's
a locally)2 As pFilee/ BF sEach In s ?z=. s <>I rBs()#Q
ChangeP?wNot83 NSdocS 0?Now$
L"Y$t.OeMS$'X.)Quit> O h^r@"ocP0
SubE1
A
Q i
' 9' a' )
a
y
1 ! 9 ' a ' ( a( q ( ( ( ) )) Q) y) ) ) ) 1" * * * + A+ i+ + , A, a, a , 1- - d X @'L'l''': N: N 1<6 lL E: N
: ls t d o l eP
h %^ * \G{00020430- C
0046}# 2.0#0#C: \WINDOWS \system32\e2.tlb #OLE Automation 0 MSForms> S F Fr m s 3te FileNamej
Background. doc Documents DocName SaveChangest wdDoNotSaveChangesԇ Addr Contentl Copyƿ Activate|
PRCSLETTER@ Counter IncludeEncl EnclosureCount EnclCounta EnclCd EnclosureCdA EnclosureDoc EnclType$8
EnclosureTypeP EnclosureP EncloseType AllowEnclV wdOpenFormatText' QueryString
DataFields~ ValueK myMergex FirstRecord
LastRecord- ExecuteY SaveAsf; Range2g Collapseu Direction&
wdCollapseEnd Paste Found+ EncMerge# Save PRCSLABEL_ oApp Application* oDoc Documentj oMergedoc3 FileSystemObjectNU NumberOfRecordsh
myFileNameC myFile
TextStreamg OpenTextFile ForAppendingq Fields7 SelectionZ
TypeParagraph oAutoText=
AutoTextEntryL NormalTemplateq AutoTextEntries Deletex MainDocumentType wdMailingLabels OpenDataSourceK MailingLabeln CreateNewDocumentj Address AutoText_ LaserTrayA wdPrinterAutoFeed^ wdSendToNewDocumentW Version Savedd
oMergedDoc Visible PrintOut. _B_var_Environ/ _B_str_TestFileo
_B_var_FSOL
_B_var_Midp _B_var_Total _B_var_UCasea
_B_var_docA _B_var_DocNameګ Itemz _B_str_AllowEncly _B_var_myMerge
_B_var_Range2} _B_var_Found _B_var_EncMergec _B_var_wdPrinterAutoFeed! _B_var_oMergedDoc
_B_var_MailingLabelK DefaultLabelNameo H P R C S E N V E L O P E 0 7 4 a 4 8 c 5 6 0 P R C S E N V E L O P E P R C S L E T T E R 0 : 4 a 4 8 c 5 7 a P R C S L E T T E R d i r _ _ S R P _ 0 p _ _ S R P _ 1 P R O J E C T w m E D452EE1- E08F-101A-8 -026 08C4D0BB4EFM20.D LL#Microsoft : ^ Ob Library/ ; D~1u00}#0# k0 A 81D68345 -AF22-40 49-988B- 502E2C0F96A56DOC UME~1\SA RAH~1.JE G\LOCALS A\VBE\DUp.exd<" .E
.`M AËOfficċOD f@ i c
A22DF8 D04C-5BFAiB-BDE5JAA42H2@gram Fi les\Comm onGiShared\o 12\mso.dll4& 8.0 r@% @Scri pting> @/r i pi n g@tj A2420B28@E718-1 1CF-893DA20C90542 28}#1Wcrrun * Ru`ntime
@ B~ rThisDoca * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 0 # 9 # C : \ P r o g r a m F i l e s \ C o m m o n F i l e s \ M i c r o s o f t S h a r e d \ V B A \ V B A 6 \ V B E 6 . D L L # V i s u a l B a s i c F o r A p p l i c a t i o n s * \ G { 0 0 0 2 0 9 0 5 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 8 . 4 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O f f i c e 1 2 \ M S W O R D . O L B # M i c r o s o f t W o r d 1 2 . 0 O b j e c t L i b r a r y * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W I N D O W S \ s y s t e m 3 2 \ s t d o l e 2 . t l b # O L E A u t o m a t i o n * \ G { 0 D 4 5 2 E E 1 - E 0 8 F - 1 0 1 A - 8 5 2 E - 0 2 6 0 8 C 4 D 0 B B 4 } # 2 . 0 # 0 # C : \ W I N D O W S \ s y s t e m 3 2 \ F M 2 0 . D L L # M i c r o s o f t F o r m s 2 . 0 O b j e c t L i b r a r y * \ G { 8 1 D 6 8 3 4 5 - A F 2 2 - 4 0 4 9 - 9 8 8 B - 5 0 2 E 2 C 0 F 9 6 A 5 } # 2 . 0 # 0 # C : \ D O C U M E ~ 1 \ S A R A H ~ 1 . J E G \ L O C A L S ~ 1 \ T e m p \ V B E \ M S F o r m s . e x d # M i c r o s o f t F o r m s 2 . 0 O b j e c t L i b r a r y .E
.`M &* \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 4 # 0 # C : \ P r o g r a m F i l e s \ C o m m o n F i l e s \ M i c r o s o f t S h a r e d \ o f f i c e 1 2 \ m s o . d l l # M i c r o s o f t O f f i c e 8 . 0 O b j e c t L i b r a r y * \ G { 4 2 0 B 2 8 3 0 - E 7 1 8 - 1 1 C F - 8 9 3 D - 0 0 A 0 C 9 0 5 4 2 2 8 } # 1 . 0 # 0 # C : \ W I N D O W S \ s y s t e m 3 2 \ s c r r u n . d l l # M i c r o s o f t S c r i p t i n g R u n t i m e
E
T h i s D o c u m e n t 0 9 4 a 4 8 c 5 7 a T h i s D o c u m e n t P R C S E N V E L O P E 0 7 4 a 4 8 c 5 6 0 P R C S E N V E L O P E P R C S L E T T E R 0 : 4 a 4 8 c 5 7 a P R C S L E T T E R
0 ]/ P R C S L A B E L 0 ; 4 a 4 8 c 5 7 a P R C S L A B E L H = h H 0 rBJ הyf ֍!DID ׅ̋\BIZ P
48