ࡱ>  <67t`  bjbj .&%%%%"&"&"&\&T***8>?$& + +^j+j+j+$/$/$/$hG h"&$// /$/$/%%j+j+///$/%j+%lj+/$///N %%,j+7? Ё*:/ax-0 P/ ` "&`$/$//$/$/$/$/$//$/$/$/$/$/$/$/&&&$*&&&*6&J&X&%%%%%% 102      PAGE 2 SUBJECT \* MERGEFORMAT   TITLE   PAGE 1  TITLE \* MERGEFORMAT   PAGE 1     !;<=>?@AIJNOVWXYZ[\]˵ܮا؜؈un h_hD h|5mHnHuh_hD 5jh_hD 5U h)E#hD jh)E#hD U h`hD hpAhD h XhD 5mHnHuh XhD 5jh XhD 5UhD jhD Uh7h!mH sH hh70J|h7mH sH %    =>?gd!Kkd$$If0SV S t4a x$Ifgd! $Ifgd!gd! ?@NZ[\]|z  t"]^$ t"K]^Ka$gd!gd!Kkd]$$If0V S t4a $Ifgd!gd!]^vwz{         < = W X [ r s ڴ˰ˬ|u|i|ub j0J)UCJOJQJmHnHu CJOJQJjCJOJQJU jCJOJQJUmHnHu jUhnh7h!mH sH h!h)bhD 6CJOJQJhPhD 6OJQJhD hD 6mHnHu hD 6jhD 6UhD 6OJQJjohD 6OJQJU&       Z [ } &$ & F h$d*$@&N]gdn&$ & F hQ$d*$@&N]Qgdn %&dPgd!>&P 1h/R :p!. A!"#$% [$$If!vh5S5#vS#v:V t5S54 [$$If!vh55S#v#vS:V t55S4 1 Dd $qq<  C A2F~-3c%,)$N{}`!uF~-3c%,)$N{6!ZThi[ CxlG]7rg|" A8Eh{2"vXĵ9@POP ꐀ*[q@HbrBMb)|{on{Suݝw{3;# z0lCl/|:\Oz Xrծf̥ԟ]}@}WnGn$#O0X),M$Uj{Dp^ f= ~u7APK1_߰Gatu<44Ĺ;Sn;߭ tm# F"_;lvhxv3vfIc(>[2=EuUXPi)mzkۯR9!>K|@޼e%6;z׿ ' ^ ~ S0up)ٻ)x)'|  nU{AӞ{XyM+dKokZC[}ahZKۙE])#GtB W{ٰt]bg1]}{vo+ʲ%=bh75ĵɤ'vZi7blVm? h 9KMbb O \stJv&,|{ꄐ!d"*D\td'Dd6#Đ=f>FO_?rB9ĈAM HDȦ(J D1w.5TtLgnR!_j밤/) ElG v; U͘Lsػ8vSDE?)SN{Ig3ZDM|[Rl3'Y7!s;W'$;M;ohoW}KA<^Nl\ '>:8up&mR˛ZNN\0G])Fw6&x;Gk¾.f4wb |2b&qCdM\NU¾miF&isә܋/lN*a6`s-wyyK|ȶ=6)GoEtkly$ЏqUHQ8уneM1Ǧ/-b11:Z[̍Rn4Mު-2? 3O~-˩3+d O3g};%819ʑgw^.]^d6FkUĦd/뼷&2Ӈ[~;oAmO/8la{B߫h*?\J@J Px?NormalB*CJ_HmH phsH tH f@f Q# Heading 1$@&)B*CJ$KH OJQJ_HmH phsH tH p@p Q# Heading 2$@&3B*CJ OJQJ\]^J_HaJmH phsH tH l@l Q# Heading 3$xx@&0B*CJOJQJ\^J_HaJmH phsH tH `@` Q# Heading 4$@&,B*CJOJQJ\_HaJmH phsH tH \@\ Q# Heading 5@&*5B*CJ\]_HaJmH phsH tH ^@^ 3 Heading 6@&,B*CJ OJQJ\_HaJmH phsH tH DA@D D"Default Paragraph FontVi@V  Table Normal :V 44 la (k(D"No List DOD zp *$B*CJ_HmH phsH tH 4U@4 D" Hyperlink >*phDV@D D"FollowedHyperlink >*ph>^@"> z Normal (Web) B*phJ@2J `Header$a$CJOJQJ_HmH sH tH > @B> XFooterB*CJOJQJph0OR0 x li1pTx^T0Ob0 :Vli1a  & Fx0Or0 x li5px^0O0 :Vli5a  & Fx0O0 x li2px^0O0 :Vli2a  & Fx,O, x li3p ^0O0 :Vli3a  & Fx0O0 x li4pQx^Q8O8 :Vli4a  & FxmH sH .O. Q#h1 B*phDO!D 7-h1n & FB*CJ$aJ$ph.O!. Q#h2! B*ph@O1@ 7-h2n" & F B*CJ ph.O1. Q#h3#x B*ph@OA@ 7-h3n$ & Fx B*CJph.OA. Q#h4% B*phBOQB 'h4n & & F5B*CJOJQJph*OQ* $Ph5' B*phBOaB 'h5n ( & F5B*CJOJQJph*OQ* ;bq1)6*O* 2 bq2 *^*O* 2 bq3 +^*O* 2 bq4 ,Q^Q4O4 D"Hidden- <B*ph3f\O1\ D" Header Body#. & F h^`OJQJpOp D"Header Address$/wwN"|&#$+Da/B*CJOJQJph0O0 D" EUnderline>*$O$ D"i-b5\$O!$ D"i-i6]*O1* D"ETitle5\rOBr D"Head C 4Xqw7$8$^`X+56B*CJ$OJQJ_HmH phsH tH >OAB> D"Head B 5q B*CJ0phFObF %,pre46^B* CJOJQJph3fVOrV D"Heading27$a$$5B*CJOJPJQJmH phsH && D"TOC 18LL D"TOC 59ww*$^B*mH phsH LL D"TOC 2:ww*$^B*mH phsH LL D"TOC 3;ww*$^B*mH phsH LL D"TOC 4<ww*$^B*mH phsH LL D"TOC 6=ww*$^B*mH phsH LL D"TOC 7>ww*$^B*mH phsH LL D"TOC 8?ww*$^B*mH phsH LL D"TOC 9@ww*$^B*mH phsH >'> D"Comment ReferenceCJ8"8 D" Comment TextBCJROa2R 3 h-reflectionC&dG$P B*phjOaBj 3 h-reading%D$$ $&d*$1$G$PB*PJ\aJphtHFOaRF 3h-noteE&dG$P B*ph.)@a. P Page Numberb>@b |STitle G@&4B*CJ(KHOJQJ\^J_HaJ mH phsH tH D"QD D"Caption HT]TB*CJPJphNYN D" Document MapI-D M OJ QJ FOQF %,pre1J^B* CJOJQJph3fFOF %,pre2KT^TB* CJOJQJph3fFOF %,pre3L^B* CJOJQJph3fFOqF %,pre5MQ^QB* CJOJQJph3f>O> i\i-codeCJOJQJ^Jo(ph0O0 v' li1A O & Fx0O0 :Vli2A P & Fx0O0 :Vli3A Q & Fx0O"0 :Vli4A R & Fx0O20 :Vli5A S & Fx0OB0 :Vli1i T & Fx0OR0 :Vli2i U & Fx0Ob0 :Vli3i V & Fx0Or0 :Vli4i W & Fx0O0 :Vli5i X & Fx0O0 :Vli1I Y & Fx0O0 :Vli2I Z & Fx0O0 :Vli3I [ & Fx0O0 :Vli4I \ & Fx0O0 :Vli5I ] & Fx0O0 :Vli1n ^ & F x0O0 :Vli2n _ & F x0O0 :Vli3n ` & F x0O0 :Vli4n a & F x0O"0 :Vli5n b & F x0O20 x li1b c & Fx0OB0 x li2b d & Fx0OR0 x li3b e & Fx0Ob0 x li4b f & Fx0Or0 x li5b g & Fx*O* 2 bq5 h^:O: ; bq5sourcei6CJ>O> ; bq4source jQ^Q6CJ:O: ; bq3sourcek6CJ:O: ; bq1sourcel6CJ:O: ; bq2sourcem6CJXOX Zdd1n $Tx*$1$^T B*OJPJQJ]aJphtHXOX Zdd2o $x*$1$^ B*OJPJQJ]aJphtHXOX Zdd3p $x*$1$^ B*OJPJQJ]aJphtHXOX Zdd4q $Qx*$1$^Q B*OJPJQJ]aJphtHXO"X Zdd5r $x*$1$^ B*OJPJQJ]aJphtHTOT qdt1s $x*$1$#5B*OJPJQJ]aJphtH\O\ qdt2t $Tx*$1$^T#5B*OJPJQJ]aJphtH\O\ qdt3u $x*$1$^#5B*OJPJQJ]aJphtH\O\ qdt4v $x*$1$^#5B*OJPJQJ]aJphtH\O"\ qdt5w $Qx*$1$^Q#5B*OJPJQJ]aJphtH2O2 zp-centerx$a$0O0 0p-righty$a$>O> mB1 zx*$B*CJmH phsH &O& mEBold56O6  ei-subCJH*OJQJaJ6O6  ei-supCJH*OJQJaJVOV 7- Title-chapter~$ & F*$ B*CJ(ph8Oq8 |S Title-book CJHhOah 3 h-casestudy"$$ $&d*$1$PB*PJaJphtHROaR 3 h-discussion&dG$P B*phLOa"L 3 h-example&dG$P B*phNOa2N 3 h-exercise&dG$P B*phNOaBN 3 h-learning&dG$P B*phnSn . Table Grid7:V0<O1b< X Header rightx^J<O1r< X Header left$a$^JLOL 3p-hanging-indentT^T`LOL Dup-firstline-indent T`TaJ*OQ* Ph-slide$O$ `i-bi6:O: Ap-indent^gdA  +@NZ[W sSW   =>?@NZ[\]0y00y0000y00y0000y00y0000y00y0000y00y00<sTPd y00y00@0 @0 @0 @0y00y00y00y00y00y0000y0y0y0 <YYY7<EJRTYrv}!!!  ze,b$lǸ߰®َ 0e0e     A@  A5% 8c8c     ?A)BCD|E||S"@ 0(  B S  ?Hd0(    <@JNY]wU     2}1<y+l <1  92jU \RBTUVWX8\ E0+  Wy ,m NbY d WN`>  f: 9 cdefgXy( Xip y@   e ^`# Dk) ;t-lS/ h/>Ns/$&t &`_0 ;f3rT5 Z9}T[Xw@NZ[13L23V33Y43a53cU3%13+23,33-4353P3GB3eeeeeeeeee e e e e eeeeeeeeeee$eeeeeeee e!"e#e*e%e&e'e(e)e+e,e-e.e/e0e1e2e3eEe45678CDGFKHIJMeNeOePeQeaebeRSTUjeWXYZ[\]^kelecmenedefghioepe9ereLete`eseuxevwy|e}e~eeeeeeeeeeeeez{eeeeeeeeeeVeeeeOV7@ @V8@ @V9;@ @V:@ @V;@ @V<@ @V=@ @V>@ @V?@ @V@q@ @VA@ @VB@ @VC@ @VD@ @VE@@ @VF@ @VG@ @VH@ @VI@ @VJ@ @VK@ @VL@ @VM@ @VN@ @VO@ @VP@ @VQ@ @VR@ @VS@ @VT@ @VU@ @VV@ @VW@ @VX@ @VY@ @VZ_@ @V[@ @V\@ @V]@ @V^@ @V_@ @V`@ @Va=@ @Vb@ @Vc@ @Vd:@ @Ve>@ @Vf@ @Vg@ @Vh@ @Vi@ @Vj@ @Vk@ @Vl?@ @Vm@ @Vn@ @Vo@ @Vp@ @Vq@ @Vr@ @Vs@ @Vt<@ @VuA@ @VvB@ @Vw@ @Vx@ @Vy@ @Vz@ @V{@ @V|@ @V}@ @V~@ @V@ @V@ @V@ @V@ @V@ @V@ @V@ @ 6 *@# &CaptionCaption @ i rqqi ICE Toolbar ICE Toolbar2L2L2L2L0"(ICE%Press Esc Then Forward Slash For Help'toolbar.PressEscThenForwardSlashForHelp"( TemplateProject.toolbar.PromotePromotetoolbar.Promote((     "   :..         "                 #"p( ( TemplateProject.toolbar.DemoteDemotetoolbar.Demote((     " :.. "   #"p("( TemplateProject.toolbar.TitleTitle toolbar.Title(( p( ( TemplateProject.toolbar.HeadingHeadingtoolbar.Heading(( p("( ,TemplateProject.toolbar.LeftAlignedParagraphLeft Aligned Paragraphtoolbar.LeftAlignedParagraph((    p( ( IndentIndent Paragraphtoolbar.IndentParagraph((p( ( .TemplateProject.toolbar.CenterAlignedParagraphCenter Aligned Paragraphtoolbar.CenterAlignedParagraph((    p( ( -TemplateProject.toolbar.RightAlignedParagraphRight Aligned Paragraphtoolbar.RightAlignedParagraph((    p("( "TemplateProject.toolbar.BlockQuote Block Quotetoolbar.BlockQuote(( p( ( "TemplateProject.toolbar.Definition Definitiontoolbar.Definition(( p( ( $TemplateProject.toolbar.Preformatted Preformattedtoolbar.Preformatted(p(n"( TemplateProject.toolbar.BulletsBulletstoolbar.Bullets(( p( ( !TemplateProject.toolbar.Numbering Numberingtoolbar.Numbering(( p( (1,i,aChange List Styletoolbar.ChangeListStyle"q`i(( p(??? r`q((  *""M>> p(??? (CodeCode toolbar.Code ( )TemplateProject.toolbar.DefaultFormattingDefault Formattingtoolbar.DefaultFormatting(( fff &&&III777 ^^^___{{{]]]!!!PPP&&&www***]]]gggbbb///kkkwwwgggvvvwwwXXX&&&777kkk///...333***GGG333)))p(??̏ϟ?O"(XRefCross ReferenceXrefmod.CrossReference"(Helpevent Show Shortcutstoolbar.eventShowShortcuts" (@&MacrosCustom Popup 94877141 (@&StylesCustom Popup 68Custom Popup 68 Custom Popup 680  *@3&Default Paragraph FontDefault Paragraph Font (@Paragraph - &pCustom Popup 94877140 (@&Title - titleCustom Popup 12320640 (@ &HeadingsCustom Popup 72 (@&List item - liCustom Popup 78 (@ &BlockquoteCustom Popup 37478531 (@!Pre-formatted (fixed-width) - preCustom Popup 38184140 (@&Inline (Character style)Custom Popup 77Custom Popup 72 Custom Popup 720 (@ Level &1 - h1Custom Popup 79 (@ Level &2 - h2Custom Popup 81 (@ Level &3 - h3Custom Popup 82 (@ Level &4 - h4Custom Popup 83 (@ Level &5 - h5Custom Popup 80Custom Popup 79 Custom Popup 790  *@3LHeading 1 - h&1H1Ctrl+1  *@3+Numbered Heading 1 - h1&nh1nCtrl+!Custom Popup 81 Custom Popup 810  *@3VHeading 2 - h&2h2Ctrl+2  *@3,Numbered Heading 2 - h2&nh2nCtrl+@Custom Popup 82 Custom Popup 820  *@3YHeading 3 - h&3H3Ctrl+3  *@3-Numbered Heading 3 - h3&nh3nCtrl+#Custom Popup 83 Custom Popup 830  *@3aHeading 4 - h&4H4Ctrl+4  *@3Numbered Heading 4 - h4&nh4nCtrl+$Custom Popup 80 Custom Popup 800  *@3cHeading 5 - h&5H5Ctrl+5  *@3Numbered Heading 5 - h5&nh5nCtrl+%Custom Popup 73 Custom Popup 730 (@Level &1Custom Popup 84 (@Level &2Custom Popup 85 (@Level &3Custom Popup 86 (@Level &4Custom Popup 88 (@Level &5Custom Popup 89Custom Popup 84 Custom Popup 84 0  *@3GB&1B1 Ctrl+Shift+P  *@3B1<> (Centered)B1<>  *@3B1> (Right aligned)B1>  *@3B1Code (Code Style)B1Code  *@3&zB1 (Hidden Text)zB1Custom Popup 85 Custom Popup 85 0  *@3pB&2B2  *@3uB2&#B2#  *@3B2#&MB2#M  *@3mB2&CodeB2CodeCustom Popup 86 Custom Popup 86 0  *@3qB&3B3  *@3wB3&#B3#  *@3B3#&MB3#M  *@3nB3&CodeB3CodeCustom Popup 88 Custom Popup 88 0  *@3rB&4B4  *@3xB4&#B4#  *@3B4#&MB4#M  *@3tB4&CodeB4CodeCustom Popup 89 Custom Popup 89 0  *@3sB&5B5  *@3vB5&#B5#  *@3B5#&MB5#M  *@3oB5&CodeB5CodeCustom Popup 75 Custom Popup 750  *@3DR&Display (Text or image to display as the clickable part of a link)RDisplay  *@3IR&URL (Complete network location with protocol eg http://www.rmit.edu.au)RURL  *@3.R&Email (An email address to turn into a link)RemailCustom Popup 77 Custom Popup 770  *@3y&Bold font - i-bi-bCtrl+B  *@3Bold/Italic i-bii-bi  *@3{Italic font - i-&ii-iCtrl+I  *@3zProgram code - i-&codei-code  *@3dS&ubscript - i-subi-sub  *@3fSu&perscript - i-supi-supCustom Popup 76 Custom Popup 760  *@3&SSu&bSSub  *@3'SSu&perSSuperCustom Popup 78 Custom Popup 780 (@Level &1 - li1Custom Popup 99 (@Level &2 - li2Custom Popup 100 (@Level &3 - li3Custom Popup 101 (@Level &4 - li4Custom Popup 98 (@Level &5 - li5Custom Popup 32475734Custom Popup 99 Custom Popup 990   *@3 Bullet 1 - li1&bli1b  *@3Numbered 1- li1&nli1n  *@3pParagraph 1 - li1&pli1p  *@3uLowercase Alpha 1 - li1&ali1a  *@3&Uppercase Alpha 1 - li1Ali1A  *@3Lowercase Roman 1 - li1&ili1i  *@3 Uppercase &Roman 1 - li1Ili1I  *@3FDefinition Term 1 - d&t1dt1  *@3UDefinition Description 1 - d&d1dd1Custom Popup 100 Custom Popup 1000   *@3*Bullet 2 - li2&bli2b  *@3$Numbered 2 - li2&nli2n  *@3qParagraph - li2&pli2p  *@3wLowercase Alpha 2 - li2&ali2a  *@3 &Uppercase Alpha 2 - li2Ali2A  *@3 Lowercase Roman 2 - li2&ili2i  *@3 Uppercase &Roman 2 - li2Ili2I  *@3Definition Term 2 - d&t2dt2  *@3XDefinition Description 2 - d&d2dd2Custom Popup 101 Custom Popup 1010   *@3.Bullet 3 - li3&bli3b  *@3/Numbered 3 - li3&nli3n  *@3rParagraph 3 - li3&pli3p  *@3xLowercase Alpha 3 - li3&ali3a  *@3&Uppercase Alpha 3 - li3Ali3A  *@3Lowercase Roman 3 -li3&ili3i  *@3Uppercase &Roman 3 -li3Ili3I  *@3Definition Term 3 - d&t3dt3  *@3`Definition Description 3 - d&d3dd3Custom Popup 98 Custom Popup 980   *@30Bullet 4 - li4&bli4b  *@31Numbered 4 - li4&nli4n  *@3sParagraph 4 - li4&pli4p  *@3vLowercase Alpha - li4&ali4a  *@3&Uppercase Alpha 4 - li4Ali4A  *@3Lowercase Roman 4 - li4&ili4i  *@3Uppercase &Roman 4 - li4Ili4I  *@3Definition Term 4 - d&t4dt4  *@3iDefinition Description 4 - d&d4dd4Custom Popup 103 Custom Popup 1030 (@&Content BoxesCustom Popup 107Custom Popup 71 Custom Popup 710 (8Repair lists (re-apply styles and restart at first-item)repair List InstancesModule1.repairListInstances"(&Set Word's BehaviourSet Word BehaviourSettings.SetWordBehaviour (&Toggle Hidden TextToggle Hidden TextSettings.ToggleHiddenText"(Repair &List OutlinesSet List Outlinesoutline.SetListOutlines (Remove &BookmarksDelete All BookmarksNewMacros.DeleteAllBookmarksCustom Popup 104 Custom Popup 1040 *@3H&Date valid (date range)\META:Date.Valid (@I&magesCustom Popup 105 (@ &RelationsCustom Popup 109Custom Popup 105 Custom Popup 1050 *@3:&Banner \META:Banner *@39 T&humbnail\META:Thumbnail *@3! &TitleImage\META:TitleImageCustom Popup 106 Custom Popup 1060Custom Popup 107 Custom Popup 1070  *@3W&Insert Figure\OBJECT:Caption-Figure"*@34 &Activity\OBJECT:Activity *@35 A&ssessment\OBJECT:Assessment *@36 &Discussion\OBJECT:Discussion *@37 &Objectives\OBJECT:Objectives *@38&Quote \OBJECT:Quote *@3>&Reading\OBJECT:Reading *@3? Refl&ection\OBJECT:Reflection *@3@&Web \OBJECT:WebCustom Popup 108 Custom Popup 1080 *@3\Link to Discussio&n\LINKS:discussion *@3]Link to Discussion Inde&x\LINKS:discussion index *@3;Link to &Group \LINKS:group *@3=Link to G&roup Index\LINKS:group index *@3Z Link to &Quiz \LINKS:quiz *@3[Link to Q&uiz Index\LINKS:quiz index *@3^Link to &Survey \LINKS:survey *@3_Link to Sur&vey Index\LINKS:survey indexCustom Popup 109 Custom Popup 1090 *@3OIs Replaced By\META:IsReplacedBy *@3P Has Version\META:HasVersion *@3Q Is Version Of\META:IsVersionOf *@3RIs Required By\META:IsRequiredBy *@3JRequires\META:Requires *@3S Is Part Of\META:IsPartOf *@3TIs Referenced By\META:IsReferencedBy *@3N References\META:ReferencesCustom Popup 110 Custom Popup 1100 *@3I &Copyright\SYMBOL:copyright *@3K &Registered\SYMBOL:registered *@3M "! &Trademark\SYMBOL:trademarkIq)IQYaiq19Aݻ 3 ]:ݻ Custom Popup 111 Custom Popup 111!0 *@3<&Table Of Contents \PAPER:TOCCustom Popup 32464937 Custom Popup 32464937"0Custom Popup 32475734 Custom Popup 32475734#0   *@33Bullet 5 - li5&bli5b  *@32Numbered 5 - li5nli5n  *@3"Paragraph 5 - li5&pli5p  *@3bLowercase Alpha 5 - li5&ali5a  *@3#&Uppercase Alpha 5 - li5Ali5A  *@3(Lowercase Roman 5 - li5&ili5i  *@3)Uppercase &Roman 5 - li5Ili5I  *@3Definition Term 5 - d&t5dt5  *@3~Definition Description 1 - d&d1dd5Custom Popup 37478531 Custom Popup 37478531$0 (@Level &1 - bq1Custom Popup 94056187 (@Level &2 - bq2Custom Popup 94058562 (@Level &3 - bq3Custom Popup 94060593 (@Level &4 - bq4Custom Popup 94065000 (@Level &5 - bq5Custom Popup 94067390Custom Popup 38184140 Custom Popup 38184140%0  *@3mPreformatted 1 - pre&1pre1  *@3nPreformatted 2 - pre&2pre2  *@3tPreformatted 3 - pre&3 pre3  *@3Preformatted 4 - pre&4pre4  *@3oPreformatted 5 - pre&5pre5Custom Popup 94056187 Custom Popup 94056187&0  *@3Blockquote 1 - bq&1bq1  *@3A Blockquote-source 1 - bq1&source bq1sourceCustom Popup 94058562 Custom Popup 94058562'0  *@3Blockquote 2 - bq&2bq2  *@3B Blockquote-source 2 - bq2&source bq2sourceCustom Popup 94060593 Custom Popup 94060593(0  *@3Blockquote 3 - bq&3bq3  *@3C!Blockquote-source 3 - bq3&source bq3sourceCustom Popup 94065000 Custom Popup 94065000)0  *@3Blockquote 4 - bq&4bq4  *@3DBlockquote-source - bq4&source bq4sourceCustom Popup 94067390 Custom Popup 94067390*0  *@3Blockquote 5 - bq&5bq5  *@3EBlockquote-source - bq5&source bq5sourceCustom Popup 94877140 Custom Popup 94877140+0  *@3G&Paragraph - pp Ctrl+Shift+P  *@3&Center - p-centerp-center  *@3&Right - p-rightp-right  *@3'&Firstline indent - p-&firstline-indentp-firstline-indent  *@3"&Hanging indent - p-hanging-indentp-hanging-indentCustom Popup 12320640 Custom Popup 12320640,0  *@3&TitleTitle  *@3Title &Chapter Title-chapter  *@3g Title &Book Title-bookCustom Popup 12969062 Custom Popup 12969062.0 *@3l &Case study Case study *@3Case study (numbered)Case study (numbered) *@3| &Discussion Discussion *@3Discussion (numbered)Discussion (numbered) *@3}&ExampleExample *@3Example (numbered)Example (numbered) *@3 E&xerciseExercise *@3Exercise (numbered)Exercise (numbered) *@3h&Learning activityLearning activity *@3Learning activity (numbered)Learning activity (numbered) *@3j&Reading activityReading activity *@3Reading activity (numbered)Reading activity (numbered) *@3 Re&flection Reflection *@3Reflection (numbered)Reflection (numbered)Custom Popup 13072375 Custom Popup 13072375/0 *@3&NoteNote *@3kSlideSlideiA i i Custom Popup 94877141 Custom Popup 9487714120"(HTML sub Converttoolbar.subConvert (Atom Pub sub Publishtoolbar.subPublish"(Set &heading numberingSet Outline NumberingOpenSource.SetOutlineNumbering ( &Repair Listsrepair List InstancesOpenSource.repairListInstances ( &Update links Update LinksOpenSource.UpdateLinksCustom Popup 463655656 Custom Popup 46365565630 iqqqiCustom Popup 355511953 Custom Popup 35551195350bq1Abq2bq3bq4bq5pre4li1Ali1ili1Ili2ili1bli2Ali2IB2#Mli3Ali3iB3#Mli3Ili4AB4#Mli4ili4IB5#M-TemplateProject.outline.RemoveHiddenBookmarks RDisplayRURLRemailzB1B1<>B1>B1Code"\META:TitleImageli5pli5Ali1n EUnderlineSSubSSuperli5ili5Ili2nli2bh1nh2nh3nli3bli3nli4bli4nli5n\OBJECT:Activity\OBJECT:Assessment\OBJECT:Discussion\OBJECT:Objectives \OBJECT:Quoteli5a$TemplateProject.outline.AddBookMarks-TemplateProject.outline.CreateListOfAllStyles)TemplateProject.outline.deletealloutlines#TemplateProject.outline.listoutline$TemplateProject.outline.setconstants'TemplateProject.outline.SetListOutlines/TemplateProject.outline.SetSingleSectionOutline)TemplateProject.Settings.SetWordBehaviour)TemplateProject.Settings.ToggleHiddenText\META:Thumbnail \META:Bannerli5b \PAPER:TOC \LINKS:group\OBJECT:Reading\OBJECT:Reflection \OBJECT:Web\LINKS:group indexi-sub bq1source bq2source bq3source bq4source bq5source\META:Date.Valid\SYMBOL:copyright\META:Requires\SYMBOL:registeredCase study (numbered)\SYMBOL:trademark\META:References\META:IsReplacedBy\META:HasVersion\META:IsVersionOf\META:IsRequiredBy\META:IsPartOf\META:IsReferencedBy"TemplateProject.toolbar.BlockQuotei-supdt1p\OBJECT:Caption-Figure \LINKS:quiz\LINKS:quiz index\LINKS:discussion\LINKS:discussion index \LINKS:survey\LINKS:survey indexh1dd1h2dd2h3dd3h4.TemplateProject.OpenSource.repairListInstancesh5 Title-bookli1*LearningReadingSlidedd4 Case study DiscussionExamplepre1pre2pre5li1pli2pli3pli4ppre3li1ali4ali2ali3ai-bi-codei-iExercise&TemplateProject.OpenSource.UpdateLinksdd5dt2dt3dt4dt5 p-centerp-righth4nh5n.TemplateProject.OpenSource.SetOutlineNumbering ReflectionNoteTitle-chapter>TemplateProject.toolbar.BulletsDiscussion (numbered)p-firstline-indentp-hanging-indenti-biExample (numbered)Exercise (numbered)Learning activity (numbered)Reading activity (numbered)Reflection (numbered)%TemplateProject.Xrefmod.subChangeType#TemplateProject.Xrefmod.subLoadType.TemplateProject.toolbar.CenterAlignedParagraph'TemplateProject.toolbar.ChangeListStyleTemplateProject.toolbar.Code)TemplateProject.toolbar.DefaultFormatting"TemplateProject.toolbar.Definition8TemplateProject.Xrefmod.subEventListBoxheadings_InitiateTemplateProject.toolbar.Demote-TemplateProject.toolbar.eventBlockQuoteButton)TemplateProject.toolbar.eventBulletButton)TemplateProject.toolbar.eventCenterButton.TemplateProject.toolbar.eventChangeListTypeDlg4TemplateProject.toolbar.eventDefaultFormattingButton-TemplateProject.toolbar.eventDefinitionButton)TemplateProject.toolbar.eventDemoteButton*TemplateProject.toolbar.eventHeadingButton2TemplateProject.ThisDocument.subSetupEscKeyHandler+TemplateProject.ThisDocument.subEventEscKey)TemplateProject.toolbar.eventIndentButton'TemplateProject.toolbar.eventKeyControl'TemplateProject.toolbar.eventLeftButton,TemplateProject.toolbar.eventNumberiseButton/TemplateProject.toolbar.eventPreformmatedButton*TemplateProject.toolbar.eventPromoteButton3TemplateProject.toolbar.eventRestartNumberingButton(TemplateProject.toolbar.eventRightButton*TemplateProject.toolbar.eventShowShortcuts(TemplateProject.toolbar.eventTitleButtonTemplateProject.toolbar.exptTemplateProject.toolbar.Heading'TemplateProject.toolbar.IndentParagraph,TemplateProject.toolbar.LeftAlignedParagraph1TemplateProject.Xrefmod.subCurrentWriterDocuments!TemplateProject.toolbar.Numbering$TemplateProject.toolbar.Preformatted)TemplateProject.Xrefmod.subEventChangeDoc-TemplateProject.Xrefmod.subSaveDialogSettings7TemplateProject.toolbar.PressEscThenForwardSlashForHelp-TemplateProject.Xrefmod.subLoadDialogSettingsTemplateProject.toolbar.Promote&TemplateProject.Xrefmod.CrossReference-TemplateProject.toolbar.RightAlignedParagraph%TemplateProject.toolbar.ShowShortcuts(TemplateProject.toolbar.subAddProperties"TemplateProject.toolbar.subConvert)TemplateProject.toolbar.subConvertExecute)TemplateProject.toolbar.subConvertPreview1TemplateProject.toolbar.subCreateAllMissingStyles.TemplateProject.toolbar.subGetCurrentSelection"TemplateProject.toolbar.subPublish)TemplateProject.toolbar.subPublishExecute)TemplateProject.toolbar.subPublishPreview<TemplateProject.Xrefmod.subEventCommandButtonInsert_Initiate TemplateProject.toolbar.subTests,TemplateProject.toolbar.subTimeEventHideForm"TemplateProject.toolbar.subViewLogTemplateProject.toolbar.Title"TemplateProject.toolbar.toggleBold"TemplateProject.toolbar.toggleCode$TemplateProject.toolbar.toggleItalic#TemplateProject.toolbar.toggleLatex!TemplateProject.toolbar.toggleSub!TemplateProject.toolbar.toggleSupOOTEMPLATEPROJECT.TOOLBAR.CODEPTEMPLATEPROJECT.TOOLBAR.EXPTQTEMPLATEPROJECT.TOOLBAR.TITLERTEMPLATEPROJECT.TOOLBAR.DEMOTESTEMPLATEPROJECT.TOOLBAR.BULLETSTTEMPLATEPROJECT.TOOLBAR.HEADINGUTEMPLATEPROJECT.TOOLBAR.PROMOTEV TEMPLATEPROJECT.TOOLBAR.SUBTESTSW!TEMPLATEPROJECT.TOOLBAR.NUMBERINGX!TEMPLATEPROJECT.TOOLBAR.TOGGLESUBY!TEMPLATEPROJECT.TOOLBAR.TOGGLESUPZ"TEMPLATEPROJECT.TOOLBAR.BLOCKQUOTE["TEMPLATEPROJECT.TOOLBAR.DEFINITION\"TEMPLATEPROJECT.TOOLBAR.SUBCONVERT]"TEMPLATEPROJECT.TOOLBAR.SUBPUBLISH^"TEMPLATEPROJECT.TOOLBAR.SUBVIEWLOG_"TEMPLATEPROJECT.TOOLBAR.TOGGLEBOLD`"TEMPLATEPROJECT.TOOLBAR.TOGGLECODEa#TEMPLATEPROJECT.OUTLINE.LISTOUTLINEb#TEMPLATEPROJECT.TOOLBAR.TOGGLELATEXc#TEMPLATEPROJECT.XREFMOD.SUBLOADTYPEd$TEMPLATEPROJECT.OUTLINE.ADDBOOKMARKSe$TEMPLATEPROJECT.OUTLINE.SETCONSTANTSf$TEMPLATEPROJECT.TOOLBAR.PREFORMATTEDg$TEMPLATEPROJECT.TOOLBAR.TOGGLEITALICh%TEMPLATEPROJECT.TOOLBAR.SHOWSHORTCUTSi%TEMPLATEPROJECT.XREFMOD.SUBCHANGETYPEj&TEMPLATEPROJECT.OPENSOURCE.UPDATELINKSk&TEMPLATEPROJECT.XREFMOD.CROSSREFERENCEl'TEMPLATEPROJECT.OUTLINE.SETLISTOUTLINESm'TEMPLATEPROJECT.TOOLBAR.CHANGELISTSTYLEn'TEMPLATEPROJECT.TOOLBAR.EVENTKEYCONTROLo'TEMPLATEPROJECT.TOOLBAR.EVENTLEFTBUTTONp'TEMPLATEPROJECT.TOOLBAR.INDENTPARAGRAPHq(TEMPLATEPROJECT.TOOLBAR.EVENTRIGHTBUTTONr(TEMPLATEPROJECT.TOOLBAR.EVENTTITLEBUTTONs(TEMPLATEPROJECT.TOOLBAR.SUBADDPROPERTIESt)TEMPLATEPROJECT.OUTLINE.DELETEALLOUTLINESu)TEMPLATEPROJECT.SETTINGS.SETWORDBEHAVIOURv)TEMPLATEPROJECT.SETTINGS.TOGGLEHIDDENTEXTw)TEMPLATEPROJECT.TOOLBAR.DEFAULTFORMATTINGx)TEMPLATEPROJECT.TOOLBAR.EVENTBULLETBUTTONy)TEMPLATEPROJECT.TOOLBAR.EVENTCENTERBUTTONz)TEMPLATEPROJECT.TOOLBAR.EVENTDEMOTEBUTTON{)TEMPLATEPROJECT.TOOLBAR.EVENTINDENTBUTTON|)TEMPLATEPROJECT.TOOLBAR.SUBCONVERTEXECUTE})TEMPLATEPROJECT.TOOLBAR.SUBCONVERTPREVIEW~)TEMPLATEPROJECT.TOOLBAR.SUBPUBLISHEXECUTE)TEMPLATEPROJECT.TOOLBAR.SUBPUBLISHPREVIEW)TEMPLATEPROJECT.XREFMOD.SUBEVENTCHANGEDOC*TEMPLATEPROJECT.TOOLBAR.EVENTHEADINGBUTTON*TEMPLATEPROJECT.TOOLBAR.EVENTPROMOTEBUTTON*TEMPLATEPROJECT.TOOLBAR.EVENTSHOWSHORTCUTS+TEMPLATEPROJECT.THISDOCUMENT.SUBEVENTESCKEY,TEMPLATEPROJECT.TOOLBAR.EVENTNUMBERISEBUTTON7,TEMPLATEPROJECT.TOOLBAR.LEFTALIGNEDPARAGRAPH8,TEMPLATEPROJECT.TOOLBAR.SUBTIMEEVENTHIDEFORM9-TEMPLATEPROJECT.OUTLINE.CREATELISTOFALLSTYLES:-TEMPLATEPROJECT.OUTLINE.REMOVEHIDDENBOOKMARKS;-TEMPLATEPROJECT.TOOLBAR.EVENTBLOCKQUOTEBUTTON<-TEMPLATEPROJECT.TOOLBAR.EVENTDEFINITIONBUTTON=-TEMPLATEPROJECT.TOOLBAR.RIGHTALIGNEDPARAGRAPH>-TEMPLATEPROJECT.XREFMOD.SUBLOADDIALOGSETTINGS?-TEMPLATEPROJECT.XREFMOD.SUBSAVEDIALOGSETTINGS@.TEMPLATEPROJECT.OPENSOURCE.REPAIRLISTINSTANCESA.TEMPLATEPROJECT.OPENSOURCE.SETOUTLINENUMBERINGB.TEMPLATEPROJECT.TOOLBAR.CENTERALIGNEDPARAGRAPHC.TEMPLATEPROJECT.TOOLBAR.EVENTCHANGELISTTYPEDLGD.TEMPLATEPROJECT.TOOLBAR.SUBGETCURRENTSELECTIONE/TEMPLATEPROJECT.OUTLINE.SETSINGLESECTIONOUTLINEF/TEMPLATEPROJECT.TOOLBAR.EVENTPREFORMMATEDBUTTONG1TEMPLATEPROJECT.TOOLBAR.SUBCREATEALLMISSINGSTYLESH1TEMPLATEPROJECT.XREFMOD.SUBCURRENTWRITERDOCUMENTSI2TEMPLATEPROJECT.THISDOCUMENT.SUBSETUPESCKEYHANDLERJ3TEMPLATEPROJECT.TOOLBAR.EVENTRESTARTNUMBERINGBUTTONK4TEMPLATEPROJECT.TOOLBAR.EVENTDEFAULTFORMATTINGBUTTONL7TEMPLATEPROJECT.TOOLBAR.PRESSESCTHENFORWARDSLASHFORHELPM8TEMPLATEPROJECT.XREFMOD.SUBEVENTLISTBOXHEADINGS_INITIATEN<TEMPLATEPROJECT.XREFMOD.SUBEVENTCOMMANDBUTTONINSERT_INITIATE@d@Unknown Gz Times New Roman5Symbol3& z ArialcHelvetica-NarrowArial Narrow;" HelveticaA& Arial Narrow3z Times?5 z Courier NewO& k9?Lucida Sans Unicode5& zaTahoma;Wingdings#h՛&FFp$~4d1@I< 3qXR,?h2 Division of ICT Servicesdebyld`U                           ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T IOh+'0 (4 T ` l xDivision of ICT Services ice-toolbar-installer.dotdebyld112Microsoft Office Word@X@B~@Fk*@՜.+,D՜.+,d     Title  ) ] m _PID_LINKBASE chkTitlechkTableOfContentschkPDF filTemplate filSaveDir txtTitle txtSummary txtAtomPubUrl optAuthType txtUsername chkDraft chkNewEntry txtAuthorA$C:\sam\ice\trunk\templates\ice\wordTest Documentsummary,http:/samuelknipe.wordpress.com/wp-app.phpBasic samuelknipeME!!   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Frame2E(28Label4$@StartAt$4cmdOkAt  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmOutlineNumbering Caption = "Set outline numbering" ClientHeight = 3690 ClientLeft = 45 Cliei19(0. n``@0C!fo-/dCompObjpSummaryInformation(&DocumentSummaryInformation8.Macros[A`ݥUVBA`ݥpu ThisDocumentE]__SRP_5 __SRP_4 toolbarDjl  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|~ibute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 P" Sub In stall,() Dim Tmyn,edValue, FullPathToSaDFil Seperator, The%#ice-toolbar5 & ".do"(!Options.Default(wdStartupA1$:If3Str(, "\") > 0-Tn \ / / I"2&H&G[;C*LC,.).HT-iCs erN4Or _CA[InA>cH;)MsgBox("ē the ICE z as Word Add-In?", vbYesNo:)@D6^E) 'assign key capturestrokes for short cutssubSeAEscKeyHandler, sIn "iB t tDmKOn ErrRes Next+@ . !S4:= 0 Qhfo:=d}'-C {@+FuAs(GQhe'D&iB&#e## qgX #QMessag P" sA: " ~&R HuvbCrLfAj NOTE:b3 FM hdbeen xdfa g.$%nm1Act@ɥ.Cl DChangesN QCGoTo 0$End IfeSubm {ekCo!bCont9KPABindings:Code:=wd`C, !prPgorydCM acro,:CoDmm@F:=" E~vG  f4rmSLL.Leftq)-1 4q,TopJw %_OpenC4E%1*!'New7'. ;%PH %x %PX@T\@pl rU 9 I 4 a `` [W0   0   tD+jl%$,+jl%$,$ D$ 0 P  0   448@ PrU @$`$A`$`$`$` n@w uG0204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R0*#17*\R0*#13*\R1*#106*\R1*#c6*\R1*#c1*\R1*#17b*\R1*#1d   L <h *  N N0 J ,  H HP F 6  J  Dp R  L " h p<<<<P<<<:P 6:L 2p8664P4,,KMBu8x P@ 0Hb d ME@<> "<<<<<<< <$<(<,"<N0{00020906-0000-0000-C000-000000000046} ` N%%@l @\ `@L x@ < jf@", ][@< en 0` + RP`\k0 Z`|J6 ^` ;%PH %x %PX@T\@pl @\ pph @ @*.,0p   @ 0 @ @  @ @ @ ` (@p (` @P (>@B@pL @< @, @ @ P @  @  @  @ | @l @\ @L  <  y-(,  8H@1(l @\ P @-I $*\Rffff*1x49c0ee21$*\Rffff*0649c60fb74? "   (@ -X p"1"1 t >4` 6  *  $3 @ pX x  $2  := F !P ` .h x   " 8 " 0@ " HP Xh " px ]@Xp ice-toolbar' .dot'0 ( $%&'"foreDr:'  "\ G\' j0 "/ G/' jki "  't !$*ice-toolbar-installer.dot !$*ice-toolbar-installer.doc 'Install the ICE toolbar as Word Add-In? .$, 0assign key to capture key strokes for short cutsA@0 $Set AddIn to False for this template 68 2B@4ress Install template "  6 B:yo Set Addin to Trueh 68 2B@4eWWW]Template saved to: "   > >'<WW <8NOTE: This template has been installed as a Word Add-In.'< <A@,WWB @B@BB B@Bpkhk`oX @'D  JH NLsubEventEscKeyP FB@4o-1000 T(tivate-1000 T(VvateWW TB@XyLTermoPA (\oA (\oh`aAttrLL LLL<\<`I6  >` H GI6 h1I@ x l `  gI@ nIT  VH ` 33l L ` iZl`\1`^``l fo`b`d+x ` ` uIz @| 'h  !` !i@ h "``9kP "CCiz p 'hi  i 'hI  `lx $r`|t `Xr2`l`h for@ X me o` ($j@ for`fer$ '  #` #I  I  for@ $`X `$r@ @ chap v$` $I terI 8hI i-co@ `XnMak@ @ +8%` % I er$i x&` & '` '  (` ( )` 8 ) I @ tle-`X.%4. *`<4k*::!I moteI 1b$I mote  <st0 li`xli2b`t @d li@T `Pmote h+`HDtk+[ X@%mote ,`tJ,n %mote (-`\J-  h.`B\k.  /`\J/  .0` 0  ,H1`li   3` 3 v4` ` 4//I@  IT  5` 5% \`6`  6<I@ @h3IT h ^7`  7""AI@ vIT   8` 8c x9` ` 9kI@  #ThIT t to :` : z`;`  ;I@ @nd fIT nPro <` < | =`  =##I@ ResuIT ote4 `>` > ~?`  ?I@ stReIT ertE  @` @ A` ` A//I@ X IT nd f B` B* `C`  C 2I@ @ XIT Resu D` D=  E`  E00EI@ "p")IT Resu `F` Fu G`  G}I@ , "lIT stRe  H` H I` ` II@ fnPrIT Name bJ`  J**Ib itleIP   = bIR @("fnIT ` "p"IV stReIX ertEId e("h K` K `L` @LIt nd f M` M  N`  NI@  IT  ` O` O   P` P$$ I@  IT  P!Q` QD`x `   !R` RR P!S` !SWiz f t"T` 0" TfIb P"gIR p"IV  r"U` " UuI@  pP#V` 0# V I@  n#W` # WI@  L$X` # XI6  Np$Y` P$ Y//I6  Z$Z` $ Z00I6  N0%[` % [)I6 ( p%\` \C %]` % ]JIF h 0&^` & ^OIF  p&_` _ T *&`` &`]I@ &vI  'a` 0'a uI P'LI@ p' I y 0(b` 'b IF '{I@ (I  (c` p(c&&IF ( I@ ( ~I X )d` )d I 0),I  H H B )e` e *f`f:: @*g` g;;  **h` h A  ,*i` ia  0+j` ji  2@+k` kq  4+l` ly  . ,m` +m I +I6 ,I8  ^,n` `,n Ip  r,o` o   -p` - p - I N &-q` `-q 6 I -Iv    .r` - r? I . Ix  (.s` `. s[ I .Ix  @/t` .tx I /Ix  /I  /u` /u I /Ix /I B @0v` 0v I  B0w` w  :0x` x  1y` y  >@1z` z  1{` {  1|` 1 | I x "@2}` 2}  I  2~` 2 ~ I x $@3` 2 ( I 3I  3I  3` 3 > I 3i X4` 4 J i P484+4` 4Y i+85` 4a I 5i 5` x5 r I  +` 5} i x8 0  p$`)02"./p%` )1@0 ` -8 ,8@+@xp&&H (H  X45hh$  +,( 0%@1!3-1'`+84 $0(@3@2 %`!1hxx`885P!H* @*"(* # .@/`P#x0&8x *,`P9%8 H x p P < 0 ` <0:`:::H<0<`<x@r@:H @H:D @x:@ @<0 @, : : @: @: @; @(; @@; @X; @p; @; @; @;p @;` @;P @@ @0 @` :npL@p< <H<@/ <p<@ p< X@p(x==H>=>=nr@>@ @`>< x>= @=, @= @> @0> @> @> @ @ `>`=,@> @> @? @? @0? @H?t @`?d @?T @x?D @?4 @?$ @? @? @@ @ @ @P@ @8@ @h@ @@ @@ @@ @@t @@d @@T @D @4 ABBBABA`z AA0B@h @@BX @H B @pB8 @( @ XBBB@CCC,@l @\ 0EpEXx @h @X EH ED$0E@Ex @t H(CD @@ @< `(F0DDJ@ @ J\ 8+G5(9 5-I $*\Rffff*0B49c611b8*\R1*#e3*\R1*#a5*\R1*#129$*\Rffff*0749c60fb8*\R0*#e*\R0*#14*\R0*#14*\G{00      !"#$%'()*+,-/012345;c>?AVCuOFGHIJKLMN=PQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsBvwxyz{|}~>N <P  4 4 J 0h 4 4 4 0@ @p  2 4 H8 B . 6 20 2h H N <8 xDTT8@Ld  N::<X<<::X:66<H:<<<H<6:6@:x666(6`:HH    Ph ` ` fx f bH b ` ^x b `@ ` f fh f d8 b d `p b `8 b ` `` d (!@@!<!@!<"P@"J" ":#:@#:#:#:$:@$:$:$:%@@%@%>%@&@@&>&@&@'<@'@'B'B(>P( (:(:(<()<h)@)@)@(*@h*<*<*:(+ h+<+<+>,>@,@,@,@-@@-@-B->. H.>`.>.B.B(/Bp/B/B0BH0B0@0B1@`1>1@1  2>@2>2@2@3B@3B3B3B4B`4D4@4D05Dx5D5 6< 6<`6@6@6@ 7@`7@7@7@ 8>`8@8@8< 9>`9 9<9<:>@:>:@:@;@@;@;>;@<>@<B<B<B= @X=B=@=B > h><>8> ?> ?@`?>?  "?>@@H@>@ @<@>(A<hA A<A>B>@B<B@B<C@@C<C>C@D>@D@D@D@E@@E@E>E F> F@`F@F>FB G>hGBG>G@0HDpHBHDIDHIDIDID JBhJDJDJ "@KBhK@KZKRPL LLdL0M8M B  @MHM PM`MPhMMMMMM " M MM " NNN " N N(N " 0N8N@N " HNPNXN " `NhNpN " xNNN " NNN " NNN " NNN " NNN " NNO " OOO " O(O0O " 8O@OHO " POXO`O " hOpOxO " OOO " O RO@O 6P 8P>HPPPP PP B  P@PPPP B P@PPQQ Q Q (Q0QHQ!PQhQ!pQQ!QQ/QQ Q Q Q R R (R 8R HR XR hR!xRR!RR!RR RRR S S(S!0SHS!PShS!pSS!S SSS!SS!ST!T(T!0THT!PThT pTT!TT!TT!TT!TUUU@U U0U8U " @U HUXU " `UhU pU =U U@UUU U VVV " V (V 8VHV B  PV@XV`VxVVVVV B  V@V VVVVV "  VV@W&W0W HWXW `WpW xWW@W W WW XX@ X X @XHXPXXX`XLhX@XRXY Y(Y B  0Yf8YY " YYYY@BZ PZ pZZZZZZ[[ [0[@[X[x[[[[[[[\(\@\X\ 6`\ 6\ 2\ 4] $@] 6h] 2] 0] N^ NX^ 8^ B^ 8(_ L`_ ._ :_ F ` Ph` B  ` ```a a a(a@a Ha`a ha xa aa a aa a aBa (b0b8b HbP Pb pc ccc cc cc cc cd d d (d8d@d Hd0fhd e te Xfhfffff f0f ggg gg$g&h(h(0h h h h hhhZi`iLhiiLijLjhjLpjj jjj0jkRkkRlXlR`llRlm  m (m 8m @m@Hm&Pmxmmmmmmmmmnnnn n*(nXn`n8hn8o(@oo(ohp(ppq(qq qqqhq(rh0rrhrshsxshss js `t ht xt t8t `uLhu uLu vLv hvLpv vv v vlvN`w w vw 8x @x Px Xx ~`x xLx 8yL@y yLy yLy @z Hz Xz `z(hz {({ {h{ |h| |h| | | } }< } `}>p} }`} ~V0~ ~X~ ~( ( 0 @"X ,   B      (08@ B  HP X`x  ؀ "    8 $APx $A T  0  p$8   ' Ђ   7  8 H &`       @ "8 8P ,؄* 0@NH   ȅ ؅8 ( @P &X & "   Ȇ (0 P h   8  "  .( X @` hx (؈<0 p 0 B  ȉЉ   (08 B  @VH B  h: B  X  B  (0 N@$$؏  "  (@`  h x   Ȑ    7 (-8 P` x - ؑ    @PX `px $ ^ؒ8 >@ $ @  "@  0H Ph0pȕlX/`px " @ Ȗ Ж0 0Hjhؗ/ " @x "@r(08 " @@HrPșxЙؙ " @zpx "  0 ( F :H  Ț H/,ؚR " @ (,8 h x R  ( 0@PXp x " М , 8HP`px   "  ȝ؝(0H6PȞ О$@ &P 0xȟ B  П؟(08HP`  p8 Ƞ ؠ   8 H`X ȡ ء  08 PX x   @H " P Xhx ( H (8 P `$pȤؤ B  (0 B  8@P`pȥ إ*H*`Ц ئ   ( 0P Xpx "  ȧا B  (8 H` x Ȩ "  0@Xh B  pxȩ ة   (08 HX`x "  Ъ B  (8@H X hpxȫ ث  0H PhpȬ " Ь ج B  (0@P`hpЭ   (H Php x "  Ю B  (8@HX`px ȯ   (8 Xp   Ȱ    8 H` h "  ر B  (8H Xp " x Ȳ B  в ز (8HX  h ȳ  ( 0 Ph :p ȴдش   (H P p ص   8@H " P Xhx B  ж  0HPpx "  з B  ط 0  @`x B  4v h:xй  $ 0P Xhp *x  Ⱥк    .HPXh px  " Ȼл ػ     ( 8 HX `@px  & "   ( 8HXh &н "  (8P` B  hpȾо ( 8 " @ HXhп B  ؿ08@PXh x    (0PFX & ( " @ 080H Xx, "  0 "  8@@ H Xh p   B      ( 8H PX`h B  N  X@Xp   B  ZX`x  B    0 HX p   ( HX `px B         (@08P Xp    B  ( (@ P `h$p      808 @ HX@`h   $ $@ H P ` p  6 B   0@ Xh       08 @ HX@`h  (8 @PX ` h xx B   0 8 H Xh p@6     0D8  B  0 B  .8 B  @.Hx B   ,  "  , 0 @ 2P    .B`h D "    (,8BhL>@HP "  X`p< "  &  8H P `p2  8 P :` 6  (HXxH "   8@ HP B  X`&h8  : 08@ HP " X@`hx6(@@H4h": :8xD :P$X<"@0"8:`6":0px4>2886p466:P>848@x " @6  ( 8H (P,x,4.0@(p0  ,   ( 8X  ` p   (,,(4X "8`0h(0 " @ @X `p (x<$ , PX0`  (<$(0P, "   "   (@ " HP Xhp "   "   ,08 n@ 2 8 P`Dh  8 zX (.00` hx   0 8H jh   2H P$`    4 " 8 "@h  8 "  "@X `h 0p    4 ( 8 X` 6h   : 8<@ .6. "0 X` 8h       @<`p x 60 "  (20h " px   & B  @ 8@X` "  h@pVx B  @(08 P` x      8H `p  B  @  0 @P `p       (0 "  8@@Hhp ( @P `p     (8 HX`h "  p@x      0@ P` p    "  @ ( 0@H B  P@X` h x   B  @  ( B  0@8@ H Xx  6    B  (@068p2x B  @   h (08@HX B  @@2@H "  P X@h >p 0 B   F ` @h @p      @ ( 0  8 @  H P X ` h  B  p  x      @   @ :  ` p 6x         "  @   2 8  *H x    B    "     ( @ P ` x    B        B  @       ,(BX . B   0@ X hx B    b bdE ISE*********************************************************************lice6 Copyright (C) 2006 Distance and e-Learning Centre,$ University of Southern Queensland(G This program is free software; you can redistribute it and/or modifyG it under the terms of the GNU General Public License as published byD the Free Software Foundation; either version 2 of the License, or|& (at your option) any later version.B This program is distributed in the hope that it will be useful,A but WITHOUT ANY WARRANTY; without even the implied warranty of@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the / GNU General Public License for more details.ThD You should have received a copy of the GNU General Public LicenseB > along with this program; if not, write to the Free Software'DL Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA|E*********************************************************************Test fnNeedsRestart5W hfnNeedsRestart1li2nli1n$l$j'h hfnNeedsRestart2li2ali1n$l$j'h hfnNeedsRestart3li3ili2a$l$j'h hfnNeedsRestart4li2ili2i$l$j'h hfnNeedsRestart5li1nli1n$l$j      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~(Proxy:"1Tahoma0Fg 0Draftsic1Tahoma4F g 0New entryme.1Tahoma0(Required for Basic and Blogger1TahomaH,{1TahomaH,*{1Tahoma( Username:me.1Tahoma( Password:me.1Tahoma (Misc'h hfnNeedsRestart6li2bli1b$l$j'h hfnNeedsRestart7li1pli1p$l$j'h hfnNeedsRestart8bq1p$l$j'hTest fnGetFamily hFamily for bq1bq1$nbq$j'h hFamily for pre2pre2$npre$j'h hFamily for non-ICE styleSome other style$np$j'h h Family for pp$np$j'hT hFamily for li2bli2b$nli$j'h hFamily for dd1dd1$ndd$j'h hFamily for dt3dt3$ndt$j'h h Family for h1h1$nh$j'hx h Family for h3h3$nh$j'h hFamily for TitleTitle$nTitle$j'h hFamily for Title-chapter Title-chapter$nTitle$j'h hFamily for i-codei-code$ni$j'h /Test fnGetLevel h level for bq1bq1$p$j'h( hlevel for pre2pre2$p$j'h2 hlevel for non-ICE styleSome other style$p$j'h h level for pp$p$j'h hlevel for li2bli2b$p$j'h h level for dd1dd1$p$j'h h level for dt3dt3$p$j'h h level for h4h4$p$j'h hlevel for h2-chapter h2-chapter$p$j'h Test get type h type for bq1bq1$r$j'h h type for pre2pre2$r$j'hs htype for non-ICE styleSome other style$r$j'h htype for p-centerp-center$rcenter$j'hnd t h type for pp$r$j'hGe h type for li2bli2b$rb$j'h h type for dd1dd1$r$j'h h type for dt3dt3$r$j'h htype for h2-chapter h2-chapter$rchapter$j'h htype for Title-chapter Title-chapter$rchapter$j'h htype for i-codei-code$rcode$j'hTest fnMakeStyleName H hMake style name: bq1bq$tbq1$j'h hMake style name: p-centerpcenter$tp-center$j'h hMake style name: p-indentpindent$tp-indent$j'h hMake style name: pp$tp$j'h hMake style name: TitleTitle$tTitle$j'hh4n hMake style name: Title-chapterTitlechapter$t Title-chapter$j'h.%4.HTest fnDemote #These will need to be tried out to see if they make sense h fnDemote1li1bp$vli1b$j'h  h fnDemote2li1bh1$vli1b$j'h(<st h fnDemote3li1bli1b$vli2b$j'h out h fnDemote4li1nli1n$vli2n$j'h' h fnDemote5li2bli3b$vli3b$j'hn h fnDemote6pli3b$vli3p$j'hUppe h fnDemote7pbq2$vbq2$j'hUppe h fnDemote8pdt1$vdd1$j'htListS h fnDemote9ph1$vp$j'h h fnDemote10pp$vp$j'h h fnDemote11bq1bq1$vbq2$j'hlist h fnDemote12bq1h1$vbq1$j'hKT h fnDemote13pre1pre1$vpre1$j'hUppe h fnDemote14pre1li1b$vpre2$j'hi' h fnDemote15pre2li1b$vpre2$j'h' h fnDemote16li5bli5b$vli5b$j'h h fnDemote17h1p$vh1$j'h9 h fnDemote18h1np$vh1n$j'h4Se h fnDemote19h2p$vh2$j'h h fnDemote20h5np$vh5n$j'h9^ h fnDemote21h1h1$vh2$j'h h fnDemote22h2h1$vh2$j'h h fnDemote23h3h5$vh4$j'h h fnDemote24h5h5$vh5$j'h h fnDemote25Titlep$vh1$j'h h fnDemote26p-centerp-right$vp-center$j'h h fnDemote27p-indentp-center$vp-indent$j'hITest fnPromote #These will need to be tried out to see if they make senseY bTestResult = bTestResult And fnAssertEqual("fnPromote1", fnPromote("li1b", "p"), "p")Z bTestResult = bTestResult And fnAssertEqual("fnPromote2", fnPromote("li1b", "h1"), "p")_ bTestResult = bTestResult And fnAssertEqual("fnPromote3", fnPromote("li2b", "li2b"), "li1b")@_ bTestResult = bTestResult And fnAssertEqual("fnPromote4", fnPromote("li2b", "li3b"), "li1b")s\ bTestResult = bTestResult And fnAssertEqual("fnPromote5", fnPromote("li3p", "li3b"), "p")\ bTestResult = bTestResult And fnAssertEqual("fnPromote6", fnPromote("bq2", "bq2"), "bq1")0B@RZ bTestResult = bTestResult And fnAssertEqual("fnPromote7", fnPromote("p", "dd1"), "dt1")X bTestResult = bTestResult And fnAssertEqual("fnPromote8", fnPromote("bq1", "p"), "p")<\ bTestResult = bTestResult And fnAssertEqual("fnPromote9", fnPromote("bq2", "bq1"), "bq1") XZ bTestResult = bTestResult And fnAssertEqual("fnPromote10", fnPromote("bq1", "h1"), "p")Z bTestResult = bTestResult And fnAssertEqual("fnPromote11", fnPromote("bq2", "h1"), "p")` bTestResult = bTestResult And fnAssertEqual("fnPromote12", fnPromote("pre1", "pre1"), "pre1"):` bTestResult = bTestResult And fnAssertEqual("fnPromote13", fnPromote("pre2", "li1b"), "pre1")` bTestResult = bTestResult And fnAssertEqual("fnPromote14", fnPromote("pre3", "li1b"), "pre2")] bTestResult = bTestResult And fnAssertEqual("fnPromote15", fnPromote("li1b", "li1b"), "p")Name\ bTestResult = bTestResult And fnAssertEqual("fnPromote16", fnPromote("h1", "p"), "title")P] bTestResult = bTestResult And fnAssertEqual("fnPromote17", fnPromote("h1n", "p"), "title") Y bTestResult = bTestResult And fnAssertEqual("fnPromote18", fnPromote("h2", "p"), "h1")[ bTestResult = bTestResult And fnAssertEqual("fnPromote19", fnPromote("h5n", "p"), "h4n")Z bTestResult = bTestResult And fnAssertEqual("fnPromote20", fnPromote("h2", "h1"), "h1")[ bTestResult = bTestResult And fnAssertEqual("fnPromote21", fnPromote("h4", "li1"), "h3")Z bTestResult = bTestResult And fnAssertEqual("fnPromote22", fnPromote("h3", "h5"), "h2")Z bTestResult = bTestResult And fnAssertEqual("fnPromote23", fnPromote("h5", "h1"), "h2")] bTestResult = bTestResult And fnAssertEqual("fnPromote24", fnPromote("h1", "h1"), "title")Test Title Button h TitleButton1TitleTitle$xp$j'h h TitleButton2Titlep$xp$j'h h TitleButton3pTitle$xTitle$j'h h TitleButton4pp$xTitle$j'h  h TitleButton5p Title-chapter$x Title-chapter$j'h h TitleButton6li1nTitle$x Title-chapter$j'h Test Heading Button hHeadingButton1h1h1$zp$j'h  hHeadingButton2h1h2$zp$j'h hHeadingButton3h1p$zp$j'h hHeadingButton4h2h1$zp$j'h  hHeadingButton5h2h2$zp$j'h hHeadingButton6h2p$zp$j'h hHeadingButton7ph1$zh1$j'h  hHeadingButton8ph2$zh2$j'h hHeadingButton9pp$zh1$j'h hHeadingButton10h1nh1n$zp$j'h hHeadingButton11h1nh2n$zp$j'h hHeadingButton12h1np$zp$j'h hHeadingButton13h2nh1n$zp$j'h hHeadingButton14h2nh2n$zp$j'h hHeadingButton15h2np$zp$j'h hHeadingButton16ph1n$zh1n$j'h hHeadingButton17ph2n$zh2n$j'h hHeadingButton18pp$zh1$j'h  hHeadingButton19li1nh1$zh1n$j'h hHeadingButton20li2nh2n$zh2n$j'h( hHeadingButton21li2ih2n$zh2n$j'h hHeadingButton22li2ah2$zh2$j'h Test toggle bq on h BlockQuote1onh1$|bq1$j'h h BlockQuote2onh2$|bq1$j'h0) h BlockQuote3onh1n$|bq1$j'h h BlockQuote4onh2n$|bq1$j'h h BlockQuote5onli1bli1b$|bq2$j'h h BlockQuote6onli2bli2b$|bq3$j'h h BlockQuote7onli1pli1p$|bq2$j'h h BlockQuote8onli2pli2p$|bq3$j'h h BlockQuote9onpre1$|bq1$j'h hBlockQuote10onpre2$|bq2$j'h hBlockQuote11onp$|bq1$j'hTest toggle bq off hBlockQuote1offbq1h1$|p$j'h hBlockQuote2offbq2h2$|p$j'h hBlockQuote3offbq1h1n$|p$j'h hBlockQuote4offbq2h2n$|p$j'h hBlockQuote5offbq1li1b$|li1p$j'h hBlockQuote6offbq2li2b$|li2p$j'h hBlockQuote7offbq1li1p$|li1p$j'h hBlockQuote8offbq2li2p$|li2p$j'h hBlockQuote9offbq1pre1$|pre1$j'h hBlockQuote10offbq2pre2$|pre2$j'hx hBlockQuote11offbq1p$|p$j'hTest toggle Pre on hPreformatted1onh1h1$~pre1$j'h hPreformatted2onh2h2$~pre1$j'h hPreformatted3onh1nh1n$~pre1$j'h hPreformatted4onh2nh2n$~pre1$j'h hPreformatted5onli1bli1b$~pre2$j'h/ hPreformatted6onli2bli2b$~pre3$j'h hPreformatted7onli1pli1b$~pre2$j'hB0 hPreformatted8onli2pli2p$~pre3$j'h hPreformatted9onbq1bq1$~pre2$j'h hPreformatted10onbq1p$~pre1$j'h hPreformatted11onbq2bq2$~pre3$j'h hPreformatted12onbq2p$~pre1$j'h hPreformatted13onpp$~pre1$j'h hPreformatted14onpli1b$~pre2$j'hTest toggle Pre off hPreformatted1offpre1h1$~p$j'h hPreformatted2offpre2h2$~p$j'h hPreformatted3offpre1h1n$~p$j'h hPreformatted4offpre2h2n$~p$j'h hPreformatted5offpre2li1b$~li1b$j'h hPreformatted6offpre3li2b$~li2b$j'h hPreformatted7offpre2li1p$~li1p$j'h hPreformatted8offpre3li2p$~li2p$j'h4 hPreformatted9offpre2bq1$~bq1$j'h hPreformatted10offpre3bq2$~bq2$j'h hPreformatted11offpre1p$~p$j'h hPreformatted12offpre2li1n$~li1n$j'h hPreformatted13offpre1li2a$~li2a$j'h hPreformatted14offpre2pre3$~li2p$j'hTest Definition On h Definition1onh1h1$dt1$j'h/ h Definition2onh2h2$dt1$j'h h Definition3onh1nh1n$dt1$j'h h Definition4onh2nh2n$dt1$j'h h Definition5onli1bli1b$dt1$j'h h Definition6onli2bdt2$dd2$j'h h Definition7onli2pli2b$dt2$j'h h Definition8onli1pdd1$dt1$j'h h Definition9onbq1bq1$dt1$j'h hDefinition10onbq1p$dt1$j'h hDefinition11onbq2dt2$dd2$j'h hDefinition12onbq2dd1$dt1$j'h hDefinition13onpp$dt1$j'h hDefinition14onpli1b$dt1$j'hTest Definition Off hDefinition1offdd1h1$p$j'h hDefinition2offdt2h2$p$j'h hDefinition3offdd2h1n$p$j'h hDefinition4offdt1h2n$p$j'h hDefinition5offdd2li1b$li1b$j'h hDefinition6offdt3li2b$li2b$j'h hDefinition7offdd3li2p$li2p$j'h hDefinition8offdt2li1p$li1p$j'h hDefinition9offdd2bq1$p$j'h hDefinition10offdd3bq2$p$j'h hDefinition11offdd1p$p$j'h hDefinition12offdd2li1n$li1n$j'h  hDefinition13offdt1li2a$li2a$j'h hDefinition14offdd2pre3$pre3$j'h$ hDefinition1extradt1dt1$p$j'h hDefinition2extradd1dt1$dt1$j'h hDefinition3extradt1dd1$p$j'h hDefinition4extradd1dd1$dt1$j'hTest paragraph left align h LeftButton1p-center$p$j'h h LeftButton2bq1$p$j'hTest paragraph indent h IndentButton1p$p-indent$j'h h IndentButton2bq1$p-indent$j'h h IndentButton3p-indent$p$j'hTest paragraph center align? h CenterButton1p$p-center$j'h h CenterButton2bq1$p-center$j'h h CenterButton3p-center$p$j'hTest paragraph right align h RightButton1p$p-right$j'h h RightButton2li3b$p-right$j'h h RightButton3p-right$p$j'hTest Bullet Button h BulletButton1pp$li1b$j'h h BulletButton2pli1b$li1b$j'h h BulletButton3pli2b$li2b$j'h h BulletButton4li1bp$p$j'h h BulletButton5li1bli1b$li1p$j'h h BulletButton6li2bp$p$j'h h BulletButton7li2bli2b$li2p$j'h h BulletButton8ph2$li1b$j'h h BulletButton9li1bli2b$p$j'h hBulletButton10li2bli1b$li1p$j'h hBulletButton11pli1n$li2b$j'h hBulletButton12li2nli1n$li2b$j'h hBulletButton13li3bli2b$li2p$j'h hBulletButton14li1pli1b$li1b$j'h hBulletButton15li1pli1p$li1b$j'h hBulletButton16pre3pre3$li2b$j'h hBulletButton17pli1i$li2b$j'hTest Numberise Button hNumberiseButton1pp$li1n$j'h hNumberiseButton2pli1n$li1n$j'h hNumberiseButton3pli2n$li2n$j'h hNumberiseButton4li1np$p$j'h hNumberiseButton5li1nli1n$li1p$j'h hNumberiseButton6li2np$p$j'h hNumberiseButton7li2nli2n$li2p$j'h hNumberiseButton8ph2$li1n$j'h hNumberiseButton9li1nli2n$p$j'h hNumberiseButton10li2nli1n$li1p$j'h hNumberiseButton11pli1b$li2n$j'h hNumberiseButton12li2bli1b$li2n$j'h hNumberiseButton13li3nli2n$li2p$j'h hNumberiseButton14li2pli2n$li2n$j'h hNumberiseButton15li1pli1p$li1n$j'h hNumberiseButton16pre3pre3$li2n$j'h hNumberiseButton17pli1i$li1i$j'h hNumberiseButton18li2bli2a$li2a$j'h hNumberiseButton19li2ili2i$li2p$j'hTest Numberise for headings hNumberiseButtonH1h2nh1n$h2$j'h hNumberiseButtonH2h2h1$h2n$j'h hNumberiseButtonH3 Title-chapter Title-chapter$Title$j'h hNumberiseButtonH4TitleTitle$ Title-chapter$j'htest fnAssertEqual hAll tests are working12Aj>1 This will throw up an error if nothing else doesk2o2@]  'Failed:  : ' $ ' <> ' $ ' A@,d@2'k02 'ji 2 Do Nothingo28A@o1xA@o1A@o1A@o18A@o1xA@op1A@oX1A@o@18A@o(1xA@o1A@o0A@o08A@o0xA@o0A@o0A@o08A@oh0xLInspired and informed by examples in http://www.pitonyak.org/AndrewMacro.odt d/Take control and listen for the next key stroke !'Capture_com.sun.star.awt.XKeyHandler$'  B@`/oX/]] d'(/i /H d !$'. b '. hKHKTA.K>KTA,K<KTA8K*KTA#KnKNKTA1KTnA2KTiA3KTaA4KTIA5KTAAlKLKTAfKFKTApKPKTAmsword uses vbTab KTA OOo uses " "' KTA[K{KTA]K}KTAdKDKTAqKQKTreset to p firstAAtKTKTAbKBKTAiKIKTAcKCKTA+K=KTA-KTArKRKTAeKEKTAxKXKTA/K?KTAn*' d  B@*i* B@Xo* b .00:00:10$ B@ B@XH* IceLibrary B@ !! $' B@" B@$)o)( B@( A@ro)h d !%.', ,'*x) 0!2.*`)iX) d 6!8'40) 6!:!<'4)i)BF dParagraphStyles !F%H'D @ D%J @A@Lk( @ 6(8( @ 6(<p( @$nli @$rb @$rp$*., b @ ,$N$lA@Pk'' @ ,$N$lA@P'k'RFB' bStyle ' @ .' could not be applied. Try creating it first. A@,@'Style ' @ 4' could not be applied. Try deselecting any objects. A@,&R&o&  @$nli @$rp @$rb @$p T$p 'liX& Xli Xa$tALli Xi$tAL d3doesn't work in word, doesn't distinguish capitals.li XA$tALli XI$tALh%li Xn$tALli Xb$tALh Xn$tAL%dt1A@Ldt5A@Lpre5A@Lbq5A@L bq5sourceA@L Title-chapterA@L Title-bookA@Lp-indentA@Lp-centerA@Lp-rightA@Li-bA@Li-iA@Li-codeA@Li-subA@Li-supA@Li-latexA@Lo#0ParaTopMargin (spacing above paragraph)0ParaBottomMargin (spacing below paragraph),ParaLeftMargin (spacing to the left)-ParaRightMargin (spacing to the right)CharWeight (bold)/ParaBackColor (for pre only, 13421772),ParaBackTransparent (for pre only, False))ParaLeftMargin (Amount of Indent)HParaAdjust (alignment, left=0, right=1, justify=2, center=3)GParaKeepTogether (whether it should stay with the next paragraph)2ParaOrphans (number of orphans allowed);ParaSplit (whether the paragraph can be split)1ParaWidows (number of widows allowed)ENumberingStyleName (for lists only, should be same as style name)'ParaIsNumberingRestart (for lists only)4CharFontFamily (Unknown, possibly necessary)@FollowStyle (Style that will follow when press enter)JParentStyle (The name of the style that this one inherits from)H ]     Z$n'b Z$r'` Z$p'f f 'f b f `$t'Zk #If OOo Then bpKT `centerKT'^p'\rightKT'^p'\indentKT  Zp ParagraphParaLeftMarginXDAhS'^Default'\n$ #'+ Z \ Paragraph CharHeight CharFontNameTimes New RomanCharFontFamily ParaTopMarginParaBottomMarginParaLeftMarginRelativeParaRightMargin CharPosture ParaAdjust ^DAhliKT `p f X'd `AKT'jaKT'jIKT'jiKT'jnKT'jbKT'jnIf sType = "b" Thenc*G Call subCreateDefaultStyle(sNewStyle, "", "Numbering", Array( ' "LeftMargin", 600, ' "FirstLineOffset", -600, ' "NumberingType", nNumberingType, ' "CharStyleName", "Bullet Symbols", ' "BulletFontName", "Regular"))Else  Z Numbering LeftMarginXFirstLineOffsetX NumberingType jDAhEnd If Z$p'ddpdd Z$p 'dkHli Z$pp$t'\  Z \ ParagraphParaLeftMarginRelative dNumberingStyleName Z CharPostureParaBottomMargin ParaTopMarginD Ah `pe Z$pe'dbq1'\d(dd Z$p  'dli Z$p p$t'\k  Z \ ParagraphParaLeftMarginRelative d CharPostureParaBottomMargin ParaTopMarginDAhk0bqKT `KT fKT  Zp Paragraph CharPostureParaLeftMarginXDAhKT  Zbq1 ParagraphParaLeftMarginRelativeDAhKT  Zbq2 ParagraphParaLeftMarginRelativeDAhKT  Zbq3 ParagraphParaLeftMarginRelativeDAhKT  Zbq4 ParagraphParaLeftMarginRelative}DAhn8sourceKT fKT  Zbq1 Paragraph CharHeight CharPosture FollowStylep ParaTopMargindParaLeftMarginRelativeeD AhKT  Z bq1source ParagraphParaLeftMarginRelativeDAhKT  Z bq2source ParagraphParaLeftMarginRelativeDAhKT  Z bq3source ParagraphParaLeftMarginRelativeDAhKT  Z bq4source ParagraphParaLeftMarginRelative}DAhnnhKT `KT dParagraphStyles !F%H'lp l%J 'nd`p l%H!p'nk@h1 l%J'rdh1 l%H!p'rk 'n'r r r n  Z$p 't fKT  Zp Paragraph CharHeight r CharFontNameHelvetica-Narrow ParaTopMarginParaBottomMargin^ FollowStylepParaKeepTogetherD AhKT  Zh1 Paragraph CharHeight t ParaTopMarginParaBottomMargin^ FollowStylepDAhKT  Zh2 Paragraph CharHeight t ParaTopMarginParaBottomMargin FollowStylepDAhKT  Zh3 Paragraph CharHeight t ParaTopMarginParaBottomMargin FollowStylepDAhKT  Zh4 Paragraph CharHeight t ParaTopMarginParaBottomMargin FollowStylepDAhn`nKT fKT  Zh1 ParagraphNumberingStyleNameOutline FollowStylepDAhKT  Zh2 ParagraphNumberingStyleNameOutline FollowStylepDAhKT  Zh3 ParagraphNumberingStyleNameOutline FollowStylepDAhKT  Zh4 ParagraphNumberingStyleNameOutline FollowStylepDAhKT  Zh5 ParagraphNumberingStyleNameOutline FollowStylepDAhn    fParentNumbering f NumberingTypeHeadingStyleName ZDAvn preKT fKT  Zbq1 Paragraph CharFontName Courier New CharHeight ParaLeftMarginRelativee ParaBackColor CharPostureParaBackTransparentD AhKT  Zpre1 ParagraphParaLeftMarginRelativeDAhKT  Zpre2 ParagraphParaLeftMarginRelativeDAhKT  Zpre3 ParagraphParaLeftMarginRelativeDAhKT  Zpre4 ParagraphParaLeftMarginRelative}DAhn8 TitleKT `chapterKT  ZTitle Paragraph FollowStylepNumberingStyleNameOutlineDAh    NumberingTypeHeadingStyleName ZDAvbookKT  ZTitle Paragraph CharHeight$ FollowStylep ParaTopMarginxDAhnddKT fKT  Zbq1 ParagraphParaLeftMarginRelativee CharPosture ParaTopMarginDAhKT  Zdd1 ParagraphParaLeftMarginRelativeDAhKT  Zdd2 ParagraphParaLeftMarginRelativeDAhKT  Zdd3 ParagraphParaLeftMarginRelativeDAhKT  Zdd4 ParagraphParaLeftMarginRelative}DAhndtKT fKT  Zp Paragraph CharWeight FollowStyledd1ParaLeftMarginRelative ParaTopMarginDAhKT  Zdd1 Paragraph CharWeight FollowStyledd2ParaLeftMarginRelativee ParaTopMarginDAhKT  Zdt2 Paragraph FollowStyledd3ParaLeftMarginRelativeDAhKT  Zdt3 Paragraph FollowStyledd4ParaLeftMarginRelativeDAhKT  Zdt4 Paragraph FollowStyledd5ParaLeftMarginRelativeDAhniKT `bKT  Z Character CharWeightDAhiKT  Z Character CharPostureDAhcodeKT  Z Character CharFontName Courier New CharHeight DAhsupKT  Z Character CharHeight CharEscapement!DAhsubKT  Z Character CharHeight CharEscapement!DAhlatexKT Zi-code CharacterDAhnxRefKT Z xRef-Base Z CharacterDAhdx Z xRef-Base CharacterDAhk@n8#End Ifi  ] 'x | @!~ |! z'xzki ]   @%.zx @!!4.  ( (  @%.i  ]    ]0 H b z$xG|j  Character z l @!~%4.|  Paragraphe z l @!~%4.|d@~ MWhile Word doesn't have a numbering style as such, it does have ListTemplates]` x  ]   $GnaiAIpb D$.j z$r'` z$n `' z$p'f $. ` % f %(k| X  X$' X $'  FollowStyle $x A@Lk`| |  A@|  $x A@L  |(k{{ Styles !F%H'l z l%Jcom.sun.star.style.  Style %'|  Paragraph  Character X  X$' X $'  FollowStyle  l%J A@LkzJ oStyle.setPropertyValue(sPropertyName, vPropertyValue)`zkXz   l%J A@Lk z4 oStyles.insertByName(sStyleName, oStyle)  NumberingG | Aj  |B@dy z l%H'|3 for debuggingkxyxray oStyle 'also for debuggingHyo@y ]@ X p   !''this is very necessary X   !  %.  X$$' |hxk`x X $ $(4 oNumRules.replaceByIndex(j, mSetOfRules)xw  (ow ]Xp:, j As Integer bw !' X  !For j = 0 To oNumRules.getCount-1  %.  X$$' |vkv X $ $(8 oNumRules.replaceByIndex(j, mSetOfRules) Nextxv)oObject.ChapterNumberingRules = oNumRules@vo8v X   X$' !  X+zukuuiu8D #'+/37;?CFCharEscapementPositionCharFontFamily CharFontNameName CharHeightSize CharPostureItalic CharWeightBoldNumberingStyleNameLinkToListTemplate ParaAdjust Alignment ParaBackColorBackgroundPatternColorParaBackTransparentParaBottomMargin SpaceAfterParaFirstLineIndentFirstLineIndentParaLeftMargin LeftIndentParaRightMargin RightIndent ParaTopMargin SpaceBefore FollowStyleNextParagraphStyleD $.iXsx0 #'+/2CharWeight_150CharWeight_100 CharPosture_2 ParaAdjust_1 ParaAdjust_3NumberingType_0NumberingType_1NumberingType_2NumberingType_3NumberingType_4NumberingType_6 D$.ir( #'* CharPostureDic CharWeightDicNumberingStyleNamern ParaAdjustDicParaBottomMargin2pParaFirstLineIndent2pParaLeftMargin2pParaRightMargin2p ParaTopMargin2pD$.ip]XpGWord's help file is wrong the quotes are required in the following lineScripting.Dictionary$. X  X$ X $ B@4o .io](@X]p] $$.$.$.kPo  %'  %' KT 'DicKT _  %'2pKT $'rnKT Outlinehn'dpn $n $r'kHnn@n $' CharKT !.ParaKT !:.  ParaBackColor !.kmSm .nm G|jOn Error GoTo ProblemProperty LinkToListTemplateXCallByName oSubObject, sWordProp, VbMethod, ActiveDocument.ListTemplates(vWordPropValue)dl7CallByName oSubObject, sWordProp, VbLet, vWordPropValuekxl|plhlOn Error GoTo ProblemProperty:CallByName oSubObject, sWordProp, VbMethod, vWordPropValue|kk %Creating Style: ! $Property (OOo, Word): ' ', ' ' $ Values: ' ', ' ' Error when applying propertyA@,gkok d %' ! %'dj %'kj!com.sun.star.frame.DispatchHelper$ ' ](Italic$( !$(h dispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:Italic", "", 0, args1())i $ 0!("ioih d %' ! %'d0i %'ki!com.sun.star.frame.DispatchHelper$ ' ]Bold$( !&$(f dispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:Bold", "", 0, args1()) h $ 0!((hoh dt subToggleCharacterStyles("i-code", array("CharFontCharSet","CharFontFamily","CharFontName","CharFontPitch"))pgPgoHg( dn subToggleCharacterStyles("i-sub", array("CharAutoEscapement","CharEscapement","CharEscapementHeight"))fofh dn subToggleCharacterStyles("i-sup", array("CharAutoEscapement","CharEscapement","CharEscapementHeight"))feoe du subToggleCharacterStyles("i-latex", array("CharFontCharSet","CharFontFamily","CharFontName","CharFontPitch"))@ei-latexA@, eoe Exit Sub4End If Next c2!dk 0!< 0 0 @%~ 0(<o`dH d %'com.sun.star.text.TextRanges %: !'<] < 'Dyes i know why this is here and not closer to the loop it's used in. X < < %'dHc X X 'Xk c X %'kc Create enumeration object %B'@ loop over all text elements @%D @!H'Fcom.sun.star.text.Paragraph F%:  < @>k(b F 2>  'kbaakaa 0!J'>a >'8oa$*., ,$4'@ ,$N'T @$nh @ ,$L$v'ZdHa @ ,$N$v'Zk(a @p T$nli T$nbqA @p-indenteA @p-centereA Z @eCannot demote any further.A@,dh` Z$nli Z$rb Z$rp ,li Z$pp$tA@>li Z$pp$t ,$N$'Zk_ , ZA@>k_o_  @$n'b T$n'P @$p'R bh Ph'Td@_ T$p'Tk(_ @$r'V T$r'X R @'v*no more than Level 5 allowed on any sStyle bhe R T b R V$t'vdx^ b R V$t'vkX^ bTitleeh1'v R T e @'vQNot allowed to fnDemote if you're already fnDemoted one or more than the previous R T e Pdtdd T X$t'v Plie b Pli Tp$t'vd@]li T X$t'vk ] Pbq Ppree P T X$t'vd\li R b$t'vk\ bpre Ppree @'v blie b R X$t'vdX\ b R V$t'vk0\i(\$*., ,$4'@ ,$Z'T T$n'P T$r'X T$p'R!If fnGetFamily(sStyle) = "h" ThenA sNewStyle = fnPromote(sStyle, fnFindPrevHeadingStyleName(oVC))Else @ ,$Z$\'ZEnd If Z @Cannot promote any furtherA@, Plie ,li R X$tA@> Pbqe ,bq R$tA@>dxZ , ZA@>k`ZoXZ T'\i@Z` @$n'b T$n'P @$p'R bh Ph'TdY T$p'TkY @$r'V T$r'X bh Rtitle$t'\ bli R Vpep$t'\ bbq Pbq Rep$t'\ Pddedt T X$t'\dX R '` R T  b P R T  '`kHX b R ` V$t'\d X b R V$t'\kXkWiW$*., ,$4'@ @ ,$N$x'@ , @A@>oW  @$n'b T$n'P @$p'R T$p'T @$r'V T$r'X bTitle PTitleTitle$t'xkV Vnchapter'XkVTitle X$t'xdVp$t'xkhVi`V$*., ,$4'@ @ ,$L$z'@ , @A@>oV @$n'b T$n'P @$p'R T$p'T @$r'V T$r'X bh Phh$t'zk`U T 'Tk@U Vnn'XkUh T X$t'zdTp$t'zkTiT`$*., ,$4'@ @ ,$N$|'@ , @A@>oxT @$n'b T$n'P bh'Rd0T @$p'R R 'RkTkS Ph'TdS T$p'TkS @$r'V T$r'X bbq Php$t'| Pli Xbe P Tp$t'|d(S P T X$t'|kS Pliebq R $t'|dRbq R$t'|kRiR $*., ,$4'@ @ ,$N$~'@ , @A@>oPR` @$n'b T$n'P bh'RdR @$p'RkQ Ph'TdQ T$p'TkQ @$r'V T$r'X bpre Php$t'~ Ppreeli T p$t'~d(Q P T X$t'~kQdQpre T $t'~kPiP$*., ,$4'@ @ ,$N$'@ , @A@>oxP  @$n'b T$n'P bh'Rd0P @$p'RkP Ph'TdO T$p'TkO @$r'V T$r'X bdt Pli Ppre P T X$t'dpOp$t'kPO bdde Pli Ppre P T X$t' Pdtedt T$t' Pddedt T$t'dNp$t'kNdN R 'RkhN Pdtdd T$t' Pddedt T$t'dNdt R$t'kMkMiM$*., ,$4'@ @ ,$N$'@ , @A@>oM @$n'b T$n'P @$p'R T$p'T @$r'V T$r'Xp$t'iM`$*., ,$4'@ @ ,$N$'@ , @A@>oL$*., ,$4'@ ,$N'T @$n'b T$n'P @$p'R T$p'T @$r'V T$r'X bp Vindentpcenter$t' bp Vcenterepright$t' blie R T Unable to indent any further.A@, apply the current style b R V$t'dK 3fnIndent = fnMakeStyleName(sFamily, nLev + 1, sTyp) @ @$v'kJdJ T$nli R Tli T p$t'dPJlip$t'k(J T$nbq Xe Vsource R Tbq T $t'dIbq T$t'kIdIbq Tsource$t'khId`Ipindent$t'k8Ik0Ii(I $*., ,$4'@ @ ,$N$'@ , @A@>oH` @$n'b T$n'P @$p'R T$p'T @$r'V T$r'X bp Vcenterp$t'd(Hpcenter$t'kHiG$*., ,$4'@ @ ,$N$'@ , @A@>oG  @$n'b T$n'P @$p'R T$p'T @$r'V T$r'X bp Vrightp$t'dFpright$t'kFiF bli The current item is a list item V d R T8WThe current item does not match the togle type and is a child of the previous paragraph X d dn Xp Xb X X'd Xpe T 'RkEkEli R d$t'b b P R T V Xeli Tp$t'bd Ep'bkEdE$The current style is not a list item T'f f 'fkD Pli T'f f 'fkpD X d dn Xp Xb X'dd D f 'fkDkD Ppree f 'fkCli f d$t'bkCiC b h. !jnC@liC@laC@lIC@lAC@lbC@lqC BXC IceLibrary B@ !!n$' !" cmbListType %p!rA@kBBoxB$*., ,$4'@ ,$N'T @$n'b T$n'P @$p'R bh Ph'TdA T$p'TkA @$r'V T$r'X b P R T V X t$b'@ , @A@>ohA`$*., ,$4'@ @ ,$N$'@ , @A@>oA @$n'b T$n'P @$p'R bh Ph'Td@ T$p'Tk@ @$r'V T$r'X' b P R T V Xb$b'i8@ $*., ,$4'@ @$nh @ ,$L$'@d? @ ,$N$'@k? , @A@>o?` @$n'b T$n'P @$p'R bh Ph'Td8? T$p'Tk ? @$r'V T$r'X bh Vn'vd>n'vk>h R v$t' bTitlee Vchapter'vd`>chapter'vkH>Title R v$t'd > Vn Vi Va VI VA b P R T V X V$b'd= b P R T V Xn$b'kx=kp=ih= d]D !]8! !! 'x!com.sun.star.frame.DispatchHelper$ ' T dispatcher.executeDispatch(document, ".uno:ResetAttributes", "", 0, Array())<Default Paragraph Font @%~ 0(<h<o`<P!A@Po@<! d$*., z ,(|<$'~ z'z ~ @%J!2B@H 0!2!5 C@q;;o;! R$$' bp bTitle V-'d(;'k;k; b  V 'ti:"HReturn subtype of a style, eg "center" for a p, or the flavour of a list'QSub-types of styles are indicated by anything following a number or "-" character X @ @ X$'R -123456789 R X 'k99  @ @ $'rd9'rk9i9"TFind a digit: this will return the last one ICE styles are expected to only have one'p X @ @ X$'R 123456789 R R'pk88i8P# @$prepre'n @$lieli'n @$dtedt'n @$ddedd'n @$heh'n @$bqebq'n @$TitleeTitle'n @$iei'n @$xRefexRef'nd7p'nk7i6# b$'~Title'z ~ b ~ @%J!<' $n'b bh 'zxh6k`6 ~ '~H6@6 6 6!d%'_ 6 %Title'zx5k5 !8'z z$'z z$nh5 z'Li5$niaIAD' b$'~ ~ @%J!<' $p'  'k5li   $$t'z ~ b ~ @%J!<' $n' $p' $r' li   b p 'zx84k04 ~ '~44 6 6!d%' !8' $n' $p'  'k3li   $$t'_x3 %li   $$t'x03k(3 !8' $' $n' $p' $r' li   b p 'z2 z'Ni2p$ b$'~ ~ @%J!<' $p' $nhTitle'z p-centerep-indent'z p-rightep-center'zd1p'zk1 ~ b ~ @%J!<' $p'R R   'zx81k01 ~ '~11 6 6!d%' !8' $p'_0 % $nhTitle'z p-centerep-indent'z p-rightep-center'zd80p'zk 0x0k0 !8'z z$'z $nh z$p   $nh z$nh z$p  p/ z'Zi`/$p'z b$'~ ~p'zd/ ~ @%J!<'zk...&com.sun.star.style.ParagraphProperties 6%: xray oCursor 6 6!d%' % !8'zd@.p'z!4TODO: make this a constant "default paragraph style"k-k--- z'Ni-0% b 0%J!2! @%2!J!'-ix-p%com.sun.star.text.Paragraph F%:'i8-%com.sun.star.text.TextTable F%:'i,0& %'com.sun.star.text.TextRanges %: A@k,i,p& %'com.sun.star.text.TextRanges %: !'< <,If nothing selected then select current word !!', , ,!d%' ,% B@ B@k+(oTextRange = oCurSelection.getByIndex(0)= subProcessTextRange(oTextCursor, sStyle, mResetProps)d+ X < X %'@ subProcessTextRange(oTextRange, sStyle, mResetProps)*k*k*ox*& !B'@ @%D @%H'Fcom.sun.star.text.Paragraph F%:> subProcessParagraph(oTextElement, sStyle, mResetProps)d Cif oTextElement.supportsService("com.sun.star.text.TextTable") then: subProcessTable(oTextElement, sStyle, mResetProps)k0)()o )' F%' X  X$ F%'8 subProcessTextRange(oCell.text, sStyle, mResetProps)(o(0(CharacterStyles !F%H' @ %J @A@Lk(( F!B' %D %H'- subResetProperties(oPortion, mResetProps)CharStyleNames %'' $ @'  e @'d`' ,$,'  @,'    $    @  $' $,G   $'jd&  @'k&kx& ,$' $CharStyleNames B@  eCharStyleNames B@d%CharStyleNames B@D oPortion.setPropertyValue("CharStyleNames", mCharStyleNames)k%%ox%( X  X$ B@8%o0%]P)]h))'C:\Progra~1\ICE2~1\bin\Ice.exe' $//Applications/Ice2/Ice2.app/Contents/MacOS/ice2' $'/Feature is unavailable, ICE could not be found.A@,z@$k8$k0$Ai $) d %'chkTitle !%2 oDocInfo.addProperty("chkTitle", 0, 1)k#chkTableOfContents !%< oDocInfo.addProperty("chkTableOfContents", 0, 0)k0#chkPDF !%0 oDocInfo.addProperty("chkPDF", 0, 0)k" filTemplate !%6 oDocInfo.addProperty("filTemplate", 0, "")k`" filSaveDir !%5 oDocInfo.addProperty("filSaveDir", 0, "")k!txtTitle !%? oDocInfo.addProperty("txtTitle", 0, oDocInfo.Title)k! txtSummary !%5 oDocInfo.addProperty("txtSummary", 0, "")k ! txtAtomPubUrl !%8 oDocInfo.addProperty("txtAtomPubUrl", 0, "")k optAuthType !%; oDocInfo.addProperty("optAuthType", 0, "Basic")k@ txtUsername !%6 oDocInfo.addProperty("txtUsername", 0, "")kchkDraft !%2 oDocInfo.addProperty("chkDraft", 0, 0)kp chkNewEntry !%5 oDocInfo.addProperty("chkNewEntry", 0, 1)kchkTitle l @!B@4chkTableOfContents l @!B@4chkPDF l @!B@4 filTemplate l @!B@4 filSaveDir l @!B@4txtTitle l @!B@4 txtAuthor l @!B@4 txtSummary l @!B@4 txtAtomPubUrl l @!B@4 optAuthTypeBasic l @!B@4 txtUsername l @!B@4chkDraft l @!B@4 chkNewEntry l @!B@4o* |k d IceLibrary B@ !!$' !!$'Tthis is needed for previewP . .( txtTitletxtTitle$A  txtAuthor txtAuthor$A  txtSummary txtSummary$A  txtAtomPubUrl txtAtomPubUrl$A opt optAuthType$ A  txtUsername txtUsername$A chkDraftchkDraft$A  chkNewEntry chkNewEntry$A ' "Please save current document firstA@,|`kX ' $ txtProxy $Ak A@ txtProxy$  A@"d  txtProxy$ A$ktxtTitle txtTitle$ A& txtAuthor  txtAuthor$ A& txtSummary  txtSummary$ A& txtAtomPubUrl  txtAtomPubUrl$ A& optNone$(KT optAuthTypeNoneA& optBasic$(KT optAuthTypeBasicA&  optBlogger$(KT optAuthTypeBloggerA&n txtUsername  txtUsername$ A&chkDraft chkDraft$(A& chkNewEntry  chkNewEntry$(A&o@* |hk` d IceLibrary B@ !!$' . chkTitlechkTitle$A chkTableOfContentschkTableOfContents$A chkPDFchkPDF$A ' "Please save current document firstA@,| k  filTemplate filTemplate$A  filSaveDir A A@chkTitle chkTitle$(A&chkTableOfContents chkTableOfContents$(A&chkPDF chkPDF$(A& filTemplate  filTemplate$ A& filSaveDir  filSaveDir$ A&o* b . convertA.ox* b .P convertA.o0+ b . publishA.o@+ b . publishA.o+ :' >'< "Please save current document firstA@,|@k8 $ $ '@!Mchr(13)+chr(10) is new line. there might be a better way but, I don't know it BKT*C: && cd C:\Progra~1\ICE2~1\bin && ice.exe'D\'FKKT//Applications/Ice2/Ice2.app/Contents/MacOS/ice2'D/'FS:Feature is currently unavailable for your operating systemA@,|nFalseTrueD'H 6publish -title=$H 'J -toc=$H 'L -pdfLink=$H 'Nq
'P -templateString " P " 'R -draft= chkDraft$($H 'T -new=  chkNewEntry$($H 'V <'XauthType optNone$(KT -authType=None'Z optBasic$(KT -authType=Basic'Z  optBlogger$(KT -authType=Blogger'Zn@title txtTitle$ '\[title is an internal variable name and will cause it to crash badly. therefore use txtTitle 8TitleA@^|x kp dh -title=" txtTitle$  " '\k(  atomPubURL  txtAtomPubUrl$ '` 8URLA@^| k d -atomPubUrl=  txtAtomPubUrl$  '`kx username  txtUsername$ 'b 8 optNone$(UsernameA@^| k d -username="  txtUsername$  " 'bk password  txtPassword$ 'd 8 optNone$(PasswordA@^| k d -password=  txtPassword$  'dk author  txtAuthor$ 'fd -author="  txtAuthor$  " 'fkP summary  txtSummary$ 'hd -summary="  txtSummary$  " 'hk proxy txtProxy$ 'jd Bset http_proxy= txtProxy$   && 'jd8 export http_proxy= txtProxy$   && 'jkkd -title= chkTitle$($H 'J -toc= chkTableOfContents$($H 'L -pdfLink= chkPDF$($H 'N  filTemplate$ 'Rd -template "  filTemplate$  " 'Rk  filSaveDir$  'Xd  filSaveDir$ 'Xkxkp 8 <'XkX -f "  " ' -d " X " 'X D -convert  X J L N R 'l 8 l -open 'l 6publishe j D  -convert -atomConvertPub  X J L N R ` \ Z b d f h T V  -open 'lkexecute the .bat files Bcmd /c l A@n&this is the go buttond lA@nthis is the go button for mackXoP ,Please fill in the p  field. A@,o, >'< B\'Fnotepad 'td/'Fopen 'tk t < F ice.log A@noh, d  %%'8  @%'i - dR thisComponent.getDocumentInfo().setPropertyValue(sPropertyName, vNewValue) v  @,ox- d x %p!r' H x filTemplateKT !R'  filSaveDirKT !z' txtTitleKT !\'  txtAuthorKT !|'  txtSummaryKT !~'  txtAtomPubUrlKT !'  txtUsernameKT !'  txtPasswordKT !' txtProxyKT !' ni . d x %p!'( xchkTitleKT !'(chkTableOfContentsKT !'(chkPDFKT !'(optNoneKT !'(optBasicKT !'( optBloggerKT !'(chkDraftKT !'( chkNewEntryKT !'(np ('(kPHi@. d  x %pB@ xi-supA@,B@i-codeA@,xi-subA@,x08subA@,x0 ,xi-subA@,x filTemplateKT  (R filSaveDirKT  (ztxtTitleKT  (\ txtAuthorKT  (| txtSummaryKT  (~ txtAtomPubUrlKT  ( txtUsernameKT  ( txtPasswordKT  (txtProxyKT  (no@/ d  x %pB@X 'k8 xchkTitleKT  (chkTableOfContentsKT  (chkPDFKT  (optNoneKT  (optBasicKT  ( optBloggerKT  (chkDraftKT  ( chkNewEntryKT  (no/ d B@" B@Xo@0 d 'B B'Bkxp !!Windows'Bd@'Bk0(i 0 d !$': @!':i0 d :'  X /\  X$y`kXP  X $'0 -1 to get rid of slashd'k @!'i1 dcom.sun.star.util.PathSettings$ !$'>Scripting.FileSystemObject$%'>Hi@@1 d Bcom.sun.star.util.PathSettings$ 'GPthe best path to use is storage since it is the most similar to the one we want. ! !/OpenOffice.org2/user/store$$Ice\http_proxy.txt '2go up to common folder and back down to ice folderd /Users/knipes/Ice/http_proxy.txt'k  $%&'  \locals~1\temp$Applic~1\Ice\http_proxy.txt 'XiP1 d $!com.sun.star.ucb.SimpleFileAccess$ %' Scripting.FileSystemObject$%'i1 $ d $!com.sun.star.ucb.SimpleFileAccess$ B@H Scripting.FileSystemObject$Bko@2 $z>something's not right, we can't open a file that doesn't existk d $!com.sun.star.ucb.SimpleFileAccess$ %' $' B@( $  Scripting.FileSystemObject$%%5'C@Bqd'k 'i2 $'kh  A@"kH dOn Error Resume Next $!com.sun.star.ucb.SimpleFileAccess$ %'5 FileWriteString(oOutputStream, sFileContents) B@  Scripting.FileSystemObject$% C@C@Bq0( '$i@3 d '+ Convert the string into an array of bytes. $'$ Write the bytes to the output file.  B@poh3 'ToDo: Resolve error on OS XOn Error Resume Next]   4 X   X$' $' $'  X +$+ihX4   'k8 'i(4 d 'D' $ %'k% Read the bytes from the output file.= oInputStream.readBytes(aBytesToRead, nNumBytesToRead)' Return the array of bytes as a string. $'i85'  X   X$ ' $'  $ '  X +i5   'kP +i80"For Each c In Selection.Characters@If c <> Selection.Characters.Last And c.style <> sCharStyle Then 3Selection.style = ActiveDocument.Styles(sCharStyle)tomCha*This loop doesn't work, below it is a hackASelection.style = ActiveDocument.Styles("Default Paragraph Font")Default Paragraph Font @%~ 0(<Attribute VB_Name = "toolbar" #Const MSWD`TrueLHOOOHNo: ` '*AG Copyright (C) 2006 Distance and e-Learning Ce ntre,8University of Southern Quepensl9&)This program free software; you can red; it>/or modify$ @under 5 `terms=GNU General Public LicDb>shed b$FCSC Fo-ation; $eir oon 22), orH(at_r o p)Zy la{M.AG;d in4hope@:will be usefulD]@ WITHOUT ANY WARRANTY@; witha eveimpli<@Yrani" MERCH AB ILITY3 FITNESS FOR A PARTICULAR PURPOSE.x Sm@E[flre details@Yzs(ld have|ced a c@ralo;JG; if not, writoe yGz, Inc., 59 TeKe Place, Su330, Boston, MA 02111-1307 U|SA zSub subTests() s ' fnNeedsR art# ultAvfnAssertEqual("" 1",L ("0li2n1n"), Ad? 6 23 a? k32 3i# 2ad)'*42 2% i! False'55R 4, 5_ !D6bA bt(W7R 1pD p_ _ `t@e8P bq_" mGetFamil`ap__&  fn ("!5p"!//P:j<pre52woBdQ non-ICE s0tyleRSoo2rB///" "O= Y-"Ma,2Q l: UY2?F2FffOF'FFff,[FESF?`///$2o}/"1&!/t՟L(X3/(  l???@W4?1 g 75?v Fs:///$6 p:br'; 7  8 u߁Gt9 GQZtPG?353T3re1  b  C Pre..formattedO9Uq;]o(o(m(9|;soH("9|0HfnPreformatted("li1b", 8)@pre2") bTestResult = 4And fnAssertE@qual(" 6on2kJ3>k7k1pO8k52p"k95xbq1k41041j11242C12413^4IC'A toggle @ off1@@5 {`Rh@D8Ev2 "EhE 3ny  4  5 FEAܼtffA3`li 7>m  8 % A 9;e_ Z @/`< bq5rOO'KB"BPwBuB!5?CZ .aBCC r__Definition Onu{("^^$_dt߁OO_z*^/ Q"z*1 #"OOO(HuzJ2C`OOOI5ĀI-oooie'k\dtBddp%%%)\%b4ooodkSdd///)UY[[2߿22'_"P@?O!2x,;9OODf_"O_ ?(p/%G 1o?b9X?3,Z?}{5'(@4Z B bTestResult =  hAnd fnAssertEqual("Definition2o0ff",>$("dt2&"h2"), "p") * 83bdb1nBc4c1c15cpli1bd6œe3eli23373}^83K19c3bq11f0Mbq?11BKJ1~r_2#fL1tbKaf2  S#pre3? _ Y extraqfnd`ߦ; d 3 4 '! paragraph left ali,gnLButton'fn("p-centerACݐ6  a ind`_NI` -o _  /"3 i1Tfn%pe/ !"?t O"C "OM /Q? : %.!!righ6?"Ri[??)?)>)3li3bX/ p-3( JBullet ?"sys 33  Z  4fn2 #P5?$??66<pS 7p  38:p?$?$?$<$9%& 10# <<ӆs< dddj `4 0't IfThenCall-A s are work"" ' This wihrow up an err%if not"h@ eldo ed&E0\If AqSub FunctionlsName, sTtr124Dim bAs Booleat T <>2 ya= Fa0 MsgBox ("Failed: 0" + p": 'Str($)a'2e!EZTruea0A,p PressEscForwardSlash Help(D'D8o N<Comoteeven8tPr2)? D>e.#QCod&toggle s/9ngJlZ ChangeLis`tStylT@ypeDlg LeftAlignedParagpraph* IndqoPˏCero$#Jon End `Sub @ RightAlignedParagraph()  event!ButtTi8tle ^"^Heading 13BlockQuot h9Definition p Preformatted ed;aultF w?#Showrtcuts C KeyC@ontrol'Inspiredd a@in8by examples in http://www.pi}yak.org/AndrewMacro.odt#If OOO The'Take cClisten @ the next keyd s'keAoCaptureDocView = isCompon.getCurr6lerO>H8createUnoL er("_", _G"com.sun.star@.awt.X"CD).addH(0#If lGlobal L> GFunc 3SReleasoEvt) As Boof5&Fals2`ds] Fs(.Char, 1'!0!MSWDN_:FS#cbt%se !CC& "h@A"H"CCall h @".a>rDem%{G,A!olTru$vA\~.rbTve} ߃r߃d kx Ѽexpt.A ߡSm 'Uou1 Sp3oD ialog frmSAAppP(a.OnTime AValuc00: 10"), 5GD a#EfCLibraries.Loady ("Ic@iyE\1Dm Cc(.8dlgF .Exe@dispo@tE!pHideE.Unl 2(5 fnGetᲠsoroVCth_1tW?0?C #s`.Rap0-{qStyleName2ur %2 j! .p`O PaRatÐ  :: !cj , s" T On Error GoTo err1:_` os txhisComponent.styleFamilies.getByName("ParagraphSs") If Not oCD:.hasps") ThendrsubCreateMissin2g( (0+End IfoCursor.p31 = 8'#Else2*/efnGetyE"li" At(Type@b" Or  p" SeVC,Viewk(#IMSWDXNeedsR@estartH,DFindPrev(oVC)AdNumber@e (True % e]yfn-EGoTo finish: errHandler1@#TMsgBox "K '" +"' could not @be appd. Try c Jitrst."Ҡ6deselectany obj@s@ǃ  v !" QÎAll)s%oFor i1 I5CallIMakel, i, "a")W_CiJWOOO 'doesn't work i"nd, di sFu@a capitals.5?0A*!>I 5 p nj _P`P_6>h"#6pNext.N G `("dt1eW5]pre~bq_q5source:z"Title-chaptere-bookp- k`}cP"p-r0ighti-0oH"i-`8/1+codi-` su0lx3_'qTopMarg AAY(spacBdbove ."BottomZ& below/Le ftl&to the l RCharWe (boldBackColZ6(f0 only, 13421772Tranr$=F0R" ( Amounf Ind0Adjustali(gnm@,r=0B,=1, i@fy=2, ,=3KeepToher(wheit shˆy withrnFOrphDb(n of omowefSЍ !#@ens Widows (w_sc allsTs as ӼnIs=t !w%FonD (Unknown, pobly nece ssaryaFo^l@0R 6(tTha`xi fr n (ss |er!9/ q A "te} its fxromʝcjsNewAs StἀDim s v, nA*QInteger, says)nx2K=c( S4 0PԞ<d> 5 +dp*'oS2 Case R"p1*A?Co= &3%=  Case "right"  nAlignment = 1!|sPar8"pc |ind>Call subCreateDefaultStyl@e(sNew , Udagraph", Arr`ay( _".LeftMargin3600)) 0Else#=y0y[ oEnd Select #y/&{"CharHe, 11,FontName"Times RomaIPTF Fami4ly 3SA\To"p\420 Bopttom X qRelativ. RAKPostur\Adjust=I÷li If sType <>A TheZnϐn6(vel - 1) * O  C$A $nNum@bering'= #a?#vI?#2*35nc45b?]#6/u'fD= "b"TD'A_le T"; ! "'P@NvFirstLin@eOffseb-JN kP<ueBullet Symbols PiRegular"m!'sA00n_0I"?0/ 0!kIf-@+fnGetLeJ7z)/,Mx?G 100ER(a/ (lde) 8  W|fnMakeɖ&("0], y6p" /"ό,%@ruy̌xp4$GA44OrTh }o2sy21 QpQ(2(UM%O!"bq1` o+ 0 + o+4q_%|o*i Po*`** 0s/,/,/,?YRf/,rP/,$(%b(( Эbq ZS$$0#PUOW/*" R @G_BB<2 0)pX ` 8 a '2B2 2^O 615~R? 﫢 , "bq3", "Paragraph`Array(` _ LeftMarginRelativev133))p@Case 5Call subCreateDefaultStyle(sNew bq4_G25End Sele ct V`"source"c nLevel.1 1CharHeight9, Pos(turAs0 Folloh%pTopÌ 10S01V2}Xy?200+3+2+nx54zx3s_m_\,I B"hisTypeK5p#If OOO Then;obs = thisCompon ent.sFamilies.getByNamev("0aNot .has1p")anPǚ1Els e(. 3#A4IfsWh1H18oo#s? O/n~#Sn*0- ((9 ) / 6 * fnGetb{'[ o~Sr6(o~pgt74rW"?W:?|rFo nt;"Helvetica-Narrow0?}sR 9}92?}B ottomv35??:?2 KeepTo01 fCall subCreateDefaultStyle(sNew 0, "pgraph Arra0y( _QU"CharWeighBt+150,)F0ollo3"d|d1+0Top-210]26Yd2G101W`%H37HtA-K)HN3=20z4x2"z24?535?4zdt?y5b"n25?033%ߜ "isTypex"bsߜleBacterƮ eBPostur2code?$?.FontNamA"CourierN @ He1qsup= 6 +9WEscapemenA]3*w @/xx"?xW ?Cr - 0ex τQ6i-2(66/AxRef<If F = " !-B" ThenoAߏoA cA lsHa//  ood Ifs m'#qF@unctio  fnHasbQ:) As BooleaDim o'1 PFavFo@r Each In AveDocu1.bsw .Loca~l C X Tru<Exit  1NexListTemp.(sR String"YOn Err`GoTo No;Set y` \sD>:3J.AddZe.OutlineNumbered`WeSub_S"([, s@[>gRц1s, pmArgr@W2saObj`,0#iInteg er, jLo ngQsPropertyM vXVala/##04MxSWD2P=Px)r "P3(s7SWHe+;Js#(! :=<, :=wdFfE Eq`t=OG =ef 'While Word doesn't have aL n.A s' as(ch, it does have ListTemplat es Dim s |Name As Stri ng, o 8, @nLevel@I@nteger Static NumberStyl@eDic $If IsEmpty( () The n Set A = fnCreOtionary(Array( _ ]"n", 0P, "a4iU2A3I1p255Eb0)) VsType?Get(sk[Family  & , ]6 R(vN7 .Bs(").hk.Item(1HBEnd IfQFor i@0 To UBound(mArgo)@ep 2KBsPropeHrty= (i_vE Valuj + 1 "Follo"wBu" A/NotHaCz(#+"subCMiss  JCall WordApply8(o, 0 , 'GNext (sParentb +"" Or)m)nGA.BaseBB-kI#El,se Kc s@thisCompon@.snies.getBHdiz+ "s"DD$ .has %! cInstance("co m.sunarC." TLia&#= "@8ag0raph7kCharacter"/ q(qrags%S$ta%_Tu5 b  X(w .set"oHwx%{o:-3p} DV_ Eins]5ІB9 rB2/ch0V#. %S/ngeRulesVSf'3 rQ XcH?S3-?GC'fpdebugg 3'%'x ' also  ##eqSubQ cObject,tT Qop,z, jJ mpOfnqIndexeYV4R 'Z is very necessIʂIj… A_Ct - 1qH q by (jafnFindu=?8N!5,-1JEx@rqE9()./Ji/ Gre ceBy$"'Io7 *0ha0;*p k{pÕ"(4 (/+/+s &+ ',U+#@MSWD#䆅f1  `',,ޯ'O-LF--,-! o-w4l-F-W  -!4/.?o..G.y(.g. '.a'/ >0[(Func퀸/2aOf4Gp, cZS)ZLong For i = LBound(aArrayOfProperties) To Utof#(i)LIf R.Name.c6 Then'RfnFind yIndex( )3i &Exit FunctioAEnd If*Next '  fn@Create6DBi$ary(\S|etF( _S"CharEscapement", "PosiX FontFamily!Heigh4Size!turA"ItPalicWBold NumberingStyle#LinkToListTem plT Para Adjus'Al8ignD0A BackColor@"grAPat0ternEQ TransparZP BottomMarginSpa0ceAf First6eCo!LeftAF= Rj  Top -BeforFollowf7ATgraph;CS) ]ccVaxluede!~ "eN_150@True,niE0AFalsp$\_2!P_12k 31F_Type_A3 4!Z a,k40Y 60>NConvers`>>> YB"!b[~ra{:M2p`PRr~ 88 &́m`}Dim d,As Integer 'Word's help file is wrong the quotes PU required in fF` linhe sdCuObject("ScriptP."E0m) @Step 23td@.Add m,Q + 1c}yd/ ub subApply(oc , s!$, vL*Static {a, OCA1Method ˒!D `Stt7 IvER, oSub Q pIsEmpty( 5呂 \'opryXHClsv=.Item(fs l. Ca8se xR""g&@Otg )Tr:y :Soo'CallByName oSubObject, sWordProp, VbMeth od, vPVa@lue Exit p Zblemherty:>MsgBox "Creating Style: " & o.}LocalChr(13)- _@d"T ( OOo, ):4 'Ds& "',G"&Ws$v$'% z', Nvb Criti_, "Error when applZyxp"hE0nd   toggleItalic()#If OpOO T'o@CurSelion = thisCompone@nt.getr?'(.Count@1LBTextRange ByIn`dex(0D+A E\lsąAo1And If;dispatche r@!ceUnoService("com.sun.star.fr .DD Helper"Dim args1@- A@s New beans.AlG"E#"kuA;F= ?.CharPostur@e <> 2Q8.executeE0 (T wDvController.F<.uno:#A", 0,D:)M?# g.F .ccwdTBQ#U1VBoldUf U5U.d_M?UaUUU UU0)U5U}UWeightaU150UchUUU;lU!?UICode;UsubC_!uacterbs("i-cjarray("fSet",&Family!iPi "Trustom &Fydr_|a PAutoEscapem`e Heq#Oc:OcB?drleSup?enw*W>p?/ OU?oç-sup%iULatvP߀_G+l{_+_+`t_+Z~#o+#:?3(sF04'q loop doesn't work, below is @a hack 'FEach c In D/s7#'0cOors.@Last A0 cІP  'gs<= Acti@veDocu4.n2 ''T'N cleMDefault Paragraph a e)@ OON߉oqs!Qub &G/D)D:P;?portNs>t.Ʋs")$ nպRG,m(,- j 0 'yes i kn4why 4e aP'not clostoe8it's used in.{7iTo K 3С?ɗ &w YP< oI 0=0+ 1 'K_ _ x(i4N_' e enDro E{E jge.createEnumeration()  ' loop over all text elements\While 4oTJEH.h@asMore$sO h 7 =Fn'Vz@If 4.supportsService("comn.star.e.Paragraph")` Then,.j > nCoun`t - 1ReDim Pres@e mCurrScjEnd IfqHSet(  j@ j + 1WendK NfG #Else@/@ CbD#IsupbGet P " Sub  ev@]DemoteButtC#\PoVCfn!ViewsoBrŨsSty= ANameV(osxvG FxindF F@amily() "h"LsNenw/ ,#EHeadingB &_$3 Q`""pp" A`) <> "li4bqC"7Ind7#7I-`.KCercRightqH5D#MsgBox "Cannot dbQ any further."'#S` + +F*N (Type(<b" OrWpҞ`mc ] ]NMakeC!;@gL 5lh|, CP!aONumberisew` #a) a_Lxist2V!)"unb3F0nc*F|un)q$s{劋}C bgCn+E ," a ߡmr nQ0cB% s&u &i  c >= 5Qfn@T6'no m than 2 PCowedx on"6G= <= Ffn+, r v, r)jqg\*e `TitleL"h1G`q9K= Gto1 if you'redNqPrP previou^V< l.dt"dd"P*Q;Bm_!q8 ϟ UT ;//( 9=*{e94P> g!2wyp_3! 4q1,8"b"_3d6E~"B OTsoF 8z!D v$'qmqVProo0t oAoo"b}`r[&bi6("Dp5 &YET "e-'/pc'ahfc/v/VC%';/vO.q<NewStyle = sThen MsgBox "Cannot promote any further"XElseIf sPrevFamily"li" subSetParaName oVC, fnMake(;, nLev,UTyp)kbq7k5""27[sMnd If ESub FunctionqP(ly:fnȁ'#)*x+sfnGetDKn ! e'sgelK<> "h" ACL@ >ev@1RC` &]_l)e  4"ILAdjus>tgMaa1B- e ) $&I #  , - D\VeY,$c #@EuA '#! yNi xkE+ eventT^Button(`rViewCursorݤ=( ${FindxBG Ķ ?bS Ѝi4ED `US(DD@B9C#1e/aAr};?1 A 4fn" QQ&uPn10"chaptF #G 5K5/&X4Q_3R3Heading3p,bp1313VCu*B+Rd3v4p PG42 1ly/4ǥ-Ck/4/4vQ6/$S$/45!E/4`,431oe\fnD3hq18w .!4 ?GKD8yp8P r@fn?71!dd "$ /O?Q$ rb%O"Z9 1;< 1/= 81q?<dQ=x'<>(p%$?3a4_ B 31ᒯLeftk@h0I33#X1wkskkf$ftFk9kdhN C(b+Q;D`qxdb`_:v!'aUs &y Ind  ?  S? ? ? R? ? fnl~Pa˴raStyleName(oVC) sPrev = fnF8indDFamilyRGet(s| LW*0nLevJ el In/" EsTypE e!!lIf sZ"p" And -"ent" ThenfnIndÀ >Make , 0, "cer"xElse404righrt3li^!_> Y78MsgBox "Unab@le to B any furt`her."D 'app currHsK Oa, ',aOP  + 1 DemotE  If #TfnG"`Ab=b ;@MB;@O( ( (t " a ;"bql!ct"T! %qsourcebZ)) )k e( 2 )! B ',BE07Kly pDh  eFunctio@ Sub( evC`erButton(pSet b(jViewCursor#PaTBx7 D,sub@    ! g Ib9Id^bv!]$6R8tev3:9#?:V Bztma-fntrt%2+0x i((Rt(((p*(*Bo(fo( o(o(fn[_(%lyD oaa_(ߜ_(`_(N1_(_( ](>?(($?(aT?V(CListeris@8 Gi`>j0$Togglek9 'avitem is a l ! <> =e>Lw 'छdoes not @match to` type dchild ofpious p]graph U  ߬V P= "n3N` (2p Or b" ")\$5s6!u MH + ut64`_%E? j&,!&U$%a Br !h5?o +/< fnI9 +)+1n%Gn < 1/ 1%!?ѷob7 n = 1  End If LIf sPrevTyp <> sToggleThen V^F= "n" A`Not (Ip0" Or[b") TXy=6pElse@n + z | ,@Family"pre"Z5-5'fnListerise$fnMakeStyleName("li", n,)k#Functio Sub eventC`hange/ePDlg(#0MSWDL,Set oDialog" rmRWitha.cmbOQ.addItemA}SKi"UaVIVAVbHJA0GCall3Show#DLibraries.LoadCy ("IcXy"WA:RCreateUnD(M.dlgET@k.Ex ecutesub{ ( getControl("l").GetpTexth A$e#?JKK (sNewLIVCZ ViewCurhsorPs\Para_oVCÂ'FindMe7sFrfn`(  DnLev@el+ 2 @"h# n  0Mb/me3aMs= A}. d',!9B(A"D Aw@FB< <`  LbBulletButtonFK'@K &,)L%Hub_e '[ FB991B W+u+++v0!l3 +#eR-fn`"_-HXv/-0|/---"`P v*NumbR3*.PPbF_!)G+F6 T-Heading[se aCJ3@3fn 41ly$voaM%4s44z444P3%42l@>%S&2h _nv  lhQgsh+a Titl chap߻ / A 4x  H 8 [1diaIA_ pX69.S 1.`, `)@E&q?\2\DefaultFormattGQ\OOO<=Dim Docum@ As Objectdispatcher = this@Compon.0currplepr.frx= cServiccom.su n.stae.DispatchHelper") der.execute(document, ".uno:ResetAttri2bLs".0, Array()#ElseSelection.style = AveD].Ss("Default Paragraph 0FontUnd@ If ES$ub  evtartNumberingButton(sub  (Tr\ue'( As Boolean-#If OOO Then z t oVCvfnGetViewCursorHi.vIs[R8)nIndex.,r&4/= Not "ds().R`ange.s9W0ith Gx ListFormat .ApplyATemplate .I, Faa, wdB ToWh[, 2oAmC#Fun fnMake™Name(sFamily, nLev, shTypDssUTrim(Str(?z"p " Or Title"DC =A @ <> "E"-" A E @=@;*+ Ci$iH&V%&#'Return `dtype of a z, eg "cP fo"rp, the flavourlC ana sAw1000c j'{-! sA s are indic Gd by `anyth} llow!a nB# * chctLer R i! To Len(sG#@Midd, i, 1!9InC"-123456789BE?e*i + 1C6Nexec@ <=IL (DKJ"dJB $el+' 'F3 >digit: 2s wi0ll rEa@lasne ICE#cFC:exped to only hav Knd"B C81,"88 @aInt(?=99(c(>Left, 3)`"prJ"#%c<2RliG?L?1W2dt?p?<d?];d(` 1rh;/*h6bq/* 5R^y3 [Qgi 4xRef  "a $e,Xbq?PrevHeadW;T2voGQMSWDKySq Do Whi d>VsߎՎ -_W&8(bQ1p+*e r qExit DoA?P GLo opoTxt'0T.Th.crevBy>( g.goto1"ious(+!% ~"4qP  p@+7*Q( Untilbs"4:Q'N"eIfn?4lNe*ߚ 8vLO8# m#ۤ"n"iAaAIAA&`O; f&20!j0 F P&77)7 wRx 7< 1% 9/۲"0sPS , &(D _J' JQ 0s(ily = fn@GetFam(sCurStyleName) nlLev(el`Typ`e^If 6"li" And znStarta<> "b* p") Then s3Exit( Do EJIf nIndex(- 1Loop#Else oTxtsoro.Text.create ByRange~(gi*.paraoZJY _čD t < 1cLMXJiJfnMake%)(, , mListGd)3Mu@+NgotoPreviousPQgraph(Fao) ՗@l&?+H ML߄BcLStrv H .   `9B):a,Am Until A߉  ։v n@ c#WfnFi>B }: R}nO  0A *sAOP6A1=E`xd'Rtvxrzx$2G3W#' 2Q2k kkb 8xGo8q889s9Ex[9:8}Cq_/;??/`?/ 4/'O ~oY u(!z!sZѹBA,W@) Or __Wa(~(W *E6/|"|o)O|O| {P&^O}uMurfyO}Xo#e _da_d + On ErrGoTo finally!p YsupportsService("com.sun karskProperti es_ 'xray (4`OaZpH9YY_j2Haµame = "p" 'TODO: make this a constant "default paragraph style"  End If&final(ly:2# LfnFindPrev*SPNs -Function  fnGetCurrentPNumber()lIf MSWD The/>9A6ve Docum,.Range(0, PSeleC.6s(1).T) .Count yfIsTextElfe:0(ohfnX .supportsService("com n.r.t1S"'%Table`% %;%~CcedItems{osorFj!ComponsgFi GaS-s") xray ]A_Sub subToggleCh!@cters(, mResetPropspO.=;t.tn]A>0 h` 1$'o5ng sleden c| wordc'!yoVC;$Controller.ViewB('aVC.c reategBy?c `,.isC apsed(>.gotoStartOfW@ (Falseh CTruAF 'bG0^ByInde8x(0K`Gces', LE@G)For i`:o $<- 1Fi "v" YaN%`lm! EnumA/!(dIeraWhile .hasMoreGa E  .~n!Syt)L9n_H!"q'if i D`2@$ hqtWenCQ o0o0VmCellsl.epQb10 To UBd(.oa_2taByq(i)$H &(b}oc0ub/?QoQii vFamilievs! "l1~+Notr@n0H UC"ZMissing" $q qQoPq23^}9H?9 A8|zert({2m# !@p@yVal^u!s."`IsEmpty$rk?Sa=,< .z 5Join(, ",P&anLoc InStr(L5, 2T4 r>n Left"o)Righ/ Len}) - (+,)E>1 ?mes, 1)B[  Qs1X1A&TRw80 Spli?R0++5F.3ToD(Hre3O-$O-otyon?o? toA`s>"`FATp End Sub  subResetProperties(oPo on, mhs) For i = 0 To UBouhnd( B z.yToDefault 0(i)!UNext Global udg_oDialogConv PublishFunction fn8Startup(h f@True s@IceLoc "C:\gra~@1\ICE2bin\.exe"If Not4FileExists(!) Then -/Ap plicaRs/(2.app/rtents/MacOS/ice>25"7uFals:MsgBox "Feature is unavaila ble, ? c@ould n:be fA}.H%A?t ^G=IfCCCallAAddǝH r"#DOOOZoD@ocInfoqthisCompoBnU.getu~mE/DV.!$ySet .HasByName("chkTiptle"za7y , 0, ~1D J#lOfl&b0&tyh&PDF#?#&#qgfilTemplat3_8e?("""_$SaveDir$$Kn]txt].j]F& ?&?&'& Summary?&&&?&?&1&Atom@Url__NoptAuthTyp/GYc Basic/;]OLoOUOU`UsxernVO0 tPBY/UR{=^yKDraft? ? 1K# TodkoogNewEnt?/ oaYR hS #EjOn Errs 󚛂@AJocu.Cusp/uv0J.| s:=s, LinkTok:=, Value:=1, Q*`:=msoUNumber///Tos{04ti`Sn [m_X""OyStringO!qjl__@!_mDn))rt22S<1ZorsLu0)___]qpoiq2!!?!!o/$ִropertyTypeString ActiveDocument.Custom8Pies.Add Name:="chkDraft", LinkToContx:=False, ValuP0, :=msoINumber=NewEntry1 #En@d If S0ub  subPublish()XIf Not fnDialogStartup TheniExit $.Ł#OOO%@LibrarLoady ("hIce"B$u0dg_oQ = CreateUn ( ,.dlg @uv@. ) 'this needed for previewCJ#EMSet 5frmD* +  v0CallAuDlgCtrlText(, "tx@tTitlefnGet()NlAuthorDSumm~a+E? J A㠂`0Url ete-opt"| +`j,!A"p), 1_-aUsernfMm Ƞ- H. f CZdoc!uathc""̎MsgBox "Please save churr B first" sproxyFile@9f#3fnsts()L?jD 1t b,ddroc p8M?hSQo.R$MoodzN?yZ"OPl`xNbX Select C5True:3 Qu"@@PNoney("RP)=t`Basicubs5_: B0ger@s`\=@B` 9((`"?bxe@`:b,/(r/o_a/Q/ҮyX$ PT/q=+tdO7O$B)P_owV$tF@ka`bleOf0s.,dPDFhka%wooooo/۟& Q= fimpl P u]naҀSDip(#$.}/^(Qk%(()) Call subSetDocProp("chkTableOfContents", fnGlgCtrlState(udg_oDialogNvert, v)PDF*^/RfilTempl WText-SaveDir)-,End Sub Execu#If MSWD Then = frm$#5If31onAq6False!X+Preview(+¡y+Tru+PublishVVV p!V V+X+e*D, mode, pBBdocName(tt ievOc`_G""l`MsgBox "Please s@r curr@ umfirst" gExitCopcsNewLinChr(@13) + "0) 'cC+is new l. there might be atter way bu@I@n't kn`ow it~Select CbOSType 1ciceCmd %"C: && cd C:\gra~1\ICE2bin.exeHs!\b 3, 4 /Applications/Ice2.app//MacOS/ 2m /i E`g e6Featu &(D6ly unavail for your operng s|ysE o9)+check@DBool`Array("@p"Z" T`MAWa$tMincludeTitl!AD" -tA="sDI (0^b6oC! @oc pdf`Rk+ChFiledm"
class='ins -@ddi;-Wk'>1'9W0=GYgtxt<"~) e A Kan in]nal varia)` nnaewi1cau0ifto crash b0adlybMe 7 qp NotEtlH1DispErr (" kQ;RR` EJZN;ӿ?Em<v'atomURLg )t(ADrloQ1rQ_"Dh1 }*1R|1 -bHW'%r)D0Use" eo!+( OrL)- 5 oV. -=SiOIo.d l.pwwordgC4P$ IK.sS55j "optNone")) Then subDispErr ("Password")Exi t Sub 2End If&Else BS = " -pa=" + fnGetDlgCtrlText(oDialog, "txtnb'author)IfWA")H"*k -A=""j>+ "0'summarymSn^7 < -7G 8prtox7P 7C md^7QOSTy4pe 1TIset http_!D+B && zOA expo~r duwincludeTiltl# wtAcheckBoxBool(ixStatexchkgX% oC4 -t oc ableOfContenDts PDF pdfLink l  o#filTempl@ 7Tl % H`q SavehDirsdocNam]8g0)Xe`previewly ~t(2 |-f$, ( `bd cmdString` ice -convxert!  o+ eA[M ÷openD(a0mod?publish rJ cPqtom :Pub@GA76`aPUrlЂJ+ xB]+ User('t{+ %n+ DraftnewEntryy'execute the .bat *esVB-e4XShell# /c0+ F) 'this go buxttod4tsr  for m.`ѳzFunctHionocppl(sQ@y1*#OOOL"DcC !"Comppnt.g ocum3p()Value#$,A _t.Cus6bies21a&&S" a , vNew2  4 ye_ '##q6 , srol!!'0$A Tz(. ױ% J1Select C1>Y"NX4s$ og.Hlxt4` .tڗo j #tY84ytAP)prlText = oDialog.txtAtomPubUrl  Case "pUsernam e"lDfnGetDlgCthPassword*O4Oroxy+L$End S settings:1Tahoma , 74 butPublishng'? ( 4 butPreviewng ? (;4 butClose? ? (24Label1se$0txtTitle "(24Label2le(24Label3le( 0txtAuthorwng q( 24Label4le* ( 0txtSummaryng (elect #If Function  ~State@(ByVal, sControlN)+If OOO The'G$get#('.:Xlse*e  vchkTitlv$ ableOf+entsd PDF optNon;D Basich$@ @ger, hDraft(EP NewEXk9 i)lTah <> 0ca= 1 uAwSub subSʖ(Ġ+vzwOEt` (s EO?vG#vfimpl <%(vSaveDiN`e;Autho@{SummarT<t+f{ tH%7%pP4;5?5cq5RA5p, b05xq 53u.5R (5F7FAC 7 PTrutEuC~=6`U1 V /kT_u R5ovt4q/)Ҥ s/+_se Aogpr:/*,_rZ?6'!'ub:6Execut[K4m4.Show [OSType(|0ЫGuiQSAF4}3E:L InStr(Applica.System.Operng, "Windows")|  R֯ƂDocS/ē0pvertFromURL(thimpon. @A`ocumaFulWs Path d 9`%@""@ For iP Len(`o 1 Step -11!"/\", Mid, i0, 1)  ExitAG (=5NPb ftI - '` to Pp rid of slash |"Z o@ If #0ElsepfnGetDocPath = Activee.qu)uConvertFromURL(createUnoService("com.sun.star.utilSettings").tuqj-Object("Scrip!.FileSys# )SpecialFolder(20subProxy-OSType1ps  'the best  to use is storage sinct mo simil ar one wavA%:( tLeft(/.SC, InStr "/OpenOff@}.orHg2/*r/)e"))) + "Ice\http_pW.txt"h 'g4pA*@mon fBl ajback dow~n0ˋ4"/Users/k@nipes/ / DALsOons.D@efaultE(wd S&VV "\localps~1\e))Applic`*C#!~:AExi sts(saNa 1<27X p 256 aYS Aѱe End Function  h FileReadString(oIS, Opal nNumBytesToF As Integer)f #If OOO The"oInput'eam = ] -a Y= Ar`ray()PI`sMiss ) gO n}.Le0ngth 0If'' sthe b{ froDm outd f.Q o.ri(l, p 8Pturn1a of=as a ~s9׀9To ?#:TWcs""0For iLBoundC ` To UNG>nρ@J (iDAbۅA TY(BH #+ ChrJ Next i{BFJ)  !ByV ǃ1C1< 0= + 256 i@K* M*__SRP_7 `2__SRP_6(outline5NSettings    0   xl MH@  0hA,0 @D$ 4D @ 4Q,t)D@50 0A,0 @D$ 4D @ 4Q,t)D@50_  :H l(lR: l(lR: l(lR: l(lR: l( lR:p l(` lR:P l(@ lR0 Z00 0_N600l MH@0 0 'l MH@0 0 0`1(600l MH@0 0Up50(0 0N7 @_B0%@>0C600rl5Ik+r@l0`1h50krDH%l0Xlh0X X0 /50XhM@tMH @  re0lMH@ pC0 /50FH%tedx@n(Xx h(t.D@,00e0   0  0   0 8  0 x  0   0   T_ b@ @_N5@@ @_ N5@@ @_0N5@_B@`1t5@_0B@`1P5@lPC< l<0 ,d l<!0 7:,"@ %_ Bd6@ l<#0F-(,@*7$ nj d l<$0:,%]3t :,&d-l@ @l d6@l@ ' @`1x5@|lxC l(0l A@)TN? l*00l A@+TN:,,]3+TA@-TN?  ,TM lt0Q lt.0acl A@/  0 4 0'4'T:1Ntt:2@: 3:4ltFtd:T5D4$:6:4d:5 76&@dD4$tT4HT@(<PdxtTX@dD4$tT4l4/~tx$ <x <t 8)xt4$ xt0 h  0   P:l~N\\ 5\ $ \0 h  0   4/hx$ <x Lh X3x5h^@:XNhhDx$ 4x D 0Q@oH<$ ]3H:8?]3 @H:XA]3H:8B]3 C,H:XD]3H:8 ]3H:(E]3 FH:XG]3:X N H5H:XI]3=:X N H5H:XJ]3e:X N H5H:XK]3:X N H5H:XL]3:X N H5H:XM]3H:8N]3 OH:XP]3H:8Q]3 RH:X]3#H:8S]3- TH:XU]3G VH:XW]3a VH:XX]3H:8Y]3 ZH:X[]3H:8\]3 ]H:X^]3H:8_]3 `H:Xa]3H:8b]3 T cH:Xd]3&H:8e]30 fH:X]3NH:8g]3X hH:X ]3vH:8 ]3 iH:Xj]3H:8k]3 lH:Xm]3H:8n]3 oH:Xp]3 qH:Xr]3H:8s]3 tH:Xu]30H:8v]3: wH:Xx]3XH:8y]3b zH:X{]3H:8|]3 }pzd,<Hhy0   0   0 (  0 h  0   0   0   0   0 H   0 < P)xD<6hHR@l Dx$ 4x D 0Q@oh<$ << P)xD<5h@$ $xD@<hH0 H  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 P!  0 !  0 !  0 "  0 "  0 P#  0 #  0 $  0 p$  0 $  0 0%  0 p%  0 %  0 0&  0 p&  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 1  0 @1  0 1  0 1  0 @2  0 2  0 @3  0 3  0 X4  0 4  0 85  0 5        !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~C[`a/$)\`(Q]`/(y^`/$_`,``y//0 a` y///01b` y///0Yc` y///,d`//$e`$f`$g`$!h`$Ii`$qj`$k`$l`0m` 1I///(n`a/$9o`(ap`/,q`//,r`//,s`/0t` ///0)u` ///(Qv`$yw`$x`$y`$ z`$1{`(Y|`9/(}`9/(~`9/0` 9Y//,`/(!`(I`,q`/(`/(`nlt value. &  ($,'* *$.d *$. '*k *'$i? Note, the calling code will need to check for a cancell event,> where the return value of this function is the null string ""]<Enter the document type e.g. Module, Section etc. (Optional)'&K Set prompt.Set title outline text'! Set title.'( Set default.+ Display message, title, and default value. &  ($,'* *'0i  ::: 4 ::: DUMMY @!~B@4 4DUMMY @%~(MsgBox StyleNamek` 4 0!:(<oHJPuts all style names in a string - so you can actually check if they existAYou have to run this before using CreateStyle to make a new style:::':::' 8 @!~  8! ::: ' 8And all outlines : @!rU  $`0` 1///$`$`$!`$I`$q`$`$`$ `$ `$9 `$a `$ `$`$`$`$)`$Q`$y`$`(`I/( `I/$1`$Y`$`$`(`a/,`ay//,!`y//$I`(q`0( `/(!`08"`!Qq000/,#`q//09$` q///,a%`/0$&`$'`$(`()` /0)*` 9///$Q+`$y,`$-`$.`$ /`$10`(Y1`Y/$2`$3`,4`y//$5`,! 6`y//,I 7`y//$q 8`, 9`y//$ :`, ;`y//$ <`,9 =`y//$a >`, ?`y//$ @`, A`y//$ B`,) C`y//$Q D`,y E`y//$ F`, G`y//$ H`,1 I`y//DY J`y )///////$ K`( L`I/$ M`, N`y//$! O`,I P`y//$q Q`$ R`( S`q#0 T` y///(U`y/(9V`y/(aW`y/(X`a/(Y`a/(Z`a/(H  :! ::: ' :MsgBox AllOutlineso ::: > :::  > @!%4. *MsgBox "Making new outline " + OutlineNamed0+MsgBox "Finding old outline " + OutlineName > @%.MsgBox "found " + NewList.NamekSelection.Range.ListFormat.ApplyListTemplate ListTemplate:=NewList, ContinuePreviousList:=True, ApplyTo:=wdListApplyToWholeListo   B @! B!A@, BB@D Bo`=Set update syles on open to false otherwise outline numberingx will be lost when reopened @9Hq88 Check to see if we want to quite before we do anything.$$'J$0'L J MsgBox ("Cancelling")|k P (N = Let's start at H1n but remember what style we were in before1 VT 0B@R` 0!:!<!'X9Make sure we have all the relevant styles before startingA@6p @%~ 0(<h1n @%~ 0(< SectOutlineA@< SetHeadingOutline Macro( Macro recorded 08/10/97 by Peter Sefton$ updated 09/06/2006 by Daniel de Byl J Note: Space after the number is set in NumberFormat not TrailingCharacterN If you use TrailingCharacter it is lost when opened in another word processor Z \ 0!2!B@ %X L9^d L %1: 9^k b9` d9$9f j9h$9l$9nor9p J9 Title-chapter9rq@ % L%2 9^d%1.%2 9^k b9` d9$9f j9h$9l$9n9p L J9dx9khh1n 9rqP % L%2.%3 9^d %1.%2.%3 9^ k b9` d9$9f j9h$9l$9nco9p9h2n9rq % L %2.%3.%4 9^8d8 %1.%2.%3.%4 9^k b9` d9$9f j9h$9l$9n9p9h3n9rq % L %2.%3.%4.%5 9^d`%1.%2.%3.%4.%5 9^k@ b9` d9$9f j9h  (9uxME(<<< <(HhH****% " $ @& @ @( @*  0  @& @ @( @*  2` I4  6 <  I> < @` F v  z  |` ^^I~  &&` nam`you 0  Px Px  `p08 p0"8-I  (08@ HB h Fp DL *p 2 $8@HPB X F` DV0h 2 " & H`  " P H X h x     8" @&H "p 0 2 $ H P"  0 "8 D@ "  >    ( 8 X `  h Dx   @ 8 @ X x  . * P T` 0        ( @ H P X h p               ( 8 @ P ` h  x               08HX` hx     08 @P Xp    ( 0H Xp x  0 @ Xh "p 0x" 0PpB  L   0 @H 6X   ( @P X` h  "     0 :8x      $(0  8 $H p x   $     $     $  H P X `px    "  : >@  ":0H6`" "( H @`     @ P X 4h$ ""0"8 @` x  ""] p] ] ] ] ] P] ] x] Public basefont As String? Note, the calling code will need to check for a cancell event,> where the return value of this function is the null string ""] 8Phx2Start outline at (enter number between 1 and 100):'&A Set prompt.Start outline at' Set title.1'( Set default.+ Display message, title, and defau$9l$9n9p9h4n9r q %  L%2.%3.%4.%5.%6 9^d%1.%2.%3.%4.%5.%6 9^k` b9` d9$9f j9h$9l$9nte9p9h5n9r1b$q  Z \ 0!2!B@ X @%~ 0(<st t (N o*Constants - move these out somewhere later333333?'li?''"'Times New Roman'x?' o nA@|bA@|LowercaseAlphaA@|UppercaseAlphaA@|LowercaseRomanA@|UppercaseRomanA@|oH  E Function SetListStyles, Sets the list style for the list type passed in as the argument.h P (N'333333?'0Create the outline to be used for the list type.L ~ A@< ~UppercaseAlphaKTA'LowercaseAlphaKTa'UppercaseRomanKTI'LowercaseRomanKTi'8S ~'n ' '   ' 'li $$  ' A@2  @%~9p9 95:!B@ 5:(q 4Set all the formatting bits for the list level/style  %  bKT$9^ 9` 95Symbol9 9q nKT% $$ . 9^ 9` d9aKTT% $$ . 9^ 9` 9AKT % $$ . 9^ 9` 9iKT% $$ . 9^ 9` 9IKT% $$ . 9^ 9` 9n $9f j9h $9l $9n9p9 9rqH  t (N'|i''''4 Cycle through the Document Management table and addnd f8 the found information to the custom document properties page.'''']]DMgtTabprevloc @!B@4# @%B@H$ Select the 1st table (DM table)  0!$ cycle through the rows !! %B@H$ Select 2nd cell in row, or VT  0B@RstRed$ 1st cell if no 2nd cell %B@H VT  0B@Rk$ Then add, if there is a value. 0!l : We have a cell with no entries, so don't add to do props. MsgBox Selection.Typed8' 0!<!' ' X   X$' -   X   'k X-sBkName = InputBox(newstring, "Add Bookmark")  @!B@4, Add Bookmarkk0 DMgtTabprevloc @%B@HTDMgtTabprevloc @%B@Do VT 0B@R 0!:!<!'XA@vA@6A@z X @%~ 0(<oP0  @!  _G B@DjoAttribute VB_Name = "outline" Public allstyles As Sngl0AllO^:Ne`wListnTemplatez@StartASinglnotesfirsti0nden"!basic?;3sC6aC '0efoNFunction Gets() ' Nk, the cy code will need to check for ance ev, where return value of pis f?3nJusM "Dim Message, TitlDefault , MyV WD/  @I(@"er numbbetween 1 and 100):" ' Set prompt. Q"D tA" " 1d(' Disy m1~, D@ 3@InputBox(>g If ?"(D ) >3 OrK< 0 Th`en L1 E@IfL~@E ЊBJPtextt  EuvEEntBAOdocumE type e.g. Modu!NSecdetc. (Opfal):GIB=fQ$GGb`G7G >8W?Sub Cre:Sa(A Q ) QIn@(f, "::@k+ `+c) GR AQ`+veD/." s.Add "DUMMY t(D).! Lo ǀ[@{Msgi_Sel;.ParagraphFormat. saf@! !!Of`Puts% Cna inD- so you act*u'y$iAeyX ex`@Yhavo runbusa3!make@ nerw 22 n )5 B@ Each! In.b*i g+1d> N`aA csǢa, +r"  8 |p(t%...)f=m0VRled:=TrupQ :=- lD"Mak" s " ELlsPQ` 'F`old < x fouP! D pbj':Range.:Apply :=t, CinuePreviousaBTo:=wda`Whole"dYCte,s? 64th_4,. d >ng.DrR4BHpCj$! @/Qu$pd[ sXs opfa o0prwise=n& #be lo@n reed With,, ! .FUbQOnOA=| F1G qAH' C2 see 5Qw0aquNiOpdoyك TS=O~THz*"4")t'd(",Ca@"AExit DSystem.Curs!PN= wdWaitLet'sQH1n mewh@sdQѴd!.MoveLeft Unit,ChlcЍ!/un0@Recedm?o"(u De |sug2i/@*e1 lev s $3j/r #Ps#("p?ă("h1nC4! ("1ó&1HeadP Macro cord08/10/97 by PeqSo' 5d 09/06/2006QDaniel Byl!: Spac@zfA6 PsN7M ` Traigf QuP; (;:rp, wp Qcor 1;OVst.QAKOVOVQEV_ow?VV'FNEewList.@Levels(1) If (TitleText = "")` Then.NumberFormaJ>Else Z \`+ "@ %1: "?n0d If .TrailingCharacterwdNonxsStyle& Arabic. PositionCentime3sToPo@ints(0.Alignm/ Left\)-Tab)ResetOnHighTru StartAOute'Linke dJ"g-chap?fEeWitNhC C N2?%2ʄߔ"%1. bG_BLg1#J! !MTh1nD;SS3S"%2.%3SoSS= ߛߛ3ߛߛߛ?S ߛěHcjh2n0[E4_EIE3E.%4E"E-Ec)&3^wdqqerhq0qt#.a .#/z#qq#ph3#S/p35#??6 #qF0 .%5$5FUhG#er2OO$###?####۔h4# ##68w .Sj .%6$c$$ H$b`O$$B 4 $$C $$$!!HH߈$$$|$5$ Selec1.R0angeݓ.Apply]Tem@plate :"=, _ Co nuePrevious:=Ą, To:=cAWholea V !sA veDocu.s(RemeDSystem.`CursoݣNQl KSub ` consltaq' - move th` out somewe Ar notesfirstind0.6sm8bbasic efmesq RomaA"2 rt20.48  lp ( s ("n"O"bO("Lowercase Alphaƶes ("UppercaseAlpha") setliststDylLowRpomanBEnd Sub Public Function (LgFullPTypey''SetS, @s the   fortA passed ' in a0argument. System.Curs!<= wdWait XreviousTextPosiZ= 0 =t (ind' .65CreateDouno bxe uERCO("L" +  Select C̊ ST  ; U"A" ~aL{]IWi Else IMBNAFzAnLevel@B1 To 5E VNumberH{P L+^Q@$ CStar0ting "liTrim(Str(F6))A|Ú(JHWith A@tveDocfs .AutticallyUpda`= Fah5.BWC= "p:.NhParagraph 8mat.TabStops.ClearAlNl6k>wd Bodya.F! e ' z0 bits+zlJ/⑃)New:v.s5{lw6zb`#5.Lc!AChrW(`616239TrailFCh`,cter wd ( e0wdA bZBeCA .Fonh4Name "SymboFlH`SizawdUfinb π /"n -"%`".)!!B !Arabic' _tCBwJ .f LetA)b   'T#W er2f  Yc ra3a@ B3ou#r g?u ;cL /t"Cime'sToPointsF6L.AlignQFbLefG.yssiW? > .ReOnHighU(Tru6.lAt 16Linkedn Pr"bNorma@p?zu"ub AddBook@Marks('CCyclAr0oughrou M anagetabPaadr!fouinrADtocus0 Bd protiesp@%Dim Ori`ginalbeA|s lAn]C m.p ("DMgtE@pНloc MP(2).z '1st S(DM% y Each Row In$."s ' c>ro&wIf.C8ell#2 Then%$ 1V 2c`1, or# A Move4 Un0it:=pе, C:=1, Extends?UA#f no  e 1e     'r 0,, if*re is a valueP);(p5wd&IP)' We havep.wAOr@/, Dso0n't i@2do21sMsgBox#knewstr`1@ z"o4' b. A5Lo`  Length = @(originalSt@ring) For i1 To8thi sCharFMid , i, 1#bIf 4<> "-" And  " Then jSub   SetListOutlines(7 ion.MoveLeft Uni t:=wdxacter, Coun1 RememberedS8tylQ(AParagraphmat.sA.[ Localsetconstants Create%fAl@l)o)(n PB"s(&8@@8HiddenFqB AEach b In h a InStr(F"_")$# b.^ |`xME @  KK@h@-I V"   0( X`x"   .   (8@HPXpx                    (08@HPX`hpx  (08@HPX`p Macro1 Macro* Macro recorded 08/12/1999 Powered by Ray @!!! @!!(ode widh @!!(cell ekHo@@ SetWordBehaviour Macronu' Macro recorded 9/13/00 by Peter Sefton ( 999ffffff?$999599T9999 99999999999qq 9 9 99999q $99999 9"9$9&9(9*9,9.90q  (2 $9496989:9<9>9@9B9D9F9H9JqoAttribute VB_Name = "Settings" Sub ToggleHiddenText() ' Macro1  recorded 08/12/1999@ Power&b y RayX If (ActiveDocu ment.Window.View.Show{False) THhenD /BTrue;EI!C"ndd EWBehaviour 9/13/00 Peter `Seftoy Application.DisplayStat`usBarq Withx!Horizo ntalS@tllÍ Vert` L,FL .StyleAreaWid(= C @im;sToPoints(1.4C D:Rig htRulE= #ECcreipsCDBpAnimU DpraftLWrapToCYPicturePlaceHolder(A Fie@ldCode Bookmark~%&ShadS&wd W iSelected!Tab9SpParag#hHyp:PqA%All) 7w#Obj AnchoZ2Boundari2HTlaUnP.@TAutoCo:rt:$InitialCa\ .dSjenceDay/*%!Lock.Rece!Fro@mSpell/C0heckw Keyboard O :&$Opas##A&ForxAsYouTypeXyHe`L.UBGAqA7ull@d0List? NumbAslqP5QuotB 0OeSymbo6l /o$OrFz!oeFraon pE`TirEmphas>i,@Gerw`)Sot AItemBeginn@-[*":oeDefinero\ {-*C}Comp%T=m0/ q ?(rmB.sr_QOther`#O*=)/)e(q|(A/I I'Prese|rv7#7*f0qM|aip%b'umxME OpenSourceg.Class1LfrmUpdateLinksr frmOutlineNumbering(%(SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}@(%H@0-I xAttribute VB_Name = "Cla@ss1" Bast0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobaBlSpacFalse dCre atablTru PredecdlaIdBE xposeTemplateDeriv%Cust0omizD3rU~|  0 p  0   0   0 (ixPos1CurrentD0ocumActx.FulŸ C+heckAO @ty fieldsCDFindStr.Tex"t"" GMsgBox "Er ror -A t to disy was not specidƁVE¿AMA h<> @AXAll.ValuL"FiO=Hyperl~.Count To 1 Step -$'eIn('(i).Address,artsW J`), 6y C/a') > , I4Dhaq> 0XLlef!=( !- M ARighta= + Len(A b`@$Mid L"%+ ReOceW Ac7 ?sosbNei`Ab[5& a adDirectoryuT Appation.FileSearch.LookINn )I ' r1o s-C SubFolderA$'subf#a*.d(oc"hf pato@ta%'Amoha n one3, pexecрaiPlowing coNdps.Es(L) _2q' MhownRles'@ n`groellp accA uncomYnIe ofUF`Kd " & .sL&pp(s).PU@q 0eachP] yound, ruqz@ loopKeT1Rs opTRbd itDs cex i&is.OA5 :=Q15Q 1+;__5p _nt._n__2Fs` I  ( ?V`?1B/^/^6XA]сar0p] 3 /])] SZ Zn) Nave aclN1LBt 5' Kecӛ  / * Uab-YLCQ wdS CTge k#YNsystemfAT0f05` \tenNskkQNoMs@undaP p ҺQǴc'w  #qSub*1' InWalAr҆Ck`aUserPUm_" OS2YS\2r`ng# ' (Setfps + Cl`FP0y $ аtion.Filesearch on Macintosh If OS <> "`" ThenxDUpdateAll.Visible = TrueBDirectoryStrHPos8In#(ActiveDocument.FullName , ) - B1kTextTLXeftS<)ElsZkFa lEnd If  Sub  . ("H*p : 8 &( 8P ,  0  8X p    * "Hp  *\ 0!2!B@ %le you !9^d@ L %1 ! 9^the k b9` d9$9f j9h$9l$9n9p J9 Title-chapter9rq % v !%2 9^ $d`%1.%2 9^ kH b9` d9$9f j9h$9lf$9n9p L J9d9kh1n 9rq %nt ope   uxME N`@ IP  RH55@< aK@ eAlp@T our `>@ Lowe`V`X L d h`Hstar-I N t B x        ( 08@P "X ` x   h  L  Pp &       * H ` $x           0( TX& 8B X ` hp   x"  " mREM THIS MODULE IS COPYRIGHT USQ 2005 - other modules need to be re-written before we can GPL license the lot PAKThUppercaseAlpha' eaKT@LowercaseAlpha' SIKTviour UppercaseRoman'iKT/00 byLowercaseRoman'S P'nL  'Ni` Fix outlines first B5 B69Tc Loops through every paragraph in the document and re-applies styles, restarts lists as appropriateFTODO rewrite the following two modules so we can GPL license this code'$]e, the]wi]0 Move to beginning of document. w \T 0B@Zlue of X @!Jthe nu X!2B@H X!<'< <$'^<Ente ^li ^dl ^dttc. (O <$' <$'tle ou Test if list paragraph eg li1p'( <$plip'ay mk0d(''k reapply styleWW < X(<vate $N'`ac*TODO make this a function: 'outlineExists'MContinue numbering is the previous list item is an li#p and on the same level ::: ` :::  V   V  T Tlip ` @%Z \b 0!2!B@kk 'V 'T XopH fB@X%1.%oP jB@Xo0(MAttribute VB_Name = "OpenSource" 'REM THIS MODULE $COPYRIGHT USQ 2005 - other modules need to be re-writtenfore we can GPL lic ense < lot Function MakeOutline(shortListType) Select Ca/B  "A7lDUpperc Alpha*" W>LowI8Roman8iÆ8Else{UEndA Z7" +F; ehSubupaircInstances(Ce Rem Fix oCos firsw_Call.SetDys/JCreateAOfAllSty C Loopsrough every paragr@aph indocument a?appli5s,3@1rt"s=s app`ropri I'pTODO ACfollowing twosoSis codjCDim #,F^, previoLusA@, As S@ngGuL@l Integer %1Obj`i' Mov`xginnAof E(.o@u.HomeKey Unit:=wdStory  For Each"3 InD A|veD2.~P6@E%@.RangeF~f?'WfamilyLeft(, 2$V If "l i" Ordl t" Thenh / `-(Mid 3, 1) :Righ1'Test LifBC[eg 1pk "p/@B dp yaIf #K= 0+!E M az~ty#bgG;@M< e=%,{mta fd: 'dEx`s'' 'Continue numberAe`ew,X it n#ps!lv `8In{($s, ":::E+#) > 0ېR (4>2).(=/ ApSU p    J@P Xhpx  D @PXp P T 0P     08@X `x     (0  8H Ph x    8 H` h     8 @X `hp      8 @ H P ` h x     0     J @h  p   "  "  "         " (  8  H X  `  p   "    jB@( the cCUnload form if a mac otherwise it cause problems with the Enter key  jA@rxop@! Based on SetHeadingOutline Macro 27/10/2006 by Daniel de Bylour =Set update syles on open to false otherwise outline numbering will be lost when reopened @9Hq8 Check to see if we want to quite before we do anything. !'J !'L JNo start value setA@,CUnload form if a mac otherwise it cause problems with the Enter key'$  jA@r'|k P (N'= Let's start at H1n but remember what style we were in before( VT 0B@R 0!:!<!'X9Make sure we have all the relevant styles before startingA@6p @%~ 0(<h1n @%~ 0(<patter SectOutlineA@<J Note: Space after the number is set in NumberFormat not TrailingCharacterN If you use TrailingCharacter it is lost when opened in another word processordein Z t$e :=, _8Co nuePreviousI:=, b To:=Whodle AgsĪA@veDoc u.Bs(RemeįB_System.CursRoawdCNl frmOutecE .Hid$t'Unload f` if a mac otwise it cauproblems w"  EnakeyC!#M` ADžK !SubPriv0 Separ@atorAf_`7(!?Bee_b _Click! qLjCV 3.Ena`db3a o0;lrsxE  "edHead"zr /#a 9'Usb&Xrefmod__SRP_8\__SRP_9 }Xref "w F@ $ V P LX < *  N  Np J , @ HH H F 6  X J` D R P LX B  B HX  HRP Hh H H.@,p.NR x >  Z 08 <h  < < " H P @X  B`     R  8  @  P @` *h D 8  b     .  T  (0 8XX!! u8xb d ME(6 << <8 @P$ @`(@ XRefSection%odule sh  h @8vent the hth sP ` <<= ` yI nsla (` TT~@ or m@ unde@ NU G@6 e as`XD ``ound`fn 2 ` @ tion ` h I l beI   ANYI~ impl @`  I / `XLice ` 77@ Gene@ this, write  `XL @ 9 Te`0, B`7 U` E**`"****`****`$%1.%`&**** ,8`  I @****I` A--@ ----`X----` C------------ `0---  4``x++5i6----i8B VI:  in I6 les)Iz ----@< ----@ 0`\ dial h ``ijcurrI: @HoI6  , thIz ce pX ` ` ""zIr  enIt  0ThIv  hs iIx `ze cu@ e di@| ings@~ )av@ e di  ` ,,I  n enI cedu@ dis@ @| ====@6 ====@ @ Sorr@ ot a  ` @6 rese`6or t`X ref`0ou`\ s` @ @ skto@, @: are ``nd t@ @ t.Ge@ %`only`have` out`tEr`x+ `  ))Ix hand@\ lect`6@ @ ry@X !@| @ odul+ H `  ))@ logS@ @ he d` 1`X5D ` 55I  ` ol("`F tIte` ` `XHead` ontr` elec`  h    P`  I ype`z " ` ,I$  `` 1I (Vi( `XA`0 , p` CI i0`X(V`f`. !`0 ox.a`ks.E`2 b * `` _I  XiX Xi0Ai( ox.a`4 s.ge`f - " 6 X` ni @ i0`X!`8 `. (V`0 `<'X : `  I  < (` `> ion.`@ ! B ` hi `0 6`F H J ` i .Addi08iL X(iN  `F 5oL`P ) 'W+H 8` iF Coun`X`T +V ` xi (th ` 88`X oes `Z of `X the`5Re`\ tNam`^ nt + ` = 1 .Count   j p` (`^ '`l  ` 8`X X@p  x p` N`X@p  *`  ..biz i| i~ ks @ntNaldNames,( ` !` ` Head`   ˜BxH‸( @,@‾0@40@8`p`P` Xp (H8ppX (P `(@8  pp<@-I $*\Rffff*0749c60fb8=  p $x       0(Xp  @Fx` p  "   "   @ "("Px      @  (8 @P`x      @    80 hNp @ J  r      @ ( 0@ H P Xp( @ L 0H`x  "  @,08 "  @HPX p <@: " ( DH .  b <0 &p 6   ( @ X h "  8DP   .Hh@$"  0PX.x( B     (H` x  <  (0 "  8@H>X          0  H  X  "h   .      @! N!X! :`!B! ! !B"P" 0h" " " "" """ "  """#  #(# @# H#X#`#p#x# ##@## 0# # # $$@$X$`$ "  h$ Zp$ f$ 8% X%p% x% Z% %<&>@&&4& && & &:'H' P'2p''' ' ' ( ( ( B  (( 0(8( 8H( B( N()  )8)@)P)X)"`))$))@) d) h@* ^* +  +@+ X+ p+ 0+ +l+8, @, P,ph, 0, -@-lX----- " - L- &@. h..,.. ..@/&/8/ <@//// 6///@/"/0  0(080 (@0 &h0 0@0 0 "00 0 111(1@1 H1@h1 p1111 1 11122  2 (2 H2 X2h2 2 222 2@2 f2 @3 P3 &p33L3(3 404 (84 `4p4 4444 >4 L485@5 X5 p5 55 55.55 &56* 6P6 "67,7H7 $X777 07 7(7 88 8 ,88 h8 zx8 68 D09 (x9 ,9 69 N: PX: <: 6: z ; J; @; *0< H`< < < d<H=@P= X= p= = = =|=X> `> p>>  > h> *?~0?? d?  2 @vXAA dA &@B|hBB jB @`CC D (D @D  `D @pD ,D D E VEHhE 4E E .E(F 8F^@F>FF FF G G 0G8G@GHG PG B  XG`GxG GG G GG GG@G H H H @H XH hHHH HHHH HHH >I @IPIXI@xI,IIBIJJJ B J(J L0J <JJ JJ(J* KPKBhKKK@K BK T(L 8L L $LMM 0MHM PMpM 6xM ,M BM (N HN 0`N N &N NN "  N (N BO JXO HOOPP 0P8P@HP PP`P hP  P NP P PP Q 0Q@QPPQQQ QQ@QQ Q R ,RHRXRBhRRRBR S8S @SHSPSXS`SSS B  SS @SSSSS\SHTXT`ThTpT "  xT^TT "  T >T D0U RxUU  U UVV 0V @V XVhVpVxV "  V BV VV VW W8WPW hW xW WW W@ W W W $WX (X 0X@XHXXX`X "  hX &pXX X$X4X Y0Y8YHY"PYxY "  Y LY Y YZ Z.(ZXZ `Z@pZ*xZZZZ ZZ $[([H[P[ B  X[`[ h[@x[ [[[ " [ 0[[ ([\\ 8\@\ 4H\ :\\ J\ < ]@`]&h] ]] "] ] ]P]B8^^^ "  ^ 2^^^ ^^^@_ _ _0_@8_x__ ______`` "  ` & ` :H`` ```>`a@ a(a*@a<pa0a0abb B  b D(b npbb bc(c0c@cHchcc(ccc B  c 6cd d " (d 0dPd `dhddd 0ddd dee e0e@e@Xe`e pee e e Ne.f0f@f HfPf Xf hfpff f f *f.f4 gXgZhggggghh hh8 hXh`h " hhph hhh@hhh8i@i HiPi " Xi *`i 0ii  ii j j(j&8j `j .j @j*j  k@kHk Pk`k " hk *pk 0kk  k kl l &(lPl .pl Dl *lm 8m@mHmPm B  Xm @`mhmmm@mmmm mmmmm mmm n 2nHn 0`nn nnnnooo 4o4Po $ooo $o &op(p 8p@pPpxb bdCUn Revised: 2007-08-30se it ?To present a custom dialog for the creation of cross referencesThis is the main module sheet.OSubroutines that I have written, the name starts with sub, and for functions fnIIf they are called by an event then the routine name starts with subEventE*********************************************************************6 Copyright (C) 2006 Distance and e-Learning Centre,$ University of Southern Queenslandif a mG This program is free software; you can redistribute it and/or modifyG it under the terms of the GNU General Public License as published byylD the Free Software Foundation; either version 2 of the License, orX& (at your option) any later version.les B This program is distributed in the hope that it will be useful,A but WITHOUT ANY WARRANTY; without even the implied warranty of@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the i/ GNU General Public License for more details.D You should have received a copy of the GNU General Public License> along with this program; if not, write to the Free Software9L Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USAchapteE*********************************************************************%1.%<************************************************************9lf Author Ian Laurenson<************************************************************ A----------------------------------------------------------------- ConstantsA-----------------------------------------------------------------] ?Number spaces at left of item in listbox acting as tree control %2.%] XRefSectionA-----------------------------------------------------------------B Variables common to functions in this library (library variables)A-----------------------------------------------------------------]@ Points to the dialog dlgCrossRef]@8 Points to the current document]@( Points to the current selection]@P @Holds the text of the headings, the level, and name of reference]@` DFor each item in listbox mLinks holds the index of the corresponding entry in mOutlines]@ 0The number of heading paragraphs in the document]@]FHolds the current settings of the dialog. Global so settings are still )available for next time dialog is called.5===================================================== Main entry point.5 Procedure to initialise and display the dialog box5=====================================================p b 8Sorry, this feature is not available in Word on the Mac.A@,gPH@LA routine to present a custom dialog for the creation of cross references tooutlined heading levels b @. . 'stardesktop.currentComponent>Check that we are in a text document and that text is selected%com.sun.star.text.GenericTextDocument %:JSorry - only text documents can have cross references to outlined headingsErrorA@,|xkp !'com.sun.star.text.TextRanges %:;Sorry - I can't handle anything being selected except text.ErrorA@,|k IceLibrary B@ !!$'Set-up other module variables AA@Set-up the dialog subLoadDialogSettingsA@ 'Present the dialog b12345D !(1 !( !A B@X`A oDialog.getControl("ListBoxLevel").selectItemPos(0, true)s subShowLevel(oDialog.getControl("ListBoxHeadings"), oDialog.getControl("ListBoxLevel").selectedItemPos + 1) !(V B@" B@$ ho`A@oH]Ph]P b !!'` !.  ListBoxType %p!'`ListBoxHeadings %p'  `HeadingsKT b !( !!$.'f !( !( !( !(V ListBoxLevel %p! 'f A  fA BookmarksKT b !( !( !( !( !!' !(  !(V A X !! 1oListbox.addItems(oDoc.Bookmarks.ElementNames, 0) b  X %! -  X %!2!d XA 8  X !%! -  X !%!!\ XA koListbox.addItem(oDoc.Bookmarks.getByIndex(i).name & " - " & oDoc.Bookmarks.getByIndex(i).anchor.string, i)` b  !(@ S8 b !( !( !( !(  !(V A b]'X  ! !$ `  !%J!2!d XA X 'Xk0 ( ,com.sun.star.text.FieldMaster.SetExpression. ` !%H!' X  X$!'  !d%'6 6B@ 6B@   6!\ XAH @ n8 o0 ( b  ~ B@l ' oListbox.AddItem(sItem, nIndex)o b]( X ! B@x5oListbox.List = Array() 'Works in Windows but not Mac06 oListbox.removeItems(0, oListBox.getItemCount)o@]>Note whileTextFieldMasters are document specific in OOo Writerؗ(they are "application" specific in Word. b[The following commented code does not pickup the names of Seq fields in use in the document 5ReDim Preserve mElementNames(CaptionLabels.Count + 1) For i = 1 To CaptionLabels.Count0 mElementNames(i + 1) = CaptionLabels(i).NameNext]0H ]`x'$  ! !$($'  '   $SEQ skip to name X    X$'& &A &ZGyj Build name' X X   X$'& &A &Z &0 &9Gyj  &'P $  $~ '$kkHeadings~Bookmarks $'$'mElementNames = Split(sFieldNames, "~") $~$* !(Headings !(xHeadings BookmarksD'8 .SetExpression.$,'"xray mTextFieldMasterNames  @ X  X$ X + ListBoxType %p') oType.addItems( mElementNames ,0)$ oType.selectItemPos(0, true)(o ]`x !!2''  @ X  X$ `'0 0   ' X$ X$ 0 `   $ +Pk    @0 ',dD', ki8 b]0 Bookmark@ 8B 6DFH 6B@> ! @!JH z @!~%'z( N 6B@L z 6(< R 6B@Pd N 6B@T 6%. 6B@P (V V !!d 6B@X (V B@ZNot sure if this is necessaryk(| J zA@LHInserts a reference into the OOo document at the location of oViewCursor]H(com.sun.star.text.TextField.GetReference %'\ \(^+/com.sun.star.text.ReferenceFieldSource.BOOKMARK 6 \(` 8 \(b= oCurText.insertTextContent(oCursor, oRefField, false) ! ! zCharacterStyles !F%H%J zA@LkP z \!(fk8 \B@Z o` b j 6B@l ! @!J z @!~%'z z 6(<k R 6B@P|J zA@Lh` ! ! zCharacterStyles !F%H%J zA@Lk z 6(fk; oCurText.insertString(oCursor, sTextString, false)o TAllows creation of a DDE field that gets text from another writer document bookmark,_And creates a hyperlink out of the field to a possibly different bookmark in the same document.]   ( @ r# v'z ' x!d'|TCheck if a master field has already been created for a DDE field to the DDE bookmarkif not create one"com.sun.star.text.FieldMaster.DDE. t !%J"com.sun.star.text.FieldMaster.DDE. t !%H'~dx!com.sun.star.text.FieldMaster.DDE %'~ r ~(soffice ~( t ~( ~( t ~(-'Must have a name and it must be unique!kInsert the DDEfieldcom.sun.star.text.TextField.DDE %' ~ B@ !! B@Create the hyperlink !'x z x( z x(oX b]  1Sections in Word can be neither named nor hidden.;Thus using a bookmark to get desired region if already set.GThe text can not be hidden as the DDE field only displays visible text.  !%. !2.z \EndOfDoc %!2. l B@ 2  !%4.0(]Warning: There is a bug in OOo (2.2) that if a section has been deleted by selecting the textband deleting it, the section still sort of exists, as hasByName returns true, but getByName fails.XAlso, if the newly created section has the same name then hiding the section via the API doesn't work.]  8 P h  !%J  !%H' !' )If oSections.hasByName(sSectionName) Then  %H'g oSection.setPropertyValue("IsVisible", true) 'This doesn't always work - see comment above.d !d'| |! |%'6k oText.insertControlCharacter(oCursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, true)com.sun.star.text.TextSection %'  B@< oText.insertTextContent(oCursor, oSection, true)g oSection.setPropertyValue("IsVisible", true) 'This doesn't always work - see comment above.k0 ' i FCreates a reference for the selected item if one doesn't already existInserts the references and text]     ]8 P h ]       ]( @ X p b !!'0ListBoxHeadings %p!'0 0 )Nothing selected so can't insert anythingA@|pkh0Create the reference if it doesn't already exist b !!'` ListBoxType %p!'` `HeadingsKT b 0$$ %J!2.6 Don't include the paragraph mark 6! 6(P !d!'6 X 0$$ 6B@ 6B@  6$'6 BookmarksKT b 0 %!'6 0 !%!'6hS` b'X  ! !$ ` X 'X X 0Gyjk !.6(.Copy R 6B@P !!  6B@Lkx !!  6B@T 6! 6(k0 ( ,com.sun.star.text.FieldMaster.SetExpression. ListBoxType %p! !%H!' 0$' ! !!d%'6 CheckBoxLeft %p! 6B@G oCursor.gotoRange(oDependentTextField.anchor.end, true) CheckBoxRight %p! 6B@ k CheckBoxRight %p!e 6B@ 6B@ kx p 6$'6nX 7Insert the cross references and text as per the dialog.ESetting character styles if the reference is in the cirrent document. b ! @!  $. B@ .6dh 0.6kP !!d 6xRef-ChapterTextAh !! 6  6 xRef-ChapterA4k !!d 6 xRef-RefTextAh # `Headings ` bookmarks !! `Headings ` bookmarks !! !! 6  6xRef-RefA4k !!d 6 xRef-PageTextAh !! 6  6 xRef-PageA4kx @! ! !!d 6xRef-DirectionTextAh !! 6  6xRef-DirectionA4kdDDE 6_'t 6%J!22 t !B@4 !' # 0!2 winword ! $  $  t \t @!%4.  ! !| 6 @!zB@4 =Not current documnt so need to insert dde field and hyperlink" 'msgbox oCursor.string& Dim l, k, sDDEBookmarkName/ oCursor.gotoStartOfParagraph (True)G 'Create dde bookmark Instance("com.sun.star.text.Bookmark")I oRefField = oDoc.createInstance("com.sun.star.text.Bookmark")5 sDDEBookmarkName = "DDE" & sRefName & "_"0 oRefField.setName (sDDEBookmarkName)s sDDEBookmarkName = oRefField.Name 'This allows for the name to already exist and to have a number addedD oCursor.text.insertTextContent(oCursor, oRefField, True): 'Loop until the fields get expanded or timeout# l = Len(oCursor.String)A While l = Len(oCursor.String) And k < 100000 'Timeout k = k + 1 Wend^ Call subCreateDDEFieldWithHyperLink(oDoc.URL, sDDEBookmarkName, sRefName, oCursor)k ! !  $' !' ! !d%'6 Insert new paragraphx oCursor.text.insertControlCharacter(oCursor, 0, false) '0=com.sun.star.text.ControlCharacter.PARAGRAPH_BREAKd !!'6 6!f'kx 6!d':c subInsertText(oDialog.getControl("TextField0").text, oCurText, oCursor, "xRef-ChapterText")CheckBoxChapter %p!y subInsertReference(sRefname, com.sun.star.text.ReferenceFieldPart.CHAPTER, oCurText, oCursor, "xRef-Chapter")kH_ subInsertText(oDialog.getControl("TextField1").text, oCurText, oCursor, "xRef-RefText")  - E ListBoxType %p!Headings CheckBoxRefh %p! ListBoxType %p! Bookmarks CheckBoxRefb %p! ListBoxType %p! CheckBoxLeft %p! CheckBoxRight %p!r subInsertReference(sRefname, com.sun.star.text.ReferenceFieldPart.TEXT, oCurText, oCursor, "xRef-Ref")k(>` subInsertText(oDialog.getControl("TextField2").text, oCurText, oCursor, "xRef-PageText") CheckBoxPage %p!x subInsertReference(sRefname, com.sun.star.text.ReferenceFieldPart.PAGE_DESC, oCurText, oCursor, "xRef-Page")k=e subInsertText(oDialog.getControl("TextField3").text, oCurText, oCursor, "xRef-DirectionText")CheckBoxDirection %p! ! !{ subInsertReference(sRefname, com.sun.star.text.ReferenceFieldPart.UP_DOWN, oCurText, oCursor, "xRef-Direction")k; ! ! msgbox oCursor.string 6B@ :Create dde bookmark Instance("com.sun.star.text.Bookmark")com.sun.star.text.Bookmark %'\DDE 6_'t t \B@ \!'t.DThis allows for the name to already exist and to have a number addedD oCursor.text.insertTextContent(oCursor, oRefField, True) -Loop until the fields get expanded or timeout 6!\'  6!\  9Timeout  '9Y subCreateDDEFieldWithHyperLink(oDoc.url, sDDEBookmarkName, sRefName, oCursor)9 oSection.setPropertyValue("IsVisible", false)d9  CharStyleName 6B@d8  6(fk8k8A@8o8 ] ]0H`x b  x! !2 x% !'z8k888 !' x!d'| X ! X %' !' | !d$ x  |% x  |%  !'z(7k 7k7k7778No bookmark corresponds to specified range so create one$ '6 b x2 6 !B@46com.sun.star.text.Bookmark %'\ 6 \B@> oRange.text.insertTextContent(oRange, oRefField, True)5 6'i5 bETemporarily create a new hidden doc, a heading and a cross ref to it.6This creates a bookmark and so get that bookmark name.]    %4.   !(Sample heading  %J!2(d Heading 1 @%~  %J(<  %J!2B@  Heading@ B1D  %J!2B@>  %!'   B@B 4;Returns a 'unique' reference name using UNO's generateUuid.NSo that it looks similar to MSWD the absolute value of the 15 numbers returned1concatenated and then the first 9 digits selected]0com.sun.star.task.Uuid$ ' D %"' X   X$ ' 2_Ref  $' 2/ If oDoc.Bookmarks.hasByName(sBaseName) Then% i = oDoc.ReferenceMarks.Count; While oDoc.Bookmarks.hasByName(sBaseName & "_" & i) i = i + 1 Wend* fnNewRefName = sBaseName & "_" & i Else fnNewRefName = sBaseName End Ifi 1H"Uses module level variables: oText<Set values for module level variables: mOutlines, nHeadCountCRedimensions mOutlines to the number of found headings (nHeadCount)AStores the heading text, heading level, then the paragraph number]]] 8P b !J!' / ! ' /  ' HFill the array with the headings, heading level and the paragraph number'X b X !J! X %J$ '    '  X %J!2!!   X %J!2!d  +    + X  +k(. .. !d!B'  !D  !H'Fcom.sun.star.text.Paragraph F%: X 'X F$ '  *0oTextElement.ParaChapterNumberingLevel >= 0 then   ' F!\  +    +>*oTextElement.ParaChapterNumberingLevel + 1 X  +k,k,,,  '  @  o`,]8 d $4'z0, !<!'z, z$nh*Bleft(sStyleName,1) = "h" and instr("12345", mid(sStylename,2,1))>0 z$p' d+' k+i+PZ subShowLevel(oDialog.getControl("ListBoxHeadings"), oEvent.Source.SelectedItemPos + 1)o+8Called by:subMyCrossRef, subEventListBoxLevels_Initiate>Displays the headings in the listbox up to the specified levelLE.g. subShowLevel(oListBox,2) would display headings with levels of 1 and 2]0H A'0 X  X$ (  0 '0  X 0 ( A*  X 0+k))o)`;Display the sublevel of the heading at nPosn in the listbox](@]X 0$$ 'f 0'. 0$ 'X X$ f X$ f .  '.  X . fA*  b !!'2 oListBox.ListCount8( !'2 (  2  .    $ +' X . +k' X 'X'o'pInsert an item into the listbox]0H X$'f f   $\'4  X $ f ( f (  4 +'4 d& 4 -'4 k& 4 X$ 0 B@lo&`ERemove from the listbox the sublevel headings of the heading at nPosn](@ 0 '.  0$$'8 . 'X 0 $:   . $$ 8  b X B@%& oListBox.removeItems(i, 1)P% .  '. 8%Shift the link array back . 0  '0 X 0 $:  X 0 $ X+$o$X b !': $ !': h$i`$)Called when the listbox is double clicked]!Check that headings are displayed b !!Headings|#k#.set oListBoxHeadings = oDialog.ListBoxHeadings3nSelectedItemPos = oListBoxHeadings.selectedItemPos !A@B CoListBoxHeadings.selectItemPos(oListBoxHeadings.itemCount -1, true)6oListBoxHeadings.selectItemPos(nSelectedItemPos, true)" ListBoxType %p!|h"k`"ListBoxHeadings %p'> > !'@ > A@B K oListBoxHeadings.selectItemPos(oListBoxHeadings.itemCount -1, true)> oListBoxHeadings.selectItemPos(nSelectedItemPos, true)x!op!(+Called by: subEventListBoxheadings_Initiate]] b !!'F !!'0 !'F !'0 0 .Don't think this could happen but just in case| kx F $H   0+-AJ   0A, d(  0-+AJ   0A6 ko Called by: subAddRemoveNextLevel3Toggless the + and - in the currently selected item]x b 0 !%'F F L 'P  F P  $ N  F F  P $'F F 0 !, 0 %R 'F & oListBox.removeItems(nPosn, 1)7 Mid(sSelection,instr(sSelection, sCur), 1, sTo)+ oListBox.addItem(sSelection, nPosn)+ oListBox.selectItemPos(nPosn, true)o=Called by: fnGetListboxLevel,fnGetItem, subAddRemoveNextLevelhDetermines the level of the string by looking at the leading spaces and first symbol (highest level = 1)]  F 'T 'X X T F X$  X  'X F X$+ X   'H dp X   'H k@i880Returns the level of the currently selected item !$H 'V i] 8]Ph b !` ' X ! X$! X$! @! X$! +`   'k @! +`  @`  ` !b ( @! !b ( d !f !B'X Count doc windows'X X !D X !H'Z Z com.sun.star.frame.XModel$h MThanks to DannyB for this linecom.sun.star.text.TextDocument Z %: X 'Xkk X'X ListBoxDocs %p'^ d !f !B'X X !D X !H'Z Z com.sun.star.frame.XModel$h com.sun.star.text.TextDocument Z %: Z ! Z !! ! !! ! Z X+V oListboxDocs.addItem(oPosDoc.currentController.frame.title, i) Z ! ! X'\ k X 'Xkkk3 oListboxDocs.selectItemPos(nCurIndex, true)o]@X b !b ! %. @! ! !(0 ListBoxDocs %p'^ ^ !$' ! !CheckBoxDirection %p(n Aop#Uses module level variable: oDialog)Uses global variable: mXRefDialogSettings] !r 'p p  + X p X$p !t stardiv.Toolkit.UnoEditControlKT X$p !d X +(case "stardiv.Toolkit.UnoListBoxControl": mXRefDialogSettings(i+1) = mControls(i).SelectedItemPos"stardiv.Toolkit.UnoCheckBoxControlKT X$p ! X +n B@v o#Uses module level variable: oDialog)Uses global variable: mXRefDialogSettings]@X !r 'p $ X p X$p !t stardiv.Toolkit.UnoEditControlKT X $ X$p (d (case "stardiv.Toolkit.UnoListBoxControl" = mControls(i).SelectItemPos(mXRefDialogSettings(i+1), true)"stardiv.Toolkit.UnoCheckBoxControlKT X $ X$p (nkop d z | $'*zxp  z | $'*zH@]]H]`]x] z ' ' | ' b, Get everything to the left of the delimiter  $' ) Make the return array one element larger @  Add the new element +   ' ~   ~  '*zk- Only interested in what's right of delimiter   |    $'  See if delimiter occurs again | ' 8 No more delimiters in string. Add what's left as last element @  +  '*iEAttribute VB_Name = "Xrefmod" Option Explicit #Const MSWDTrue&OOO$No: ' Revised: 2007-08-300To present a custom dialog for the crea|of oss erencesChis , main ule sheet.}SubroutinesQat I have written,fnystarts with su@b, andDfuncBs fn (Ify arOalled ban eveDnk*; .E`*AJ Copyright (C)6 Dikfe-Learning CUre,University YSKhern QueenslA C T[progrDam]freZoftw@C; you canidĔiwnd/@tfifyC@undeytermsqGNU General Pub! Lic@"e as pA@w]C F!S! Foŀal; es@72E, or(/r o)@Ly la&>  AG;d A$hope@:will be usefulD] WITHOUT ANY WARRANTY;aim@Yrani"MERCH ABILITY3 FITNESS FOR A PARTICULAR PURPOSE. Sm([pmo\details Y=shouldirece`HdyP_9c`}`Q"nt(K; if not,t(o <'=, Inc., 59 Te%e Place, Sui330, Bo`@~MA 02111-1307 USA w@q?*z Auth@fIiLau so7-;QM`' < nI`= 3I 'Numbxsp :s `jleftGL@;n lbpox a Jt!control% HIDDEN_SECTION_NAME"XRefSeBݿ$?--$Variablcomm8to g library (:v) < Priv oDcAs ObjD,'Poino KxdlgCrw)oc `,cur+t documfCurxSelsmOutl| () c'Holfd!~Bex! headnss~l z>l}Ryn(LinksP'F9each m'mT h&i,xUPcBospon _'yyqdS nH CmtLo.r'TВnc2P d parrazph@S?mDoc Gl4ob0wm0"Setgs(0s#. so ђstppu'avf3ntiP)@3crh 2=pMpA0n`Proced@W 01init32~playiGo/== m 6(p?@ ~#"_!fa c [MsgBi0P"S&y/fo u GW0ord aI#Mac.Oa5Endŷ# If'A CG'1>; ;f  * NI= A\ve`-G@# =  ls eopa1Comp;" 'desktop./c'Check!@jwqa tA,7$th bsNeQԱ.suppBoServ("d@n.1 .1b.icT`u"J)?" :" -l۰, s2c`f0s", 16, "Error-$x.e$o*a=2.0`bAyy//Ranges%Iq'tnd1any!Vbe except.5 .d5CWLies.Load"Ice"BU}=PD>eUn6(.} #End 0If  'Set-up other module variables Call subBuildHeadingArray(oDoc)BLoadType dialog'T-DtToCurrentWritderdum 'A?'Pres  [X#If MSWD Thenoi.ComboBoxLevel.List = f"1", "*2345" p Value!6Sho~w4t8>sx, 1R'#xEls@BgetControl("bh").selectItemPos(0, truebW%("),>ed +6-@]StepL1GLExecuthaXngeCC(A Dim oXbox, mDependextFieldpoAnchor@Isi As Integer8sAStr@, n#† , bfHidBooleaCԶ=N.!1@m@0.dHe> kO A!@PSBPcAG(PNF[ Case "fT&AeKVisi`Tf !6= *Fz၄GACa heck uRef. Lef2tFaJ2 ighX)ta7BZʁ2oС a^ (sd/Bgkmarks"! /G5?/x;CdA;G{;Goc.&!.F7oH= 0w#G#2HCR`emove4cs(uBX4For ia 90 To Count - d 'e.adBi#EleaNameP\0CQ6+ =A3 !s)Y (iq. & " "p ERQj.T f, i` {B   oE1.;ByIlxx(i) *n.Ul fyIS{/n0o aw.sDuN 8(?% {(20'4,Fr#OFOF 5ECKF_I\FmOF d@8  @3*@6+912"B+aDEach o `(2D#Inp.(U!(S de0҇) >~ @I_9]9.Result.Paragraphs(1).}@QE-W11K+/ds@02I hMasps3D!M("com.sun`8ar.tp7.".PExpsion.O.lI_UB^d(? d~s"a 1t dsCLoqN.createӡBy(/ .gotoS@tartOf& (;_Z@:8/gthstːrsor.String, i) NextD#End If@,Selec@ub Sub subListBoxAddItem(obox, s, nIndex#If MSWD Thenp4.aE ;'#Else2xnRemolveWUs^VDim i As IntegerJFor = 1 To j1Cou>nD@ 0 % '& = Array() 'Works in Windows but not Mac&r@C>0,+@r.get,EBRLoadType( GBo, mTFieldMasterNamesElement ()S'Note whiles are docu specific@OOo0 WriC>'they "application" Od.dԧ' folloBw comeJd@d"esB\p@ickup  n: of Seq f@huse)A0C*'ReNPreserve mJICap/Labels.g + 1\ wH  i K (i).4H S="a/A" A̠<Z Exit /Ne 'BuildCE <i_D _ 3@ () Or0!9")9! & ch&q }'3;q)$0$sP3& "~" & c=;A"HeadWs~Bookma0oo6 7'M S/_e46~6oD ialogp;mbo pk.a{f1li(1pe.Value d(x s}G 8ucu GetRws4Of (L.SetExp fsp.I'x{l/j|UBPd( u )e2 8&o ׂ8#(Ak2A+?0k %0Control("D J"R!s(y ,0 .sRo(ptrueT&A0S!%FuncA~ fn_SsQrK, jq nz(Esq.j-1####'B>A# Uw/ "0Pq@\> _Q =0s 1+*j)Right15vo c ) -