1*1ecadb57SMathias Bauer<?xml version="1.0" encoding="UTF-8"?> 2*1ecadb57SMathias Bauer<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3*1ecadb57SMathias Bauer<script:module xmlns:script="http://openoffice.org/2000/script" script:name="OtherElements" script:language="StarBasic">REM ***** BASIC ***** 4*1ecadb57SMathias Bauer 5*1ecadb57SMathias BauerSub Main 6*1ecadb57SMathias Bauer 7*1ecadb57SMathias BauerEnd Sub 8*1ecadb57SMathias Bauer 9*1ecadb57SMathias BauerSub InsertVariable 10*1ecadb57SMathias Bauer 11*1ecadb57SMathias Bauer If not IsHelpFile Then 12*1ecadb57SMathias Bauer msgbox(strErr_NoHelpFile) 13*1ecadb57SMathias Bauer Exit Sub 14*1ecadb57SMathias Bauer End If 15*1ecadb57SMathias Bauer 16*1ecadb57SMathias Bauer oSel = thiscomponent.getcurrentcontroller.getselection 17*1ecadb57SMathias Bauer oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 18*1ecadb57SMathias Bauer oStart = oCur.getStart 19*1ecadb57SMathias Bauer oCurStart = oStart.getText.createTextCursorByRange(oStart) 20*1ecadb57SMathias Bauer oEnd = oCur.getEnd 21*1ecadb57SMathias Bauer oCurEnd = oEnd.getText.createTextCursorByRange(oEnd) 22*1ecadb57SMathias Bauer 23*1ecadb57SMathias Bauer ID = inputbox("Enter an identifier for the variable element:","Enter Variable ID") 24*1ecadb57SMathias Bauer 25*1ecadb57SMathias Bauer If ID="" Then 26*1ecadb57SMathias Bauer Exit Sub 27*1ecadb57SMathias Bauer End If 28*1ecadb57SMathias Bauer 29*1ecadb57SMathias Bauer thiscomponent.getcurrentcontroller.select(oCurStart) 30*1ecadb57SMathias Bauer InsertTag("VAR_","<VAR ID="""+ID+""">") 31*1ecadb57SMathias Bauer thiscomponent.getcurrentcontroller.select(oCurEnd) 32*1ecadb57SMathias Bauer InsertTag("_VAR","</VAR>") 33*1ecadb57SMathias BauerEnd Sub 34*1ecadb57SMathias Bauer 35*1ecadb57SMathias BauerSub InsertInlineGraphic 36*1ecadb57SMathias Bauer If not IsHelpFile Then 37*1ecadb57SMathias Bauer msgbox(strErr_NoHelpFile) 38*1ecadb57SMathias Bauer Exit Sub 39*1ecadb57SMathias Bauer End If 40*1ecadb57SMathias Bauer sFName = OpenGraphics 41*1ecadb57SMathias Bauer If sFName <> "" Then 42*1ecadb57SMathias Bauer sAlt = InputBox("Enter an alternative Text for the graphical element."+chr(13)+"This can be changed later in the image properties.","ALT description","<ALT DESCRIPTION>") 43*1ecadb57SMathias Bauer sID = "img_id"+CreateID 44*1ecadb57SMathias Bauer InsertTag("IMG_","<IMG ID="""+sID+""">") 45*1ecadb57SMathias Bauer InsertGraphicFile(sFName,sID,sAlt) 46*1ecadb57SMathias Bauer InsertTag("_IMG","</IMG>") 47*1ecadb57SMathias Bauer End If 48*1ecadb57SMathias BauerEnd Sub 49*1ecadb57SMathias Bauer 50*1ecadb57SMathias BauerSub InsertGraphic 51*1ecadb57SMathias Bauer 52*1ecadb57SMathias Bauer If not IsHelpFile Then 53*1ecadb57SMathias Bauer msgbox(strErr_NoHelpFile) 54*1ecadb57SMathias Bauer Exit Sub 55*1ecadb57SMathias Bauer End If 56*1ecadb57SMathias Bauer 57*1ecadb57SMathias Bauer GlobalScope.BasicLibraries.loadLibrary("Tools") 58*1ecadb57SMathias Bauer sFName = OpenGraphics 59*1ecadb57SMathias Bauer If sFName <> "" Then 60*1ecadb57SMathias Bauer DocRoot = ReadConfig("HelpPrefix") 61*1ecadb57SMathias Bauer' msgbox("DocRoot "+DocRoot+chr(13)+"FName "+sFName) 62*1ecadb57SMathias Bauer 63*1ecadb57SMathias Bauer If not(IsSubDir(sFName,DocRoot)) Then 64*1ecadb57SMathias Bauer msgbox("Image is located outside of your Document Root"+chr(13)+DocRoot,48,"Warning") 65*1ecadb57SMathias Bauer End If 66*1ecadb57SMathias Bauer 67*1ecadb57SMathias Bauer sAlt = InputBox("Enter an alternative Text for the graphical element."+chr(13)+"This can be changed later in the image properties.","ALT description","<ALT DESCRIPTION>") 68*1ecadb57SMathias Bauer' sCap = InputBox("Enter a caption for the image (optional)","Caption","") 69*1ecadb57SMathias Bauer sID = CreateID 70*1ecadb57SMathias Bauer CR 71*1ecadb57SMathias Bauer InsertTag("IMG_","<IMG ID="""+"img_id"+sID+""">") 72*1ecadb57SMathias Bauer InsertGraphicFile(sFName,"img_id"+sID,sAlt) 73*1ecadb57SMathias Bauer' If sCap <> "" Then 74*1ecadb57SMathias Bauer' InsertCaption(sCap,"cap_id"+sID) 75*1ecadb57SMathias Bauer' End If 76*1ecadb57SMathias Bauer InsertTag("_IMG","</IMG>") 77*1ecadb57SMathias Bauer End If 78*1ecadb57SMathias BauerEnd Sub 79*1ecadb57SMathias Bauer 80*1ecadb57SMathias Bauer 81*1ecadb57SMathias BauerSub InsertGraphicFile(sURL As String, sName As String, sAlt As String) 82*1ecadb57SMathias Bauer oSel = thiscomponent.getcurrentcontroller.getselection 83*1ecadb57SMathias Bauer oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 84*1ecadb57SMathias Bauer oDoc = StarDesktop.CurrentComponent 85*1ecadb57SMathias Bauer oGrp = oDoc.createInstance("com.sun.star.text.GraphicObject") 86*1ecadb57SMathias Bauer oGrp.GraphicURL = sURL 87*1ecadb57SMathias Bauer oGrp.AnchorType = 1 88*1ecadb57SMathias Bauer oGrp.Name = sName 89*1ecadb57SMathias Bauer oGrp.Title = sAlt 90*1ecadb57SMathias Bauer oCur.Text.InsertTextContent(oCur,oGrp,true) 91*1ecadb57SMathias BauerEnd Sub 92*1ecadb57SMathias Bauer 93*1ecadb57SMathias BauerSub SpecifyCaption 94*1ecadb57SMathias Bauer 'check if the image allows captions 95*1ecadb57SMathias Bauer If thiscomponent.getcurrentcontroller.getselection.ImplementationName = "SwXTextGraphicObject" Then 96*1ecadb57SMathias Bauer msgbox "Please press ESCAPE to deselect the image and recall the menu item" 97*1ecadb57SMathias Bauer Exit Sub 98*1ecadb57SMathias Bauer End If 99*1ecadb57SMathias Bauer If IsBlockImage Then 100*1ecadb57SMathias Bauer If not(HasCaption) Then 101*1ecadb57SMathias Bauer sCap = InputBox("Enter a caption for the image (optional)","Caption","") 102*1ecadb57SMathias Bauer If sCap <> "" Then 103*1ecadb57SMathias Bauer sID = GetImageID 104*1ecadb57SMathias Bauer sID = "cap"+right(sID, Len(sID)-3) 105*1ecadb57SMathias Bauer GoLeft(1) 106*1ecadb57SMathias Bauer InsertCaption(sCap, sID) 107*1ecadb57SMathias Bauer End If 108*1ecadb57SMathias Bauer Else 109*1ecadb57SMathias Bauer msgbox "Image has a caption already.",0,"D'oh!" 110*1ecadb57SMathias Bauer End If 111*1ecadb57SMathias Bauer Else 112*1ecadb57SMathias Bauer msgbox "Only block images may have captions.",0,"D'oh!" 113*1ecadb57SMathias Bauer End If 114*1ecadb57SMathias BauerEnd Sub 115*1ecadb57SMathias Bauer 116*1ecadb57SMathias BauerSub InsertCaption(sCap As String, sID as String) 117*1ecadb57SMathias Bauer InsertTag("IMGCAPTION_","<IMGCAPTION id="""+sID+""">") 118*1ecadb57SMathias Bauer InsertText(sCap) 119*1ecadb57SMathias Bauer InsertTag("_IMGCAPTION","</IMGCAPTION>") 120*1ecadb57SMathias BauerEnd Sub 121*1ecadb57SMathias Bauer 122*1ecadb57SMathias BauerSub InsertExtendedTip 123*1ecadb57SMathias Bauer 124*1ecadb57SMathias Bauer If not IsHelpFile Then 125*1ecadb57SMathias Bauer msgbox(strErr_NoHelpFile) 126*1ecadb57SMathias Bauer Exit Sub 127*1ecadb57SMathias Bauer End If 128*1ecadb57SMathias Bauer 129*1ecadb57SMathias Bauer oSel = thiscomponent.getcurrentcontroller.getselection 130*1ecadb57SMathias Bauer oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 131*1ecadb57SMathias Bauer oStart = oCur.getStart 132*1ecadb57SMathias Bauer oCurStart = oStart.getText.createTextCursorByRange(oStart) 133*1ecadb57SMathias Bauer oEnd = oCur.getEnd 134*1ecadb57SMathias Bauer oCurEnd = oEnd.getText.createTextCursorByRange(oEnd) 135*1ecadb57SMathias Bauer 136*1ecadb57SMathias Bauer Ret = msgbox ("Create a hidden tip?",3+32,"Extended Tip") 137*1ecadb57SMathias Bauer 138*1ecadb57SMathias Bauer If Ret=2 or Ret=3 Then 139*1ecadb57SMathias Bauer Exit Sub 140*1ecadb57SMathias Bauer End If 141*1ecadb57SMathias Bauer 142*1ecadb57SMathias Bauer thiscomponent.getcurrentcontroller.select(oCurStart) 143*1ecadb57SMathias Bauer If Ret=6 Then 144*1ecadb57SMathias Bauer InsertTag("AHID_","<AHID hid="""+ID+""">") 145*1ecadb57SMathias Bauer ElseIf Ret=7 Then 146*1ecadb57SMathias Bauer InsertTag("AVIS_","<AVIS hid="""+ID+""">") 147*1ecadb57SMathias Bauer End If 148*1ecadb57SMathias Bauer thiscomponent.getcurrentcontroller.select(oCurEnd) 149*1ecadb57SMathias Bauer If Ret=6 Then 150*1ecadb57SMathias Bauer InsertTag("_AHID","</AHID>") 151*1ecadb57SMathias Bauer ElseIf Ret=7 Then 152*1ecadb57SMathias Bauer InsertTag("_AVIS","</AVIS>") 153*1ecadb57SMathias Bauer End If 154*1ecadb57SMathias BauerEnd Sub 155*1ecadb57SMathias Bauer 156*1ecadb57SMathias BauerSub InsertSort 157*1ecadb57SMathias Bauer CR 158*1ecadb57SMathias Bauer SetParaStyle("hlp_aux_sort") 159*1ecadb57SMathias Bauer InsertTag("SORT_","<SORT order=""asc"">","hlp_aux_sort") 160*1ecadb57SMathias Bauer GoLeft(1) 161*1ecadb57SMathias Bauer GoDown(1) 162*1ecadb57SMathias Bauer msgbox "Remember to also specify the closing SORT tag!",48,"Don't forget to close the tag" 163*1ecadb57SMathias BauerEnd Sub 164*1ecadb57SMathias Bauer 165*1ecadb57SMathias BauerSub CloseSort 166*1ecadb57SMathias Bauer CR 167*1ecadb57SMathias Bauer SetParaStyle("hlp_aux_sort") 168*1ecadb57SMathias Bauer InsertTag("_SORT","</SORT>","hlp_aux_sort") 169*1ecadb57SMathias Bauer GoLeft(1) 170*1ecadb57SMathias Bauer GoDown(1) 171*1ecadb57SMathias BauerEnd Sub 172*1ecadb57SMathias Bauer 173*1ecadb57SMathias Bauersub InsertSection 174*1ecadb57SMathias Bauer 175*1ecadb57SMathias Bauer 176*1ecadb57SMathias Bauer If not IsHelpFile Then 177*1ecadb57SMathias Bauer msgbox(strErr_NoHelpFile) 178*1ecadb57SMathias Bauer Exit Sub 179*1ecadb57SMathias Bauer End If 180*1ecadb57SMathias Bauer 181*1ecadb57SMathias Bauer dim document as object 182*1ecadb57SMathias Bauer dim dispatcher as object 183*1ecadb57SMathias Bauer 184*1ecadb57SMathias Bauer oSel = thiscomponent.getcurrentcontroller.getselection 185*1ecadb57SMathias Bauer oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 186*1ecadb57SMathias Bauer oStart = oCur.getStart 187*1ecadb57SMathias Bauer oCurStart = oStart.getText.createTextCursorByRange(oStart) 188*1ecadb57SMathias Bauer oEnd = oCur.getEnd 189*1ecadb57SMathias Bauer oCurEnd = oEnd.getText.createTextCursorByRange(oEnd) 190*1ecadb57SMathias Bauer 191*1ecadb57SMathias Bauer sSectionName = AlphaNum(inputbox("Please specify a section name/identifier:")) 192*1ecadb57SMathias Bauer 193*1ecadb57SMathias Bauer If sSectionName = "" Then 194*1ecadb57SMathias Bauer Exit Sub 195*1ecadb57SMathias Bauer End If 196*1ecadb57SMathias Bauer 197*1ecadb57SMathias Bauer If sSectionName = "" Then 198*1ecadb57SMathias Bauer msgbox "No (valid) identifier -- no section."+chr(13)+"Hint: Use only A-Z,a-z,0-9 and _",48,"D'oh!" 199*1ecadb57SMathias Bauer Exit Sub 200*1ecadb57SMathias Bauer End If 201*1ecadb57SMathias Bauer 202*1ecadb57SMathias Bauer document = ThisComponent.CurrentController.Frame 203*1ecadb57SMathias Bauer dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 204*1ecadb57SMathias Bauer 205*1ecadb57SMathias Bauer dim args(6) as new com.sun.star.beans.PropertyValue 206*1ecadb57SMathias Bauer args(0).Name = "RegionName" 207*1ecadb57SMathias Bauer args(0).Value = sSectionName 208*1ecadb57SMathias Bauer args(1).Name = "RegionCondition" 209*1ecadb57SMathias Bauer args(1).Value = "" 210*1ecadb57SMathias Bauer args(2).Name = "RegionHidden" 211*1ecadb57SMathias Bauer args(2).Value = false 212*1ecadb57SMathias Bauer args(3).Name = "RegionProtect" 213*1ecadb57SMathias Bauer args(3).Value = false 214*1ecadb57SMathias Bauer args(4).Name = "LinkName" 215*1ecadb57SMathias Bauer args(4).Value = "" 216*1ecadb57SMathias Bauer args(5).Name = "FilterName" 217*1ecadb57SMathias Bauer args(5).Value = "" 218*1ecadb57SMathias Bauer args(6).Name = "SubRegion" 219*1ecadb57SMathias Bauer args(6).Value = "" 220*1ecadb57SMathias Bauer 221*1ecadb57SMathias Bauer dispatcher.executeDispatch(document, ".uno:InsertSection", "", 0, args()) 222*1ecadb57SMathias Bauer 223*1ecadb57SMathias Bauer If oCur.GetString <> "" Then 224*1ecadb57SMathias Bauer thiscomponent.getcurrentcontroller.select(oCurStart) 225*1ecadb57SMathias Bauer CR_before 226*1ecadb57SMathias Bauer GoUp(1) 227*1ecadb57SMathias Bauer InsertTag("SECTION_","<SECTION id="""+sSectionName+""">") 228*1ecadb57SMathias Bauer SetParaStyle("hlp_aux_section") 229*1ecadb57SMathias Bauer 230*1ecadb57SMathias Bauer thiscomponent.getcurrentcontroller.select(oCurEnd) 231*1ecadb57SMathias Bauer CR 232*1ecadb57SMathias Bauer SetParaStyle("hlp_aux_section") 233*1ecadb57SMathias Bauer InsertTag("_SECTION","</SECTION>") 234*1ecadb57SMathias Bauer Else 235*1ecadb57SMathias Bauer GoUp(1) 236*1ecadb57SMathias Bauer InsertTagCR("SECTION_","<SECTION id="""+sSectionName+""">","hlp_aux_section") 237*1ecadb57SMathias Bauer CR 238*1ecadb57SMathias Bauer SetParaStyle("hlp_aux_section") 239*1ecadb57SMathias Bauer InsertTag("_SECTION","</SECTION>") 240*1ecadb57SMathias Bauer GoUp(1) 241*1ecadb57SMathias Bauer SetParaStyle("hlp_default") 242*1ecadb57SMathias Bauer End If 243*1ecadb57SMathias Bauer 244*1ecadb57SMathias Bauerend sub 245*1ecadb57SMathias Bauer 246*1ecadb57SMathias BauerSub ToggleParaL10NStatus 247*1ecadb57SMathias Bauer 248*1ecadb57SMathias Bauer If not IsHelpFile Then 249*1ecadb57SMathias Bauer msgbox(strErr_NoHelpFile) 250*1ecadb57SMathias Bauer Exit Sub 251*1ecadb57SMathias Bauer End If 252*1ecadb57SMathias Bauer 253*1ecadb57SMathias Bauer oSel = thiscomponent.getcurrentcontroller.getselection 254*1ecadb57SMathias Bauer oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 255*1ecadb57SMathias Bauer 256*1ecadb57SMathias Bauer oCur.gotoStartOfParagraph(0) 257*1ecadb57SMathias Bauer CharStyle = oCur.charStyleName 258*1ecadb57SMathias Bauer 259*1ecadb57SMathias Bauer arParaData = GetParaData 260*1ecadb57SMathias Bauer sID = arParaData(0) 261*1ecadb57SMathias Bauer slocalize = arParaData(1) 262*1ecadb57SMathias Bauer sMsg = arParaData(2) 263*1ecadb57SMathias Bauer 264*1ecadb57SMathias Bauer If sMsg <> "" Then 265*1ecadb57SMathias Bauer msgbox "Error in paragraph status:"+chr(13)+sMsg,48,"Error" 266*1ecadb57SMathias Bauer Exit Sub 267*1ecadb57SMathias Bauer End If 268*1ecadb57SMathias Bauer 269*1ecadb57SMathias Bauer 270*1ecadb57SMathias Bauer If (sID = "") Then 271*1ecadb57SMathias Bauer msgbox "Paragraph has no ID. Assigning ID.",48,"Info" 272*1ecadb57SMathias Bauer InsertNewParaData 273*1ecadb57SMathias Bauer thiscomponent.getcurrentcontroller.select(oSel(0)) 274*1ecadb57SMathias Bauer arParaData = GetParaData 275*1ecadb57SMathias Bauer sID = arParaData(0) 276*1ecadb57SMathias Bauer slocalize = arParaData(1) 277*1ecadb57SMathias Bauer sMsg = arParaData(2) 278*1ecadb57SMathias Bauer End If 279*1ecadb57SMathias Bauer 280*1ecadb57SMathias Bauer If slocalize = "no" Then 281*1ecadb57SMathias Bauer SetParaData(sID,"yes") 282*1ecadb57SMathias Bauer Else 283*1ecadb57SMathias Bauer SetParaData(sID,"no") 284*1ecadb57SMathias Bauer End If 285*1ecadb57SMathias Bauer 286*1ecadb57SMathias Bauer thiscomponent.getcurrentcontroller.select(oSel(0)) 287*1ecadb57SMathias Bauer 288*1ecadb57SMathias BauerEnd Sub 289*1ecadb57SMathias Bauer 290*1ecadb57SMathias Bauer 291*1ecadb57SMathias BauerSub LocalizeImage 292*1ecadb57SMathias Bauer oSel = thiscomponent.getcurrentcontroller.getselection 293*1ecadb57SMathias Bauer If oSel(0).ImplementationName <> "SwXTextGraphicObject" Then 294*1ecadb57SMathias Bauer msgbox "Please select an image" 295*1ecadb57SMathias Bauer Else 296*1ecadb57SMathias Bauer If Instr(oSel(0).Name," ")>0 Then 297*1ecadb57SMathias Bauer oSel(0).Name = Left(oSel(0).Name,Instr(oSel(0).Name," ")-1) 298*1ecadb57SMathias Bauer End If 299*1ecadb57SMathias Bauer oSel(0).Name = oSel(0).Name + " localize=""true""" 300*1ecadb57SMathias Bauer End If 301*1ecadb57SMathias Bauer SetBorder 302*1ecadb57SMathias BauerEnd Sub 303*1ecadb57SMathias Bauer 304*1ecadb57SMathias Bauer 305*1ecadb57SMathias BauerSub UnLocalizeImage 306*1ecadb57SMathias Bauer oSel = thiscomponent.getcurrentcontroller.getselection 307*1ecadb57SMathias Bauer If oSel(0).ImplementationName <> "SwXTextGraphicObject" Then 308*1ecadb57SMathias Bauer msgbox "Please select an image" 309*1ecadb57SMathias Bauer Else 310*1ecadb57SMathias Bauer 311*1ecadb57SMathias Bauer If Instr(oSel(0).Name," ")>0 Then 312*1ecadb57SMathias Bauer oSel(0).Name = Left(oSel(0).Name,Instr(oSel(0).Name," ")-1) 313*1ecadb57SMathias Bauer End If 314*1ecadb57SMathias Bauer UnsetBorder 315*1ecadb57SMathias Bauer End If 316*1ecadb57SMathias Bauer 317*1ecadb57SMathias BauerEnd Sub 318*1ecadb57SMathias Bauer 319*1ecadb57SMathias Bauer 320*1ecadb57SMathias BauerSub ResetAllParaStatusValues 321*1ecadb57SMathias Bauer REM ... to be done 322*1ecadb57SMathias BauerEnd Sub 323*1ecadb57SMathias Bauer 324*1ecadb57SMathias BauerSub InsertHowToGet 325*1ecadb57SMathias Bauer 326*1ecadb57SMathias Bauer If not IsHelpFile Then 327*1ecadb57SMathias Bauer msgbox(strErr_NoHelpFile) 328*1ecadb57SMathias Bauer Exit Sub 329*1ecadb57SMathias Bauer End If 330*1ecadb57SMathias Bauer 331*1ecadb57SMathias Bauer document = ThisComponent.CurrentController.Frame 332*1ecadb57SMathias Bauer dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 333*1ecadb57SMathias Bauer 334*1ecadb57SMathias Bauer dim args(6) as new com.sun.star.beans.PropertyValue 335*1ecadb57SMathias Bauer args(0).Name = "RegionName" 336*1ecadb57SMathias Bauer args(0).Value = "howtoget" 337*1ecadb57SMathias Bauer args(1).Name = "RegionCondition" 338*1ecadb57SMathias Bauer args(1).Value = "" 339*1ecadb57SMathias Bauer args(2).Name = "RegionHidden" 340*1ecadb57SMathias Bauer args(2).Value = false 341*1ecadb57SMathias Bauer args(3).Name = "RegionProtect" 342*1ecadb57SMathias Bauer args(3).Value = false 343*1ecadb57SMathias Bauer args(4).Name = "LinkName" 344*1ecadb57SMathias Bauer args(4).Value = "" 345*1ecadb57SMathias Bauer args(5).Name = "FilterName" 346*1ecadb57SMathias Bauer args(5).Value = "" 347*1ecadb57SMathias Bauer args(6).Name = "SubRegion" 348*1ecadb57SMathias Bauer args(6).Value = "" 349*1ecadb57SMathias Bauer 350*1ecadb57SMathias Bauer dispatcher.executeDispatch(document, ".uno:InsertSection", "", 0, args()) 351*1ecadb57SMathias Bauer GoUp(1) 352*1ecadb57SMathias Bauer InsertTagCR("SECTION_","<SECTION id=""howtoget"">","hlp_aux_section") 353*1ecadb57SMathias Bauer CR 354*1ecadb57SMathias Bauer SetParaStyle("hlp_aux_section") 355*1ecadb57SMathias Bauer InsertTag("_SECTION","</SECTION>") 356*1ecadb57SMathias Bauer GoUp(1) 357*1ecadb57SMathias Bauer SetParaStyle("hlp_default") 358*1ecadb57SMathias Bauer' Embed.Main(false) 359*1ecadb57SMathias BauerEnd Sub 360*1ecadb57SMathias Bauer 361*1ecadb57SMathias BauerSub InsertRelatedTopics 362*1ecadb57SMathias Bauer 363*1ecadb57SMathias Bauer If not IsHelpFile Then 364*1ecadb57SMathias Bauer msgbox(strErr_NoHelpFile) 365*1ecadb57SMathias Bauer Exit Sub 366*1ecadb57SMathias Bauer End If 367*1ecadb57SMathias Bauer 368*1ecadb57SMathias Bauer document = ThisComponent.CurrentController.Frame 369*1ecadb57SMathias Bauer dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 370*1ecadb57SMathias Bauer 371*1ecadb57SMathias Bauer dim args(6) as new com.sun.star.beans.PropertyValue 372*1ecadb57SMathias Bauer args(0).Name = "RegionName" 373*1ecadb57SMathias Bauer args(0).Value = "relatedtopics" 374*1ecadb57SMathias Bauer args(1).Name = "RegionCondition" 375*1ecadb57SMathias Bauer args(1).Value = "" 376*1ecadb57SMathias Bauer args(2).Name = "RegionHidden" 377*1ecadb57SMathias Bauer args(2).Value = false 378*1ecadb57SMathias Bauer args(3).Name = "RegionProtect" 379*1ecadb57SMathias Bauer args(3).Value = false 380*1ecadb57SMathias Bauer args(4).Name = "LinkName" 381*1ecadb57SMathias Bauer args(4).Value = "" 382*1ecadb57SMathias Bauer args(5).Name = "FilterName" 383*1ecadb57SMathias Bauer args(5).Value = "" 384*1ecadb57SMathias Bauer args(6).Name = "SubRegion" 385*1ecadb57SMathias Bauer args(6).Value = "" 386*1ecadb57SMathias Bauer 387*1ecadb57SMathias Bauer dispatcher.executeDispatch(document, ".uno:InsertSection", "", 0, args()) 388*1ecadb57SMathias Bauer GoUp(1) 389*1ecadb57SMathias Bauer InsertTagCR("SECTION_","<SECTION id=""relatedtopics"">","hlp_aux_section") 390*1ecadb57SMathias Bauer CR 391*1ecadb57SMathias Bauer SetParaStyle("hlp_aux_section") 392*1ecadb57SMathias Bauer InsertTag("_SECTION","</SECTION>") 393*1ecadb57SMathias Bauer GoUp(1) 394*1ecadb57SMathias Bauer SetParaStyle("hlp_default") 395*1ecadb57SMathias BauerEnd Sub 396*1ecadb57SMathias Bauer 397*1ecadb57SMathias Bauer 398*1ecadb57SMathias Bauersub UnsetBorder 399*1ecadb57SMathias Bauerrem ---------------------------------------------------------------------- 400*1ecadb57SMathias Bauerrem define variables 401*1ecadb57SMathias Bauerdim document as object 402*1ecadb57SMathias Bauerdim dispatcher as object 403*1ecadb57SMathias Bauerrem ---------------------------------------------------------------------- 404*1ecadb57SMathias Bauerrem get access to the document 405*1ecadb57SMathias Bauerdocument = ThisComponent.CurrentController.Frame 406*1ecadb57SMathias Bauerdispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 407*1ecadb57SMathias Bauer 408*1ecadb57SMathias Bauerrem ---------------------------------------------------------------------- 409*1ecadb57SMathias Bauerdim args1(7) as new com.sun.star.beans.PropertyValue 410*1ecadb57SMathias Bauerargs1(0).Name = "BorderOuter.LeftBorder" 411*1ecadb57SMathias Bauerargs1(0).Value = Array(0,0,0,0) 412*1ecadb57SMathias Bauerargs1(1).Name = "BorderOuter.LeftDistance" 413*1ecadb57SMathias Bauerargs1(1).Value = 10 414*1ecadb57SMathias Bauerargs1(2).Name = "BorderOuter.RightBorder" 415*1ecadb57SMathias Bauerargs1(2).Value = Array(0,0,0,0) 416*1ecadb57SMathias Bauerargs1(3).Name = "BorderOuter.RightDistance" 417*1ecadb57SMathias Bauerargs1(3).Value = 0 418*1ecadb57SMathias Bauerargs1(4).Name = "BorderOuter.TopBorder" 419*1ecadb57SMathias Bauerargs1(4).Value = Array(0,0,0,0) 420*1ecadb57SMathias Bauerargs1(5).Name = "BorderOuter.TopDistance" 421*1ecadb57SMathias Bauerargs1(5).Value = 0 422*1ecadb57SMathias Bauerargs1(6).Name = "BorderOuter.BottomBorder" 423*1ecadb57SMathias Bauerargs1(6).Value = Array(0,0,0,0) 424*1ecadb57SMathias Bauerargs1(7).Name = "BorderOuter.BottomDistance" 425*1ecadb57SMathias Bauerargs1(7).Value = 0 426*1ecadb57SMathias Bauer 427*1ecadb57SMathias Bauerdispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args1()) 428*1ecadb57SMathias Bauer 429*1ecadb57SMathias Bauerrem ---------------------------------------------------------------------- 430*1ecadb57SMathias Bauerdim args2(4) as new com.sun.star.beans.PropertyValue 431*1ecadb57SMathias Bauerargs2(0).Name = "BorderInner.Horizontal" 432*1ecadb57SMathias Bauerargs2(0).Value = Array(0,0,0,0) 433*1ecadb57SMathias Bauerargs2(1).Name = "BorderInner.Vertical" 434*1ecadb57SMathias Bauerargs2(1).Value = Array(0,0,0,0) 435*1ecadb57SMathias Bauerargs2(2).Name = "BorderInner.Flags" 436*1ecadb57SMathias Bauerargs2(2).Value = 2 437*1ecadb57SMathias Bauerargs2(3).Name = "BorderInner.ValidFlags" 438*1ecadb57SMathias Bauerargs2(3).Value = 63 439*1ecadb57SMathias Bauerargs2(4).Name = "BorderInner.DefaultDistance" 440*1ecadb57SMathias Bauerargs2(4).Value = 0 441*1ecadb57SMathias Bauer 442*1ecadb57SMathias Bauerdispatcher.executeDispatch(document, ".uno:BorderInner", "", 0, args2()) 443*1ecadb57SMathias Bauer 444*1ecadb57SMathias Bauer 445*1ecadb57SMathias Bauerend sub 446*1ecadb57SMathias Bauer 447*1ecadb57SMathias Bauer 448*1ecadb57SMathias Bauer 449*1ecadb57SMathias Bauersub SetBorder 450*1ecadb57SMathias Bauerrem ---------------------------------------------------------------------- 451*1ecadb57SMathias Bauerrem define variables 452*1ecadb57SMathias Bauerdim document as object 453*1ecadb57SMathias Bauerdim dispatcher as object 454*1ecadb57SMathias Bauerrem ---------------------------------------------------------------------- 455*1ecadb57SMathias Bauerrem get access to the document 456*1ecadb57SMathias Bauerdocument = ThisComponent.CurrentController.Frame 457*1ecadb57SMathias Bauerdispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 458*1ecadb57SMathias Bauer 459*1ecadb57SMathias Bauerrem ---------------------------------------------------------------------- 460*1ecadb57SMathias Bauerdim args1(7) as new com.sun.star.beans.PropertyValue 461*1ecadb57SMathias Bauerargs1(0).Name = "BorderOuter.LeftBorder" 462*1ecadb57SMathias Bauerargs1(0).Value = Array(15167232,0,88,0) 463*1ecadb57SMathias Bauerargs1(1).Name = "BorderOuter.LeftDistance" 464*1ecadb57SMathias Bauerargs1(1).Value = 101 465*1ecadb57SMathias Bauerargs1(2).Name = "BorderOuter.RightBorder" 466*1ecadb57SMathias Bauerargs1(2).Value = Array(15167232,0,88,0) 467*1ecadb57SMathias Bauerargs1(3).Name = "BorderOuter.RightDistance" 468*1ecadb57SMathias Bauerargs1(3).Value = 101 469*1ecadb57SMathias Bauerargs1(4).Name = "BorderOuter.TopBorder" 470*1ecadb57SMathias Bauerargs1(4).Value = Array(15167232,0,88,0) 471*1ecadb57SMathias Bauerargs1(5).Name = "BorderOuter.TopDistance" 472*1ecadb57SMathias Bauerargs1(5).Value = 101 473*1ecadb57SMathias Bauerargs1(6).Name = "BorderOuter.BottomBorder" 474*1ecadb57SMathias Bauerargs1(6).Value = Array(15167232,0,88,0) 475*1ecadb57SMathias Bauerargs1(7).Name = "BorderOuter.BottomDistance" 476*1ecadb57SMathias Bauerargs1(7).Value = 101 477*1ecadb57SMathias Bauer 478*1ecadb57SMathias Bauerdispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args1()) 479*1ecadb57SMathias Bauer 480*1ecadb57SMathias Bauerrem ---------------------------------------------------------------------- 481*1ecadb57SMathias Bauerdim args2(4) as new com.sun.star.beans.PropertyValue 482*1ecadb57SMathias Bauerargs2(0).Name = "BorderInner.Horizontal" 483*1ecadb57SMathias Bauerargs2(0).Value = Array(0,0,0,0) 484*1ecadb57SMathias Bauerargs2(1).Name = "BorderInner.Vertical" 485*1ecadb57SMathias Bauerargs2(1).Value = Array(0,0,0,0) 486*1ecadb57SMathias Bauerargs2(2).Name = "BorderInner.Flags" 487*1ecadb57SMathias Bauerargs2(2).Value = 2 488*1ecadb57SMathias Bauerargs2(3).Name = "BorderInner.ValidFlags" 489*1ecadb57SMathias Bauerargs2(3).Value = 127 490*1ecadb57SMathias Bauerargs2(4).Name = "BorderInner.DefaultDistance" 491*1ecadb57SMathias Bauerargs2(4).Value = 0 492*1ecadb57SMathias Bauer 493*1ecadb57SMathias Bauerdispatcher.executeDispatch(document, ".uno:BorderInner", "", 0, args2()) 494*1ecadb57SMathias Bauer 495*1ecadb57SMathias Bauer 496*1ecadb57SMathias Bauerend sub 497*1ecadb57SMathias Bauer</script:module>