function SetStyle(style as string) rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args1(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Template" args1(0).Value = style args1(1).Name = "Family" args1(1).Value = 2 dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args1()) args1(1).Value = 1 dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args1()) end function Sub p() SetStyle("p" ) end Sub Sub h1() SetStyle("h1" ) end Sub Sub h1num() SetStyle("h1#" ) end Sub Sub h2() SetStyle("h2" ) end Sub Sub h2num() SetStyle("h2#" ) end Sub Sub h3() SetStyle("h3" ) end Sub Sub h3num() SetStyle("h3#" ) end Sub Sub h4() SetStyle("h4" ) end Sub Sub h4num() SetStyle("h4#" ) end Sub Sub h5() SetStyle("h5" ) end Sub Sub h5num() SetStyle("h5#" ) end Sub Sub li1bull() SetStyle("li1*" ) end Sub Sub li1num() SetStyle("li1#" ) end Sub Sub li1p() SetStyle("li1p" ) end Sub Sub li1a() SetStyle("li1a" ) end Sub Sub li1alpha() SetStyle("li1A" ) end Sub Sub li1i() SetStyle("li1i" ) end Sub Sub li1rom() SetStyle("I" ) end Sub Sub dt1() SetStyle("dt1" ) end Sub Sub dd1() SetStyle("dd1" ) end Sub Sub li2bull() SetStyle("li2*" ) end Sub Sub li2num() SetStyle("li2#" ) end Sub Sub li2p() SetStyle("li2p" ) end Sub Sub li2a() SetStyle("li2a" ) end Sub Sub li2alpha() SetStyle("li2A" ) end Sub Sub li2i() SetStyle("li2i" ) end Sub Sub li2rom() SetStyle("I" ) end Sub Sub dt2() SetStyle("dt2" ) end Sub Sub dd2() SetStyle("dd2" ) end Sub Sub li3bull() SetStyle("li3*" ) end Sub Sub li3num() SetStyle("li3#" ) end Sub Sub li3p() SetStyle("li3p" ) end Sub Sub li3a() SetStyle("li3a" ) end Sub Sub li3alpha() SetStyle("li3A" ) end Sub Sub li3i() SetStyle("li3i" ) end Sub Sub li3rom() SetStyle("I" ) end Sub Sub dt3() SetStyle("dt3" ) end Sub Sub dd3() SetStyle("dd3" ) end Sub Sub li4bull() SetStyle("li4*" ) end Sub Sub li4num() SetStyle("li4#" ) end Sub Sub li4p() SetStyle("li4p" ) end Sub Sub li4a() SetStyle("li4a" ) end Sub Sub li4alpha() SetStyle("li4A" ) end Sub Sub li4i() SetStyle("li4i" ) end Sub Sub li4rom() SetStyle("I" ) end Sub Sub dt4() SetStyle("dt4" ) end Sub Sub dd4() SetStyle("dd4" ) end Sub Sub li5bull() SetStyle("li5*" ) end Sub Sub li5num() SetStyle("li5#" ) end Sub Sub li5p() SetStyle("li5p" ) end Sub Sub li5a() SetStyle("li5a" ) end Sub Sub li5alpha() SetStyle("li5A" ) end Sub Sub li5i() SetStyle("li5i" ) end Sub Sub li5rom() SetStyle("I" ) end Sub Sub dt5() SetStyle("dt5" ) end Sub Sub dd5() SetStyle("dd5" ) end Sub Sub bq1() SetStyle("bq1" ) end Sub Sub bq2() SetStyle("bq2" ) end Sub Sub bq3() SetStyle("bq3" ) end Sub Sub bq4() SetStyle("bq4" ) end Sub Sub bq5() SetStyle("bq5" ) end Sub Sub iiem() SetStyle("i-em" ) end Sub Sub iistrong() SetStyle("i-strong" ) end Sub Sub iii() SetStyle("i-i" ) end Sub Sub iib() SetStyle("i-b" ) end Sub Sub iidfn() SetStyle("i-dfn" ) end Sub Sub iicode() SetStyle("i-code" ) end Sub Sub iisamp() SetStyle("i-samp" ) end Sub Sub iikbd() SetStyle("i-kbd" ) end Sub Sub iivar() SetStyle("i-var" ) end Sub Sub iicite() SetStyle("i-cite" ) end Sub Sub iiabbr() SetStyle("i-abbr" ) end Sub Sub iiacronym() SetStyle("i-acronym" ) end Sub Sub iiq() SetStyle("i-q" ) end Sub Sub iisub() SetStyle("i-sub" ) end Sub Sub iisup() SetStyle("i-sup" ) end Sub Sub iitt() SetStyle("i-tt" ) end Sub Sub iibig() SetStyle("i-big" ) end Sub Sub iismall() SetStyle("i-small" ) end Sub