Category : Windows 3.X Files
Archive   : WHAG.ZIP
Filename : SYSBODY1.DOT

Û¥-1@ 
-€
ÿ%{µ µ µ#µ#µ#µ#µ#Ã#Õ#Õ#Õ#Õ#Õ#
ß#
Õ#é#cL$P$P$P$P$P$P$P$P$X$l$9¥$¥$¥$¥$¥$4Ù$-¥$µ#¥$¥$


PN UpdateList macro (TES.DOT): automatically updates bulleted and numbered lists+Q) written 9/12/90 michaelm Microsoft Corp.>}< revised 8/12/91 michaelm make NewList test case-insensitive¼¾MAINÈ"Ê

startNumList$  seq ln1 \r 1ë

inNumList$ seq ln1
"

false true false%
B'

= Save the current value of field codes view (-1 means you can/h

* see field codes; 0 means they're hidden):–
˜


fieldCodeSave h»
I½

D If field code mode was turned of, turn it on (we need to do this soJ
E we can check for actual number fields later on in the "ln1" search):NP

fieldCodeSave 
l h
€
‰J‹
E Execute the following FOR...NEXT loop twice: once for "lb1" and onceÔ
 for "lb2":ãå
#counter 
$ü-þ ' Move to the beginning of the document:*, G
??A 9 Make the style name we're searching for by concatenatingC = the value of "counter" (1 or 2) with the string "^ylb", thenAÁ ; do the first search for the style name (note: use option 1?
 9 with "Direction" so macro won't automatically restart at:? 4 beginning of doc -- which is what would happen with/x ) option 2, thus causing an endless loop):¦9¨ § lbn
k
counter
Z ˜ Ú 
Ì 
óõ ž4 - If we found at least one bulleted list, then9E 2 put the ALT+N keystroke combo in the "buffer" so<} 5 the dialog box about starting the search over at the9¸ 2 beginning will just automatically get blown away:ð ò /
%N E ? If we found one, start bouncing around inside the WHILE...WENDT  loop below:e
g !ž‚;„ 4 Found an lb1 or lb2 style, so check to see if there)¾ " was already a bullet + tab there:æ"è l
r

• !  No bullet -- put one in:5 7 9

G &Tms Rmn

_ 4• pr  {,} $ Already had a bullet -- move to the¨  end of this line:Á Ã >
Ò Ô ß0á ) Search for next bullet style, and repeat2 + steps above as long as a new one is found:AC ×T6V 0 End of WHILE...WEND loop for this bullet style:‹ "•—
&counter¦?¨
: Completed lb1 and lb2 searches, so now update ln1 styles:æè
G
ú)ü
§ ln1Z˜ Ú 
 Ì 
