ࡱ>  57  M "].bjbj== "JWWR* l$$$R.R4K:LLLL3*] i0[KKKKKK$4M TO%K$q/3qq%K LL:K   q~L$L0 q0 & /(h$"0LbR @Ћ}P[Z"/"0PK0K6/OT>Q"0 8J6LingWord A collection of Word 2000 macros for linguists (mostly) Susanna Cumming, November 2000 This template contains a toolbar and several macros for Word 2000. For a discussion of some of the motivation for these macros, and instructions on carrying out these procedures manually, see my Word for Linguists site: http://www.linguistics.ucsb.edu/faculty/cumming/WordforLinguists/Index.htm Especially relevant are the sections on templates, styles, customization, typography, numbering and cross-referencing, and interlinear examples. Installation You can use LingWord.dot as is by making it a global template. Put it in your Word templates directory, and then go to Tools | Templates and Add-ins | Add... and select it. Youll see it in the Global templates and add-ins list. Make sure the checkbox by it is checked to make the macros available to all your documents. Alternatively, copy the toolbar and whatever macros you want to another template (for instance, Normal.dot). If you copy the toolbar, make sure you copy the macros too they arent attached! See the Word help topic 51 Templates for instructions. You need to enable macros in Word to access the macros in this template. Under Tools | Macro | Security, set your security level to medium or low.  StyleArea This macro shows and hides the style area (where paragraph styles are displayed) at the left side of the screen. To adjust the width of the style area, drag the vertical bar. AdjustSpace (4 macros) Four macros that let you adjust the space before and after a paragraph in small increments.  Less space after: reduces the space after the paragraph by six points  More space after: increases the space after the paragraph by six points  Less space before: reduces the space before the paragraph by six points  More space before: increases the space before the paragraph by six points  ToggleQuotes This macro toggles the Autoformat settings (under Tools | Autocorrect) for quotes and dashes (called symbol characters), and changes all the quotes and dashes already in the document to the new settings. If Smart Quotes is on, and you run the macro: Smart Quotes and Symbol Characters will be turned off All quotes in the document will be replaced by straight quotes All em and en dashes will be replaced by double or single hyphens If Smart Quotes is off: Smart Quotes and Symbol Characters will be turned on All quotes in the document will be replaced by curly quotes Double hyphens will be replaced by em dashes, and single hyphens surrounded by spaces will be replaced by en dashes  ExampleNumber This is a very simple macro that inserts an example number (SEQ EX field) at the cursor, surrounded by paretheses and followed by a tab, and then updates all fields in the document (so the number that shows is the correct one). Youll need to edit the macro if you want to change the punctuation or remove the tab.  TableExample This macro aligns and formats interlinearly glossed examples with two or more gloss lines using Word tables. It can work on a single example on one line, a block of multiline examples, or a long example spanning several lines. Features Accomodates a single-line example, a block of single-line examples, or a multi-line example. Any of these can be formatted in one step. Supports any number of gloss lines. Optionally, cleans up your example by removing extra tabs and spaces. Its advisable to do this if youre reformatting examples which were previously aligned with tabs or spaces. Makes your example into a table with autofit enabled, so you can edit the example and the columns will resize to fit their content. If the example would be adjacent to another table, inserts a blank line to prevent the two tables from merging. Applies paragraph formatting: the example text line is formatted with the Ex1 style, and the gloss lines are formatted with the Ex2 style. If these styles dont exist in your document, they will be created for you; you can then modify them to suit your needs. Optionally, inserts a fixed-width column at the left that you can use for an example number, speaker labels, arrows etc. Optionally, generates an automatic example number (using a SEQ field), adds punctuation that you specify (e.g. parentheses) before and after the number, and applies another paragraph format (ExNum) to the number. It also updates the new field and all fields in your document. In the case of a multi-line example or an example block, the number can be applied to only the first example line or to all example lines. The latter is useful when you have several one-line examples in a row, or you want line numbers on a long example. Optionally, creates a bookmark containing the example number and its punctuation. The bookmark is automatically named from the text of the first example line. This makes it easy to cross-reference your examples in the text. Instructions The macro makes a few assumptions about how your example is set up. To use the macro: 1. Type your example, separating words by single spaces. Dont add a number yet. You can put a blank line between example lines, or leave it out; one will be added for you. You can have one or more interlinear gloss lines and one or more example lines. The following example has one gloss line and two example lines (this macro does nothing with the free gloss): ini sebuah contoh this one:CL example yang agak panjang that rather long This is a rather long example 2. If there are different numbers of words in the example line and the gloss line (for instance, nonverbal material such as speaker labels, laughter or pauses that you dont want to gloss), type a tilde (~) corresponding to the word in the other line that you want to skip. The tildes wont appear in the final example. (If you need to use the tilde character in the text of your examples, you can substitute any character or string of characters by setting the empty cell string property.) For instance, ini @@ sebuah .. contoh this ~ one:CL ~ example becomes ( SEQ EX \* MERGEFORMAT 1)ini@@sebuah..contohthisone:CLexample3. If there is one example line, place the cursor anywhere on the last line. Otherwise (a multi-line example or a block of examples), select all the lines you want to align (not including the free gloss). 4. You may want to save your document here. Since a macro corresponds to a series of Word commands, it isn't easy to undo with Ctrl-Z! 5. Then run the macro: click the toolbar button, or choose Tools | Macro | Macros, selecting TableExample from the list, and clicking Run). You will see a dialog with a number of options for how you want the example to be formatted:  EMBED PI3.Image  Choose the settings you want and click OK. If you choose the default options (as above), you will see a result like the following. (This bitmap represents the way the example looks if Table | Show Gridlines is on so you can see the cells.)  EMBED PI3.Image  The number is actually a field surrounded by a bookmark. If Tools | Options | View | Field Codes and Bookmarks were checked, it would look like this: [({ SEQ EX \* MERGEFORMAT })]. The bookmark identifier generated for this example is ini_sebuah_contoh. If Number all lines were checked, there would be a bookmarked number on the second example line as well. Options Heres an explanation of the choices in the options dialog: Remove tabs and extra spaces? Check if your example might contain whitespace that you dont want to give rise to empty cells. Gloss lines: type an integer corresponding to the number of gloss lines for each example line. This is usually 1 (as in the above example), but could be more. Empty cell string: a character or string of characters you use as a placeholder for a cell that should end up empty (because it has no corresponding word on the other line). This should be something that never occurs in your examples, since all instances of this string will be deleted during example processing. Spacing around words: two fractional numbers that correspond to the amount of space (in inches) you want to leave between the edges of the words and the right and left edges of the cell. Left column width: the width of the number column. A fractional number (inches). Type 0 if you dont want a left column. Add number? Check if you want an example number. The remaining options are available only if you check this box. Number all lines? Check this if you want all lines to be numbered. If its unchecked, only the first will be numbered. Auto bookmark? Check this if you want to automatically generate a bookmark for the example number(s). This is useful for cross-referencing your examples. The bookmark name will be constructed from the text of the example, modified to form a legal bookmark identifier (shortened to 40 characters; non-alphabetic characters will be removed or replaced by underscores; a number will be appended if theres already a bookmark with the same name). Pre- and Post-Number: Type a punctuation mark to go before or after the number. Leave these blank if you dont want punctuation. Sequence identifier: the identifier that will be used in the SEQ field to keep track of this number sequence. You might want to change this for each example if you are using the SEQ numbers for line numbering in an example as opposed to for example numbers. Other aspects of example appearance, such as vertical spacing, fonts etc. should be adjusted by changing the format of the paragraph styles Ex1, Ex2 and ExNum. The macro will remember your settings in the dialog in a single Word session. However, if you want to change the defaults in a way that persists across sessions, you will need to edit the dialog in the Visual Basic editor. This isnt difficult, but be careful not to delete controls or alter the code associated with them. With this template file open (so you have access to its macros), choose Tools | Macro | Visual Basic Editor. In the Project pane on the top left of the editor window, find Project (LingWord). Under that heading find Forms, and under Forms, double-click on ExampleFormatDlg. You will see the dialog open in design mode. To change the default value of a field in the dialog, click the field once. Then look at the Properties pane on the bottom left of the window. Find the property called Text (for edit fields) or Value (for checkboxes). Change the value to your preference. If you like, while youre at it, feel free to change or remove the skin (background) on the dialog. Click the form background to select the form and click the ellipsis button (...) by the Picture property. You can choose any bitmap you like (or no bitmap at all). You may also want to change the bitmap property for the Number Properties frame while youre at it.  A`  / 0 1 A w x  W X Y abcdfgmnpq|+,Ǿ^J j_Ujv5U\6]5 j5Uj5U\j 5U\j5U\5B* CJphj5B* CJUph jU5\CJOJQJ^J5CJ$OJQJ\^J59CJ8OJQJ\^J6 *A`>'lj / w W f b  1  & F$a$$a$$a$$a$R.\.H1 f &apS\D5KI)6; ^^^ & F & F 2CDd`x$If$If^^^^^@ ^@ >+o`iiiiiioggcx$If$$Iflֈx  64 (a ,>?@A45GHIJ !w!!")"O#e# $$$$$ %n%}%)'?'''((**++,,Q.R.\.].H jEUjyZ= OJQJUV5\ jU jHUj= UV9+B4K x!"P# $$$o%*''(M)**+,R.S.T.U.V.W. & F & F $a$W.X.Y.Z.[.\.].H & F/ =!"#$%Dd0  # Arecv&@eI~KxADz9cv&@eI~Kx(Dd0  # AreEndӸkA-z9EndӸk(Dd0  # AreKaSAz9KaS(Dd0  # AreUH /A z9UH /(Dd0  # AreA5vTIai|Az9A5vTIai|(Dd0  # AreU/o y8wzsAz9U/o y8wzs(؀؀Dd0  # Are 3>#n]v3Az9 3>#n]v3(Dd0  # AreuY6a)Az9uY6a)(p&Dd'0  # Ab%e}$BC9ι%n%e}$BTahoma@4,Spacing around words (points):d@Tahoma@LG,{0@Remove tabs and extra spaces?d@Tahoma@@H,"{1@5Tahoma@ , Gloss lines:q@Tahoma@@H,E{~@5Tahoma@(,Empty cell string:B N@Tahoma@(,(inches, 0 for none) 5Tahoma@ Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ExampleFormatDlg Caption = "Format Example" ClientHeight = 4785 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 StartUpPosition = 1 'CenterOwner TypeInfoVer = 68 End _1036877758~ W-$}P[}P[Ole ObjInfoContents9  !"#%&(*+,-/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijlmnpqrstuvwxyz{|}~ZOh+'0 ,8 T ` lxThe TableExample macrohe SusaWidthFld; ; Width of column to be added at left of example. Zero for no left column.$#NumFrameT \ (NumberedFld; Check to number example with a SEQ field(2X Label7@{qL p $CleanFld{Check to "clean up" extra whitespaceL < GlossLinesFlda "Number of interlinear lines(2D Label8@{T #<(EmptyCellFldS"@XX @X@BB@XS $)P@@@                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              _1036868217 ~ W-$}P[}P[Ole ObjInfo ContentsmPlaceholder for items that have no gloss($2LLabel9@(%2HLabel10 mmmXF@BBm@|S (<9xEC9ιPNG  IHDR@X;8osRGB@}0PLTE@@@Kw{ pHYs+%IDATxo֙bЖT '"`w끁Y:QҔ}1q- ZL¨ SBI/P(ᔆbFJRz݉yqQjIV>Ֆ봡SʓǓg]+ "~4xٻ$ JbO//V|*HF^t#2J.oҥҟ7=/e%kO/tY:sN~ MoRى2*wr@ ge=>p];#CmwO,!7)hb3{P(rۏ~c٧êکCײx >;跗8/#ٲ23۹#}ɥ*me<'#ДZM)θ. ^n 0K Xh"DH2J3YsQftr4ɥV^ P‚rq:Lެj '9j3/78pXj-!! 76 $zz@RPf:UO*B QR еGj~OM$%y ĭNd9Qgh;)@e Pb =_8:z1KkDrd8F~" &?zp~}[ #go=+!x.ӀQHXZGPn6-jHP]C1) _Ę+$O{UrvrMb{r^VL0`e2C& h:,(VC6,J@"9+лBh4;=%WI@c8@: J8{}@HvWzV߫Uijx oiz{AZ *_{io~Tm*|k<{jh"HPE6Ǿfnn#ʨr#dK\+4B^h2שZf}Z&mWN7E~Wk];d!3liyĀUQ 4b;.I/4{+1+[%pglw49C:x@ZpeFG6-rM~m-MA7jSzi5^kuFV-/sCTؤX"QziyXC+'2>Jq~ϓ@6k֯s3m!db$3 qxil"v,]ե١Sr.`GĹ=}s4\R -`v h9Z8)C8gHir9@ *{ļbpI+͕Z[xޒ*duE9 @.(g lH0"4x8Ymu@ݫ/-)c N}2^a8, 8k^E>utus[QlinN._ֲ$xkN>ZYУyOLۃ#B\ ˝b@684UimDQ,.l$6bq\&o)a3w/f"P|d"tYơ3!Pn!c9 E]0LP 8?5}/0+7`rG3X 74vܢtv ƣ{鯟`x43n!L0+N33FC`ܗJu*̼LYQ+[s0sdςr̳M- i YKCf=k8-8sg6ܭDe 'jPDሤsWuFק?C;(?w1> [ŗ{ !w|!̝U]#3llg3[%ʍ娿m&ǫI'dy8fK^jad8Q9@%3dek rMHF1iI%m Dc/ ..[J? E>WWGT2D C  6:xmMlp=^3Z8@$-%sU_F'=YQ)[gX1[[F.]|J,&oZj4UQ!f\ˎ4Z҂ξ.N1`O R ڎji%*}5 @nxn GNDӘq&'YQ-[vSrW\);ep<)#b=+8жaCok.W`~gl.dle;YobsJ7,1Ĥ:\\v?H_kc3S*sb {I( tfp^.( '+5P.2̰i| bM 7Hi2R00Hh;Z9Q`( aQ y8@YlhBy"~g7&pbZ Ji@)n#"Hϓ- r<p/ u"j=J>([l"dM $p)/$oJYcm8 8=ncbS|rPCƵ%\aaTIn&)% tAu1ӄu9l hNQP H @,?':Hb@rq3G%ۻ0Cw۵`//HڬIZla(P.Z-1@m&U縳* J܏é`C%U_e! {4[ NhX݊攤ānW*>\ţzoöttO{jvd&2d*1\v35ra@:bAz$/[z۫ ;drA<͈braE/ag[sU t"&GhT) H4P '|xu,&zUh:ђ3Ir"3x!/^G52I8U;CkY7"NսsG k⺐ΎⶫVG%\i̜ꌮ@r-(^gIj렗k[;{}^fMUgRpޛJCa 82#*won H8pzb0ߓof[* 8|iwIr%T=632t{<00Ǘ:T%:"Y:o"=/,pKh[DSg\X@'zN tB>Y n b?!ρ΅T|@p??yE/xC(tE!8g?E0I  p$"f;($D@Sܱf<19K=dH'vf1DR0-IY 8RE/@gF2GH6 4D8&=Mkr$z qg #1:h"@f8@:)*Q@NH>minM%I!\e#M k̤ ];|ti6Z$I9)p'YR0Y(K]Ӯ04KÅ.^ Tå2eEƒ`U;U/he?^WYldzݾv`?bEX.ZȨ.B!,@[3VCgttGmBHf-%㌚hbCY:+Z-zah~2 qJJ owWR{GIWmt{Tˁߖ+(ݲ8MYQSXvuewz>' άqY_O,uTd`pZ/2ꎙryΊ<)Ho("<2o4|$=G1K̔V@Lm(\h|(5KF rD}Ȝ]E3&)Lw@+L3<_5D/?֮"wXk9li%C5hRgZu&_l {dlH0*_?W1֜ޛ=yS>^+%6WWK:ɽû6}ిʣU5t—73ܟoꧦsqf> #>6[>X_?y@a/+}`Wܪ|=afdK{Ip{NP tM%t(h}WOr,)R_vwe3xe3q?il7?z|xqon$didOpSKmv~ xϴt!:a8mƸ9!>S* ltO>C/ծ7A:Ҳx9 + (<;VsG `OJntMMMX.dvX\ĸ{,X~{;,P.(Tb D1gwY|f*3ڜo*2@gA|dd97L.:wF5c˞V\;|; GJZ;ux}_W≵;IGWqjMy8k_u^K3 3cYN]"aMOX~oSӣM|Q.Vi9)Ͻ]j&EWV:dtm>zr@!#>Ȅ۰" =PGS9qs–rkD_Ǝ:L\7Ho_y;Xoc@ܹwuo\6ͭ<[K7qۼ&Zbal/,d:]|wTE)p?q7vO|w`nyY⾣.)D/62םt{?;zud"f@]E;~?=Zg/k:=aNPu@B$9&'}0#S nWI^,΄)HOw1< P&/ yc_'sS~K ~#0dUQ {!9/R<_Z6L|>z1?;>X'oU)x|?P'ىLmbCV2 Mh q]/n z_ Y:(Z675.lZh ,#Ue܂y m1&#gFEP(C;O> {`ȧ] ݑMRgGJR g퉪 h5F 89p:{r0eF=}֎ ZtQMA_]!rmP}nYX"]l&1JUt=BS,Ј߾E|u/aV㻩om3j-pH^@VV]znhl5(cjsiW PRgKWlP.HH4 N3O;;"4(q=!!UVf)r\3{-prTV-\+4,a+{,8{\N`Fc&PBDo㨏aU@ ޅ 5}@6n927+enh@k^͚݃2RrR`Sv˕"^()5;hYQv32rS'z7ۭקhYv+WF.u}7M ߻I =|1hQ:+⎛ p=97@%O263t?M8PldW$$l5z}Rg/?#]H>O.9-^>[46=s9鴶ϼ2WB]o7oy4P9gjso>w3T,;^͛ /s7so`1+j6]$A / _B!`U]! ƀ ?x%C">-WAحJpFMSP7c EB(_+Щ<*C5kz"ъHnEfXmxjS71يn~$ -T#IAC4kvؑ3Z|'MW:#y\Yp"ʸ7xҀ4v}`cMǫVNHM>׻()$<`5{"oiˀ\zNܮ5|OPn8:m}T{k ;I;[4 $[{OS{)_ lWӀC+zЄ_ 8 q̝Bf ,E~7 ?;ea-[sN24_JErnF5Ԧxuq˅9nrȪ Mo%Sa>J2pB NSh MR,7،WaX>bb%iqcXVYk op_IvU"ɯ)xlj)MaUlLTfMma^,KqjcMT׃vaOLY8 UЏDE.ޱa 9X.ՔWӊ[fo'jZ}L;ojد b8qS~S!ʖ*Ybnx mG4r B awA9rwrݚ(@@~yql2lO,.u khU^^2J2ةJts^khcziwvU3M6N&rOR7쵰#g7Bx*U;e JeP RȮ],Wd4Ī9R"V;>TϤ}&Na9 POU"l]\fyx/+j^{(緕$cÒebcayZǧ'kȿjqx 1,ecn!XvZoIa5efɤU ٨İ_2tQg JaT7SisrlTV?$O6¦?\,¼ 5zPWXm+d ،IφuJ4z:Laoiy<6qJK*;rXO`{>E VVFc $lN+ʧWv;韀]q{),wFĥFHTx|Dw,uiKΈ}щ&A4M +dzmc\$svk~>#ʉ=9#:sq,M upFtz)ƖQ3Ҽ%Nr;NltZgkʈ*(-{VAi'ra7nKXuΈ1ӦGz$QaCz$懲h?Yհ٦gnKX~a8uJjN_;d#x@ ݶa VdtZy6a-L䁰xnvjK i Ҵ+k? ۋtA؞f~uilXXyVns;ұkE￲6 S`q v V'ܲå2evcuXЌC31+4=xncsع\%a[f*fa!J>s^8r'[W:j>[!D:&$ =[S}=U yV9ozXz)Y(X`˨O1A_nc=>X%=0EXBcᅟ `C VY  a#V† ̸.\8e)07gW4:Z&5uJva;lOu>VۤJE$"ϴ,t+_}핶VdOa-`' a7V=qzaAՔM4@VXXɹF+]VEA=Tr.~!`"e3χkOhy˪!WXv²^T,; 3ˊK-+h5Xpɰ&}dXzȅ8+T*zP BXgφ-(Ͼqv/q:[)x[B}k)!`ϼIENDB`1Table3qVSummaryInformation(DocumentSummaryInformation8 0Macros1y}P[@Ћ}P[nna Cummingmacusausa LingWord.dotingSusanna Cummingmac210Microsoft Word 9.0c@J&@<M@{P["Z՜.+,0 hp|  aJ* The TableExample macro TitleDrZ#<ƬaI/`Z3 FVO~8xVO~8ƬaI/`Z3ME(SLSS6"VBA2y}P[`b}P[ThisDocument__SRP_4$__SRP_5'BN0{00020906-0000-0000-C000-000000000046}(%Hh % %8p@@88q_;$*\Rffff*283b5e096a4xAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2rU  49 aa `rU @nrU H(`/(`/(`/$` nrU  99 a 8 @ P X TableExample 1b__SRP_6$__SRP_7) ExampleFormatDlg"1cR1*#e2*\R1*#e3*\R1*#107*\R1*#106*\R1*#103*\R1*#e4*\R1*#e8*\R1*#d4*\R1*#de*\R1*#dd*\R1*#129*\R1*#c1*\R1*#5c*\R0*#10*\R1*#cb*\R0*#14*\R0*#1*\R1*#e2*\R1*#180*\R1*#e3*\R1*#17f*\R1*#1d*\R1*#17e*\R1*#106*\R1*#103*\R1*#c6*\R1*#e4*\R1*#e8*\R1*#b5*\R1*#be*\R1*#1a3*\R1*#1a4*\R1*#21*\R1*#b6*\R0*#f*\R0*#e$*\Rffff*;>3b5f5ea1*\R1*#1e*\R1*#de*\R1*#dd*\R1*#129*\R1*#c1*\R1*#17b%] p . x (@ H` $   J@ 0( , 0 ,0 :h 0 H@ B  H (P x $- " 8$(@ h " p  $     (! /+ 0 (h@V &(f P (@ <h $6    (0HlV!OZ+DxME( (L4>  L<(L@L <<<< <$LLLLLLLLLLLLLL*L**LLLLL"LLLL<<<<<<<< `|H$ @"@@*< @`:h % `,`n%%`t@XM& @  .x  `x`opffv @@`\ (X% pxH%@I6 &(@,@ @`0$ @~ @I6 ʀ(, @`Z"B @Hd  %`x``j` @% `tLAA4 \ @Yʀ h @PPX @T @D  Y >p Bl % th`8k %Iv  hh@H0@x`x%f " @ @ @ @ @ @ @  8  @x  h @X "` H ` 8  P ( @ (  @   @ h  @ P  @  @x h @X  H @8 p (( p  @`p  @`$" ( @  o   o PzHPPh XV H V 8 @( @ H  @ 80@Hp  0Hp@ X 0 8 X `      8/ ( p  @ @ @ @ @ ( 0@HX 0`Tp`00(@tl `@(@8D @p4  |t @P$ @" 80Hp p PX`hp``z@  @Hh (h@FpX `T@ x@  x Px0$,^dbf@H@ @`0 @  @ @ @8 @@  @ h@ (@P @ x@ @ ( @ @J !`&(@h @ V@ @ ```` 8@ @  @| 8*\XV@x `[ HPt` P(@Dd PT``X!h`%(|x(`1t`4X H0H8q_;$*\Rffff*;;3b5f5e4c*\R1*#d4*\R1*#e6*\R1*#107*\R1*#c6*\R4*#2e*\VBFrameS0PROJECTwm(XPROJECT]CompObjijhP& $6   0 8 @  8jH &   @ H "  ( 6 ( 0@ :p  : 2 $4x*D     <8 x *%      ,x#8&P #&0  $&@-Xx    4 BX   6  `'P 4p (' HP  X p0Dx     N  *  !  L (0 ( *@   &0  f & 0 8   "  . 08 8 ` h ( &9J!@:`+0X 0  h    @ ` 0Hx 2! @   2x  .  "X  "p   $AH.jp0 & "  P 4x  4 xp 8y  X p   p8    %H 0 ( 0&:% &8)0 0 / @> ( H>X  0  70 p8]CValues for left and right "padding" (space between words) in points] ]  D] ]  *Value for width of number column in inches%Whether to generate an example numberumn)] h] @&Sequence identifier for example number] H4Punctuation that precedes and follows example number)Set up a bookmark for the example number?Variable declarations ,'F select current and previous lineec L!4..f  .B@lkHdF-Otherwise, assume user has selected whole ex. If bookmark requested,'3set up a bookmark label containing the example text,modified to make a legal bookmark identifieret a u6Replace all non-alphabetic characters with underscore, right to left ` H$ H `$d$b'J J` J{  J$f F 'FdF_ F 'Fk`X F$d_ F$_ F F $d'FHk .B@tious lConvert text to tableB@l r h%p .B@l hB@nZbl .!j.he \ hB@l's a 69 6!!R " e , ',Did the dialog execute?e"Apply style Ex2 to the whole tableEx2 % 6!4(@ Apply style Ex1 to the first row cEx1 % 6%!4(@]o@Number the line%]x C@nAdd the numberd ` 4 l &d5B@ (C@  C@Zumber *C@Format the number cell8ExNum %9@ ,kko`!=================================6Error handling code: Create styles if they don't exist Ex2 l5%.> >!Arial9 9q >!999 B(ting dq0`Generating default Ex2 style. To change the format of the first example line, modify this style.' T T XA@Vq  Ex1 l5%.Bng dEx2 B( B!the 99q(aGenerating default Ex1 style. To change the format of the second example line, modify this style.' Tl T XA@Vq ` ExNum l5%.DatEx1 D( T XA@V tq |(o |`]` B@B@ ~|kxp \ B@Z2 toq  4 !B@irkH-Look for another bookmark with the same name;@;if found, keep appending a number till you get a unique onekmark '` F'  !%quesRemove tabs and extra spaces?] *Show the format dialog to get user options   $'   $'r(1,ex  .!d''reduce sequences of two or more spaces)ce  Makkx(replace tabs with spaces,"Global variables for format dialog(hpFormat one line of the example( Format an inerlinear example as a table]P]Ph^Generating default ExNum style. To change the format of the example number, modify this style.' TX0pp@0]x L!P!R @!If selection is one line or less,  .(d!Insert a number column if desired  $ f $ f  $ f $ f $ f$')Whether to number all lines or first only] 0$Add a bookmark containing the number|#===================================3Don't try to do this if there isn't a number column $G|jX/Add a number to the first cell of a table line;!format it and bookmark if desired] Number of lines in glossxP-Check if there's a table on the previous line-If so, insert a blank line before the exampleA0058hx] |~   .%z.6Format the table5(9 "9999qXP 6!!R "  6B@>H ` ,h ` .%A@H $  .B@H'$ ]p,If desired, remove extra internal whitespaceting)X   $'ormatt ` 6!!R ]0 ` v!x!Rd HG'tcGF'tjptyi(| 6% 6!%.:eC $$ :((1)Format each lineSplit table into multiple lines',p!Tests to see if a column is empty]Gx ` v%x!4!d' 'H  G H  'Hj]tykdFkk `k  `: If ` '` b F(  $  'k@(Add ExNum style if missing0H``Simplify series of underscores'Hp`x F__  F___$'FH@ F($'Fowerca H$^'H lowercaseTruncate ]]  H ` 6%%x!4!d 'H  P ` .%A@  ` 6%!x!R0 ` .%A@ @ 6%x!4.@ F F $'F Update fields `G !B@jP `$$'%Trim leading and trailing underscores L%P!4..Set the text in the document5(d tilC@5B@nge.fiq  6!4!  C@ Delete empty cell marks9FpString for empty cells] @ 9 9dProcess example textn lRemove any blank lineshB@k)Check if there's a table on the next line \ hB@lthe pr .!j.h \ .B@Z r h%p .B@x,If so, insert a blank line after the example8 v hB@nIfp* 11/2000 by Susanna Cumming for "LingWord"(A macro by Susanna Cumming from LingWord:XTrim empty columns ` 6%B@pF ` 6%$ts. $ G'cGF'j00Turn off screen updating ( (Attribute VB_Name = "TableExampl e" 'A macro by Susanna Cumming from LWordZGlobal variAs format dialogNDid the exec? Public dlgCancelled As Boolean ;Remove tabs andڶ*< Di8m n6As,T t 2( Th ^s`s t+ N`a""True Else: Fa`c E@|"ZSub A(p(tbl# o 05!m 2$ a1 ~ 2`1!~d24m Step -4` &!%5)" (a A9DeletA!,If 6$Apply`@-2AN)whlOn Err`HGoGSt`?@A CE`ActiveDocu m .s("EXx2"`7.1%fArow 2 ~(1ET1K 0KExit L@=`# Vh` }ghd@YCreAsA"st`'y don't dis@c "&: Wi $#7 N1`(&.Add(:=', Type:=wdB ParagraRyBe_QGDrAfta= 0msg$ "G#mPw default*R."Me`g`he\Af2C%E]!Z *12bl.Rtbpj7Cpa1'Perc5LC(s$Vt0Repl`"no@n-alph t)chPYcMs w^underscore'P <-Z aAsc(R(#n) `a@96 A`0a < 123qChr(a)P"_"P!Aqlea!Ri9=g GWhile@ft(, 1)_?` S") -Wen6L#f  SidsxeriP InStr"__>"oT$W, Vnc 40s Lranother bookmark with the same n ;  'if found, keep appending a numbtill you get*unique onen = 1mrkTxt"While ActiveDocument.Bs.Existts(7)2Sn +WStrY Trim( (n)/@LeftN, 40 - Len(n))&JqEnd If 'NulilSuR= tbl.Cells(1@).Rang}W*.Collaps 'Add Ifed Then r.Fields&.3:=1, Type:=wd Sence, _ Text:=seqID, PreserveFormattu:=Tru(In@tBefore preAH#MoveIwdParagraph#HAftpolst 'HA cROn Error GoTo@ Style3=.BwLs(h"Ex"0GGfacontain lJmmakeMA mKACi.LCh@LcF, -D V%A}N:=ó, ʀ.A t Sub[=_!b( s/B miss`! b,2: ^+fstl345X(4X AZK7A.Base" @1"C msg$!GeneraY defaul$t . HchtbN@[_ of`examp@;, modify@isc. MsgBox a, vbInioug-Res`!-..a TabY (', daan ErAar eastA11/2000 by9sanna CummS@ "L pWord@ Vari"clOt`s Dim AsJeS `@ Dlg: U`ClnsIntegerc(ObjectBN esel[ * ! @|less,` curr a@'viousbT S.Dsunt < 2HaOexcȶAfBbuStart țuElse: 'Orwis$as< u " hG4whoIe|x.`/xDShowQJ dialog toi op8EcHF3.$dlgCa xw%/e+Rsany 7PM_ Ch`r$(13)G ,O3)GW ,u)1 /hebP1dda55CK66AiR6g.6N26E82s\2cO'88bå 9WX4CW8c@?!Con|ve[5qStsbNldToB>(Sepqor:=,, AutoFitsִTBehfawd$tk, DRyy9Z![! GC@rder NpABLE W.@TopPadb=U5ttomA* WL$RightR?0P$;.AllowPageBreaks$CA b,D{te empty q;Bqnd ClearsTQ 1dtD@.D"pecu 4qդ f W@ρcndStop]f+` columf@\4Wid QV*720|:= % .1`fer_3= InchessToPoints(numWidth) End If 'Split table o multip4lines lns = 1 Whi*tbl.Rows.Count > glossLV + 2 H( ^-/,`+fendFormat each   n To 0lExam exRng.TG`If }berAll Then=Num (Else:%ed %'O2 6Б! NextUpdate fie ld Q ActiveDocument.F .C  Ap@cation.ScreDenBing@2TrueSub C cD%lC q=4Aq54 lFD%lCl= 5:D!%l=4 C54%D%%l"#$ q:(D%B4%%=%&'4h64%\7$ n\jD%h(pn)=4)A*BDD]t640=4)A*BDD%+64 knpn(knD$h/`"dx Ld 0,Q`o4 -d54 &>X`"dx Ld 0,` .QXo4 /)d`54 $(D]3>X`"dx Ld 0,` .QXo4 /)d`54 ~ $3-\`d$ 4d 0` @1)d`8Lb4 thpxxd`XT4hH(hH(\ B@8ad MeX B@8k !d'+00 !d' !d'"y !d'HogAttribute VB_Name = "ExampleFormatDlg"  Bas0{8F0BC845-2F47-47B@1-A74AA04CA370C1}{3B17756A-6EBJ3B5-9C04-30AA32B@2FF94} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0Teate DerivCu@stomizDP Sub CancelBtn_Click() dlg l-O .Hi"d\End'  .NumbeqFld/If .Valu1` Then@Fr~.VisiRuC!E@[:J#I&f#T&OK<'S`ave dmCr emoveEyCl8ean1+CLPagATextR numWidth|8BLO seq4IDS pr>e@ ostDCmakeMark@MBg5.#AllglossLines A GGtyCeEmpCPd;PPV_Initialize^tG:_Chang" F__SRP_9.__SRP_8kStyleArea"!o@__SRP_2'$` T   :'99,!:94 ! 8 9 `  < Q @q  rU~| L1 A i I*q* )a0 +!Iq!a00q1a211y9*1"+ )Qq %! (" Yyy*)## $$jl=4?A$*U64$c -j@l>4?=$A`1T64$lTJuXlTFD4X jd &X:D!]3 cDl fDl |0blXT4$hpZ#pZ/l =8%A*\kZD((58p+\ @l >8% 268\ @l >%35 \RKwV:H4N88$ 4 0 05Qo%l =C6)68K|f:H7N88$ 4 0 05Qo%((%l >)=C6)68K$ 4Q684 0 45l=8p)58p d8Q 9 : 7 :cp \8Q  H;7 ;7 ;c<C|&'''8@|MH@ =68c $ 4Qx687x 0 45l=8l)58:H4N88l 4858l \8Qt7t ;7t ;ct l 8>C|&'''8@|MH@ =68cx h\bDxt|x\tpl(8l @$4z(@%l >)=?A*U6cDhz@(@%l >)>?=Ah6 zdQh @h :@!XzhUce*kzh A  BD@/5%(@`]p(0{]c'E " CXX5Y:@DXX zd#X E :@D]35&X(@"X A Xe#X A :@D]35&X(@"X E X&X:@F(0]t5Y-DFX FX/(X E Xpz X1T6lT$ 4 80 HGk)$ kzpz'zM@@ H 54(@("X E `1T6'(@%l >?AP6 lP' 5 $Dc(M0@ lP  L1)6, /|' 6< KN:@IN$ 4 0 05Qo )6K @!|(P 6LxlPM@ @lT$ 4 80 DGl=P)xc$ 4Qt0It 0 45Qd5:@7%dCJKC`&'''@`M@@ =6ct lLb4 tX`PdhT4 x89\`d$ <d x` l\)d`JTX`d$ <d x` X lT=x)d`XT!\(4x 64+`d$ <d l`=x)d`$ dx DQdD%D%(%D %B454!\(4x 64 x x >1t  "  lt 1tlt  "  lt 1tAlt # #*#2j 1 1 1>#>#>#*#lt 1t2 <JtMD@4 E 4`1t54 ltx  x |dx DQdD%(% D %B454{ x `\'(4x 64ydc'('H'h''''''('H'h':D N44x Qd6 4hH(hH(qfD%l=4C54(D%lC(D%lClCDD%lC(D%lCfD%lD 9 H L !P 9!T IX 9)`I \a   ` `   d  ` ha il  pa ta  xa 3|a  3a 3a  Ayia  a  LZYf ӡF^WsX1 @ ߕ$?hIh{:k(]#J-x(]#J-f ӡF^WMESPSSS>"<<<LLLL LL<0{8F0BC845-2F47-47B1-A74A-2FA04CA370C1}{3B17756A-6EB7-43B5-9C04-30AA32B2FF94}h0(%X0 %%% x`xHke i VH`| !i 8i $ &"($f R`|k T0`dk ` e%i i i i i 0Hi @x @h @d 4`2&.(0*,,  "((h~8 ~8 4*d @x @Ph eh@X D@H 0d }(2&.(0*C:~8\MICROFTh8H0p(8q_;$*\Rffff*;>3b5f5ea1*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44$*\Rffff*;;3b5f5e4c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4748<@DHLPTX\`dhlptx|("  `( "(   0  "0 8 $ #H $X $h $  #  $ $ $  H x "  " ( 0@xodFo0 Save data $!d'  &!d'"H (!d'$`oH0o( 4!d'`?@ 2!d'&y .!d'( 0!d'* ,!d','~'~ *(z/ 4!d4 *(z 4$kX'~  9v W    Lz$$b d(hx! x hcX]3x5hEx! x x_x! x x4d$b xhH$hx! x hVzx5h#dx! x l>dFhx$dx! x lldz/dx$dx! x lld3~/dx$hx! x hVzx5h dx! x l>dx#dx! x l>dFh x dx! x l>d x$hx! x hVz x5h$hx! x hVz x5h$dx! x lldz /dx dx! x l>dxz$4$b dxh0 0  0 H  `Xd88rU $ `$A `$ `$ `$ `n]AZFxME(6 *LL `pH8x%0xtx8x t`\/|Bp PH8q_;$*\Rffff*253b5e04be*\R1*#d0*\R1*#c1*\R1*#17b"  ( 0 H PX%h(`0 5 ?$koph8 9dFq?$9! Toggle display of the style area) Macro by Susanna Cumming from "LingWord"Attribute VB_Name = "StyleArea" Sub <() ' Toggle display of the sn apFMacro by Susanna Cumming from "LWordcRWith ActiveWindow If ".}Wid$> 0 Then $ != 0Else:'InchesToPoint`s(0.5p)End If M rU~| 1 Ytx$ 8Qxtpt np@7t g%p?7$ lpt ct t(btxkrU $`nZ(sxME__SRP_3&gExampleNumberhToggleQuotes$N;__SRP_c(6 << <80% ` 888q_;$*\Rffff*0;3b63182f  "   0 @ @H0`@x8oh ExampleNumber Macro(d LB@3 L!44 lSEQ EXd L!B@) d LB@@,@ !B@: Modify if you want to change punctuation, remove tab etc.) Macro by Susanna Cumming from "LingWord"PLAttribute VB_Name = "ExampleNumber" Option Explicit Sub<() ' * Mac ro, by Susanna Cumming from "L Wordm' Modify if you want to change punctua, remove tab` etc.helec.Typ@eText :(="(]SFields.Addd R,:= ,B  :=wdEpmpty (%S`EQ EX ( 7)" & vbTab AHveDocument.=Update 0 EndrU~|  1 'A 'AYy('r - 9d 9q  L!B@dF L!$f9d--5(d 9qp  L!B@ L!$f9d 9q  L!B@ko-5(d $f  5(dDouble-dash with em dash1Hyphen between spaces with en dash between spaces*(remove this part if you want quotes only)En dash with hyphen) A macro by Susanna Cumming from LingWordAttribute VB_Name = "ToggleQuotes" Option Explicit Sub () '(s value of "S mart  and "Replace Symb`ols",9makes adjustments to existing text in docu58A macro by Susanna Cumm1from L Word.Dim curl As Bool(eang'f thZws setA; If s.AutoFormatAsYoupTypefpT"r|The+ )False "7k= E&:[n; U= E@yIfVzdouble q With@ Selec.Fing> .TAy""B|!PWrapAwdQConluQ ~.jGI%A.0Exec:=DwdAll1s{@1'1T1?, 0dashՀdhy ps(removeis ptif you want4 on`X8q_;$*\Rffff*;03b5e1cb1*\R0*#f*\R1*#be*\R1*#b5*\R1*#d7*\R1*#d6*\R1*#129*\R1*#166*\R1*#c1*\R1*#17bM "  > :X  0  '  "  ( 0 $P `p   $  ( 0hh  $p 2  80 $ "J H $ $0@PX`   $x$  x7 Toggles value of "Smart Quotes" and "Replace Symbols",3 and makes adjustments to existing text in document]@Toggle the options setting !o ( ('dF ( (o'kReplace double quoteshj L!"9d"5(d 99qh  L!B@Replace single quotes L!'9d'5(d 9q  L!B@Replace dashes and hyphensEm dash with double dashf  L!--9d$f5(d 9q0  L!B@ L!cpr''''H''('H'h''''''(lt$ <t l )tl6H(hH( <b$hxtpT|tlH(hH(krU $ `n' Z__SRP_dgAdjustSpace __SRP_e#*__SRP_fxMEP6 L*LL<<@0 @`Xlk `lk  `lk `lk@P%xHhL@@(x @t p``%Hee@l Hx0L@`x e@t p` %xe@l hL@x @t p`%@l L@x @t p`%@l `(8q_;$*\Rffff*;13b5e1cb1*\R1*#e2*\R1*#180*\R1*#129*\R1*#c1*\R1*#17b  8 .0 `  " $ 08 "@ $H.GX " $ " $.G   L!5 9qHo@@ L!5 G5 9cGF9jqpoh L!L!5 99q8o0 L!5 G5 9cGF9jmqo(adjust space before or after a paraThisDocumentThisDocumentTableExampleTableExampleExampleFormatDlgExampleFormatDlgStyleAreaStyleAreaAdjustSpaceAdjustSpaceToggleQuotesToggleQuotesExampleNumberExampleNumberID="{971030D1-064F-4DDA-9352-3F2A815149E6}" Document=ThisDocument/&H00000000 Module=TableExample BaseClass=ExampleFormatDlg Module=StyleArea Module=AdjustSpace Module=ToggleQuotes Modulgraphr in increments of 6 points1A set of macros by Susanna Cumming from LingWord:LAttribute VB_Name = "AdjustSpace" 'A set of macros by Susanna Cumming @from LWPord:fa s before or afte paragraph*in incrementsf6 poi  SuXb M?A@() With Select ion.PTFormat#'.:# + 6End ' 9<Less 6 The*n =-Elhse:0SB3H(IC -FIIDI JF YJ rU~| 1 A P$tx$ <x Qtpxlp nl7p cpP(bpxtx$tx$ <x Qtpxlp nl]lp nl7p m7p cpx(bpxtP$tx$ <x Qtpxlp nl7p cpP(bpxtx$tx$ <x Qtpxlp nl]lp nl7p m7p cpx(bpxt\rU $`$`$`$`n0* pHdProjectQ(@= l 8q_; J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Automation^DOfficDO>ficDD2DF8D04C-5BFA-101B-BDE5DAAB42DPROGRAM FILES\MICROSOFT OFFICE\MSO9.DLL#Micro soft F 9 .0 Ob LibraryCMSForms> MSFrms$3D452EE1-E0D8FXA-8-02608C4D0BB4NFM260&_VBA_PROJECTj)dir__SRP_0% __SRP_1)pstl2i4stl3j4mrk0sjaX SelectionZwdSelectionNormalR ParagraphsfCount0vmsgQMsgBoxR vbInformationnMoveEnd* wdCharacterLCase:neAsc!uRight ChrK~testRng Duplicate_ MoveStart}Collapseu Information wdWithInTableTInsertParagraphBefore) wdCollapseEndInsertParagraphAfterConvertToTable* Separator^AutoFit& AutoFitBehaviormwdAutoFitContentwDefaultTableBehaviorwdWord9TableBehaviorTablesBordersC"ENABLE  TopPadding BottomPadding LeftPaddingóInchesToPointsI RightPaddingSpacingSAllowPageBreaks AllowAutoFit StyleError2%ActiveDocument\Styles p StyleError1%RowsUColumnsp9Addr BeforeColumnݣSetWidthH ColumnWidth RulerStylea wdAdjustNone~CellFields7wdFieldSequence?PreserveFormatting= InsertBefore. wdParagraphH InsertAfterq5 StyleError3% Bookmarks?nwdStyleTypeParagraphFontUSizeParagraphFormat KeepWithNext SpaceBefore SpaceAfter(TabStopsBClearAll  NoProofing] BaseStyle AlignmentIwdAlignParagraphRight0 TableExample1 UserForm1)MSFormsC ExampleFormatDlg FormatDlgUUserFormNLabel1,TextBox1SLabel2,CommandButton1|CommandButton2}Label3,TextBox2SFrame1Label4, CheckBox1TextBox3SLabel5,TextBox4SLabel6,TextBox5S CheckBox2 UserFormsKShow _B_str_msgsZControlsK _B_var_LCase' _B_var_LeftQ_B_var_n _B_var_Right9 _B_var_Chr\;_B_var_testRng$ItemzLPadFld$RPadFldj NumWidthFldNumFramee MakeMarkFld PreNumFld PostNumFld~SeqIDFld` NumberedFldoCommandButton2_ClickHide9z CancelBtneOKBtncmdCancel_Click\ blnCancelled cmdOK_ClickintSalesPersonID1txtSalesPersonIDN strRegion+I lstRegionsList* ListIndexQUserForm_Initialize5cCancelBtn_ClickC OKBtn_ClickExampleFormatDlg_Initializei4Click _B_var_LPad _B_var_rpadN_B_var_numWidthj(numbered3n_B_var_numbered;6ValueK _B_var_seqID߉ _B_var_preNum4_B_var_postNum_B_var_makeMark_B_var_blnCancelledblny _B_var_bln6 Cancelledk/_B_var_Cancelled8NumberedFld_ClickIVisible _B_var_ifP (dlgCancelledEnabled۪_B_var_DlgCancelled!Label7, Label7_Click; Label3_Click<publikc+_B_var_publikc. (StyleArea ActiveWindow+StyleAreaWidthStraightenQuotestStraightQuotes|Options AutoFormatAsYouTypeReplaceQuotesFam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{00020905-0000-0000-C000-000000000046}#8.1#0#C:\Program Files\Microsoft Office\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO9.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{FB1DE585-CADD-11D3-86D8-0050DAC34300}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  8q_;ZThisDocument283b5e096aThisDocumentTableExample;;3b5f5e4cTableExample+0O ExampleFormatDlg;>3b5f5ea1 ExampleFormatDlgY0StyleArea253b5e04beStyleAreaFPGExampleNumber0;3b63182fExampleNumber(shToggleQuotes;03b5e1cb1ToggleQuotesC/AdjustSpace;13b5e1cb1AdjustSpace hP0$Jjqx%MxfDV|ET*Wt0H GڡxahO+ 2t !- MakeMarkFld_Click WqC<2PWfZ1KD4rlۆrWI%`ھMIO+P̳Dopӵ q. p K;5B5^5dC/uSC (WdO)'hh8]E;w_%#kTWsM,x}_2 fWLy /     0FindClearFormatting ~MatchWhK*mrU~~~~~~~~~~~~~~~~~~~~~~ ~~~ ~~ ~~~~~ ~~~ ~~~ ~~~~~~~~~~~~~~~~~~~~~~~d LnIH ÄF  e  A 4  A a4A9 A 99:A A  ,1,  ThisDocument TableExampleExampleFormatDlg StyleAreaUpdateAllFields ToggleQuotes AdjustSpaceModule1ProjectF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  !0 F4C:\Program Files\Microsoft Office\Office\MSWORD9.OLBWord F A@0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole aPL-[DR 1C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO9.DLLOffice Ai`.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms IIqpPCc:\windows\TEMP\VBE\MSForms.exd !II  F b Fk FƬaI/`Z3 FVO~8 FDocument @ isColEmpty ExampleLine NumberLine < $(0u FX FMoveStartQNO|OR|*ϽN8G~mCze(N31/6G2q3{lFWJOOKBtn!-6S` Label7 "-?@Label5Label6ҋB ` GlossLinesFldLabel8LPadFldRPadFld NumWidthFld?F`NumFrameBҋB ` MakeMarkFld PreNumFld PostNumFldȏ[qJ eUserFormVCd F3Dynamic   NumberedFldSeqIDFldLabel1 NumberAllFldLabel2Label3 CancelBtnLabel4CleanFldCancelBtn_Click Label3_ClickNumberedFld_ClickNumWidthFld_Change OKBtn_ClickExampleFormatDlg_Initialize Text      Paragraphs RangeMoveEnd  _g FDuplicateCollapseInformation *InsertParagraphBeforeSeparatorAutoFitAutoFitBehavior (DefaultTableBehaviorConvertToTable TablesBorders ENABLETopPaddingBottomPaddingLeftPaddingRightPaddingSpacingAllowPageBreaksAllowAuoleWordReplacementReplaceWrapExecute | |^p 8$(, H(,<~҅Hr0Έm2=Ax le}IL?Hl/bH7K5Label10 EmptyCellFldLabel9 /   H(,<'uDi%lwEtjI{]+KGdn * X iEJMn>ED^²> i5  װl{K֭QQAF*?҄ %]A_mo,j'&U@@;BreE7˘GZd@ 6  gb@Fܞ,{d.FB% [V@S=!t81AQ>|/^H() 7 X -qdgIHQ@`oE_^[KqbMM|ճ3戤:C}1`gx`2G@M3=i 9 RPadFld_Change XBL혛f ӡF^WsX1 @ ߕ(]#J-@ᴦ I:   ExampleNumbere\D?*տ  0A 4A 5A 6A 8A )9A q:A-@H,{2A5Tahoma@ , Left Pad:A5Tahoma@@H,{2A5Tahoma@ , Right Pad:A5Tahoma@(eNumber=66, 66, 644, 514,   FMicrosoft Word Document MSWordDocWord.Document.89q,J 0 %@D}t R KQDBTahomaR KQltBM6(   iB@B Normal $xa$OJQJ_HmH sH tH D@D Heading 1$$CJOJQJkHN@N Heading 2$d@&N5OJQJ^J>@!> Heading 3$d@&NFF Heading 4$$a$56OJQJkH@@ Heading 5 $a$CJOJQJkHDD Heading 6 $a$6CJOJQJkH8T <,LPadFldE Space between left of word and cell boundary(2@Label1@{ X <-RPadFldS Space between right of word and cell boundary(2@Label2@ , ;8CancelBtnA(74OKBtn@( 2LLabel3@; t @HNum@@ Heading 7 $a$CJOJQJkHDD Heading 8 $a$6CJOJQJkHD D Heading 9 $a$6CJOJQJkH<A@< Default Paragraph Font2O2 Outdent^`"O" Ex2 $&O&Ex1 mHnHuO"ExNum ]*ExampleFormatDlg"*`b}P[@Ћ}P[fo)/4di16- n```b}P[|}P[8{4 2 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoprstuvwxyz{|}~     !D-%&'()*+,./0;23456789: <=>?ABCEWFGKIJLMVOPQRSTUHXcYZ[\]_`abyefghirklmnopqdstuvwxz|}~#"      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  !#$%&'()*+,-./013^@:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~{ fo,.>8<pCompObj+0Qa      !"#$%&'(*+,-./012356789:;G=?@ABCDEFHIJKLMNOPRTUVWYZ[\^_`abcdefghjRoot Entry  Fb}P[6ZData "PWordDocument "JObjectPool}P[b}P[Cancel@{uTahoma@(OKA{uTahoma@(,Left column width:B X@Tahoma@ @H,{0.375@5Tahoma@8G, n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q , Pre Number: 5Tahoma@<G,){1AAuto bookmark?a5Tahoma@@H,{(A5Tahoma@ , Post Number: 5Tahoma@@H,{)A5Tahoma@(,Sequence identifier:g 5Tahoma@@H,{EXA5Tahoma@@G,{0ANumber all lines?JB5Tahoma@ V {1@Add number?@      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz|}~HJ : "}g Number propertiesJBR KQDBTahomaR KQltBM6(  T(2@Label4@d \6MakeMarkFldg Check to generate an automatic bookmark for the numberOd <5PreNumFldAE"Punctuation that precedes the number (blank for none)O(2@Label5@` <4PostNumFldA'"Punctuation that follows the number (blank for none)(2HLabel6@@ <SeqIDFld qIdentifier for SEQ fieldP "`!NumberAllFldCheck to number all example lineser    ]*B z z z z zW+]*q *A`>'lj /w Wfb 1 f  & a p S \  D5KI)6;  2CDd`x>+B4KxP o!*##$M%&&'(^*000000000000000000000W 0W 0W 0W0W 0W 0W 0W00 00a (0a  0S  0S  0S  0S  0S  0S  0S  0S  0S  0 S (0a 0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)0)(0a 0 0 0 0 0 0 0 0 0 0 0 00 0 0 0 0+>@4GI]* ::8  @ 0(  B S  ?]*ini_sebuah_contoh^*^*3? Ye  % c o \ g `cgmqw67HF%K%G'H'P''''R*[*^*#)*7@`'3?f{.(} a \  P Q t CD|| .IJ[ =>?wwH'P'Q*R*R*S*[*^*Susanna Cumming/C:\_Work\Sites\Department\LingWord\LingWord.dotSusanna Cumming/C:\_Work\Sites\Department\LingWord\LingWord.dotSusanna Cumming/C:\_Work\Sites\Department\LingWord\LingWord.dotSusanna Cumming/C:\_Work\Sites\Department\LingWord\LingWord.dotSusanna Cumming/C:\_Work\Sites\Department\LingWord\LingWord.dotSusanna Cumming/C:\_Work\Sites\Department\LingWord\LingWord.dotSusanna Cumming/C:\_Work\Sites\Department\LingWord\LingWord.dotSusanna Cumming1C:\_Work\Computer Settings\Templates\LingWord.dotSusanna Cumming1C:\_Work\Computer Settings\Templates\LingWord.dotSusanna Cumming1C:\_Work\Computer Settings\Templates\LingWord.dot"/zFenz=nd``""N'. CUjPE vW&AνD&rp ]h ^`OJQJo(h ^`OJQJo(oh pp^p`OJQJo(h @ @ ^@ `OJQJo(h ^`OJQJo(oh ^`OJQJo(h ^`OJQJo(h ^`OJQJo(oh PP^P`OJQJo(h ^`OJQJo(h ^`OJQJo(oh pp^p`OJQJo(h @ @ ^@ `OJQJo(h ^`OJQJo(oh ^`OJQJo(h ^`OJQJo(h ^`OJQJo(oh PP^P`OJQJo(h ^`OJQJo(h ^`OJQJo(oh pp^p`OJQJo(h @ @ ^@ `OJQJo(h ^`OJQJo(oh ^`OJQJo(h ^`OJQJo(h ^`OJQJo(oh PP^P`OJQJo(hh^h`)^`)88^8`)^`()^`()pp^p`()  ^ `.@ @ ^@ `.  ^ `.h^`.h^`.hpLp^p`L.h@ @ ^@ `.h^`.hL^`L.h^`.h^`.hPLP^P`L.h ^`OJQJo(h ^`OJQJo(oh pp^p`OJQJo(h @ @ ^@ `OJQJo(h ^`OJQJo(oh ^`OJQJo(h ^`OJQJo(h ^`OJQJo(oh PP^P`OJQJo(h^`.h^`.hpLp^p`L.h@ @ ^@ `.h^`.hL^`L.h^`.h^`.hPLP^P`L. .x .{ ^0.0~ ^0D&rpnz CU``""/E vWx ^`o(()Ly!^`.y"pLp^p`L.y#@ @ ^@ `.Hz$^`.z%L^`L.z&^`.D{'^`.{(PLP^P`L.8|.p|b.|.|b)}%()P}%()}&()}g]0()}b()|~.~b..~...0b....t% .....% ......& .......Xg]0 ........b .........                                                      ^*V%BBV&BBV' BBV(BBV)BBV*BBV+BBV,BB @LingWordLingWordZRZRZRZRZR0( #Project.ExampleNumber.ExampleNumberExample NumberExampleNumber.ExampleNumber((p((  Table ExampleExampleTableExample.TableExample((p(( Project.StyleArea.StyleArea Style AreaStyleArea.StyleArea("""""""""!""!""""""""""""""""!"""!"""""""""""""""""!"""!"""""""""""""""""!""!"""""""""p(( !Project.ToggleQuotes.ToggleQuotes Toggle QuotesToggleQuotes.ToggleQuotes(33333333333333331133330033330033330033333333""""""""33333333030333333333333333030333333333p(( "Project.AdjustSpace.LessSpaceAfterLess Space AfterAdjustSpace.LessSpaceAfter(ȸ33333333333332#3333332#3333332#333332""#33333""3333332#3333333333333333333333333333333333333333333p(( "Project.AdjustSpace.MoreSpaceAfterMore Space AfterAdjustSpace.MoreSpaceAfter(ȸ33333333333332#333333""333332""#333332#3333332#3333332#3333333333333333333333333333333333333333333p(( #Project.AdjustSpace.LessSpaceBeforeLess Space BeforeAdjustSpace.LessSpaceBefore(ȸ"""""""""""""""""""""""""""""""""""!"""""""""""!"""""!""""""!""""""!"""""""""""""""""""""p(( #Project.AdjustSpace.MoreSpaceBeforeMore Space BeforeAdjustSpace.MoreSpaceBefore(ȸ"""""""""""""""""""""""""""""""""""""""""""!""""""!""""""!"""""!"""""""""""!"""""""""""""p( |1 !Project.TableExample.TableExampleProject.StyleArea.StyleArea#Project.ExampleNumber.ExampleNumber"Project.AdjustSpace.LessSpaceAfter#Project.AdjustSpace.LessSpaceBefore"Project.AdjustSpace.MoreSpaceAfter#Project.AdjustSpace.MoreSpaceBefore!Project.ToggleQuotes.ToggleQuotes%PROJECT.STYLEAREA.STYLEAREA&!PROJECT.TABLEEXAMPLE.TABLEEXAMPLE'!PROJECT.TOGGLEQUOTES.TOGGLEQUOTES("PROJECT.ADJUSTSPACE.LESSSPACEAFTER)"PROJECT.ADJUSTSPACE.MORESPACEAFTER*#PROJECT.ADJUSTSPACE.LESSSPACEBEFORE+#PROJECT.ADJUSTSPACE.MORESPACEBEFORE,#PROJECT.EXAMPLENUMBER.EXAMPLENUMBER@LW]*`@UnknownG:Times New Roman5Symbol3& :Arial5& :TahomaK&CopprplGoth Hv BT?1 Courier New;Wingdings"p hdK&K"J$0d*9YR*  2QThe TableExample macroSusanna CummingSusanna Cumming#O From: "Susanna Cumming" Subject: normal.dot Date: Wed, 30 Jun 1999 00:04:00 -0700 MIME-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit X-Priority: 3 X-MSMail-Priority: Normal X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300  iD@D Normal$CJ OJPJQJ_HaJ mH sH tH <A@< Default Paragraph FontJM HHbjbj== "JWWl>Q>QQQQQQRRRRR.R4RRnRnRnRnRnRnRnRnRnRpRpRpRpRpRpRT VpRQnRnRnRnRnRpRnRQQnRnRRnRnRnRnRQnRQnRnRnRnRnRnRnRnRQQ RnRnRbR @Ћ}P[RRnRnRnRR0RnRVnRVnRnRRRQQQQ 1h/ =!"#$%,H1 +W.H H@`@UnknownG:Times New Roman5Symbol3& :Arial5& :TahomaK&CopprplGoth Hv BT?1 Courier New;Wingdings"0h0B