PC Direct 1996 August

home *** CD-ROM | disk | FTP | other *** search

/ PC Direct 1996 August / AAHRDEMO.ISO / software / docs / hdinsert.sm_ / hdinsert.bin

Wrap

INI File | 1996-05-14 | 9.8 KB | 951 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] HP LaserJet Series II [port] LPT2: [lang] 1 [desc] 822094282 24 731959686 239 2 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Text 2 [fnt] Courier 240 0 32768 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [edoc] <:#254,9360><:f240,QCourier New,0,0,0>FUNCTION MakeMergeSubDoc() <:#254,9360><:f240,QCourier New,0,0,0> DECLARE Echo(%1) <:#254,9360><:f240,QCourier New,0,0,0> DECLARE InsField(%1) <:#254,9360><:f240,QCourier New,0,0,0> <:#254,9360><:f240,QCourier New,0,0,0> '****CHECKFIELD <:#254,9360><:f240,QCourier New,0,0,0> macname = strcat$(GetMacPath$(),"hdchkfld.smm") <:#254,9360><:f240,QCourier New,0,0,0> IF (CALLI macname()=1) <:#254,9360><:f240,QCourier New,0,0,0> EXIT FUNCTION <:#254,9360><:f240,QCourier New,0,0,0> ENDIF <:#254,9360><:f240,QCourier New,0,0,0> <:#254,9360><:f240,QCourier New,0,0,0> '**** Determine which DLL function to call <:#254,9360><:f240,QCourier New,0,0,0> inStr = CurShade$() <:#254,9360><:f240,QCourier New,0,0,0> cmdnum=6 <:#254,9360><:f240,QCourier New,0,0,0> IF (inStr="") <:#254,9360><:f240,QCourier New,0,0,0> cmdnum=5 <:#254,9360><:f240,QCourier New,0,0,0> ENDIF <:#254,9360><:f240,QCourier New,0,0,0> <:#254,9360><:f240,QCourier New,0,0,0> '****CALL TO HOTDOCS DLL <:#254,9360><:f240,QCourier New,0,0,0> OrgFile = GetOpenFileName$() <:#254,9360><:f240,QCourier New,0,0,0> styleName = GetDocInfo$(3) <:#254,9360><:f240,QCourier New,0,0,0> IF (UCASE$(styleName) = "NONE") <:#254,9360><:f240,QCourier New,0,0,0> styleName = "_default.sty" <:#254,9360><:f240,QCourier New,0,0,0> ENDIF <:#254,9360><:f240,QCourier New,0,0,0> result = 0 <:#254,9360><:f240,QCourier New,0,0,0> mRes = 0 <:f240,QCourier New,0,0,0> retStr=DllCall("hd3.dll,SubDoc,CCJOC",&OrgFile,cmdnum+(32*1),&result,&inStr) <:#254,9360><:f240,QCourier New,0,0,0> IF (Result=0) <:#254,9360><:f240,QCourier New,0,0,0> EXIT FUNCTION <:#254,9360><:f240,QCourier New,0,0,0> ENDIF <:f240,QCourier New,0,0,0> retPath = DllCall("hd3.dll,MoreStuff,CCO",&OrgFile,&mRes) <:#254,9360><:f240,QCourier New,0,0,0> <:#508,9360><:f240,QCourier New,0,0,0> IF (cmdnum = 6) '*** CUT THE MARKED TEXT TO INSERT <:#254,9360><:f240,QCourier New,0,0,0> Cut() <:#254,9360><:f240,QCourier New,0,0,0> ENDIF <:#254,9360><:f240,QCourier New,0,0,0> InsField(retStr) <:#254,9360><:f240,QCourier New,0,0,0> IF (cmdnum = 5) <:f><:f240,QCourier New,0,0,0> <:#254,9360><:f240,QCourier New,0,0,0> IF (result = 3 OR result = 4) <:#254,9360><:f240,QCourier New,0,0,0> FileOpen(retPath,1,"") <:f><:f240,QCourier New,0,0,0>'*** OPEN THE SUB-DOC<:f> <:#254,9360><:f240,QCourier New,0,0,0> ENDIF <:#254,9360><:f240,QCourier New,0,0,0> ELSE <:#254,9360><:f240,QCourier New,0,0,0> New(styleName,NoContents,512) '*** CREATE THE NEW SUB_DOC <:#254,9360><:f240,QCourier New,0,0,0> Paste() <:#254,9360><:f240,QCourier New,0,0,0> <:f><:f240,QCourier,0,0,0>Type("<[>CTRLHOME]")<:f> <:#254,9360><:f240,QCourier New,0,0,0> descrip = "HotDocs Sub-Document" <:#254,9360><:f240,QCourier New,0,0,0> IF (result = 1 OR result = 3) '*** MARK IT AS A TEMPLATE <:#254,9360><:f240,QCourier New,0,0,0> descrip = "HotDocs Sub-Template" <:#254,9360><:f240,QCourier New,0,0,0> DocInfoFields("HotDocs Template",""<:f><:f240,QCourier New,0,0,0>,"","","","","","") <:#254,9360><:f240,QCourier New,0,0,0> ENDIF<:f> <:#254,9360><:f240,QCourier New,0,0,0> SaveAs(retPath,0,descrip<:f><:f240,QCourier New,0,0,0>,"") '*** SAVE THE NEW SUB-DOC <:#254,9360><:f240,QCourier New,0,0,0> IF (result = 1 OR result = 2) <:#254,9360><:f240,QCourier New,0,0,0> FileClose() <:#254,9360><:f240,QCourier New,0,0,0> ENDIF <:#254,9360><:f240,QCourier New,0,0,0> ENDIF<:f> <:#254,9360><:f240,QCourier New,0,0,0>END FUNCTION <:#254,9360><:f240,QCourier New,0,0,0> <:#254,9360><:f240,QCourier New,0,0,0>Function InsField(string$) <:#254,9360><:f240,QCourier New,0,0,0> DEFSTR FName, FColor, FSize, FFamily,Result; <:#254,9360><:f240,QCourier New,0,0,0> TYPE(CHR$(171)) <:#254,9360><:f240,QCourier New,0,0,0> GetCurFontInfo(&FName, &FColor, &FSize, &FFamily) <:#254,9360><:f240,QCourier New,0,0,0> FontChange(FName,0,16711680,FSize) <:#254,9360><:f240,QCourier New,0,0,0> TYPE(string$) <:#254,9360><:f240,QCourier New,0,0,0> FontChange(FName,0,FColor,FSize) <:#254,9360><:f240,QCourier New,0,0,0> TYPE(CHR$(187)) <:#254,9360><:f240,QCourier New,0,0,0> TYPE("<[>ENTER]") <:#254,9360><:f240,QCourier New,0,0,0>End Function<:f> > [Embedded] 00008792 > [macsum] 2 MakeMergeSubDoc 0 0 11 0 InsField 942 1 6 55 [macse] 14 MakeMergeSubDoc 0 295 13 0 16 [X] "hdchkfld.smm" 13 8 1 16 "{1}" 13 5 1 18 0 11 00000115 6 0 15 9 0 24 13 8 2 5 6 8 3 6 2 7 "" 18 0 11 00000180 5 5 8 3 0 267 13 8 4 0 279 3 13 8 5 0 18 "{5}" 13 7 "NONE" 18 0 11 00000282 7 "_default.sty" 8 5 5 0 8 6 5 0 8 7 6 3 5 32 5 1 4 0 3 0 0 284 "hd3.dll,SubDoc,CCJOC" &4 [X] &6 &2 13 8 8 6 6 5 0 18 0 11 00000421 6 0 15 9 0 284 "hd3.dll,MoreStuff,CCO" &4 &7 13 8 9 6 3 5 6 18 0 11 00000505 2 153 1 16 InsField "{8}" 6 3 5 5 18 0 11 00000636 6 6 5 3 18 0 6 6 5 4 18 0 1 2 11 00000623 2 102 1 "{9}" 1 "" 10 00000930 2 101 1 "{5}" 0 512 2 155 1 0 6 "[16420]" 7 "HotDocs Sub-Document" 8 10 6 6 5 1 18 0 6 6 5 3 18 0 1 2 11 00000844 7 "HotDocs Sub-Template" 8 10 2 140 1 "HotDocs Template" "" "" "" "" "" "" "" 2 104 1 "{9}" 0 "{10}" "" 6 6 5 1 18 0 6 6 5 2 18 0 1 2 11 00000930 2 147 1 6 0 15 9 14 InsField 0 39 171 13 0 6 [X] 0 804 &2 &3 &4 &5 2 251 1 "{2}" 0 16711680 "{4}" 0 6 "{0}" 2 251 1 "{2}" 0 "{3}" "{4}" 0 39 187 13 0 6 [X] 0 6 "[13]" 6 1 15 9 00008817