+ - 
ž I  /
%N[ 
d  f 
!ž€ @‚  : Found an ln1 style, so check to see if there is already a.Á  ( number field inserted at the beginning:î 4ð  13n
r
r
-
/
 3
startNumList$F
H
 NewList]

_
 >
o
,q
 $ Replace a "seq ln1 \r 1" field with3œ
 + a "seq ln1" field if this is no longer the!Î
  first item in this list:î
ð
  ú
 ü
 CutAndPaste
inNumList$
 ') 3
inNumList$='?  Replace a "seq ln1" field with2e * a "seq ln1 \r `" field if this is now the!–  first item in this list:¶¸ NewListÍ#Ï CutAndPaste
startNumList$ïñ  û
ý >


      3 + -  NewListB D  r” 
startNumList$m o   y {  r” 
inNumList$¡ 
£  ¯ ±   PeriodTabÀ Â  1Ð =Ò  7 Repeat search and steps above if search is successful:

 ×
"

")
+



;
2=

- Select the entire doc and update all fields:n
p

Ú
B

= Restore the field codes mode in use at the beginning of this6Â

1 macro and move back to the beginning of the doc:÷
ù

G

h
fieldCodeSave*,57CutAndPastereplace$RDT
? Clear the old number field, plus the following period and tab,6—
1 then replace with the string passed to this SUB:ÌÎ
B

ß
Ùë
r” replace$
 PeriodTab"
$ PeriodTab3@5
; Insert a Bold Helv. Cond. period + tab after number field:t v
4
. ƒ
=

“
&Tms Rmn
 ¨
:

 ¶
4
ÃÅÎÐNewListâ@ä
; Back up to the last character in the preceding paragraph: # %
9
2>4
9 Get the (case-insensitive) style name for the paragraph:q!s
 oldStyle$ €
D—C™
> Function returns "TRUE" (-1) if style name of last paragraph CÛ
> is NOT "ln1"; function returns "FALSE" if style name of last 
 paragraph IS "ln1": 68
NewList  oldStyle$
LN1 oldStyle$
LP1  oldStyle$
LB2 oldStyle$
ANCHOR  oldStyle$
EXLÇ É
:

×Ùç


u
Žú°õ°õ‘¤
€
‚
ýÿø€
‚
Š-‡  ‘ « ¯ Æ È Ê Ø Ü
C
h
l
x
|
’
¢
¿
¯ÁHXûûýÿûûûûûûûûûûûûûûûûûûûûûûûûûûûûûûû©
ÿÿÿÿÿÿÿÿ
Normal IndentCtLb1Ln1Lb2Ln2Lb3La2LbibLsLeHuLHk
Table Text
Table Head Table IndentLp1SbrHCnWhWpHn1Hn3Hn2NhNsNpNeExLp2Lp3NhiNsiNpiTbl BegSumSynTerm1Term2Def1Def2AnchorWhiWpiHrHoRuleHroSynwHuExWCt Rule Table Text C Table Text R Table Head C Table Head R
Table Rule
Table FootTable Title
Table EmbHeadItLtrWeSbrWeiLmcErmErpErNh List Text List HeadExLÿÿÄ

F ÿÿÿÿÿÿÿ
F 
f$> ÿD 
f0> 
@ D 


F 
F 
Rì D 
Rì 
F  
F 


D$ 
B @ @ D 
D 
F D 



ÿ’"ò8Ü
ÿðÐ$´#ó
øøüþì(*1(0(
0ÿÿÿÿÿÿÿû


ÿT
1´0´üÔþ

ýÀþ@
þ


øøpþ¸
1´0´ÿÿdZ

ð$



@0 øýøÿüÿÀ!1h
0h
ðÿ[
øà

ø
èà

à
Ð
ø
Ø
Ð 
ÿ×ÿ
ÿ±ÿ


ÿ¡



ð.ÿ(2

#ÿ)O
ðÿ

ð˜þ& * &


@øøçþ01Ð0Ð
0


×ÿŒ& * 
°ÿn


Äÿn

Ð22
ÿ8
8ÿn& T
¨üP¤øL  
ôH
œð
à

Ð
ð
!ð
"ð#
ÿˆÿ$
€8ÿd1ð0ð%&

'

ð(ð[)à
[*

øø˜þ8øè
+ð
,ð- þà
ð.


€$ÿd1ð0ð/
øøÿà
& * 
0øø
1øø2
30ý#4


øøÿЁ( * 1´0´ 5
6 7
89
_ÿ<& * :xˆÿ8ÿ;


-ÿ
P
<x
=¸
>


ÁþÈ?ºÿ@@


ððÿZ
AðBC
H@üe[
DE

@"@
Fÿ)GHð
T

DÿJYòóÞÞþþÞÞ
4Þ 
Þ Þ@ÞÞÞ?ÞþüýÞÞ #Þ()&'Þ,AþÞ-Þ-%ûÞ5678Þ:;Þ<CÞ@ÞA?BDDCCFFFHJó ÿ
ÿÿ
€
€
ÿ cCG Times (W1) Symbol"Univers (W1)"HelveticaCondensedRZapfDingbats"LetterGothicyƒ*ˆÿÿˆ
UpdateList+formats bullet character for lb1 paragraphs#ða,»EmÑeŽ_Ks-Lori B. Walker Emily Brooks