ࡱ > ^ ; q` R bjbjqPqP 2( : : 5 3 ^ ^ ^ ^ ^ ^ ^ r
8 . < j r +! . \
" ~
~
l $ Y" h $ N - ^ ^ ^ ~
^ ~
^
^ ^ ~
~ IHT
| 0 +! % d % % ^ D i X +! r r r
r r r
r r r ^ ^ ^ ^ ^ ^ C O N T R O L F o r m s . T e x t B o x . 1 \ s N)RNtYXbfN-Ne
P O W E R O F A T T O R N E Y
b/ bN/f F O R M T E X T vlQl/ lN 9hnc-NNSNlqQTVN)Rl yQYXb F O R M T E X T Nx F O R M T E X T v^1u:ggc[vQNt^ F O R M T E X T 0 F O R M T E X T N:NRtSfR
Ty:N F O R M T E X T
F O R M C H E C K B O X V[3uS:N F O R M T E X T vSfR (W-NNSNlqQTV3uN)RNS(WN)RCg gHe gQvhQN)RN[0
F O R M C H E C K B O X VE3uS:N F O R M T E X T vN)R3u (Wc[@\b [@\ z^-NvhQN)RN[0
P u r s u a n t t o t h e r e l e v a n t p r o v i s i o n s o f t h e P a t e n t L a w o f t h e P e o p l e s R e p u b l i c o f C h i n a , I / w e , c i t i z e n / l e g a l e n t i t y o f F O R M T E X T h e r e b y a u t h o r i z e F O R M T E X T ( C o d e : F O R M T E X T ) t o a p p o i n t i t s p a t e n t a t t o r n e y ( s ) F O R M T E X T 0 F O R M T E X T t o a c t f o r m e / u s w i t h t h e i n v e n t i o n e n t i t l e d F O R M T E X T a n d
F O R M C H E C K B O X w h o s e n a t i o n a l a p p l i c a : < > @ X Z | ~ ҿﴨpbMp7ppb *hdEW >*B*CJ aJ mH nH ph sH tH )j hdEW >*B*CJ UaJ ph hdEW >*B*CJ aJ ph #j hdEW >*B*CJ UaJ ph hdEW B*CJ o(ph hdEW B*CJ aJ o(ph
hdEW CJ o( hdEW o(hdEW 5@Z CJ \o(hdEW 5CJ aJ o( %j h h CJ OJ PJ QJ U jk/g
h CJ KH UVo( hdEW CJ OJ PJ QJ j hdEW CJ OJ PJ QJ U Z ~ t
\ n $ H R h j n p t v z | dh ` dh $dh a$ j
" $ . 0 J L ` b d n p r t ضببضب~بضبiبضبTب )j| hdEW >*B*CJ UaJ ph )j hdEW >*B*CJ UaJ ph )jX hdEW >*B*CJ UaJ ph )j hdEW >*B*CJ UaJ ph hdEW >*B*CJ aJ ph hdEW B*CJ o(ph *hdEW >*B*CJ aJ mH nH ph sH tH #j hdEW >*B*CJ UaJ ph )j4 hdEW >*B*CJ UaJ ph
(
*
t
v
ۂmW *hdEW >*B*CJ aJ mH nH ph sH tH )j( hdEW >*B*CJ UaJ ph "j hdEW B*CJ Uph )j hdEW >*B*CJ UaJ ph hdEW >*B*CJ aJ ph #j hdEW >*B*CJ UaJ ph "j hdEW B*CJ Uph hdEW B*CJ ph j hdEW B*CJ Uph hdEW B*CJ o(ph 4 6 J L N X Z j l
$
&
ؾʩؾʔؾuؾ`ؾ )j
hdEW >*B*CJ UaJ ph )j hdEW >*B*CJ UaJ ph hdEW B*CJ ph )jP hdEW >*B*CJ UaJ ph )j hdEW >*B*CJ UaJ ph hdEW B*CJ o(ph hdEW >*B*CJ aJ ph #j hdEW >*B*CJ UaJ ph )j hdEW >*B*CJ UaJ ph %
4 6 8 B D @ B V X Z ؾ|ؾjU )j
hdEW >*B*CJ UaJ ph "jb
hdEW B*CJ Uph )j| hdEW >*B*CJ UaJ ph U"j hdEW B*CJ Uph hdEW B*CJ ph j hdEW B*CJ Uph hdEW B*CJ o(ph hdEW >*B*CJ aJ ph #j hdEW >*B*CJ UaJ ph )j6 hdEW >*B*CJ UaJ ph t i o n n u m b e r i s F O R M T E X T a n d h a n d l e a l l r e l a t e d m a t t e r s c o n c e r n i n g a b o u t t h e p a t e n t r i g h t .
F O R M C H E C K B O X w h o s e i n t e r n a t i o n a l a p p l i c a t i o n n u m b e r i s F O R M T E X T a n d h a n d l e a l l r e l a t e d m a t t e r s c o n c e r n i n g a b o u t t h e p a t e n t r i g h t i n t h e p r o g r e s s o f d e s i g n a t e d o f f i c e o r s e l e c t e d o f f i c e .
YXbNY
Tb
Ty
A u t h o r i z e d b y ( N a m e ) F O R M T E X T
YXbNvzb~{W[
S e a l o r S i g n a t u r e F O R M T E X T
YXbUSMOepSzv1ulNNh~{W[
YXbe g
D a t e o f A u t h o r i z a t i o n F O R M T E X T t^ F O R M T E X T g F O R M T E X T e
YXbN)RNt:ggpSz
S e a l o f t h e A u t h o r i z e d A g e n t F O R M T E X T
P A G E
P A G E 1
1 0 0 0 2 1
2 0 2 2 . 1 0
Z d f " ̽̽̽}k̽Yk̽ "j hdEW B*CJ Uph #hdEW B*CJ mH nH ph sH tH "j hdEW B*CJ Uph "j hdEW B*CJ Uph "j hdEW B*CJ Uph hdEW B*CJ ph j hdEW B*CJ Uph hdEW B*CJ o(ph #j hdEW >*B*CJ UaJ ph *hdEW >*B*CJ aJ mH nH ph sH tH ! @ B V X Z d f j l p r v x | ~ ߷߷~y hdEW o(h 0J mH nH u
hdEW 0J j hdEW 0J UhdEW j hdEW U"j hdEW B*CJ Uph hdEW B*CJ ph hdEW B*CJ o(ph #hdEW B*CJ mH nH ph sH tH j hdEW B*CJ Uph "jD hdEW B*CJ Uph #| dh &`#$ 0 182P . A!"#n$n% S D d
b
c $ A ? ? 3 " ` ? 2 JNَ歬$ D `! JNَ歬$ $ $ xcdd``b```da ff``L Ȓ*b12 8p c21@l6jo/!@
v:qA4kI0(9.A.eg w D @ YXbNV[ YXbNV[ C u r s o r D Nt:gg
Ty Nt:gg
Ty C u r s o r D Nt:ggNx Nt:ggNx C u r s o r D NtN N NtN N NtN N C u r s o r D NtNN NtNN NtNN C u r s o r D Sf
Ty Sf
Ty Sf
Ty C u r s o r D VE3uS_ YXb3uS_ DR VE3uS_ YXb3uS_ DR D V[3uS_ YXb3uS_ 3uSx V[3uS_ YXb3uS_ 3uSx V[3uS_ YXb3uS_ 3uSx C u r s o r D VE3uS_ YXb3uS_ DR VE3uS_ YXb3uS_ DR D VE3uS_ YXb3uS_ 3uSx VE3uS_ YXb3uS_ 3uSx VE3uS_ YXb3uS_ 3uSx C u r s o r D YXbNV[e YXbNV[e YXbNV[e C u r s o r D Nt:gg
Tye Nt:gg
Tye Nt:gg
Tye C u r s o r D Nt:ggNxe Nt:ggNxe Nt:ggNxe C u r s o r D NtN Ne NtN Ne NtN Ne C u r s o r D NtNNe NtNNe NtNNe C u r s o r D Sf
Tye Sf
Tye Sf
Tye C u r s o r D V[3uSe_ YXb3uS_ DR V[3uSe_ YXb3uS_ DR D V[3uSe_ YXb3uS_ 3uSx V[3uSe_ YXb3uS_ 3uSx V[3uSe_ YXb3uS_ 3uSx C u r s o r D VE3uSe_ YXb3uS_ DR VE3uSe_ YXb3uS_ DR D VE3uSe_ YXb3uS_ 3uSx VE3uSe_ YXb3uS_ 3uSx VE3uSe_ YXb3uS_ 3uSx C u r s o r D YXbN
Ty YXbN
Ty YXbN
Ty C u r s o r D YXbN~{z YXbN~{z YXb
& " # ) $ % ( ' * . + , - / 0 1 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 S T U V W 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 { | } ~ R o o t E n t r y F `T
! @ D a t a
t W o r d D o c u m e n t
2( O b j e c t P o o l IHT
`T
_ 1 7 3 1 1 6 1 0 4 4 ҋB
` IHT
IHT
P R I N T C o m p O b j s O b j I n f o
! # $ % & ' ( ) * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ 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 [ \ ^ _ ` 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 . 2
@ " 3wf<@upR "@u@u - '
ҋB
` Microsoft Forms 2.0 ֿ Embedded Object Forms.TextBox.1 9q t x t X m l O C X N A M E c o n t e n t s 1 T a b l e 0 % S u m m a r y I n f o r m a t i o n ( @ H, \ s y s p a r a = < ? x m l v e r s i o n = " 1 . 0 " e n c o d i n g = " U T F - 8 " ? >
< mYYXbfN>
< YXbNV[/ >
< Nt:ggNx/ >
< Nt:gg
Ty/ >
< NtN N/ >
< NtNN/ >
< Sf
Ty/ >
< V[3uS>
< YXb3uS>
< DR/ >
< 3uSx/ >
< / YXb3uS>
< / V[3uS>
< VE3uS>
< YXb3uS>
< DR/ >
< 3uSx/ >
< / YXb3uS>
< / VE3uS>
< YXbNV[e/ >
< Nt:ggNxe/ >
< Nt:gg
Tye/ >
< NtN Ne/ >
< NtNNe/ >
< Sf
Tye/ >
< V[3uSe>
< YXb3uS>
< DR/ >
< 3uSx/ >
< / YXb3uS>
< / V[3uSe>
< VE3uSe>
< YXb3uS>
< DR/ >
< 3uSx/ >
< / YXb3uS>
< / VE3uSe>
< YXbN
Ty/ >
< YXbN~{z/ >
< YXbN~{z/ >
< YXbe g>
< t^/ >
< g/ >
< e/ >
< / YXbe g>
< / mYYXbfN>
5 " ўSO Oh +'0 t
$ 0 <
H T \ d l ί ttt Normal Windows û 2 MicrN~{z C u r s o r D YXbe g_ t^ YXbe g_ t^ YXbe g_ t^ D YXbe g_ g YXbe g_ g YXbe g_ g D YXbe g_ e YXbe g_ e YXbe g_ e D YXbN~{z YXbN~{z YXbN~{z C u r s o r osoft Office Word @ F# @ {u@ zT@ ZO
o ՜. +,D ՜. +,
X ` l t | 3 @
XmlLoaded DocGuid Edition IsTemplate 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 IHT
IHT
V B A IHT
IHT
d i r + l KSOProductBuildVer 1.0.207/2013-11-13 14:53 gwssiTemplate 2052-11.8.2.9958 h 0* pH d ProjectQ ( @=
l db J<
rstdole>s t d o l eP
h %^ * \G{00020430- C
0046}# 2.0#0#C: \Windows \system32\e2.tlb #OLE Automation ` ENormalENCr m aQF * \C
cb !OfficgO f i cg !G{2 DF8D04C- 5BFA-101@B-BDE5gAjAe42gg ram File s\CommonMicroso ft Share d\OFFICE 12\MSO.DLL#M 11 .0 Ob Library% "xMSFAs> M S FqBs 3@= dD 452EE1-E08F0A-8 -02608C4 D0BB4dFMl20L'B p&/ ; "1 D|~ C00}#0B# 50 A7DFE2 6A5-F13D -4FD1fBA -C9446750DD2C@ƚUs ers\LIUW EN~1\App Data\Loc al\Temp\Word8.0 d8.exde=@# .E
.`M MSXML2AiX M L 2 l
b 3 F5078F18 -C551-11D3-89B9NF81@:21}#4gmsxml40.dllH , Nv @ aS cripting(> S^r i p`zi n jg tj` 4 20B28 zE7a11CF -0 0A0C9054`228}# U5zc0rrun f Runtime
@ "B
$[ThisDo cumentG
T`i s D\c ue t 2 ` H 1.@ ","%"+ aģ1G!jWlW1@2/ ]c- R*!* m@odPubG"m d P b
2
tm
4E
ValidG "JVi` i2rook
frmAdd PictureG@ A@ At r TI&2\/M/ǥ<( =
ileDialopgG eaDK of +26b qm4w$ 0LoadTiVfss!LaT=fsf }Ն{'ic)!/P
')*0_Aq'ShowW)S?o wn)57)=*#)Supf A)S(pp= $ '`& W $[R* x ME <@ !jWW1 A f r m S u p 2 m o d P i c = ,@ m o d P u b _ J P 8 " 0 H P X ` h x " B > > ! @% B > % D B@H ' >| ( k k F! F( Ho @ ! L N ( 1 B@& %
k 8 o 0 ! L N 4 1 6 8 B@2 k i g Attribut e VB_Nam e = "ģ 1"
Pub lic Sub Cursor()
If P reFld<> "" Then:BThisDo cument.B ookmarks .Exists( ~) :>
;For@mField
5.Selectr7 yt́2End If-ion.St8art
UnlockyNotÀoProt[ .TypwdNoG
Unp "1"j'ⳀaAOFunct9 LPx' wd AllowOnlyGn, Pass@word:= /, noreset:=TrueO/+
$[* x p L w 7 $[$ x ME ( S< S< S< S< 0 { 2 C 3 9 5 8 8 2 - B 3 E 4 - 4 5 8 1 - 9 7 7 1 - 9 5 7 6 5 6 D 2 7 C B 1 } { 7 3 5 6 7 0 3 6 - 5 8 D D - 4 F 2 E - A 5 E 6 - 6 C D 7 5 4 3 B 8 6 D 3 } FX `H P L & iR iT ' i `V ` ''''` ''' `X ` ` ext ` X 0 % ` % h 0 ` E " ( 0 8 @
X h " p
x B \
0
@ P ` p , 0 4 ` , H h p , 4 , X 2
> ( h p " x " X ( 8 ] @ J! @ ' Hd P ' Hk @ ! N! d HA@L A@r o X A@r x o p @ ϱΪ0±Ϊ1 ] 8 ] P ] h ] F! ! H % D ! ! H F! ! % D ! ! ( R ' V F! . Z F! ! H' Z! H V ' R F( d A@J T y strTag = thisdocument.Range(thisdocument.FormFields("").Range.Start + 13, Selection.Range.Start).Text % strTag = strTag + "" . strTag = strTag + Me.TextBox1.Text & strTag = strTag + "" y strTag = strTag + thisdocument.Range(Selection.Range.End, thisdocument.FormFields("").Range.End).Text % ! ( d y strTag = thisdocument.Range(thisdocument.FormFields("").Range.Start + 13, Selection.Range.Start).Text % strTag = strTag + "" . strTag = strTag + Me.TextBox1.Text & strTag = strTag + ""R y strTag = strTag + thisdocument.Range(Selection.Range.End, thisdocument.FormFields("").Range.End).Text thisdocument.FormFields("").HelpText = PutFlagValue(thisdocument.FormFields("").HelpText, "Tag=", strTag) % ! ( Bk @ , thisdocument.FormFields ("") A@P ( $ B@\ $ d ˹Ŀǰдƣ ^ T ʾA@ k i o x ] ! $ T ' Ϊǰ Q SetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE o ִ Attribut e VB_Nam e = "frm@Sup"
Bast0{2C3 95882-B3 E4-4581-977 5765 6D27CB1} {7356703 6-58DD-4 F2E-A5E6 -6CD7543@B86D3}
G lobalSpacoFalse Creatabl Predec$la Id Tru
BExpose 0TemplateDeriv CustomiziD
P Sub cmdA dd_Click ()
Di m suFlag As Integer
If opt.Valuq_ Then = 0 E 1nd If E Jscri pt Me.Te@xtBox1,%
CUnload
E 80QuitK8
ubA Function I#(str(TxtDSng@, ModeH) 'ϱΪ08SptrLe@SR@ngStarLong6D5` "f"C fSele..Range.>=gisD ocument. FormFiel ds("@") AwR "< App XaW.ScreenUpd'e ! :hisd5(tI7@ + 13, )h
s+ "
t vbCri ticalʾ0Guq x}}UserP}(In alizeln gDeskToppHand`v=@ FindW0 o w(vbNullCxe.Capm ' ΪǰPl!Pos , HWND_TOPMOST, 0( SWP_NOMO@VE Or SxIZEsU `K
< H $0 $[A p $ $ GdiplusStartup p8 Q GdiplusShutdown p\ $ GdipGetImageHorizontalResolution p H GdipGetImageVerticalResolution p j GdipLoadImageFromFile p GdipDisposeImage x ME P ' marks01_ͼƬƬ' i ] $ . $ '
$ ' k k i 0 ] ] ] ( X j A@h $ A@ A@ A@ A@ jA@r ' z ` ' i H ] ] ] ] % $ ' $ ! R Q@ 0.00$ ! R Q@ 0.00$ ' R k p d h ' R k X k P . i @ 0 0 ] D D - D B H $ ' $ $ $ P $ N $ G $ B $ M debug.Print "\PNG OR BMP\" $ $ $ ( $ $ $ ( k JPG $ $ $ debug.Print "\JPEG\" ' _ P _ H ' $ $
$ $ x d $ $ $ ' k X $ $ $ ( $ $ $ ( k
GIF file $ G $ I $ F $ 8 debug.Print "\GIF\" $ $ $ ( $ $ $ ( k PSD $ 8 $ B $ P $ S debug.Print "\PSD\" $ $ $ ( $ $ $ ( k TIF $ M $ M $ $ * debug.Print "\TIF1\" $ $ $ ( + $ $ $ ( k 0 $ I $ I $ * $ $ $ $ $ TIF debug.Print "\TIF2-1\" $ $ $ ( + $ $ $ ( d TIF debug.Print "\TIF2-2\" $ $ $ $ $ $ ' $ $ $ ( $ $ $ ( k k V i ' i D A ҵͼߴ粻ܳ165mm x 245mmߴʵͼƬ T ʾA@ ,! V( > ,! X( > ,B@Z ,( 6 d ,! V( > ,! X( > k o J '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ] h ] ] ] ] ] ]
] (
$ | ' . $ ' & & $ ' marks01_ͼƬƬ' ' ! @% B b ' x pic_insert_mark % @ B@H d 8 % @ B@H k FB@ FB@ FB@ d FB@ FB@ k ͼƬ d FB@ F! l F! D% .
ͼƬƬ _˵ (
ͼƬƬ _˵ ( ( new file= $ | ; ( ( D FB@ F! % . FB@ ! @ F! C@ 9
9 q
FB@ Selection.TypeParagraph z
! T A@ i p
D ----------------------------ɾѡ---------------------------- @
]
]
]
marks01_ͼƬƬ' ' ! @% B b ' ' | p k h ʱãύʱҪע K strPath = "D:\workspace\Gwssi\0߿ͻ\cpees-dtd\schemaExample\" % @ B@H FB@ FB@ | ! T A@ o x Attribut e VB_Nam e = "mod Pic"
Priva lType Gdiplus StartupInput
0Version"As LongHDebugE ventCallbackHSup@pressB g roundThr0ead
J%Ex ternalCo decs $En$d
De clare Funct Lib "gq" ( Token(, ivbuf , Op*al ByVout g 0)'JSubhutdo\wnH,K) oG etImageH orizontalResolu x ), b @`SingleX1V tic LoadB2FromFileRA1D, h?e:DisposeU
'0 @}ublic¸ SizeWidth4HeightIȣ 7TreeIn`kFace(([Ref RetHurn`\ueDSngBC ' ַ ,Dim i
ger
jkjj l1kmFor = 1 T o ThisDohcum@. Delds.C IfU(i).nDͼƬ Ƭ" & j` "_˵"en&!
!pj + !k3IfNex
3 "ר ,Լ; #kC Not IsNull(/)H
# D,G`~ MarkBodyFF
+"m s01_, !'
a!vg'^ and(F %IN\CaWMidPosQAGrim* ) <> "B!= In Revj, "." a
> 0L `" H
#& q Z rSd(, gfHc , `deBoolead3GSI/w11*qXjP@On Err@Go@l . ?B*C@, f Ptrf), '`oyГ
a\uZjae et= TrBuTfExit
0
l: 'Fa|ls$,CkRj( $, `cmx$0TmFD.$ B:
#fso!New Sy stemObjec&,,gKp;p.sts):J0.00"N=8?\fmTht"
d#g't ER)D ,t+ Set )#= 0vhl
cyS Pq s @Cp K 'a
q,bTe`mp(3)b 1Byte, li"!)q0FlJp p Bin(ary# l= LOF(18e( #1, G&sP= &H89, A#311*&H508234E847 Or 42h4D/t( 'dq.nt@ "\PNG OR@ BMP\ & 9,#{
q #6 4= b 2l(
U|23ojD30h1)p End If$
<'JPG DIf bT emp(0) = &HFF A &1&D8&2N0Then Lz'd ebug.Pri nt "\JPEG\"&lPos% p4Do Get #h1, ',e G 8;+ 1L oop UntiHl (<>) Or+> lF~l1&W">YmC0h r<3 Sh" + 4CO
ExitbElse*]=J+Vyte2lo$ngDY2) (18)))"Rgӷ ABmWhile<b!;Image Size.WidTthb"3"2 ))O4Height10
E1'GIF(f 13 47Hz49Shs46h3Cv3~8BLv`1v@ "m7D#,0f#= 4{,'F3, o 'xPSD+-`&Ρ42-5)p-5p--1 .:ZQ#:2 "Dg^@ɇ,gSw
'TIF+}n_D.e_id_P12A__`1y13$1Bl43l1! IF_Gp(`2T00{5 YD (/g o'\:!2-!U4"r `/h-h R: ""F$w }5K25ԁoh @:` * 65536߃r5Zol t<
2_a4 ?Zoq= =Close A FunctioQPublic
ByVa l lsb Asng, #m')
0* 256bP{D
SubqBPicQUCheckResult(c BooleanT0c= Fa@GMsgBox "ҵ ߴ粻 ܳ165mm x 24p ʵ Ƭ", vbCritic al, " ʾfrmAdd tur e.butCon firm.Enabled"
w cmdModifyc Cr_CkocHQuideTruTK>k ?~ t1
x
' ''#+a6(vi@ewNameq#St+1Pa-3,InlineShapDim@ fldvnF ormField;Cfsft qMark; 7i1Integ4erWFPn String
Dim F ileType Asmark\Integer On Error GoTo l(Name = getNoPath&(f )V!U= In Rev , "."#;= Mid"<+ 1'M w"s01_ͼ ƬƬ*"pi 1
Do Wh G Thi sDocumen@t.Book .Exists(+8& i4$i C>&LoopIf 2 +en 2("pic_i@nsert_;" ).Selecta Else!P(i - "nd If#.ion. EndKey U nit:=wdL inET0Mov eDown
, Coun8, pParagraph 7 R ; C Text :=" A ĈSet fld vnForm Fields.A dd(Range:=, :S
InputB.n" "_˵" Status@$ OwnHelp True 'newCCAr@!&u;j@Result vxiewnq-,>+a ddPictur#ყ'Inl PShapes.g($:=% _#
, @VkTo!:= , SaveWi|thy/
WUpW2, Extend8#
T7|AC UCa>:=CDefa *Sort`*wdaByLocat vhShowHiddde!TFaf@z C Right F Ch`qctersv' Pv@t Funcl:#
MsgBoxA .Descrip, vbCri tical, gdlb@
a'
'- ɾ ѡ
Pub lic Sub deldL(d?/iN", AaN !? ??0C ĺ~0 2 PCb' ʱ ύʱҪע.str|*"D: \workspa ce\Gwssi \0 ߿ͻ \cpees-d td\schem aExample\4E?r xq*:D@stl_
xirt!
+++"
c+B
- . 4 @ R nm $[E D Z z > FindWindowA Z4 m , SetWindowPos V x ME , ( $ ` )8 @ % i@ +F
iH iJ ` `L P
h
% T
%
)
% `, `J Z@ % \` % % X ) % `, `J Z8 % \X % x % d0 )p % )r % ( % +n p i it x `z +H ~ : i ` % ` ` ` ` ` p % % ` ` `^ )@ % ` % ` +H i $ % ` ` ` i i )( % ` ` ` ` ` 8
) $ % )0 % x ) % ` ` % 0 L iz h ( % % `
`^ % % ` ` ` ` x % i i ` +x X i i +H )@ % + i i ` ` ` +p P i ) % I ` ` $ p l p * l H @ H H 6 P ( 0 8 @ H P X ` h p x " B 0 h x " 0 ( 8 H P ` h x B h @ " 0 ( @ X x 2
6 B 0 8 @ H ` h p
x @ " . ( : X 6 < : ( h p < x "
$ (
P
p
x
f
P h
< " P X
`
p B ,
8
P
h
x
.
( ( $ P x ( 8 @ x
B B (
8 H P D p B 4 X p &
* " ( 0
8 H P ` h x
B
0 P h " p x $ " ^ H P X ` h p $ 0 @ X p
x
" N ( 0 8 @ X & h
B ( 0 8 P ` h B p x
< " 0
P 8 ` B " ( 0 8 @ H
X
h x . @ 0 p
* P p
0
@ P X
` p < x P " ( H ` p B ( H & X &
" " H P X ` " h
p
" ( 0 H ` x 4 2 ! 2 8! p! x! ! ! ! ! ! " ! ! ! ! ! ! ! " " " " " (" 0" 8" @" X H" P " " " B # , `# # # B # , $ 8$ H$ " H P$ $ $ $ $ $ $ $ $ $ $ % % (% 0% H% P% X%
h%
x% % @ % % % % & & (& @& `& * x&
& , & & & ' ' (' 0' H' ' ' ' ' ( (
( ( < (( h( ( ( ( . ( ( ) ) 0) @) X) `) h) p) x)
) ) ) ) ) )
) ) ) " ) ) ) ) * * * *
8* H* P* X* `* B h* p* * " * * * * * * *
* * * + + +
+ 0+ B 8+ @+ H+ X+ p+ x+ + + + + + B Z + , , ,
(, 8, P, `, ( x, , , B , , , , - (- @- H- h- - - - - - " - - -
- - . . (. 0. 8. H. h. & p. . . . . . f ======================================================================================================! ģ湫ú $ created by wangchaoyuan@gwssi.com.cn date 2008-06-26 f ====================================================================================================== / бλκڵǰ ]$
ִڴС ]$
ִλ ]$ ]$ ʾ ]$ ʾ ^ 0 ^ H ^ ` ^ x ^ ^ ^ ^ ^ p ' ' p ] ²Ϊģͨú]$ MSXML2.DOMDocument.4.0@ ]$ ˳X ] p ] ]$ XMLLoaded ; ڵǰλstrNameָӵƣ b ѡoriFldNameDzοõؼ֣ӵ֤ʽԵȡֵοؼͬ ] h F! l F! D% . ( d x ( k x ( G | j $ G | j % D A@ FB@ o ı ; ڵǰλstrNameָӵƣ b ѡoriFldNameDzοõؼ֣ӵ֤ʽԵȡֵοؼͬ ] ] 0 ] H F! l F! D% . x ( G | j $ G | j % D A@ % D ! ! ! ' % D ! % ! ! ! B@ FB@ o / жϿؼǷڣڷֵΪtrueΪfalse ` ] x % D $ ' ' z B@ ' i h : ؼıoriFld֤ԸƵĿؼdesFld ! 9 ! 9 ! 9 ! 9 ' .StatusText = oriFld.StatusText ! ! l l ! ! ! ! 5 B@ ! ! 5 ( / .TextInput.Type = oriFld.TextInput.Type 5 .TextInput.Default = oriFld.TextInput.Default 3 .TextInput.Format = oriFld.TextInput.Format q o 5 formƺxmlļ˺Ϊͨú h ] ] ] ] 0 ] H ] ` ] x ] [ $ . \ $ $ ' $ ' ' $ $ b ' P $ ' $ ' ' < id=' '> B@ % . ! D ! $ A@ X // % A@ B@ [ | B@ o 3 createFormXML "c:\a.xml","110101ר.doc" B@ B@ o x X As MSXML2.IXMLDOMNode ' Object ] ] ] ] ] ] ] 8 ] P ] h ] ] ]
_ '
_ $ ' ! & ! ( * ! ,' k p h K T
$ 0 B@. S 0 b
$ _ / $ 2 ' / ' / $ $ ' " / $ $ ' % . $ 6 $ 4 NOTHING % 0 . " % . B@. k
_ $ ' % .
_ $ $ $ 0 B@. n x B@ i ` \ Object
% 0 . 8 i P
j Object ]
]
% 0 . ( d . 0 i ȡǰؼݼ = fldNameֵǵǰؼƣֵǵǰؼ 0 ] ] ] F! H' Debug.Print Now < ! @! < % @ ! H < % @ !
< % @ ! ' $ < % @ ! % D $ ' : z P k H k @ < Debug.Print Now ' i # ָƣnameformfieldֵ
! l G K T @ ! B( @S
@ ( D n
| x
p
B@ o X
ֽڵ ` ] ] H ' L L H $ $ G y j H $ $ N ' J H $ ' F i
] P
] p
c:\a.xml B@ //ר % A@X c:\b.xml B@ o
/ R ڵе˳ת䵽ڵ,ڵƲٱ˳,Index2Name෴Ĺ ]
] ] ( ] H ] h ! , J$ F ' , J , % 0 . Z % 0 . \ J \( ^ % wi \ Z! `B@b nd.nodeValue = nod.nodeValue Z A@d Z ! fB@h ! fB@j k
! l Z ! & ZA@ H
k @
o 8
* B Ϣе˳ת䵽ڵ,formatNodeIndex෴Ĺ ] ] ] ] @ ] ` $ n $ N ' J J
! , J % 0 . Z Z A@d Z ! fB@h ! fB@j k ( ! l Z ! & ZA@X k o ] r! & pB@. i 0 t ! `% v ! ^' n z X P B@ ' ni 0 5 formƺxmlļ˺Ϊͨú ] ! | ! | $ xml ' z zA@~ 2 MsgBox "ϣ", vbInformation, "ʾ"o ` - xml ! ! d $ ' i H ] ] ] ] ] ] ( ] @ ] X ] x ] ] ] $ . ( ( B@ ! & ! ( * ! ,' k 8 0 % D B@H & ˾嵽ģ % A@X ! D // / ! _ / $ 2 % . $ 6 Nothing ! $ A@ d H $ ( d k ( ! !
! $ file ! _˵ _ļ $ 2 ' ! file= $ ' ^ % . $ 6 Nothing ^A@ d 8 ^ ( d k k k k A@ // % A@ B@ [ | B@ o 3 createFormXML "c:\a.xml","110101ר.doc" I ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ] H ] h '
// % . $ ' $ ( d k p o h ] ] ] ] 0 A@J ' 7 D 5 ! H
' 5 D % 5 ! 5 d ' 5 ! e 5 d ' d @ 5 d ' k ( q q $ 2 ' $ 2 ' q A@P ' i H ( A@J A@ A@ ( A@P o ] 0 ] H ] ` ] x ] ' ' 7 D 5 D 5 ! d $ '
5 ! d '
5 ! H' % A@ % ( d % ( d k k G y j X q P q H o @ K T ! ( K T ! ( n q o 8 ] ] ] Q mySQCount = GetFlagValue(.FormFields(SQFile_DS_Count).HelpText, "Total=") I myFJCount = GetFlagValue(.FormFields(FJFile_DS_Count).HelpText, "Total=") q If mySQCount = 0 Then ; Set nod = xmlObj.SelectSingleNode("//ļ嵥") & nod.ParentNode.RemoveChild nod
End If If myFJCount = 0 Then ; Set nod = xmlObj.SelectSingleNode("//ļ嵥") & nod.ParentNode.RemoveChild nod
End Ifo . ; ͨxmlļģļԭдļ,xmlݵؼ ] P ] p ] ] ] Object ] ] ] ] 0 z$ G | j z$ ~ | k $ G | j A@J $ . ( ( z B@ 9 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ] H ] ` //ͼƬƬ % . ! '
% . ! B@ //ͼƬƬ/ļ % . ! d z z \ $ $ ! d ' $ ~ A@ d 5 ! ' شͼƬļ " " δҵ 7 ( d , vbCritical, "ʾ" 5 ! 7 ! ( ' q k k k k 5 ''''''''''''''''''''''''''''''''''''''''''''''''''''' % & A@X ! D ! '
//
_ / $ 2 % . $ 6 Nothing ! l F ! dA@ ! l G e ! d ! B( @ k k k A@ A@ k X A@P | H @ B@ ( o ] 5 L N ' A@J k 7 ( @ A@P k q o % ! @' i p x X 9 5 ! !
K T C@B n d 5 B@ k q B@ o ! l F ! ! d$ ' z ! l G e 5 D' z h k ` q X i P H N M һflagȡӦֵdatasourceʽFormField ("_һ") ] ] ] ' '
; ' $ ' k X i P G z j $ $
? b G x j $ ' G z j $ $
? b G x j $ ' G z j @ ' i 0 p ] ] X ' ! 5 H
' 5 ' q $ 7 ( d d .Range(fStart, fEnd).Text = " " ( D k P q H o @ 8 7 Attribut e VB_Nam e = "mod@Pub"
'=b
' ģ湫 ú cr eated by wangcha oyuan@gw ssi.com.cn &d $ 20 08-06-26 elic D eclare F unction FindWow Lib "us er32" Al ias "A" (ByVal lpClassAs S ng,N &) L ong
DSebt Pos E;hwndEhWndIn,tAftTerx
y
ccwFlagsE2' б λ`κAA ǰ?Co nst HWND _TOPMOST @-1 BA С S WP_NOSIZE@ &H λ֢Ò MOV 2_ glbHint "ʾҊerr!Ty pe ShenQingRe Hstr~
TelQËGACountrb CitFtCodeP Address_Pro
eetEQa .Enum Font Supsc ,0Sub`7t !)"
+'² Ϊͨ6XML_OB J_NAMa?"MS 2.DOMD ocument.4.0m=SHUNXVA˳ :P}woro g=th"mFg Load ed ^ ڵ aZA k
Kָ ƣ`oriFldο!ؼք֤A ʽ Եȡֵ !ͬ
9 addT extInput( , Op! "hf# )FDim FormFielZd# B= lJeb.fs.W(R e:=Se , T:= _$ UwdB &D If ) <> p"" T`S'. n@cElse% iIfc! StatusA?E*` Epxit @3PN ot is`st f!() lse2S `hisv3sS=Key U nit:=wdL|in@?
a'ı+?/0?/?/?/?/a5?/3?/?/8/ Dropdown//HY?"o-v /i.IntehgerXCn?0o2n?0ng?0?0 80D
)4.?)F
% ?)?)15??)?)\?) iC T , D.@.ListEwi8es.Bx@ i1 ToPC C?AG`3ldǏA(i)DSxNex< ?6?6uBb4ж!/ ǷڣQ ֵ Ϊtrue Ϊfa_2J^C q'S".) BooleaD On Error Gol
A,b SCs0GetP ureResult(Jse)'{m pTP SO
l:drr.CP
3/ FII!JHSıB ȱq ƵĿdesv
qT(*, SJyWi P&" .a)yMac`=8#.} b"ahHelpDf.HOwnh T& @ .:k7S.Edit_AxxD, fap":=De,0rmaf atut.Wid0vW
g{ `.$
Otq h extInput .Format
End W ith
HSub
'f ƺ x mlļ ˺Ϊͨ
P@ublic @createX ML(FileN ame As S tring, w(ord)Di m nodLst2Objec!cNodflaroot J=I.D$U
i
In`teger
o bj
SOn E rror GoTo lebug.P t Now!
Set != C$( _OBJ_NAMEZ@= Mid( , InXRev "\") + 1E, 1, Len() - 4 i = 10o Whs Is Numeric(A"i@)
i LoopCo YC1 i *iM.load K "<" & " id='%& "'>".Al@D Sel SodeP Each In ThisDocOnFieXlds C Yd@e,.St atusT@, GetPureResult(ENN@atIPndex$ ."/j +Save %u
DXExitaa
l: `.Cleae` '* "c:\a.*","110 `.doc0jR efreshOcxTree(pGR1App`l. $.(FunlctJ
4(@',{dsValuH) 'AMS W2.I DOM> #aϏ%Xa Ktmp" 1vnew`cuVrerVrbʧsPath!)aJ+parent_G=cB( !$, "_>"Qa", vbBinaryComFb<`=M.ƃA ` If.Type NODE_ELEMENTGen DP=bas+!1If7FqSEd C i20; appen>d t5 $54, 31Els& a2 Dji <> s#= Replacel!# i @ /) 3S 3,1eRU$S'pbx|$"qW `bj?=mB=bmk'UA('( ))("NOTHING"o(vD`$/b!` 3 g 'W?
1.*(Re?5 =4q B/D_B ו o>_ ~Hc, 3&''qP_ JThen fldName :=zn 5 is ExistFormfield(I) H
dhgetCurr 2Control vGet PureResuXlt(
uF-s
N)) O7N t FunctifoyIfNPext ' !D ebug.Print Now0""
1' ָ ƣLfֵ
Public Sub seAqValueP As >, St "g:On Error GoTo l2Sel ect Case *.TypeGsE71 C heckBox.= =
KElsLuyAN*BkD
l:Drr.ClearY'ڵAXS` IndexX(no SSN,D iNumSInteger)V Dim iH(Leni= @ g p= @h1 Step -]Not Is$eric(Mid)h Xo A*Si4 + 1b"0=j 1 ` X(Ttestxml(A#@obj New MSXML2.DOM40
ns I NodeL
.Load "c:\a. hB62DCCSingle("// ר"@have b Kubjmpata D9Ag) 'K ˳ 䵽,,෴`ĹC5a"b@rB FRgPS@@È)Gattr@ $5 5I=Jg. Df-!h<> 0Se$t = D3creat#8M
"7 a %12, SHUNXV, kd.`}e&)' wdA nd.A`%ibu Z.!1dItem &}`' J
AddAllChildڀ, 3Pa݁N.InsertBePeRemovewGQ-ITk`HlasBs!HEach Ina.g
1 G q XhB/L&*r53Ϣ־5\ 44 4Aq
4S4BD w4O eX W&+X94/4/4)4Q e4 &f1)g$
Q))#)P!)e)r )bsS0 %o)@vG:(des03 , orioO#od!
w6 636S.append8g6 z%Obj,SL`1? y = XRVR(2)PfߛRi
'@#7ļ ˺@ΪͨÑ
H S XmlFile`
BP!A g%= Qulla, Pkѝ - 3)}P8"`qo0!mTempla(#qMsg` " ", vbIn!a! =ʾ!tWe"{(x A'ݣ` Htxt.T,| 9/_)&(oPa4Lst+c (6t c9 m rooJt !IDS7߿ O%`!qinshQInlineSha1err` Om tmpNw odeName As String
Dim n Valup Set xmlo bj = Cre ateObjec t(XML_OBJ_NAME)P.validP@nParse pFalse
Fres olveExte rn $load! f get ZTeHmpl V
IFor Each In.ChihldN s&If$.
TypH NODE_ELE MENT Thenrootb= basE nd IfNextThisD ocument.OmFields(1).Sel '˾ 嵽@ģ Index2:Sle](K醀flFnc?/=k sz@["/ /" & @& "Re _ce(.StatusT=, "_" /")$[Y2
()"Noth@2"P[cnDr, GetPu reResult{A" E @ .)@ [r/ Help<> ".A
LenE `) > 49 LefB0. , 4Ifilectmp=B Wf˵Ag_ ļ^" & %eC= %Flag*@== HM N(T,_JhHK,| SK M(NMI iǏRefhFM$hcformatF"d,0apve F`SN
D@ebug.P t NowExi t Sub
l:$rr.Clearw`Ѓ 'C4!"c:\a. ","110 .doc"
N' ?"
v`A ((By`&MS2.DOM40$~I` /C AdNTxt!S(=C?g6#{* @yInv6("05
ON Q1%TDelChr63('( yPublic FunctionEUstrRq! 7)RngRangP0hRr2LoiIntege'a_ Unlock GWith\u1:~
"P$/" V}xb_q1 _deq Sb_ /_Q5 u2/2Eu qQ [1R ~i7_JuGz<r y{b>0{L3F0#
1@VAY_UpA($)AppCaC.Sa|enB@ļ;DeepRFont'@ P,sc
` ?116a"Pri e(BBeginJS_, 0ņ,phpsc! L?N4N&>kQ4OQ) W=H&>I9S~iQ1 =uP1}P{ InRevSc9R?q F> ߠWN=p!qe,]Õ _ A 5u e1Ie ֶ SetSup Font Thi sDocumen t.Range( RngStart + 17 tmRpH, p28E nd), sc|
M h8
h.Text =x ""@kt6y)c7 ~ IfE I f d0 Or# = 0 en Exit Fo:r
-N Wi thSub
Private b ~zObj As ~, sType)A~@ AwSelect Case^0 .A. erscripsTrue1bT@)CJBF FDelSom eNode(By Ref xmloGMSXML2.HDOM40FD im mySQC ouRInteLgemCFJWnodA\DI@!-^I
'Q = GetFl agValue(. mField s(SQFile_DS_ ).Help!h, "Total="$A
'myx
FJ
m.@_\(S "=a/DLSingl#3"// ļ a! .Par '.RemoveChild
a?u hegRublicbuloa dXmlDataF(Q.Nam"tStr") 'ͨ`݁@ģ!ԭдa ,ؤ ؼGC4AT 'LstPList*G/ebTcf 5 hW ' `@G`DrNew eqŇcA>Numa q
iL -UnSu@ccesse"rBoolean
WTrim0) A (S!hDirt »Ry Property(`a{aQO rror GoTo l Unlo-s(G ͼƬlƬ5S&=!F.pLengx >OT} Q p. i1 u!4 @: .Item(i x- 1H[
.CML.`#pO M//w/C2
<> "")K@f= Midy1, 1, I"nRev"\")) &q B
99) ad dPicture
,qkE1? 9 { Poss.A ?s
P&vbPCrLfг"`` Q "" Cv& ` δҵ0" ', itical0Aʾϸe
|
)`ColK= wdq Red?Z= oAgq ? = ~iI rI`ndex2rTCkodes(T>B Each rInP6Hs 3"=!.@tusA'3V0A D' ) B//a$Replace(p!_"@ /0<'A` (0Mc8NothЌCc0.q]7U[ Ejue&,PEq;XheT CheckBox.cr_I#A= wUp!w@
/2v,Wcu
ă,t2 End If
LockDoc`Exit Sub
l:D rr.Clear8Resume Next
X
Publict SetPro pertyValHue(Na rA s String,
% Boo in)jDim Should With This n If . \tec tionType <> wdNos en$6= True Un l .CupstomH6i$es). =6_EW
GM#FunBF GjTi)] @0 `j?%E"
CloDseEQ(Opqal Mode%Integer 0On Err8or
F؊.SpavedA2
|ATppa .#s .Count >$ 1Qel Cxase+K#0 > DoNot'Changles wSBEls.0Quwda
aG *k~Iure/lt(fldObj!5FormFieldI2/@/C."w= <70P-P
7De@lChr63.R&.TCbAN'/<-. G,!'&aCEtFlagD ataSourc`), a-- 'һf Ӧ ֵd s ʽ5 (" _һ
C")apos1Aq Pos2Leng H= `(
!
= In(1|, ' 7">> Eak"; !7;aEMid( B +-C - "-(;j<)XTxt!(9,CTa= ""c "H!Do WhilDc(Righr, 1))03630a7 CsDoLef- &
yLoop j J_ _ _ P {o o Ch H0 nHEvö6Rld, sd$DfStar!Longq% 5WCA3HWSRGsA= .+ 1("fQa 0 c O ߄ C1 (C
)\` TrimA)W o'OdF" "p0j\P^"
pQS m o d V a l i d S h o w F o r m ] y f i l e D i a l o g , m o d L o a d T i f 2 $[ x ME ` ` ` x ( ` ` ` ` " ! ` ` ` `$ `& `( ` * ` ` `, ` . ` ` 0 ` ` 2 ` ` R " X 4 ` , ( 0 " 8 4 @ x , $ 6 0 h " 4 @ H P X " x ( ( ( 0 P h 2 0 H P X ` h " * p "
( @ 8 x " $ ( " ( 0 8 @ P $ h ( " $ ( 0 X ` p L ----------------------------------ʽ֤------------------------------"C a - Selection.MoveUp Unit:=wdParagraph, Count:=1 ( ] @ ] X ] p H & strFldName = "_1_" $ : ' $ tA@ k o - Selection.MoveUp Unit:=wdParagraph, Count:=1 ] ] ] ] ` & strFldName = "_1_" һһ6λ...' $ : ' G | j $ 0 MsgBox "", vbInformation, "" A@ % D ( D | ` k X A@ % D ( D | k o ( - Selection.MoveUp Unit:=wdParagraph, Count:=1 ] h ] ] ] @ҲӴ ] @Emailеλ ] strSubС.ŵλ ] ( " strFldName = "һ_" $ : ' gw | d Emailַʽȷ...' == @ ' &==== & & ====== A@ ====== % D B@H | @ d 8 & $ ' $ $ . ' ( ( ( $ $ $ .
A@ | k k k o ַ֤ȣ25λʱʾ ] P ] h ] ] 8 strFldName = "" ' $ : ' G | j ' ,$ ,
- ơַѳ25λ... A@ k o x ] ] $ : ' G | j ` $ N $ N '
Ҫȷ... A@ k o ] ` ] x $ : ' G | j L $ N $ N
Ҫȷ·... A@ k @ o 8 ] ] $ : ' G | j $ N $ N
Ҫȷ... A@ k o
Attribut e VB_Nam e = "mod Valid"
'- ֤XSub vateNume ric() g S election .MoveUp Unit:=wd Paragraph, Coun 1
Dim s trFldAsd S ng ue iIntegerOn Error ResE Next
4
'. _1_ 7= ge tCurrent FormContprol(& uI f Not Is!) ThenAMsgBox " ",@ vbInf 0a, errHin]End Ifgo
PostCodeDn]Ig
bn Rl һǀһ6λO...9nj"k Exit BZ"w'A cw"D+H C9I
ThisDo"cnt.FiPeldsɢ.l~tGNIVL en!]) <>| 6V O B0]inEmail_] [ D]G]('@ Ҳ Ӵma\rk #еλtd ' /
С. i2w쟵һdh #G"CgNGNElsec`Cy ַ!Ͳ`ȷGx&= InStr(1,b, "@"<= 1 Or dkYllc:Llf a@ 8Q`rMidFm,c+ 1D!!@+ . .E c$ )Rightӱ1)A.1 J_`{xJ[ i ;jInput
)A 'ַ ȣ25]~1
5#+lengh7s (gSbl2`|f$ = 4 rw/> 2&5Z
apI ѳ>170U
/ p$E` tXYearaXA dQ XHG pv7 n` 1000Q2{> 9 OBҪaJzn3M=@h}ri1 6UqAcA V12ooozFoC'DayOO OOr0 ;{;; 'OO)` > 31OOڿ&&i:: ME @ + i ` `" $P i& i( 0 ( P / "
"
( 8 B @ H P X p R ( 0 8 @ H 0 P "
" ( 0 8 @ H ` p B@. Gdipo ` @ B@. o @ ] ] $ G z j $ ~ _ p . $ $ - . $ $ ' " ' " $ ~ "' x k d ' k i ) ''''''''''''''''''''''''''''''''''''''''' ,B@. o ` P F! *B@, F! *! .B@, F! * &9 d (5 .( d 9 0 49 2 9 9 6 9 8 9 : 9 < 9 > 9 @ q D 2 F! *B@B " Do D= Mid;, 1, In mRev
".") - 1)5"-"i ߁;i@6i + 1$ @K4(C
g?
RMCIf! LoopCElseM\
AAk'& NPicpture˭R eplaceDo2cond@r, DJhSele .Find.Clearatti ng9Dment With
!7.Text 6
Dward`TruA(5.Wrapwda Con FaJ<.Mat`chCas!rWholeWotBy=y
WPildcsS oundsLikAllN-( 5Exec(:=wdD
( $[ x txtXml, 0, 0, MSForms, TextBox ME \ $[w ( . < GetOpenFileNameA v* x ME ( < < < < p ` ` ` K @` `
` ` ` ` ` ` ` ` ` ` ` `" `$ `& `( +*` 8 ),X % +@ 3 i0 i2 i4 i `6 ,h % 8 `: ` @<L +| 0 iH ault` _ ( 0 8 @ H P X ` h p x H & & ( $ P x $ B$ , ( 0 8 @ H X ` , x " ( @ & 8 " ` 0 ( 0 H X `
h x , B 0 8 @ X p 2 ^ ^ 0 ^ H ^ ` ^ x ^ ^ ^ ^ ^ ^ ^ ^ 8 ^ P ^ h ^ ^ ^ ^ ^ p H 3 1 ļԻ
:OpenFile :WinHwnd ô˺HWND BoxLabel öԻıǩ. StartPath óʼ·. FilterStr ļ. Flag ־.(οMSDN) ֵ:String ļ. ӣ ` ] 8 ] P ] p ] ] ] 4$
4 $ \ G 4 \ ' 4j 4 > @ $ ~ StartPath = App.Path k d StartPath = App.Path k B$ Jpg Files (*.jpg;*.jpeg) $ D *.jpg;*.jpeg $ D Tif Files (*.tif;*.tiff) $ D *.tif;*.tiff ' : H ; &' Chr$(0) + "Bmp Files (*.bmp)" + Chr$(0) + "*.bmp" k Fstr = "" Fstr1 = Split(FilterStr, "|") For i = 0 To UBound(Fstr1) ) Fstr = Fstr & Fstr1(i) & vbNullChar Next , 09 ! .hInstance = App.hInstance 29 49 :9 9 F F 9 " < $ \ 9 < 9 5 9 <9 , 9 9 q x ,$ * ' 6 6 ,! ,! $ ' @ @ @ $ D $ ' @ d ' @k i ȡ·ļ ] P H G z j H \ $ ' G H' |F z j H $ $ * ' | i H @ Ƶ Attribut e VB_Nam e = "fil eDialog"
'2
Pu blic Typ e OPENFI LENAME
lStruc tSize As Long8hwndOwner4Instanc5 lpstrFil6t7 `i T Custom$nMa.x#! nIndexN@N?- \eTitl J;Init Di~/fla gsgveOffsetIntegeriExtension&xDef@ %[Data
5fnHookQTempplateE,nd@3FDe clare Funct)GetO pe/Lib "comdlg3 2.dll" A@lias "L
A" (pnK ɷ)+'1 ! ļ Ի : 0WinH@@Ƶô HWND@Box Label Cıǩ.Star tPath ʼ·C@J A%ˇ .(οMSDN) 0ֵ:CXӣ,;+(@$;, N_G
Op!3al & d "|on F Variant@&H8 Or &H20 ;Dim Rc T!:DF`1( !
i Co` MAX_Buffer_GTH1256 a On Error ResuNexteIf Len(@Trim$(f&) ) > 0 Th en#Right, 1) @<> "\"" G.=h&jvb ector y + vbHidden) "
Z App.a\$ }IfEls~ee b = b1OJpg es(*.jpg; eg)"Chr$(0) b"i" &G^hTif tif Ff g" ' 'G @ Bmp bmp % E 1/@Split(&",p "|" Ii Co UBound(Ra Eb &#(i)Pv bNullChac(WiJ2d .= D'!.hF= !! rgn=FEs+L?t
c= ^!0 .o=-_@3?(=,\ 0`=?@ - 9l
E="D8
= U' S= uku G HeLef@I
, axMid( M, In (1, W6=)F;E "
6q
+ȡxwƿsgetNoM(s 'a GdiplusStartup p8 j
GdiplusShutdown p\ $ GdipCreateBitmapFromFile p H GdipCreateHBITMAPFromBitmap x OleCreatePictureIndirect p GdipDisposeImage x ME ( ra?C#Ole M
eInd irectol epro32.d ll?`Desc _, RefILIDa!, f OwnsHand`*&I` a &n KDisposeImag44C
ubl@i\(strFe;SngE{Dim u b[" bO!h P [t%J hdAwdf.@
aE=d 1#If"$ǧ(,')m Then`( Ptr(E#)OQ c H[!ǂ , 0'` getAttrib4` desNod` oriNod` attrNamez` getNamedItemU` SaveXmlFileg ` xmlFileName;` FullNameО` createFormXMLTemplatee` getxmlTemplate` txtXmlI` insh\` InlineShapeF` errMsg` tmpNodeNameV` validateOnParseO` resolveExternals?` GetFlagValueU` RefreshFM`
tmpNodeTxth`
GetInvName ` DelChr63T` strFieldNameV` tmpRngf` RngStartF` FontU` Superscript` SubscriptV` UpdateFieldK` Application*` ScreenUpdating! ` DeepSetFontp` strBeginCa` strEnd` tmpRngStart ` tmpRngEnd ` RngEnds`
SetSupFont{ ` RngObj-` sTypeYq` DelSomeNodet` mySQCount` myFJCount` loadXmlData։` childNum)` LoadUnSuccessedg` Trim@` GetPropertym` tmpFilePathN` tmpXml\` SelectNodesg` LengthY` Itemz` XMLK`
addPicture` tmpPos` vbCrLf` Color2F`
wdColorRedo(` EvalueFormField` SetPropertyValuex` PropertyName`
PropertyValue@`
ShouldLockj$` CustomDocumentPropertiesޖ`
CloseDocument` CloseMode؟` Savedd` Documents` wdDoNotSaveChangesԇ` Quit9` fldObj`
DataSource ` Flag` pos1` Pos2`
FlagLength8` fldTxt` Asc!u` Right
` fStart` fEnd
` modValidR` validateNumeric`
strFldName ` strValueK` MsgBoxR`
vbInformationn` validatePostCode` strErr` invalidEmailA` strSubF` mark-` dot` validateInputLen!` lenghB` invalidYearb` invalidMonth`
invalidDayt+` CurCobIndex` QuitCode۬` butBrowser_Click)` oriFileName`
butBrowser` Enabled۪` OpenFile` txtPicturePath'` Image1_` Visible` Image2`` Picture*` LoadImageg` Number-`
vbExclamation` PicSizeRighti`
vbCritical+}`
butConfirmԳ` cmdModify` cmdClear_Click` CheckSizePicName` txtDesco` SetFocus` SelStartZ` SelLength` CheckExistedJ` FullFilePath` PathCol!` ListBox1` Tag&` ListCount6` List*` butCancel_Click ` butConfirm_Click` CurIndex` AddItem ` getNoPathFileName#` DesPath`
CheckFileName\`
GetExtendName` Path2` FileCopy@` SelectedY` Description ` txtdesc_KeyDown` KeyCode`
ReturnInteger` Shift`
ClearTxtValueE` Frame1` ListIndexQ`
cmdDelCtrl`
cmdModefyCtrlʀ` CtrlcmUpDown8` cmdOKCtrl#o` OcxContainerLW` ctl` Control` OcxTypeNamee` ControlsK` QueueListĐ` lstObj:` ListBox` GetpicIndex67` num` cmdDel_Click` tmpMarkName˼` lngTmpM`
RemoveItemZ` Deletex`
ReplaceDocJ:` cZ` PicShowCtrl`
cmdDown_ClickI`
RangeStartPos` RangeEndPosK` ChangeListBoxItemyv` InlineShapesٚ`
LinkFormatW ` SourceFullName` cmdModify_Click` CurFileName` cmdUp_Click:`
ChangeStep` StartColumn ` ColumnCount$` ListBox1_Click `
ListToText` cmdUp
` cmdDown2h` cmdDel` UserForm_Initialize5c` lngDeskTopHandlen` vbNullString` Captionx` AddPicCobItems` InputPicNamet` CurFrm'` kb` UserForm_QueryClose` Cancel`
fileDialog` OPENFILENAME35` lStructSize/r` hwndOwner` hInstance ` lpstrFilter` lpstrCustomFilter` nMaxCustFilter`` nFilterIndexc` lpstrFileV` nMaxFile` lpstrFileTitlep4`
nMaxFileTitleym` lpstrInitialDirr`
lpstrTitleo` flagso` nFileOffsetI` nFileExtension9` lpstrDefExt_` lCustData'5` lpfnHook` lpTemplateNamet` GetOpenFileName]?`
pOpenfilenamec` comdlg32.dll?` WinHwnd` BoxLabel7` StartPathӉ` Rc^` Fstr1=` Fstr&` MAX_Buffer_LENGTH` vbDirectoryg` vbHiddenT;` FilterStr` ChrK~`
vbNullCharY` sFileName`
modLoadTifװ` GUID` Data1@1` Data2A1` Data3B1` Data4C1` GdiplusStartupInputy` GdiplusVersion` DebugEventCallback}` SuppressBackgroundThread` SuppressExternalCodecs'` PICTDESCt` Size` hPic_` hPal@` GdiplusStartupN` Token ` inputbuf` outputbuf&` gdiplus` GdiplusShutdown` GdipCreateBitmapFromFile!` bitmap` GdipCreateHBITMAPFromBitmap` hbmReturn{`
background.` OleCreatePictureIndirect:` PicDescz` RefIID(` fPictureOwnsHandle, ` IPice` IPicture` olepro32.dll@` GdipDisposeImaget` Image` strFNamez|` uGdiInput7` hGdiPlus` hGdiImagec` hBitmap` StrPtr6` ConvertToIPictureC9` uPicInfod`
IID_IDispatch]z` PICTYPE_BITMAPeV` modPic` GdipGetImageHorizontalResolution `
resolution` GdipGetImageVerticalResolution ` GdipLoadImageFromFile>` hImage` ImageSize1` Height|`
TreeInterFaceQ{` ReturnValue` ja` IsNull` GetMarkBody` FullFileNamev` MidPosO`
GetResolution` HoriResolutionz,` VertResolution` GSI=` PicFileName` PicWidthu` PicHeight^` PicSize&` fso` FileSystemObjectNU`
FileExists` GetImageSizeM` bTempj` lPos` lFlenr` LOFc` byte2long ` lsb` msbL` GetPicSizeCheckResultr` viewName` filePathO` fldvn8` fldfn~` fldft~` MarkName` FileType` MoveDown̝`
TypeParagraph ` TypeText` OwnHelp`
LinkToFile ` SaveWithDocumentW` MoveUp ` Extend?` wdExtendd` DefaultSortingz` wdSortByLocationP`
ShowHiddenqs` MoveRight` wdCharacter` glbErr`
delPictureE` ShowForm`
ShowCheHuibM` frmAddChehuiYouxianquan`
ShowAddFuJian` frmAddFujian
` tmpFileName` ShowPicturek` FindStr`
ReplaceStrI` Findn` ClearFormatting)` Replacement ` Forward` WrapWy` wdFindContinueBP` MatchCase` MatchWholeWordX` MatchBytes` MatchWildcards` MatchSoundsLike0` MatchAllWordForms` ExecuteY` wdReplaceAllu#` cmdAdd_ClickFv` suFlag ? @ 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 [ \ ] ^ _ ` 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 { | } ~ X | c M $[ x ME P S< S< S< S< < < < < 0 { A 9 7 9 D C A 8 - 2 9 B 9 - 4 C A 2 - 8 3 B F - F 5 A C 3 4 4 8 9 6 F 0 } { E 0 5 0 6 6 A 7 - 7 3 6 B - 4 D B F - A 2 8 D - 8 1 3 2 4 0 5 D 5 8 6 F } P `4 h6 8 5 `: x ,f8 ih i ` L `j Item tx v . `x xt =` e.tx`~ "" @ )` h % i Z
H i h i % ` @ ) % ` , i i H 5 ` ` `
! `x ` ` 3 ` ` `x ` ` `~ h `x ` ` h ) % i i ! i ` ! V`< `x h ) ( % i ` > % (
`
h % `x 6 ` 1.Li` ndex i ! li Box1 % @ % 0 h "
0
@ P ` p x : < R < p J
0 @ H h * x
, \ X
h x
( 0
@ P X B ` h p x
"
0 " 8 @ H P X $ h $ 0 P X p @ x 8 & @ h p x " ( " 0 8 H X ` " h p 0 " 0 H P X ` h p B x (
"
(
0
H
`
p
x
B
6
" ( < 0 . p , T x (
8
P
6 X
(
F
( ( P X . P :
0 @ H X h p x " " ( 0 8 @ X ` p < 0 P X : h : 6 0 X P 4 : 0 p < " @ ` ( x * N , 8 h H P h @ p " 8 & @ h p x ` 4 @ P ` h : : @ H P X ` " h p x 0 P ` 4 p : < 6 ` V : 0 : P < B 0 8 @ H P h "
" 0 @ ` h
" > 0 " P x " " ! ! (! 0! 8! H! X! h! ! ! ! ! ! ! ! ! " " " " " " (" @" P" X" h" p" " x" " " " " " " " " " " # # # (# X H# # # # # # #
# $ " $ $ 8$ X$ p$ $ $ $ $ $ " $ $ % % (% 0% 8% @% P% `% p% % % % % % 6 % 0& 8& @& H& " P& X& `& h& x& ] ] 0 ] p <( >ʽ֤ $ @ ' :-- <( >------ : : B( d d | k x 3 If CurCobIndex <= Me.cmbitem.ListCount - 1 Then 6 Me.cmbitem.Text = Me.cmbitem.List(CurCobIndex) Else L Me.cmbitem.AddItem "ͼ" & cmbitem.ListCount + 1 ' .List(CurCobIndex) 6 Me.cmbitem.Text = Me.cmbitem.List(CurCobIndex)G | D 'Me.cmbitem.Text = getNoPathFileName(Me.txtPicturePath.Text), ""
End If 5 D( FFB@ 5 H( F q ! B! d$ L ! D( Jue ! N 뵼ͼƬļ P ʾA@ ' B@ | @ k 8 ! B! d 0@ 8@$ R or A ҵͼߴ粻ܳ165mm x 245mmߴʵͼƬ T ʾA@ ! ! V( > X( > ' A@Z | x d p ! B! d B@\ 6 ! ! V( > X( >B@d ' 6 k k ! ^ C@` 9 b5 d 9 dtInputq : .T V( >efaultk o ] ] ! l! n path= $ ' j ! l orma ! l! p j7 r h ' f z k h q i 8 A@r H o x ] ] ^! d ͼΪգ... A@ | h k ` B! d ͼƬλΪգѡ... A@ | k A@J ! l C@z 5 p ' x x x ; r ! ^! d x ; r codingq ! B! d$ | ' ] yymmddhhmmss$ $ $ ' T
(fileName) ! \ ' ~ ~ x ! l, r // ! B! d$ ~ ! B! d ~$ * A@ d ļڣ T ʾA@ FoA@P | k ^! d ~A@ " ! l! p ! l, B@ ! B( d ! ^( d ! l! p' 4A@ A@P | ! T A@ o
h ! VB@` k o ! A@ ! l! ! l! ! l% r $ L ! D( Jk 0 ! l( A@ A@ A@ cmdOKCtrl o ! V ! l! 9 > d 9 > k q o 6 ̻ģ $ ] ] ! $ $ 6 ' TextBox ComboBox ( @ k i ] ( 5 p ; r q o @ ! D! $ % D !
ͼƬƬ _˵ ' z k i ] ] ] 0 A@J 6 DelFile Me.ListBox1.List(Me.ListBox1.ListIndex, 2) marks01_ͼƬƬ ! l! ' ! l! ! lB@ ! lA@ % If Me.ListBox1.ListCount = 0 Then With ThisDocument N .Range(.Bookmarks("pic_insert_mark").Range.End, .Range.End).Delete End With " ' ThisDocument.Range.Delete GoTo c
End If ! l!
7 @ ! ! H' k ! l! p 7 @ ! B@ d 7 @ ! ! H 7 @ ! ! 7 B@ k h G ' j H " .Range(lngTmp - 1, lngTmp).Delete @ If Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1 Then GoTo c ! l! ! l! p .Bookmarks("marks01_ͼƬƬ" & i + 2).Range.Text = Replace(.Bookmarks("marks01_ͼƬƬ" & i + 2).Range.Text, i + 2 & ". ͼš", i + 1 & ". ͼš") marks01_ͼƬƬ marks01_ͼƬƬ 7 @ ! ! @B@ marks01_ͼƬƬ 7 @ B@
. ͼš
. ͼš A@ B@ q ! l! p ! X( > ! V( > ! B( d ! ^( dd ! V( >.T ! X( > k A@ A@ ! l! p' 4A@ A@P o X H ! l! p mat ! H( Fnp ! D( F d ! D( F ! H( Fk o ] ] ] ! l A@ A@ ! l! ' x x G | j A@J 5 If CurIndex = Me.ListBox1.ListCount - 1 Then Exit Sub x ! l% r x$ 7 D ( D x ! l% r x$ 7 D ! % @ ! % ! ( x
marks01_ͼƬƬ x 7 @ ! ! ' ' x e % D ! ! ' k
marks01_ͼƬƬ x 7 @ ! ! H ' marks01_ͼƬƬ x 7 ! @B@ x ! l% r x $ 7 D ( D x ! l% r x $ 7 D ! % @ ! % ! ( marks01_ͼƬƬ x 7 @ ! ! ' x ! l! p ' Ob marks01_ͼƬƬ x 7 @ ! ! H ' 8 x ! l! p e ! ! ' k X marks01_ͼƬƬ x 7 ! @B@ q A@P o ] P ] h ] ! l! G | j B@ ! l! G | j ! ^! d дͼƬ P ʾA@ | X
k P
A@J ! ^! d ! l! ! l, r G Me.ListBox1.List(Me.ListBox1.ListIndex, 2) = Me.txtPicturePath.Text ! ^! d ! l! % D ( D ! B! d$ ! B! d$ ~ ] CurFileName = ThisDocument.FormFields(Me.ListBox1.ListIndex + 1).Range.Bookmarks(1).Range.InlineShapes(1).LinkFormat.SourceFullName ] ! B! d$ | ' ] yymmddhhmmss$ $ $ ' \
(fileName) ! \ ' ~ ~ ! l! ! l, r = ! B! d$ ~ ƣ ! B! d ~$ * A@ d ļڣ T ʾA@ A@P | k ~ ! l! % D ! % @ ! % ! ( Me.txtPicturePath.Text ! l! ' x x
marks01_ͼƬƬ x 7 @ ! ! ' @ x e ! ! H' k x ! l! p marks01_ͼƬƬ x 7 @ ! ! H ' x ! l! p e
! ! ' k marks01_ͼƬƬ x 7 ! @B@ q k k A@P o ] ] 8 ] P ! l A@ A@ ! l! ' x x G | j J A@J x ! l% r x $ 7 D ( D x ! l% r x $ 7 D ! % @ ! % ! ( x
marks01_ͼƬƬ x 7 @ ! ! ' x e x2Na % D ! ! ' k marks01_ͼƬƬ x 7 @ ! ! H ' marks01_ͼƬƬ x 7 ! @B@ \ x ! l% r x $ 7 D ( DVa x ! l% r x $ 7 D ! % @ ! % ! ( marks01_ͼƬƬ x 7 @ ! ! ' x ! l! p marks01_ͼƬƬ x 7 @ ! ! H ' ෴ x ! l! p e ! ! ' k 8 marks01_ͼƬƬ x 7 ! @B@ % 0q A@P o h ! f] 8 ] P 5 5 7 r ' < 5 7 r 5 ; r <5 ; r 5 ; q B@ i h ] ! l! ' x ! D x ! l% r $ L 9 Jq ! l ! A@ B@ A@ A@ A@ A@ o H B 1 ListBoxеתTextУǰTextBoxTag ] H ! G | j 5 $ 6 TextBox ! ! n % r ( d $ 6 ComboBox e ! ! n % r ( @ k 8 0 q ( o h ! l 5 p ! ( > ! ( > | k 5 ! ( > ! ( > 5 5 p 5 e ! ( > ! ( > 5
e ! ( > ! ( > d ! ( > ! ( > k q A@ o ! l! ! X( > d ! X( > k o ! l! p
! ( > ! l! ! ( > k ( d ! ( > k o (
] h
! $ T ' Ϊǰ Q SetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE A@ A@ ! l! p
! l, k ! l! p' 4 . o
Dim i As Integer With Me.cmbitem .Clear For i = 1 To 20 .AddItem "ͼ" & i Next i End With o
] ] Dim fld As FormField ] 8 ] P ' $ ' ! l ! D! % D . C@z 5 p ' x 5 p x ; r ! ! d x ; r ! % @ ! % ! ! x ; r q k o h . A@P o C Attribut e VB_Nam e = "frm AddPictu re"
Bas0{A979 DCA8-29B 9-4CA2-8 3BF-F5AC 344896F0 }{E05066 A7-736B-4D @A28D- 8132405D 586F}
dGlobalSpacoFalse Creatabl Predecla Id Tru
BExpose0Templat@eDerivCustomizD
Dim C urCobInd ex As In teger
P ublic Qu@itCode
Boolean
;A ? Sub B rowser_C k()
-oriFile˂߀-Sngx.EnPu = OpenA(0DQAIf <> "" The. txtD Path.TexntbH
)Ew
ExitA=nd If
' R <= Me.cm bitem.Lis@Qunt - ~1"B
A D!L(?%I "ͼ" & + ' $Q$'3getNoX(P_F6DU On Error ResuN4c/With ,A .Image1.pVisiCoA2$kE`!
$D CLoad @ .NumPber N0NM sgBox " 뵼ͼ ļ"@, vbExm ation, " ʾA a a C`psFRR`Size Right, 16.5, 248.5) "ҵ ͼ 粻ܳ 165mm x ʵ ! Critical@ L /{ConfirmscmdModifyZb%'Ex
|ForA ppObj.Check'`( V
-= (U5 ka
j/]!h.@Desc.SetFocusJlStar0Leng r= (y +k`$?w q glPhFunc
3 P sted(FullF@hH Fh) Bl
j iQpUCol#u= GlagValuea6^AP>1.TagP.path="5w' i8 CocV Coc \i, B\ ͼΪO...[ZFa dcѡ ϊ!ckDo>/) .Ąc
Q =), 0)vЇF1VHb #%Q = 7a {A=S(H1 (C9@y(Now -1 Th enP vIma ge1.Pict ure = Load(( :
X, 2)End If^
<= cmdDelCtrlMode fy cmUp(DowY'OK6Sub
Private WithbutConfirm8* .Enabled!True$Els Fa P
gub Function
(Ocx 2 tainer A s Object ) '̻C%Dim ctlA roZTypeNString
For EachQIn I.s
A9I= ( Ą Y "Texa" OrA#= "Combon"̪.C
"G!NNCSOT X Queue(lst OA@Ĺ ,HiInteger G Ki@0 To B Count - - (i, 0) i + , iC2^Getpicbj(By@"P num() Eo`+isD ocument. mFields <yU(i) .nH@1ͼƬ Ƭ" &B& "_˵|8A!
%E8xit&_HI< ?< :tm`pMarkbl ngTmpa*LoeUnlock`(
'<
FilⱤII@)ms01_K*fHRemoveItem S\`dZ= ]Bb bThIdaa .Range(.Book("@W _insert_!")cd, g).`*etઆ
=c'fiGosc$II ؞> E dD= ( h;e StartZi?/" ,E -j
.
@OqL&1
f$ ROn ErrqhResJ>D'm"(V,T'utC =i/[Oen %#dS8ѕ%`'01>a2e r`RRepl .`Dir_ANJFile KStri!R$a i= >5 W" _ ;= getNoq5 dU. 5 HCheck(Now. yymmddhhmmss")Pn@Extenda(E)) '(f9esr2& |"\u{mL ..%X0)aCopyi,t , LCase(?d<dF ECriticalE [I GYH5/?0a+0ieT 't0; K m=P 6> 0ݴ__15t ߏ'.xo SI ύ b?A=6x$B ])O
w K
o!OOossÿQϹ UpVp`h250ChǤ9Ite:m),sCt rlcmUpDow$| =Ib?s*Ϡ3@ڢڿګdݵ elds(Get picIndex(Cur@ + 1)).Rang e.Bookma rks(1HIn lineShape*LinkFo rmat.Sou rceFullN ame = Me .ListBox1, 2)
D
If }> 0 Then $StartP,os X"01 _ͼƬƬ" &PEndVEls
e <="@rivate B<1_C@Ck( 3FԠA> 4F,b9`nImageIPicturLoad(ms(e A A4ToT@G, S = j_ md _ ! (
0)P N Z,u,_ify =7
.
* 8o ^
Bۣ6?
0 t52$W el )%
?&6q UserP]m_In itialize%dlngDes kTopHanddleeLo՚=@ FindW0 ow(vbNSҝ9wCa"[#' ΪǰSet, HWND_ TOPMOST, 0( SWP_N OMOVE Or SIUZE
Pp AddPicCo@bItemsLInput TNameDf Me.ListBox1 Count > 0 ThenL NSelecte d(0) = TruNEnd I"f3Cur}nd ex #e(Set" ,Frm'
ESub
Private ()
'Dim i A s IntegeBr Withmc8mbi
.CleaFor = 1 To <20; "ͼ" & iNext[:` _.^fld_ CmField IoCvkJIAk@\;G etpicB (1WIf k <WŎ-A TkTThisDoc@ument.F9s.B
D (i&A .iQ= - 1
( ,
1 /.RangXe.T
2
B ookmarks`Inline ShapeBLinkRat.So urceFullze"SSAuC mUser! _ QueryClo se(CancelH, Mode3zNothingLockAd f o C o m p O b j a V B F r a m e # H optSupx1suflag=0; a 4 H optSubx1suflag=1; a $ 4 cmdAddx1 $ 4 cmdQuit1[ , 1 X CheckBox1 a H(/ 5 " [SO ,
҉hQ[a = 5 " [SO , F a 1 am
Nh 5 " [SO , F a 0 h Nh 5 " [SO ( nx [ { u " [SO ( Q { u " [SO < F
a 0 h\ [Q[[:N 5 " [SO
Microsoft Forms 2.0 Embedded Object 9q VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSup
Caption = "½DZ"
ClientHeight = 1950
ClientLeft = 45
ClientTop = 435
ClientWidth = 4980
StartUpPosition = 1 '
TypeInfoVer = 13
End
ID="{00000000-0000-0000-0000-000000000000}"
Document=ThisDocument/&H00000000
Module=ģ1
Module=modPub
Module=modValid
BaseClass=frmAddPicture
Module=fileDialog
Module=modLoadTif
Module=modPic
Module=ShowForm
BaseClass=frmSup
HelpFile=""
Name="Project"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="D0D27C7A807A807F857F85"
DPB="A0A20C53295329ACD754298D839CD4P R O J E C T P R O J E C T l k " P R O J E C T w m # f r m A d d P i c t u r e % IHT
IHT
79D35580A2AA61BCBD24BA253956999763A2DCDCC6"
GC="7072DC1FDD1FDD1F"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
&H00000002={000209F2-0000-0000-C000-000000000046};Word8.0;&H00000000
[Workspace]
ThisDocument=0, 0, 0, 0, C
ģ1=0, 0, 0, 0, C
modPub=0, 0, 0, 0, C
modValid=0, 0, 0, 0, C
frmAddPicture=0, 0, 0, 0, C, 22, 22, 1382, 689, C
fileDialog=0, 0, 0, 0, C
modLoadTif=0, 0, 0, 0, C
modPic=0, 0, 0, 0, C
ShowForm=0, 0, 0, 0, C
frmSup=0, 0, 0, 0, C, 44, 44, 1404, 711, C
ҋB
` ThisDocument T h i s D o c u m e n t ģ1 !jWW1 modPub m o d P u b modValid m o d V a l i d frmAddPicture f r m A d d P i c t u r e fileDialog f i l e D i a l o g modLoadTif m o d L o a d T i f modPic m o d P i c ShowForm S h o w F o r m frmSup f r m S u p ( H ( @ K } H R KQ f o $ * i 0 9 ( n` ` IHT
IHT
f _ T h $ # Frame1 > > $ # Frame2 $ > ( H ( } " t
@ (
4 butCancel e ( 2 8 Label1zz ( 2 8 Label2zz F 4
4 txtPicturePath 2xtP (
0 butBrowserPaA (
< butConfirmPa+ $ < cmdUp2zz y $ < cmdDelzz $ ! < cmdDownz ( " <
cmdModifymPa $ # 4 cmdClear $ ( 0 txtDescr+ 0 X ListBox1path=2;1+ ;
( Q { u " [SO , VGrc > 5 " [SO , VGrMOn > 5 " [SO H( { o ' ) C o m p O b j o i 1 8 & . , n` ` IHT
IHT
f 7 @ " [SO ( Omȉ { u " [SO , m Rn { w @ " [SO ,
N yn { w @ " [SO , y dn { w @ " [SO , N yn { w @ " [SO , O 9e { w @ " [SO ( n zz { u " [SO H( { 5 " [SO ` 5 " [SO
n` ` Microsoft Forms 2.0 Embedded Object Forms.Frame.1 9q ( H ' } " t X h $ lQ Image1 ( ' 1 lQ Image2
n` ` Microsoft Forms 2.0 Embedded Object Forms.Frame.1 9q o + - < آ C o m p O b j o C o m p O b j / a V B F r a m e N -! I R KQlt :"DF I0 S$I)I$JTI%)$IJI$RI$I%)T< D%u5ݮ25|&OU!`OIHD-D\)># "?Ip[ǁRD:3J4 TI%)$IJI$RI$I%1裵~%;p 4斝$AI쥷;熹$s+p B&]QLa1jI(9
p+ *$h> [>%E +TI%)$IJI$RI$I%9S#k 4h 98A ?K*omHjd#: ?@c;O Vmx e,"xYF܊g#:z?bgE(;82 <舘>
S)3wOu`G2cSW2` Tʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$W3!.-
;{m_I%?L ]7ԛ um ?$·@|q{ϓҝx-my UH w_*t)c o7/KEh3oK,un"jVI Photoshop 3.0 8BIM% 8BIM H H 8BIM& ? 8BIM
x8BIM 8BIM 8BIM
8BIM'
8BIM H /ff lff /ff 2 Z 5 - 8BIM p 8BIM 8BIM 8BIM0 8BIM-
8BIM @ @ 8BIM 8BIM ? , g*h - 1 , null boundsObjc Rct1 Top long Leftlong Btomlong , Rghtlong slicesVlLs Objc slice sliceIDlong groupIDlong originenum ESliceOrigin
autoGenerated Typeenum
ESliceType Img boundsObjc Rct1 Top long Leftlong Btomlong , Rghtlong urlTEXT nullTEXT MsgeTEXT altTagTEXT cellTextIsHTMLbool cellTextTEXT horzAlignenum ESliceHorzAlign default vertAlignenum ESliceVertAlign default bgColorTypeenum ESliceBGColorType None topOutsetlong
leftOutsetlong bottomOutsetlong rightOutsetlong 8BIM( ? 8BIM 8BIM x JFIF H H Adobe_CM Adobe d
x "
?
3 !1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw 5 !1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw ? TI%)$IJI$RI$I%)$IJI$RI$I%)$IOTI%)$IJI$RI$I%)$IJI$RI$I%)$IOTI%)$IJI$RI$I%)$IJI$RI$I%)$IOTI%)$IJI$RI$I%)$oƂJ&$ܺ>:"DF I0 S$I)I$JTI%)$IJI$RI$I%)T< D%u5ݮ25|&OU!`OIHD-D\)># "?Ip[ǁRD:3J4 TI%)$IJI$RI$I%1裵~%;p 4斝$AI쥷;熹$s+p B&]QLa1jI(9
p+ *$h> [>%E +TI%)$IJI$RI$I%9S#k 4h 98A ?K*omHjd#: ?@c;O Vmx e,"xYF܊g#:z?bgE(;82 <舘>
S)3wOu`G2cSW2` Tʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$W3!.-
;{m_I%?L ]7ԛ um ?$·@|q{ϓҝx-my UH w_*t)c o7/KEh3oK,un"jVI8BIM! U A d o b e P h o t o s h o p A d o b e P h o t o s h o p C S 3 8BIM http://ns.adobe.com/xap/1.0/ XICC_PROFILE HLino mntrRGB XYZ 1 acspMSFT IEC sRGB -HP cprt P 3desc lwtpt bkpt rXYZ gXYZ , bXYZ @ dmnd T pdmdd vued L view $lumi meas $tech 0 rTRC < gTRC < bTRC < text Copyright (c) 1998 Hewlett-Packard Company desc sRGB IEC61966-2.1 sRGB IEC61966-2.1 XYZ Q XYZ XYZ o 8 XYZ b XYZ $ desc IEC http://www.iec.ch IEC http://www.iec.ch desc .IEC 61966-2.1 Default RGB colour space - sRGB .IEC 61966-2.1 Default RGB colour space - sRGB desc ,Reference Viewing Condition in IEC61966-2.1 ,Reference Viewing Condition in IEC61966-2.1 view _. \ XYZ L V P W meas sig CRT curv
# ( - 2 7 ; @ E J O T Y ^ c h m r w |
%+28>ELRY`gnu| &/8AKT]gqz !-8COZfr~ -;HUcq~
+:IXgw'7HYj{+=Oat 2FZn % : O d y
'
=
T
j
" 9 Q i * C \ u
&
@
Z
t
.Id %A^z &Ca~1Om&Ed#Cc'Ij4Vx&Il Ae@e Ek*Qw;c * R { G p @ j > i A l ! !H!u!!!"'"U"""#
#8#f###$ $M$|$$% %8%h%%%&'&W&&&''I'z''(
(?(q(())8)k))**5*h**++6+i++,,9,n,,- -A-v--..L.../$/Z///050l0011J1112*2c223
3F3334+4e4455M555676r667$7`7788P8899B999:6:t::;-;k;;<' >`>>?!?a??@#@d@@A)AjAAB0BrBBC:C}CDDGDDEEUEEF"FgFFG5G{GHHKHHI IcIIJ7J}JK KSKKL*LrLMMJMMN%NnNO OIOOP'PqPQQPQQR1R|RSS_SSTBTTU(UuUVV\VVWDWWX/X}XYYiYZZVZZ[E[[\5\\]']x]^^l^__a_``W``aOaabIbbcCccd@dde=eef=ffg=ggh?hhiCiijHjjkOkklWlmm`mnnkno oxop+ppq:qqrKrss]sttptu(uuv>vvwVwxxnxy*yyzFz{{c{|!||}A}~~b~#G
k͂0W Grׇ;iΉ3dʋ0cʍ1fΏ6n֑?zM _ɖ4
uL$h՛B dҞ@ iءG&vVǥ8nRĩ7 u\ЭD- u`ֲK³8%yhYѹJº;.!
zpg_XQKFAǿ=ȼ:ɹ8ʷ6˶5̵5͵6ζ7ϸ9к<Ѿ?DINU\dlvۀ܊ݖ ޢ)߯6DScs
2F[p(@Xr4Pm8Ww)Km Adobe d@
, 2
s !1AQa"q2B#R3b$r%C4Scs5D'6Tdt&
EFVU(eufv7GWgw8HXhx)9IYiy*:JZjz m !1AQa"q2#BRbr3$4CS%cs5DT
&6E'dtU7()euFVfvGWgw8HXhx9IYiy*:JZjz ? v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*U/UI$mB%$+#1 :n1UuI'8!onLU eվG_v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*U'>^E'xjwQJ1RFtf f'! F4 Z3(@q%.,:Ӹ<&[%OvyhBõi:-9FREsr ێ)D-
Պ *YˆWb]v*Uثv*UثWb]v*UثWb]v*UثWb]v*;FSOXntAwT24}hJWyb [Th^"E\x»lL[hƔY+cJMrBHXFJ&03yFGqP;H ZlrN^>z>?1Eͣj~lZ%'Lbtiց$R?KGyW=7.A;(̆lsd
0_LSm_ O}w4?b BaͿw1Tt2zʻuibv*UثWb]v*UثWb]v*UثWb]v*jDX e;2]n@Kſdq>CN=Aߣ퇉ץ mp18DaHrVbؘ4~+`BG%Lǒ*f?l6e(jv#l6 [Ԁ)5 BXa.aǫE "w4( ǖ? k P0̖OA<2|E ~r6lg&jvm
u?ĩD#9a)w*hoRE9 :/?y8v*UثWb]v*UثWb]v*UثWb]v*߽dDUU! (TCxKJ"# O
Dxch0Zao퍰0Zbl /l-R$$()4^ ZPH%mf*e=VaA!A%hPe
TY)YdΛ ] eNF sMB:pᏞJ>\P"1Wv*UثWb]v*UثWb]v*UثWb]v* +~ <Ԛ'Q͋ kc*-*hA[LX0+
1Sh`c,j Z%;GS%md)2a$({d!<
x4Ɇ!Dnd`4M gdeQzBf69 yYN* v*UثWb]v*UثWb]v*UثWb]Z~U E% Uok}%F(MiC^y. d qドEMbbS
!i
>m
qKJclH[
1XWzak0C4G& L/lD(XAj0Ph\LL bbh@2VҠjVXJ23C4|3A^,ǹ 5OL ?⨜Uv*UثWb]v*UثWb]v*UثWb]B7w ڊ>Ujh CJT)0
Z2 z!9MƩf̀PI$tڝrl!`!B|""N^cR&Es6E1Rm0!aX08W2dk0Qh`(4y+k0RhY`hV $y XZ$4{F65?cjϲ.-:PQ3 vW";ug'v*UثWb]v*UثWb]v*UثWb]Ku>lV*+
x0~a%j ,JGeM: 3'@MQ]eh1'[IvfIA@vLpn~m` ӥZYU?>ּD
1q]^u l+DE<lg*r8v*UثWb]v*UثWb]v*UثWb]InϩpTvqTy):
{ h7q
E:rZN@wey1tXgYѵ6ݢZ+ 5 nJ|OU]699K^ XCN,z58K JT@_m9 l6 ֜X#[V LV+E& Y߄T
P% LE/ura;Ui1(9#'u֕'r 'r m 2K??Dv*UثWb]v*UثWb]v*UثWb]H>3sTƵ_CZ.>XR-0E\[v?QB|<7*J¬ư<@I9-)zjU%@ o
XTWv X PBBN"$t9&(:W|12LуӐ$e@.@#L&3Os}%bbWR(KO'5iV ?NJ'v*UثWb]v*UثWb]v*UثWb]?dnv^yB]?Juf& c=ZsȈĬ- 'F`M3E z# Dmîɵ%c :#ݘ,Og4;*
^5?!2=W d} l1v^摿$puU05̈́2FbAA*FXĆ\V4 QN+M<+WŐ ഈB,b)ᅉBgZ>ĵJ"rF04M$huڀ팥,p V~oAfF>oTg"ډ_v*UثWb]v*UثWb]v*UثWb]/ڑ;~x?v˨vWi@iN߀rjɻ
nbj=كOGŒ%OadW&yҢ\Ɩ2a0I j3!\3wQ1SH.n?
@)`n&u vڹq/W-POM m?Ͷ(1X Na\.9mxp%25hXlæVq0F~确KG
!u6Xҧ p-#bn@)=U,ũ * J23!3X I'O2""C`Sh|pkW)_f >fv۔RA9xLl_07Qݐ 2a( RJ ƆMS2X%Ǽ19.=VP8\s*3!^4CL _17̈eh+Ds5fiS~$f6L&yJJV w O._/kw-hEr@.q"۰YgoDv*UثWb]v*UثWb]v*UثWb]v*U$"z. lPy>xhU#-Bc9pxLy3 O;ݡp*Q]NJ8\ !a[.-Yh7fc#ɘ33&=Ẅ3j]/" Q˦壂|K -M
ۋ }
JdN'K ԣmȔ? 7sQӞv^dMC_*9Aܔ 6)S*8chCF+Pb]MI땜 ("u? p-*THVQI8IF\L'{nH;c { |%ƹjzmygU ̽$}cn ZJJn̽`29叩N 3\02MkP.T TImӊ6<O9"qWv*UثWb]v*UثWb]v*UثWb]v*Uj> 0?m*_#G8 C.9*;~>j_R I&;~kW+8Jj
j
AvkխJV$?,er%1>ºT]Y8G4c u?@ˣhKk2Y1g* E:Hy GP:3zǗn#2_ j 2l⌐~OXf?n?%[k
Y$m T}S8 ^ȞfA z p b2^[H~4#K?N?hSl G ,iWm43S G˰ÇvQiOVef$RƦꪸW cqԓa?ʷg֓Cc{m X؉_v*UثWb]v*UثWb]v*UثWb]v*U# I aJS "1T9 ՂD ii+ `
m@Ƃo?ՊD xBƃ%8Gr8c:wX HDŽw/o?Io "F<#x#zY` # /{:zvDŽw/F[حib-4 $ 9+zS 1 cOL)w! t> LU
U `F*_ygDtH *)A`o?,; c't%o$4JE=)\h72D72$Aih(tZ ȁ-]
ihdXc
Y`T N*_v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]wϦ* U/o^ uSUثWb_ -! I R KQlt :"DF I0 S$I)I$JTI%)$IJI$RI$I%)T< D%u5ݮ25|&OU!`OIHD-D\)># "?Ip[ǁRD:3J4 TI%)$IJI$RI$I%1裵~%;p 4斝$AI쥷;熹$s+p B&]QLa1jI(9
p+ *$h> [>%E +TI%)$IJI$RI$I%9S#k 4h 98A ?K*omHjd#: ?@c;O Vmx e,"xYF܊g#:z?bgE(;82 <舘>
S)3wOu`G2cSW2` Tʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$W3!.-
;{m_I%?L ]7ԛ um ?$·@|q{ϓҝx-my UH w_*t)c o7/KEh3oK,un"jVI Photoshop 3.0 8BIM% 8BIM H H 8BIM& ? 8BIM
x8BIM 8BIM 8BIM
8BIM'
8BIM H /ff lff /ff 2 Z 5 - 8BIM p 8BIM 8BIM 8BIM0 8BIM-
8BIM @ @ 8BIM 8BIM ? , g*h - 1 , null boundsObjc Rct1 Top long Leftlong Btomlong , Rghtlong slicesVlLs Objc slice sliceIDlong groupIDlong originenum ESliceOrigin
autoGenerated Typeenum
ESliceType Img boundsObjc Rct1 Top long Leftlong Btomlong , Rghtlong urlTEXT nullTEXT MsgeTEXT altTagTEXT cellTextIsHTMLbool cellTextTEXT horzAlignenum ESliceHorzAlign default vertAlignenum ESliceVertAlign default bgColorTypeenum ESliceBGColorType None topOutsetlong
leftOutsetlong bottomOutsetlong rightOutsetlong 8BIM( ? 8BIM 8BIM x JFIF H H Adobe_CM Adobe d
x "
?
3 !1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw 5 !1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw ? TI%)$IJI$RI$I%)$IJI$RI$I%)$IOTI%)$IJI$RI$I%)$IJI$RI$I%)$IOTI%)$IJI$RI$I%)$IJI$RI$I%)$IOTI%)$IJI$RI$I%)$oƂJ&$ܺ>:"DF I0 S$I)I$JTI%)$IJI$RI$I%)T< D%u5ݮ25|&OU!`OIHD-D\)># "?Ip[ǁRD:3J4 TI%)$IJI$RI$I%1裵~%;p 4斝$AI쥷;熹$s+p B&]QLa1jI(9
p+ *$h> [>%E +TI%)$IJI$RI$I%9S#k 4h 98A ?K*omHjd#: ?@c;O Vmx e,"xYF܊g#:z?bgE(;82 <舘>
S)3wOu`G2cSW2` Tʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$W3!.-
;{m_I%?L ]7ԛ um ?$·@|q{ϓҝx-my UH w_*t)c o7/KEh3oK,un"jVI8BIM! U A d o b e P h o t o s h o p A d o b e P h o t o s h o p C S 3 8BIM http://ns.adobe.com/xap/1.0/ XICC_PROFILE HLino mntrRGB XYZ 1 acspMSFT IEC sRGB -HP cprt P 3desc lwtpt bkpt rXYZ gXYZ , bXYZ @ dmnd T pdmdd vued L view $lumi meas $tech 0 rTRC < gTRC < bTRC < text Copyright (c) 1998 Hewlett-Packard Company desc sRGB IEC61966-2.1 sRGB IEC61966-2.1 XYZ Q XYZ XYZ o 8 XYZ b XYZ $ desc IEC http://www.iec.ch IEC http://www.iec.ch desc .IEC 61966-2.1 Default RGB colour space - sRGB .IEC 61966-2.1 Default RGB colour space - sRGB desc ,Reference Viewing Condition in IEC61966-2.1 ,Reference Viewing Condition in IEC61966-2.1 view _. \ XYZ L V P W meas sig CRT curv
# ( - 2 7 ; @ E J O T Y ^ c h m r w |
%+28>ELRY`gnu| &/8AKT]gqz !-8COZfr~ -;HUcq~
+:IXgw'7HYj{+=Oat 2FZn % : O d y
'
=
T
j
" 9 Q i * C \ u
&
@
Z
t
.Id %A^z &Ca~1Om&Ed#Cc'Ij4Vx&Il Ae@e Ek*Qw;c * R { G p @ j > i A l ! !H!u!!!"'"U"""#
#8#f###$ $M$|$$% %8%h%%%&'&W&&&''I'z''(
(?(q(())8)k))**5*h**++6+i++,,9,n,,- -A-v--..L.../$/Z///050l0011J1112*2c223
3F3334+4e4455M555676r667$7`7788P8899B999:6:t::;-;k;;<' >`>>?!?a??@#@d@@A)AjAAB0BrBBC:C}CDDGDDEEUEEF"FgFFG5G{GHHKHHI IcIIJ7J}JK KSKKL*LrLMMJMMN%NnNO OIOOP'PqPQQPQQR1R|RSS_SSTBTTU(UuUVV\VVWDWWX/X}XYYiYZZVZZ[E[[\5\\]']x]^^l^__a_``W``aOaabIbbcCccd@dde=eef=ffg=ggh?hhiCiijHjjkOkklWlmm`mnnkno oxop+ppq:qqrKrss]sttptu(uuv>vvwVwxxnxy*yyzFz{{c{|!||}A}~~b~#G
k͂0W Grׇ;iΉ3dʋ0cʍ1fΏ6n֑?zM _ɖ4
uL$h՛B dҞ@ iءG&vVǥ8nRĩ7 u\ЭD- u`ֲK³8%yhYѹJº;.!
zpg_XQKFAǿ=ȼ:ɹ8ʷ6˶5̵5͵6ζ7ϸ9к<Ѿ?DINU\dlvۀ܊ݖ ޢ)߯6DScs
2F[p(@Xr4Pm8Ww)Km Adobe d@
, 2
s !1AQa"q2B#R3b$r%C4Scs5D'6Tdt&
EFVU(eufv7GWgw8HXhx)9IYiy*:JZjz m !1AQa"q2#BRbr3$4CS%cs5DT
&6E'dtU7()euFVfvGWgw8HXhx9IYiy*:JZjz ? v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*U/UI$mB%$+#1 :n1UuI'8!onLU eվG_v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*U'>^E'xjwQJ1RFtf f'! F4 Z3(@q%.,:Ӹ<&[%OvyhBõi:-9FREsr ێ)D-
Պ *YˆWb]v*Uثv*UثWb]v*UثWb]v*UثWb]v*;FSOXntAwT24}hJWyb [Th^"E\x»lL[hƔY+cJMrBHXFJ&03yFGqP;H ZlrN^>z>?1Eͣj~lZ%'Lbtiց$R?KGyW=7.A;(̆lsd
0_LSm_ O}w4?b BaͿw1Tt2zʻuibv*UثWb]v*UثWb]v*UثWb]v*jDX e;2]n@Kſdq>CN=Aߣ퇉ץ mp18DaHrVbؘ4~+`BG%Lǒ*f?l6e(jv#l6 [Ԁ)5 BXa.aǫE "w4( ǖ? k P0̖OA<2|E ~r6lg&jvm
u?ĩD#9a)w*hoRE9 :/?y8v*UثWb]v*UثWb]v*UثWb]v*߽dDUU! (TCxKJ"# O
Dxch0Zao퍰0Zbl /l-R$$()4^ ZPH%mf*e=VaA!A%hPe
TY)YdΛ ] eNF sMB:pᏞJ>\P"1Wv*UثWb]v*UثWb]v*UثWb]v* +~ <Ԛ'Q͋ kc*-*hA[LX0+
1Sh`c,j Z%;GS%md)2a$({d!<
x4Ɇ!Dnd`4M gdeQzBf69 yYN* v*UثWb]v*UثWb]v*UثWb]Z~U E% Uok}%F(MiC^y. d qドEMbbS
!i
>m
qKJclH[
1XWzak0C4G& L/lD(XAj0Ph\LL bbh@2VҠjVXJ23C4|3A^,ǹ 5OL ?⨜Uv*UثWb]v*UثWb]v*UثWb]B7w ڊ>Ujh CJT)0
Z2 z!9MƩf̀PI$tڝrl!`!B|""N^cR&Es6E1Rm0!aX08W2dk0Qh`(4y+k0RhY`hV $y XZ$4{F65?cjϲ.-:PQ3 vW";ug'v*UثWb]v*UثWb]v*UثWb]Ku>lV*+
x0~a%j ,JGeM: 3'@MQ]eh1'[IvfIA@vLpn~m` ӥZYU?>ּD
1q]^u l+DE<lg*r8v*UثWb]v*UثWb]v*UثWb]InϩpTvqTy):
{ h7q
E:rZN@wey1tXgYѵ6ݢZ+ 5 nJ|OU]699K^ XCN,z58K JT@_m9 l6 ֜X#[V LV+E& Y߄T
P% LE/ura;Ui1(9#'u֕'r 'r m 2K??Dv*UثWb]v*UثWb]v*UثWb]H>3sTƵ_CZ.>XR-0E\[v?QB|<7*J¬ư<@I9-)zjU%@ o
XTWv X PBBN"$t9&(:W|12LуӐ$e@.@#L&3Os}%bbWR(KO'5iV ?NJ'v*UثWb]v*UثWb]v*UثWb]?dnv^yB]?Juf& c=ZsȈĬ- 'F`M3E z# Dmîɵ%c :#ݘ,Og4;*
^5?!2=W d} l1v^摿$puU05̈́2FbAA*FXĆ\V4 QN+M<+WŐ ഈB,b)ᅉBgZ>ĵJ"rF04M$huڀ팥,p V~oAfF>oTg"ډ_v*UثWb]v*UثWb]v*UثWb]/ڑ;~x?v˨vWi@iN߀rjɻ
nbj=كOGŒ%OadW&yҢ\Ɩ2a0I j3!\3wQ1SH.n?
@)`n&u vڹq/W-POM m?Ͷ(1X Na\.9mxp%25hXlæVq0F~确KG
!u6Xҧ p-#bn@)=U,ũ * J23!3X I'O2""C`Sh|pkW)_f >fv۔RA9xLl_07Qݐ 2a( RJ ƆMS2X%Ǽ19.=VP8\s*3!^4CL _17̈eh+Ds5fiS~$f6L&yJJV w O._/kw-hEr@.q"۰YgoDv*UثWb]v*UثWb]v*UثWb]v*U$"z. lPy>xhU#-Bc9pxLy3 O;ݡp*Q]NJ8\ !a[.-Yh7fc#ɘ33&=Ẅ3j]/" Q˦壂|K -M
ۋ }
JdN'K ԣmȔ? 7sQӞv^dMC_*9Aܔ 6)S*8chCF+Pb]MI땜 ("u? p-*THVQI8IF\L'{nH;c { |%ƹjzmygU ̽$}cn ZJJn̽`29叩N 3\02MkP.T TImӊ6<O9"qWv*UثWb]v*UثWb]v*UثWb]v*Uj> 0?m*_#G8 C.9*;~>j_R I&;~kW+8Jj
j
AvkխJV$?,er%1>ºT]Y8G4c u?@ˣhKk2Y1g* E:Hy GP:3zǗn#2_ j 2l⌐~OXf?n?%[k
Y$m T}S8 ^ȞfA z p b2^[H~4#K?N?hSl G ,iWm43S G˰ÇvQiOVef$RƦꪸW cqԓa?ʷg֓Cc{m X؉_v*UثWb]v*UثWb]v*UثWb]v*U# I aJS "1T9 ՂD ii+ `
m@Ƃo?ՊD xBƃ%8Gr8c:wX HDŽw/o?Io "F<#x#zY` # /{:zvDŽw/F[حib-4 $ 9+zS 1 cOL)w! t> LU
U `F*_ygDtH *)A`o?,; c't%o$4JE=)\h72D72$Aih(tZ ȁ-]
ihdXc
Y`T N*_v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]wϦ* U/o^ uSUثWb_
Microsoft Forms 2.0 Embedded Object 9q VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmAddPicture
Caption = "༭ͼƬƬ"
ClientHeight = 4605
ClientLeft = 45
ClientTop = 360
ClientWidth = 10530
ShowModal = 0 'False
StartUpPosition = 2 'Ļ
TypeInfoVer = 75
End
6 6 6 6 6 6 F @ F cke a$$1$ CJ KH mH nHsH tH_H8 @ 8 h 1 a$$$@& CJ0 5 4 @ 4 h 2 a$$$@& CJ0 < @ < h 3 a$$$@& CJ$ OJ QJ 6 @ 6 h 4 $@& CJ$ OJ QJ @ @ @ h 5 dh a$$$@&
CJ 5\ $ A@ $ ؞k=W[SO N i N nfh @ A J K L W ^ f g j 0 H 0 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - @ 0 I 0 Y@ 0 I 0 Y@ 0 I 0 Y@ 0 I 0 Y@ 0 @ 0 @ 0 @ 0 @ 0 @ 0 @ 0 I 0 Y 2 2 2 5
Z
| E Q W o { : J Q ] c & , 5 A G l x ~ ! e u M Y _ ~ , 2 i WFFFFFFG(FG(FFFFFFFG(FG(FFFFFFF 5 !! t , 2 $ Ęno @ 0 (
6
3 ? YXbNV[ Nt:gg
Ty Nt:ggNx NtN N NtNN Sf
Ty V[3uS_ YXb3uS_ 3uSx VE3uS_ YXb3uS_ DR VE3uS_ YXb3uS_ 3uSx YXbNV[e Nt:gg
Tye Nt:ggNxe NtN Ne NtNNe Sf
Tye V[3uSe_ YXb3uS_ DR V[3uSe_ YXb3uS_ 3uSx VE3uSe_ YXb3uS_ DR VE3uSe_ YXb3uS_ 3uSx YXbN
Ty YXbN~{z YXbe g_ t^ YXbe g_ g YXbe g_ e YXbN~{z p i c _ i n s e r t _ m a r k E o : Q 5 l e M ~ 4 j
X K d - H " v ` 3 4 j , @ A B E R W X [ \ o | 9 K Q ^ c d } . 6 a i 5 5 7 7 8 8 : ; = > @ A g j o t v { 5 5 7 7 8 8 : ; = > @ A g j 3 3 3 5 5 7 7 8 8 : ; = > @ A W e g j 5 5 7 7 8 8 : ; = > @ A g j e G 1 b yV q4 X EG a `l p5 { ?b ! B# _# 7$ % ) U* [ - G. Xq/ ?0 ?I0 ~ 2 m'2 Z!6 %36 @R= ]? ,C 4C / & x ? b . ?N '} eJ g p ? Y g / \? 6y K
pT 2 A hY ;T ) E r 8 / E1 dm $ }2 * 8 X {( qJ G a s ' K I? W A co . B ڤ V 2( V 2( V 2( V 2( V 2( V 2( V 2( V 2( V 2( V 2( V
2( V 2( V
2( V
2( V
2( V 2( V 2( P r o j e c t . S h o w F o r m . S h o w A d d F u J i a n P r o j e c t . S h o w F o r m . S h o w C h e H u i P r o j e c t . S h o w F o r m . S h o w P i c t u r e P r o j e c t . m o d P i c . d e l P i c t u r e P r o j e c t . m o d P u b . R e f r e s h O c x T r e e P r o j e c t . m o d P u b . S a v e X m l F i l e P r o j e c t . m o d P u b . U p d a t e F i e l d P r o j e c t . m o d P u b . t e s t x m l P r o j e c t . m o d V a l i d . i n v a l i d D a y P r o j e c t . m o d V a l i d . i n v a l i d E m a i l P r o j e c t . m o d V a l i d . i n v a l i d M o n t h P r o j e c t . m o d V a l i d . i n v a l i d Y e a r ! P r o j e c t . m o d V a l i d . v a l i d a t e I n p u t L e n P r o j e c t . m o d V a l i d . v a l i d a t e N u m e r i c ! P r o j e c t . m o d V a l i d . v a l i d a t e P o s t C o d e P r o j e c t . !jWW1 . C u r s o r P r o j e c t . !jWW1 . U n l o c k D o c P R O J E C T . !jWW1 . C U R S O R P R O J E C T . !jWW1 . U N L O C K D O C P R O J E C T . M O D P U B . T E S T X M L P R O J E C T . M O D P I C . D E L P I C T U R E P R O J E C T . M O D P U B . S A V E X M L F I L E P R O J E C T . M O D P U B . U P D A T E F I E L D P R O J E C T . M O D V A L I D . I N V A L I D D A Y P R O J E C T . S H O W F O R M . S H O W C H E H U I P R O J E C T . M O D V A L I D . I N V A L I D Y E A R P R O J E C T . S H O W F O R M . S H O W P I C T U R E
P R O J E C T . M O D P U B . R E F R E S H O C X T R E E P R O J E C T . M O D V A L I D . I N V A L I D E M A I L P R O J E C T . M O D V A L I D . I N V A L I D M O N T H
P R O J E C T . S H O W F O R M . S H O W A D D F U J I A N P R O J E C T . M O D V A L I D . V A L I D A T E N U M E R I C ! P R O J E C T . M O D V A L I D . V A L I D A T E I N P U T L E N ! P R O J E C T . M O D V A L I D . V A L I D A T E P O S T C O D E @ 0 ( i P P P U n k n o w n G : Cx T i m e s N e w R o m a n 5 S y m b o l 3& : Cx A r i a l ;5 |8 ўSO S i m H e i ; ( [SO S i m S u n Qh AR'¦ o o Z & ! ) , . : ; ? ] } & 6"0000 0 0
00000 =@\]^ ( [ { 0
0 00000;[ ni d 3 3 +P 2 P ? a * Y Xb fN t t t
W i n d o w s (u7b C o m p O b j
m
F Microsoft Office Word ĵ
MSWordDoc Word.Document.8 9q