diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-04-25 09:10:51 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-04-25 09:10:51 +0000 |
| commit | 4824404c40456b2d33aa8c54f4e7b35c06f846e9 (patch) | |
| tree | 691f2de268640b88d42ab3ee4a297b1a12444b02 | |
| parent | 6c8a4a722cfe363042835ee0318e80b6ae6d6a88 (diff) | |
changed 'LoadLibrary' to 'BasicLibraries.LoadLibrary'
| -rw-r--r-- | wizards/source/euro/AutoPilotRun.xba | 40 | ||||
| -rw-r--r-- | wizards/source/euro/ConvertRun.xba | 30 | ||||
| -rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 22 | ||||
| -rw-r--r-- | wizards/source/gimmicks/AutoText.xba | 14 | ||||
| -rw-r--r-- | wizards/source/gimmicks/ChangeAllChars.xba | 20 | ||||
| -rw-r--r-- | wizards/source/gimmicks/GetTexts.xba | 62 | ||||
| -rw-r--r-- | wizards/source/gimmicks/ReadDir.xba | 48 | ||||
| -rw-r--r-- | wizards/source/gimmicks/Userfields.xba | 18 | ||||
| -rw-r--r-- | wizards/source/importwizard/Main.xba | 6 | ||||
| -rw-r--r-- | wizards/source/schedule/CalendarMain.xba | 22 | ||||
| -rw-r--r-- | wizards/source/template/Autotext.xba | 4 | ||||
| -rw-r--r-- | wizards/source/template/Correspondence.xba | 12 | ||||
| -rw-r--r-- | wizards/source/template/Samples.xba | 6 | ||||
| -rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 42 |
14 files changed, 173 insertions, 173 deletions
diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba index 37228129c..2f450d6c5 100644 --- a/wizards/source/euro/AutoPilotRun.xba +++ b/wizards/source/euro/AutoPilotRun.xba @@ -19,7 +19,7 @@ Public UnprotectList(50,1) as String Public DoUnprotect as Integer Public Password as String Public DocIndex as Integer -Public oPathSettings as Object +Public oPathSettings as Object Public oDocInfo as Object Public oUcb as Object Public TotDocCount as Integer @@ -27,7 +27,7 @@ Public sTotDocCount as String Sub StartAutoPilot() Dim i As Integer - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") If InitResources("Euro Converter", "eur") Then oDocInfo = CreateUnoService("com.sun.star.document.StandaloneDocumentInfo") oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") @@ -39,7 +39,7 @@ Dim i As Integer End Sub -Sub ConvertDocuments() +Sub ConvertDocuments() Dim FilesList() Msgbox DialogModel.lblSource.Label Source = AssignFileName(DialogModel.txtSource.Text, DialogModel.lblSource.Label, True) @@ -115,7 +115,7 @@ Function StoreDocument() If TargetFile <> "" Then On Local Error Goto NOSAVING If TargetFile <> SourceFile Then - oDocument.StoreToUrl(TargetFile,NoArgs) + oDocument.StoreToUrl(TargetFile,NoArgs) Else oDocument.Store End If @@ -152,7 +152,7 @@ End Sub Sub SourceSearchDialog() If DialogModel.optWholeDir.State = 1 Then - 'Konvertierung eines gesamten Verzeichnisses + 'Konvertierung eines gesamten Verzeichnisses Source = Application.FileDialog( "P", sMsgSELDIR, DialogModel.txtSource.Text ) ' "Wählen Sie ein Verzeichnis" Else Source = Application.FileDialog( "O", sMsgSELFILE, DialogModel.txtSource.Text ) ' "Wählen Sie eine Datei" @@ -195,14 +195,14 @@ Dim sNoDirMessage as String End If End if Else - Msgbox(HeaderString & " '" & sPath & "' " & sMsgNOTTHERE,48, sMsgDLGTITLE) + Msgbox(HeaderString & " '" & sPath & "' " & sMsgNOTTHERE,48, sMsgDLGTITLE) End If If bIsValid Then AssignFileName() = sPath Else AssignFilename() = "" End If -End Function +End Function @@ -227,8 +227,8 @@ Dim sStatustext as String If oListSheet.IsProtected Then ' Sheet is protected by a Password oDocument.CurrentController.SetActiveSheet(oListSheet) - - QueryText = ReplaceString(sMsgPWPROTECT,"'" & ListSheetName & "'", "%1TableName%1") + + QueryText = ReplaceString(sMsgPWPROTECT,"'" & ListSheetName & "'", "%1TableName%1") '"Geben Sie das Kennwort zum Entschützen der Tabelle '" & ListSheetName & " ein:'" Do InitializePasswordDialog() @@ -256,7 +256,7 @@ Dim sStatustext as String End If Else ' The Answer is 'No' (Tables shall not be unprotected) - If OldDoUnprotect = 0 Then + If OldDoUnprotect = 0 Then Msgbox (sMsgSHEETSNOPROTECT, 64, sMsgDLGTITLE) End If '"Tabellen werden nicht entschützt!" Unprotectsheet = False @@ -315,11 +315,11 @@ End Sub ' unprotected Sub AddSheettoUnprotectionlist(ListSheetName,Password) UnprotectList(Int(UnProtectList(0,0))+ 1,0) = ListSheetName - UnprotectList(Int(UnProtectList(0,0))+ 1,1) = Password + UnprotectList(Int(UnProtectList(0,0))+ 1,1) = Password ' The first Field contains the highest Index of the list ' and therefor has to be incremented UnprotectList(0,0) = Str(Val(UnProtectList(0,0)) + 1) -End Sub +End Sub Sub HelperDialog() @@ -331,7 +331,7 @@ End Sub Sub InitializeThirdStep() Dim TextBoxText as String DialogModel.lblCurrencies.Visible = False - DialogModel.lstCurrencies.Visible = False + DialogModel.lstCurrencies.Visible = False DialogModel.cmdBack.Label = sBACK DialogModel.LabelRetrieval.FontBold = True DialogModel.LabelRetrieval.Label = sPrgsRETRIEVAL @@ -339,14 +339,14 @@ Dim TextBoxText as String DialogModel.cmdGoOn.Visible = False DialogModel.Step = 3 If DialogModel.optWholeDir.State = 1 Then - TextBoxText = sSOURCEDIR & " " & Source & chr(13) '& " " + TextBoxText = sSOURCEDIR & " " & Source & chr(13) '& " " If DialogModel.chkRecursive.State = 1 Then - TextBoxText = TextBoxText & DeleteStr(sSUBDIR,"&") & chr(13)' & " " + TextBoxText = TextBoxText & DeleteStr(sSUBDIR,"&") & chr(13)' & " " End If Else - TextBoxText = sSOURCEFILE & " " & Source & chr(13) '& " " + TextBoxText = sSOURCEFILE & " " & Source & chr(13) '& " " End If - TextBoxText = TextBoxText & sTARGETDIR & " " & TargetDir & chr(13)' & " " + TextBoxText = TextBoxText & sTARGETDIR & " " & TargetDir & chr(13)' & " " If DialogModel.chkProtect.State = 1 Then TextBoxText = TextboxText & sPrgsUNPROTECT End If @@ -358,9 +358,9 @@ End Sub Sub SwitchBack() DialogModel.Step = 2 DialogModel.lblCurrencies.Visible = True - DialogModel.lstCurrencies.Visible = True + DialogModel.lstCurrencies.Visible = True DialogModel.cmdBack.Visible = False - DialogModel.cmdGoOn.Visible = True + DialogModel.cmdGoOn.Visible = True End Sub @@ -395,4 +395,4 @@ Sub InitializeProgressPage() DialogModel.LabelCurProgress.FontBold = True DialogModel.LabelRetrieval.Visible = True DialogModel.LabelCurProgress.Visible = True -End Sub</script:module>
\ No newline at end of file +End Sub</script:module> diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba index 0df2eed92..1effb30bc 100644 --- a/wizards/source/euro/ConvertRun.xba +++ b/wizards/source/euro/ConvertRun.xba @@ -2,13 +2,13 @@ <script:module xmlns:script="http://openoffice.org/2000/script" script:name="ConvertRun" script:language="StarBasic">Option Explicit ' Todo Den Bug mit der Statuszeilengeschichte überprüfen -' Todo Vorselektion der Listbox +' Todo Vorselektion der Listbox ' Mauspointer umschalten: ' Todo: Sinnigkeit von 'DocDisposed' noch einmal überprüfen Sub Main() - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") If InitResources("Euro Converter", "eur") Then DoUnProtect = 0 bPreSelected = True @@ -78,7 +78,7 @@ Dim AddStyle as Boolean oSheetRanges = oCursheet.CellFormatRanges.createEnumeration While oSheetRanges.hasMoreElements oRange = oSheetRanges.NextElement - If oRange.getPropertyState("NumberFormat") = 1 Then + If oRange.getPropertyState("NumberFormat") = 1 Then If oRange.CellStyle = CurStyleName Then oSelRanges.InsertbyName("",oRange) End If @@ -94,7 +94,7 @@ Dim AddStyle as Boolean For n = 0 To Ubound(Listbox.SelectedItems()) m = Listbox.SelectedItems(n) RangeName = Listbox.StringItemList(m) - oListSheet = RetrieveSheetoutofRangeName(RangeName) + oListSheet = RetrieveSheetoutofRangeName(RangeName) AddRange = UnprotectSheet(oListSheet) ' Todo: Klären wie das am besten geht! If Not AddRange Then @@ -103,9 +103,9 @@ Dim AddStyle as Boolean SelRangeList(a) = RangeName SelRangeList(0) = Str(a) a = a + 1 - If oListSheet.Name = sCurSheetName Then + If oListSheet.Name = sCurSheetName Then oRange = RetrieveRangeoutofRangeName(RangeName) - oSelRanges.InsertbyName("",oRange) + oSelRanges.InsertbyName("",oRange) End If End If Next n @@ -158,7 +158,7 @@ Dim bNoLBSelection as Boolean End Sub -Sub ConvertRangesOrStylesOfDocument() +Sub ConvertRangesOrStylesOfDocument() Dim i as Integer Dim Listbox as Object Dim ItemName as String @@ -229,10 +229,10 @@ Dim OldCurrIndex as Integer If DialogModel.Step = 1 Then If OldCurrIndex = -1 Then DialogModel.chkComplete.State = 1 - EnableStep1DialogControls(True,False, True) + EnableStep1DialogControls(True,False, True) SetOptionValuestoNull() Else - EnableStep1DialogControls(False,False, False) + EnableStep1DialogControls(False,False, False) If DialogModel.optCellTemplates.State = 1 Then EnableStep1DialogControls(False, False, False) CreateStyleEnumeration() @@ -243,9 +243,9 @@ Dim OldCurrIndex as Integer CreateRangeEnumeration(False) ElseIf DialogModel.optSelRange.State= 1 Then 'Preselected Range - CheckRangeSelection() + CheckRangeSelection() End If - EnableStep1DialogControls(True, True, True) + EnableStep1DialogControls(True, True, True) End If ElseIf DialogModel.Step = 2 Then EnableStep2DialogControls(True) @@ -311,8 +311,8 @@ Dim OldCurExtension(1) as String AddSelectedRangeToSelRangesEnum() bPreSelected = CheckIfRangeisCurrency(oRange) If bPreSelected Then -' Todo: Array als ganzes übergeben! - OldCurrSymbolList() = CurrSymbolList() +' Todo: Array als ganzes übergeben! + OldCurrSymbolList() = CurrSymbolList() OldCurExtension() = CurExtension() OldCurrIndex = CurrIndex For i = 0 To 10 @@ -389,7 +389,7 @@ Dim LocCountry as String Dim LocLanguage as String LocCountry = oLocale.Country LocLanguage = oLocale.Language - For i = 0 To 1 + For i = 0 To 1 If LocLanguage = LangIDValue(CurrIndex,i,0) AND LocCountry = LangIDValue(CurrIndex,i,1) Then CheckLocale = True Exit Function @@ -405,4 +405,4 @@ Sub SetOptionValuestoNull() DialogModel.optDocRanges.State = 0 DialogModel.optSelRange.State = 0 End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index 015b78044..72d452191 100644 --- a/wizards/source/formwizard/FormWizard.xba +++ b/wizards/source/formwizard/FormWizard.xba @@ -34,9 +34,9 @@ Public Tablename as String Sub MainWithDefault() 'On Local Error Goto GlobalError - LoadLibrary("tools") - LoadLibrary("webwizard") - bControlsareCreated = False + BasicLibraries.LoadLibrary("Tools") + BasicLibraries.LoadLibrary("webwizard") + bControlsareCreated = False If Not InitResources("Formwizard","dbw") Then Exit Sub End If @@ -73,7 +73,7 @@ Dim i as Integer oDialogModel.cmdBack.Enabled = False oDialogModel.cmdGoOn.Enabled = False oDialogModel.lblTables.Enabled = False - oDialogModel.lstSelFields.Tag = False + oDialogModel.lstSelFields.Tag = False ToggleListboxControls(oDialogModel, False) oDialogModel.Step = 1 oDialogModel.lstDatabases.StringItemList()= sDatabaseList()' = AddItem(sDatabaseList(i) @@ -96,7 +96,7 @@ End Sub Function AddListtoList(FirstArray(), SecondArray(), Optional StarIndex) Dim n as Integer Dim m as Integer -Dim MaxIndex as Integer +Dim MaxIndex as Integer MaxIndex = Ubound(FirstArray()) + Ubound(SecondArray()) + 1 Dim ResultArray(MaxIndex) For m = 0 To Ubound(FirstArray()) @@ -108,7 +108,7 @@ Dim MaxIndex as Integer Next n AddListToList() = ResultArray() End Function - + Sub FormGetFields() Dim i as Integer @@ -171,12 +171,12 @@ Sub NextStep() Select Case oDialogModel.Step Case 1 GetTableMetaData() - CreateDBForm() + CreateDBForm() InitializeLayoutSettings() oDialogModel.Step = 2 Case 2 oDialogModel.cmdGoOn.Label = Form_5_cmdReady - ToggleControlsofLastPage() + ToggleControlsofLastPage() oDialogModel.Step = 3 Case 3 HandleCreatedDocument() @@ -196,10 +196,10 @@ Sub InitializeLayoutSettings() ToggleAlignGroup(False) ArrangeControls() End If - + ' Todo: Hier die Grafik Urls der ImageControls setzen. ' Alternativ würde es vielleicht reichen die Border auf 3-D zu setzen -End Sub +End Sub Sub HandleCreatedDocument() @@ -271,4 +271,4 @@ Sub ToggleDatabasePage(bDoEnable as Boolean) oDialogModel.optIgnoreBinaries.Enabled = bDoEnable oDialogModel.optBinariesasGraphics.Enabled = bDoEnable oDialogModel.cmdHelp.Enabled = bDoEnable -End Sub</script:module>
\ No newline at end of file +End Sub</script:module> diff --git a/wizards/source/gimmicks/AutoText.xba b/wizards/source/gimmicks/AutoText.xba index e40a3f8a7..ee97d0a60 100644 --- a/wizards/source/gimmicks/AutoText.xba +++ b/wizards/source/gimmicks/AutoText.xba @@ -11,27 +11,27 @@ Dim oAutoTextContainer, oAutogroup, oAutoText as Object Dim oCharStyles, oContentStyle, oHeaderStyle, oGroupTitleStyle as Object Dim n, m, iAutoCount as Integer - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") LoadLanguage(StarDesktop.ISOLocale.Language) - ' Open a new empty document + ' Open a new empty document oDocument = StarDesktop.LoadComponentFromURL("staroffice:factory/swriter","_blank",0,NoArgs) oDocuText = oDocument.Text ' Create The Character-templates oCharStyles = oDocument.StyleFamilies.GetByName("CharacterStyles") - + ' The Characterstyle for the Header that describes the Title of Autotextgroups oGroupTitleStyle = oDocument.createInstance("com.sun.star.style.CharacterStyle") - oGroupTitleStyle.charWeight = com.sun.star.awt.FontWeight.BOLD + oGroupTitleStyle.charWeight = com.sun.star.awt.FontWeight.BOLD oGroupTitleStyle.CharHeight = 14 oCharStyles.InsertbyName("AutoTextGroupTitle", oGroupTitleStyle) ' The Characterstyle for the Header that describes the Title of Autotextgroups oHeaderStyle = oDocument.createInstance("com.sun.star.style.CharacterStyle") - oHeaderStyle.charWeight = com.sun.star.awt.FontWeight.BOLD + oHeaderStyle.charWeight = com.sun.star.awt.FontWeight.BOLD oCharStyles.InsertbyName("AutoTextHeading", oHeaderStyle) - + ' "Ordinary" Table Content oContentStyle = oDocument.createInstance("com.sun.star.style.CharacterStyle") oCharStyles.InsertbyName("TableContent", oContentStyle) @@ -80,4 +80,4 @@ Dim oCellCursor as Object oCellCursor = oCell.CreateTextCursor() oCellCursor.CharStyle = sCellStyle oCell.Text.insertString(oCellCursor,sCellString,False) -End Sub</script:module>
\ No newline at end of file +End Sub</script:module> diff --git a/wizards/source/gimmicks/ChangeAllChars.xba b/wizards/source/gimmicks/ChangeAllChars.xba index 69dcd32b1..a7a769de9 100644 --- a/wizards/source/gimmicks/ChangeAllChars.xba +++ b/wizards/source/gimmicks/ChangeAllChars.xba @@ -15,7 +15,7 @@ Dim i as Integer Const MBYES = 6 Const MBABORT = 2 Const MBNO = 7 - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") Call SetLanguage On Local Error GoTo NODOCUMENT @@ -26,13 +26,13 @@ Const MBNO = 7 Exit Sub End If On Local Error Goto 0 - + sDocType = GetDocumentType(oDocument) If oDocument.IsModified And oDocument.Url <> "" Then Status = MsgBox(NOTSAVEDTEXT, 3+32, MSGBOXTITLE) Select Case Status - Case MBYES + Case MBYES oDocument.Store Case MBABORT, MBNO End @@ -46,15 +46,15 @@ Const MBNO = 7 Select Case sDocType Case "sWriter" - ReplaceAllStrings(oDocument) + ReplaceAllStrings(oDocument) Case Else - Msgbox("This Macro only works with Writer-Documents!", 16, "StarOffice 5.2") + Msgbox("This Macro only works with Writer-Documents!", 16, "StarOffice 5.2") End Select End Sub -Sub ReplaceAllStrings(oContainer as Object) +Sub ReplaceAllStrings(oContainer as Object) ReplaceStrings(oContainer, "[a-z]", LOWERREPLACECHAR) ReplaceStrings(oContainer, "[à-þ]", LOWERREPLACECHAR) ReplaceStrings(oContainer, "[A-Z]", UPPERREPLACECHAR) @@ -69,7 +69,7 @@ Sub ReplaceStrings(oContainer as Object, sSearchString, sReplaceString as Strin oReplaceDesc.SearchRegularExpression = True oReplaceDesc.Searchstring = sSearchString oReplaceDesc.ReplaceString = sReplaceString - oReplCount = oContainer.ReplaceAll(oReplaceDesc) + oReplCount = oContainer.ReplaceAll(oReplaceDesc) End Sub @@ -87,12 +87,12 @@ Dim ISOLanguage as String Case "fr" MSGBOXTITLE = "Remplacer tous les caractères par '" & UPPERREPLACECHAR & "'" NOTSAVEDTEXT = "Le document a été modifé, la macro remplacera tous les caractères par '" & UPPERREPLACECHAR & "'. Enregistrer avant de procéder?" - WARNING = "La macro remplacera tous les caractères et nombres par '" & UPPERREPLACECHAR & "' dans le document." + WARNING = "La macro remplacera tous les caractères et nombres par '" & UPPERREPLACECHAR & "' dans le document." Case "it" MSGBOXTITLE = "Sostituire tutti i caratteri '" & UPPERREPLACECHAR & "'" NOTSAVEDTEXT = "Il documento è stato modificato, la macro sostituerà tutti i caratteri con '" & UPPERREPLACECHAR & "'. Salvare il documento prima di procedere?" - WARNING = "La macro sostituirà tutti i caratteri e numeri con '" & UPPERREPLACECHAR & "' nel documento attivo." + WARNING = "La macro sostituirà tutti i caratteri e numeri con '" & UPPERREPLACECHAR & "' nel documento attivo." Case "es" MSGBOXTITLE = "Sustituir todos los caracteres por '" & UPPERREPLACECHAR & "'" @@ -127,4 +127,4 @@ Dim ISOLanguage as String WARNING = "This macro changes all characters and numbers to an '" & UPPERREPLACECHAR & "' in this document." End Select End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/gimmicks/GetTexts.xba b/wizards/source/gimmicks/GetTexts.xba index 0788bec81..eb0fdb442 100644 --- a/wizards/source/gimmicks/GetTexts.xba +++ b/wizards/source/gimmicks/GetTexts.xba @@ -11,7 +11,7 @@ ' Namen von Notizenseiten mit Peter durchsprechen ' Macro-Description: -' This Macro extracts the Strings out of the currently activated document und inserts them into a logdocument +' This Macro extracts the Strings out of the currently activated document und inserts them into a logdocument ' The aim of the macro is to provide the programmer an insight into the StarOffice API ' It focusses on how document-Objects are accessed. ' Therefor not only texts of the document-body are retrieved but also Texts of general @@ -28,7 +28,7 @@ Dim sDocType as String Dim oHyperCursor as Object Dim oCharStyles as Object - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") On Local Error GoTo NODOCUMENT oDocument = StarDesktop.ActiveFrame.Controller.Model @@ -40,22 +40,22 @@ Dim oCharStyles as Object Exit Sub End If On Local Error Goto 0 - + ' Open a new document where all the texts are inserted - oLogDocument = StarDesktop.LoadComponentFromURL( "staroffice:factory/swriter","_blank",0,NoArgs()) + oLogDocument = StarDesktop.LoadComponentFromURL( "staroffice:factory/swriter","_blank",0,NoArgs()) oLogText = oLogDocument.Text ' create and define the character styles of the Log-document oCharStyles = oLogDocument.StyleFamilies.GetByName("CharacterStyles") oLogHeaderStyle = oLogDocument.createInstance("com.sun.star.style.CharacterStyle") - oLogHeaderStyle.charWeight = com.sun.star.awt.FontWeight.BOLD + oLogHeaderStyle.charWeight = com.sun.star.awt.FontWeight.BOLD oLogBodyTextStyle = oLogDocument.createInstance("com.sun.star.style.CharacterStyle") oCharStyles.InsertbyName("LogHeading", oLogHeaderStyle) oCharStyles.InsertbyName("LogBodyText", oLogBodyTextStyle) ' Insert the title of the activated document as a hyperlink oHyperCursor = oLogText.createTextCursor() - oHyperCursor.charWeight = com.sun.star.awt.FontWeight.BOLD + oHyperCursor.charWeight = com.sun.star.awt.FontWeight.BOLD oHyperCursor.gotoStart(False) oHyperCursor.HyperLinkURL = oDocument.URL oHyperCursor.HyperLinkTarget = oDocument.URL @@ -84,7 +84,7 @@ Dim oCharStyles as Object Case "sDraw" GetDrawStrings() Case Else - Msgbox("This Macro only works with Writer-, Calc or Draw/Impress-Documents!", 16, "StarOffice 5.2") + Msgbox("This Macro only works with Writer-, Calc or Draw/Impress-Documents!", 16, "StarOffice 5.2") End Select End Sub @@ -92,7 +92,7 @@ End Sub ' ***********************************************Calc-Documents************************************************** -Sub GetCalcStrings() +Sub GetCalcStrings() Dim i, n as integer Dim oSheet as Object Dim SheetName as String @@ -117,7 +117,7 @@ Dim oSheets as Object GetChartStrings(oSheet, "Charts of '" & SheetName & "'") - GetControlStrings(oSheet.DrawPage, "Controls of '" & SheetName & "'") + GetControlStrings(oSheet.DrawPage, "Controls of '" & SheetName & "'") Next ' Pictures @@ -127,10 +127,10 @@ Dim oSheets as Object End Sub -Sub GetCellTexts(oSheet as Object) +Sub GetCellTexts(oSheet as Object) Dim BigRange, BigEnum, oCell as Object BigRange = oDocument.CreateInstance("com.sun.star.sheet.SheetCellRanges") - BigRange.InsertbyName("",oSheet) + BigRange.InsertbyName("",oSheet) BigEnum = BigRange.GetCells.CreateEnumeration While BigEnum.hasmoreElements oCell = BigEnum.NextElement @@ -147,7 +147,7 @@ Dim n as Integer oNotes = oSheet.getAnnotations If oNotes.hasElements() then MakeLogHeadLine(HeaderLine) - For n = 0 to oNotes.Count-1 + For n = 0 to oNotes.Count-1 WriteStringtoLogFile(oNotes.GetbyIndex(n).String) Next End if @@ -185,7 +185,7 @@ Dim i as integer Dim oCellNames() Dim oCell as Object - MakeLogHeadLine(HeadLine) + MakeLogHeadLine(HeadLine) ParaEnum = oParaObject.Text.CreateEnumeration While ParaEnum.HasMoreElements @@ -220,7 +220,7 @@ Dim i as Integer Dim aChartObject as Object Dim aChartDiagram as Object - MakeLogHeadLine(HeaderLine) + MakeLogHeadLine(HeaderLine) For i = 0 to oSheet.Charts.Count-1 aChartObject = oSheet.Charts.GetByIndex(i).EmbeddedObject @@ -263,7 +263,7 @@ Dim oFrameTextPort as Object oTextFrame = oDocument.TextFrames.GetbyIndex(i) WriteStringToLogFile(oTextFrame.Name) - ' Is the frame bound to the Page + ' Is the frame bound to the Page If oTextFrame.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE Then GetParagraphTexts(oTextFrame, "Textframe Content") End If @@ -338,14 +338,14 @@ End Sub Sub GetWriterStrings() GetParagraphTexts(oDocument, "Document Body") - GetGraphicNames() + GetGraphicNames() GetStyles() - GetControlStrings(oDocument.DrawPage, "Controls") + GetControlStrings(oDocument.DrawPage, "Controls") GetTextFieldStrings() GetSectionNames() GetFrameTexts() GetHyperLinks - GetLinkedFileNames() + GetLinkedFileNames() End Sub @@ -363,9 +363,9 @@ Dim oPage as Object ' Get the Name of the NotesPage (only relevant for Impress-Documents) If oDocument.supportsService("com.sun.star.presentation.PresentationDocument") then WriteStringtoLogFile(oPage.NotesPage.Name) - End If + End If End If - Next + Next End Sub @@ -401,7 +401,7 @@ Dim oDPages, oMPages as Object GetDrawPageTitles(oDPages) GetDrawPageTitles(oMPages) - MakeLogHeadLine("Document Body") + MakeLogHeadLine("Document Body") GetPageStrings(oDPages) GetPageStrings(oMPages) End Sub @@ -467,7 +467,7 @@ End Sub Sub GetStyles() Dim m,n as integer MakeLogHeadLine("Userdefined Templates") - + ' Check all StyleFamilies(i.e. PageStyles, ParagraphStyles, CharacterStyles, cellStyles) For n = 0 to oDocument.StyleFamilies.Count - 1 For m = 0 to oDocument.StyleFamilies.getbyIndex(n).Count-1 @@ -482,7 +482,7 @@ End Sub Sub GetControlStrings(oDPage as Object, HeaderLine as String) Dim aForm as Object Dim m,n as integer - MakeLogHeadLine(HeaderLine) + MakeLogHeadLine(HeaderLine) 'SearchFor all possible Controls For n = 0 to oDPage.Forms.Count - 1 aForm = oDPage.Forms(n) @@ -541,12 +541,12 @@ End Sub 'Dim LeaveLoop as Boolean ' oSearchDesc = oDocument.createSearchDescriptor() -' oSearchDesc.SearchRegularExpression = True -' oSearchDesc.Searchstring = SearchString & """" & "*" & """" -' oFoundall = oDocument.FindAll(oSearchDesc) +' oSearchDesc.SearchRegularExpression = True +' oSearchDesc.Searchstring = SearchString & """" & "*" & """" +' oFoundall = oDocument.FindAll(oSearchDesc) ' For i = 0 to oFoundAll.Count-1 -' oFound = oFoundall(i) +' oFound = oFoundall(i) ' oTextCursor = oDocument.text.CreateTextCursorbyRange(oFound) ' oTextCursor.GotoNextWord(false) ' oTextCursor.GotoStartofWord(True) @@ -555,7 +555,7 @@ End Sub ' If Left(TTString,1) = """" Then ' LeaveLoop = False ' oTextCursor.GoRight(1,True) -' Do +' Do ' oTextCursor.GoRight(1,True) ' TTString = TTString + Right(oTextCursor.String,1) ' If Right(oTextCursor.String,1) = """" Then @@ -579,7 +579,7 @@ End Sub ' FileProperties(0).Value = "swriter: TEXT" ' FilePath = oDocument.URL ' oDocument.Dispose -' +' ' oDocument = OpenDocument(FilePath,FileProperties(),StarDesktop) '!!!!!!! ' ' MakeLogHeadLine("Alternativtexte") @@ -606,7 +606,7 @@ Dim oDisp as Object oUrl.Complete = "slot:6517" oTrans.parsestrict(oUrl) - oDisp = StarDesktop.currentFrame.queryDispatch(oUrl, "_self", 0) + oDisp = StarDesktop.currentFrame.queryDispatch(oUrl, "_self", 0) oDisp.dispatch(oUrl, oArg()) End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/gimmicks/ReadDir.xba b/wizards/source/gimmicks/ReadDir.xba index 806188cc4..60863caf5 100644 --- a/wizards/source/gimmicks/ReadDir.xba +++ b/wizards/source/gimmicks/ReadDir.xba @@ -38,8 +38,8 @@ Public oOldArrivingLine As Object Sub Main - LoadLibrary("tools") - LoadLibrary("template") + BasicLibraries.LoadLibrary("Tools") + BasicLibraries.LoadLibrary("Template") ReadDirDlg.Load ReadDirDlg.Show End Sub @@ -54,7 +54,7 @@ Dim oPage As Object Dim oOldPage As Object Dim i, n, s as Integer Dim bStartUpRun As Boolean -Dim FileNames(600,2) as String +Dim FileNames(600,2) as String Dim CurFile as String Dim BaseLevel as Integer Dim oController as Object @@ -67,25 +67,25 @@ Dim oStatusline as Object nOldX = SBPAGEX nOldWidth = SBPAGEX iCurPage = 0 - + oDesktop = createUnoService("com.sun.star.frame.Desktop") oDocument = StarDesktop.ActiveFrame.Controller.Model oPage = oDocument.DrawPages(iCurPage) oStatusline = oDocument.GetCurrentController.GetFrame.GetStatusIndicator oStatusLine.Start("Fortschritt:",100) oController = oDocument.GetCurrentController - Source = ConvertToURL(ReadDirdlg.Textbox1.Text) + Source = ConvertToURL(ReadDirdlg.Textbox1.Text) BaseLevel = CountCharsInString(Source, "/", 1) - oStatusline.SetValue(2) + oStatusline.SetValue(2) FileNames() = ReadSourceDirectory(Source) oStatusline.SetValue(8) FileNames() = BubbleSortList(FileNames()) oStatusline.SetValue(10) - + FileCount = Val(FileNames(0,0)) For i = 1 To FileCount - oStatusLine.SetValue(10 + i/FileCount * 90) + oStatusLine.SetValue(10 + i/FileCount * 90) CurFile = FileNames(i,1) iCurLevel= CountCharsInString(FileNames(i,0), "/", 1) - BaseLevel If iCurLevel <> 0 Then @@ -117,11 +117,11 @@ REM ck SBNEWENDX, SBNEWENDY) REM The Current TextShape has To be connected with a TextShape REM one Level higher -REM - except For a TextShape In Level 0 +REM - except For a TextShape In Level 0 REM Line Coordinates - If Not bStartUpRun Then - + If Not bStartUpRun Then + REM A leaving Line Is only drawn when level is not 0 If iCurLevel<> 0 Then REM Determine the Coordinates of the arriving Line @@ -137,7 +137,7 @@ REM Determine the End-Coordinates of the last leaving Line iLevelPos(nConnectLevel,SBNEWENDX) = iLevelPos(nConnectLevel,SBNEWSTARTX) iLevelPos(nConnectLevel,SBNEWENDY) = oCurTextShape.Position.Y + 0.5 * oCurTextShape.Size.Height Else -REM On Level 0 the last Leaving Line's endpoint +REM On Level 0 the last Leaving Line's endpoint REM is the upper edge of the textShape iLevelPos(nConnectLevel,SBNEWENDY) = oCurTextShape.Position.Y iLevelPos(nConnectLevel,SBNEWENDX) = iLevelPos(nConnectLevel,SBNEWSTARTX) @@ -152,7 +152,7 @@ REM StartingPoint of the leaving edge REM Determine the beginning Coordinates of the leaving Line iLevelPos(iCurLevel,SBNEWSTARTX) = iLevelPos(iCurLevel,SBBASEX) + 0.5 * oCurTextShape.Size.Width iLevelPos(iCurLevel,SBNEWSTARTY) = iLevelPos(iCurLevel,SBBASEY) + oCurTextShape.Size.Height - + REM Save the values For the Next run nOldHeight = oCurTextShape.Size.Height nOldX = oCurTextShape.Position.X @@ -174,11 +174,11 @@ Dim PageWidth, BaseX, TextWidth Dim aPoint As New com.sun.star.awt.Point Dim aSize As New com.sun.star.awt.Size - aSize.Width = SBBASEWIDTH - aSize.Height = SBBASEHEIGHT + aSize.Width = SBBASEWIDTH + aSize.Height = SBBASEHEIGHT aPoint.x = CalculateXPoint() - aPoint.y = nOldY + SBRELDIST * nOldHeight + aPoint.y = nOldY + SBRELDIST * nOldHeight nOldY = aPoint.y oTextShape = oDocument.createInstance("com.sun.star.drawing.TextShape") @@ -187,7 +187,7 @@ Dim aSize As New com.sun.star.awt.Size oPage.add(oTextShape) oTextShape.LineStyle = 1 - oTextShape.Charheight = SBBASECHARHEIGHT + oTextShape.Charheight = SBBASECHARHEIGHT oTextShape.TextAutoGrowWidth = TRUE oTextShape.TextAutoGrowHeight = TRUE oTextShape.String = FileName @@ -206,7 +206,7 @@ REM Configure Size And Position of the TextShape according to its Scripting End If oTextShape.Size = aSize iLevelPos(iCurLevel,SBBASEY) = oTextShape.Position.Y - CreateTextShape = oTextShape + CreateTextShape = oTextShape End Function @@ -227,7 +227,7 @@ End Function -Function DrawLine(nLevel, nStartX, nStartY, nEndX, nEndY As Integer, oPage as Object) +Function DrawLine(nLevel, nStartX, nStartY, nEndX, nEndY As Integer, oPage as Object) Dim oConnect As Object aPoint.X = iLevelPos(nLevel,nStartX) @@ -262,14 +262,14 @@ Dim FileName as string Dim FileNameList(2000,1) as String Dim DirList(200) as String Dim oUCBobject as Object - + oUcbobject = createUnoService("com.sun.star.ucb.SimpleFileAccess") 'isfolder m = 0 s = 1 DirList(0) = Source - FileNameList(1,0) = Source - FileNameList(1,1) = GetFileNameoutofPath(Source) + FileNameList(1,0) = Source + FileNameList(1,1) = GetFileNameoutofPath(Source) n = 2 Do Source = DirList(m) @@ -282,7 +282,7 @@ Dim oUCBobject as Object For i = 0 to FilecountinDir -1 FileName = DirContent(i) FilenameList(n,0) = FileName - FileNameList(n,1) = GetFileNameOutofPath(FileName) + FileNameList(n,1) = GetFileNameOutofPath(FileName) n = n + 1 If oUcbObject.IsFolder(FileName) Then DirList(s) = FileName @@ -295,4 +295,4 @@ Dim oUCBobject as Object FileNameList(0,0) = n - 1 ReadSourceDirectory = FileNameList() End Function -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/gimmicks/Userfields.xba b/wizards/source/gimmicks/Userfields.xba index de7f789d7..c9fd0e374 100644 --- a/wizards/source/gimmicks/Userfields.xba +++ b/wizards/source/gimmicks/Userfields.xba @@ -17,7 +17,7 @@ Sub StartChangesUserfields Dim a as Integer Dim CurElement, TFMaster as Object - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") LoadLanguage(StarDesktop.ISOLocale.Language) ScrollBarValue = 0 UserFieldDatatype(0) = "COMPANY" @@ -32,9 +32,9 @@ Dim CurElement, TFMaster as Object UserFieldDatatype(9) = "POSITION" UserFieldDatatype(10) = "PHONE_PRIVATE" UserFieldDatatype(11) = "PHONE_COMPANY" - UserFieldDatatype(12) = "FAX" - UserFieldDatatype(13) = "EMAIL" - UserFieldDatatype(14) = "STATE" + UserFieldDatatype(12) = "FAX" + UserFieldDatatype(13) = "EMAIL" + UserFieldDatatype(14) = "STATE" On Local Error GoTo NODOCUMENT oDocument = StarDesktop.ActiveFrame.Controller.Model @@ -45,7 +45,7 @@ Dim CurElement, TFMaster as Object Exit Sub End If On Local Error Goto 0 - + ' Define TextFields aTextfield = oDocument.getTextfields aTextFieldEnum = aTextField.CreateEnumeration @@ -111,14 +111,14 @@ End Sub Sub Dlg_Scroll(ScrollValue) Call ChangeArray(ScrollBarValue) - ScrollBarValue = UserfieldDlg.VScrollbar.Value + ScrollBarValue = UserfieldDlg.VScrollbar.Value If (ScrollBarValue + MaxFieldCount) > iUserFieldCount Then ScrollBarValue = iUserFieldCount - MaxFieldCount End If For a = 1 To MaxFieldCount LabelArray(a).Caption = UserFieldName(a + ScrollBarValue) - EditArray(a).Text = UserFieldValue(a + ScrollBarValue) + EditArray(a).Text = UserFieldValue(a + ScrollBarValue) Next a End Sub @@ -191,6 +191,6 @@ Sub SetDialogText UserfieldDlg.caption = HeaderLabel UserfieldDlg.HeaderLabel.Caption = HeaderLabel UserfieldDlg.CancelChanges.Caption = CancelButton - UserfieldDlg.SaveChanges.Caption = SaveButton + UserfieldDlg.SaveChanges.Caption = SaveButton End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/importwizard/Main.xba b/wizards/source/importwizard/Main.xba index 856a7b74f..019aec152 100644 --- a/wizards/source/importwizard/Main.xba +++ b/wizards/source/importwizard/Main.xba @@ -10,7 +10,7 @@ Public ImportDialog as Object Public ImportDialogArea as Object Sub Main - LoadLibrary("Tools") + BasicLibraries.LoadLibrary("Tools") sCRLF = CHR(10) & CHR(13) oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") If Not bDebugWizard Then @@ -36,7 +36,7 @@ End Sub Sub SetStates - With ImportDialog + With ImportDialog .OptSODocuments.State = 1 .OptMSDocuments.State = 0 .TemplateCheckbox.State = 1 @@ -221,4 +221,4 @@ End Sub Function ControlStateToBool(iState) ControlStateToBool = (Val(iState) = 1) End Function -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/schedule/CalendarMain.xba b/wizards/source/schedule/CalendarMain.xba index 845416371..50ade34b2 100644 --- a/wizards/source/schedule/CalendarMain.xba +++ b/wizards/source/schedule/CalendarMain.xba @@ -70,14 +70,14 @@ Public CONST CalBLThueringen = 16 Sub CalAutopilotTable() ' On Error Goto ErrorHandler - Application.LoadLibrary("tools") + Application.BasicLibraries.LoadLibrary("Tools") ' HauptRoutine zur Erstellung des Kalenders Set DlgBuffer = DlgCalendar DlgBuffer.Load() sCurLangLocale = StarDesktop.ISOLocale.Language LoadLanguage(sCurLangLocale) - ' Da modulübergreifende Variablen unsicher sind, + ' Da modulübergreifende Variablen unsicher sind, ' wird ihre Initialisierung noch einmal explizit ' angegeben. CalInitGlobalVariablesDate() @@ -102,7 +102,7 @@ Sub CalAutopilotTable() DlgBuffer.cmbState.ListIndex = 0 DlgBuffer.CurrentStep = 1 - + DlgBuffer.Show() Exit Sub @@ -116,7 +116,7 @@ Sub CalChooseCalendar() DlgBuffer.txtYear.Enabled = True DlgBuffer.spinButton1.Enabled = True DlgBuffer.cmbState.Enabled = True - + DlgBuffer.txtMonth.Enabled = DlgBuffer.optMonth.Value DlgBuffer.lblMonth.Enabled = DlgBuffer.optMonth.Value DlgBuffer.spinButton3.Enabled = DlgBuffer.optMonth.Value @@ -147,12 +147,12 @@ Sub CalCmdOk() End If End If - oDocument = StarDesktop.ActiveFrame.Controller.Model + oDocument = StarDesktop.ActiveFrame.Controller.Model oSheets = oDocument.sheets - If CalOwnDataChanged% Then + If CalOwnDataChanged% Then Call CalSaveOwnData() End If - + ' Unprotect all tables so they can be deleted or modified For i = 0 To oSheets.Count - 1 oSheets.GetbyIndex(i).unprotect("") @@ -188,14 +188,14 @@ Sub CalCmdOk() Call CalInsertOwnDataInTables(iSelYear) oStatusline = oDocument.GetCurrentController.GetFrame.GetStatusIndicator - - If optYear.Value Then + + If optYear.Value Then oSheets.RemovebyName(oSheets.GetbyIndex(0).Name) oSheet = oSheets.GetbyIndex(0) oSheet.Name = sCalendarTitle$ + " " + txtYear.Text oDocument.AddActionLock Call CalCreateYearTable(iSelYear) - ElseIf optMonth.Value Then + ElseIf optMonth.Value Then oSheets.RemovebyName(oSheets.GetbyIndex(1).Name) oSheet = oSheets.GetbyIndex(0) oSheet.Name = sMonthTitle$ + " " + cCalLongMonthNames$(CalGetIntOfShortMonthName%(txtMonth.Text)) @@ -209,4 +209,4 @@ Sub CalCmdOk() oStatusLine.End DlgBuffer.Unload() End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/template/Autotext.xba b/wizards/source/template/Autotext.xba index 96037115d..14b74d3ef 100644 --- a/wizards/source/template/Autotext.xba +++ b/wizards/source/template/Autotext.xba @@ -6,7 +6,7 @@ Public BulletList(7) as Integer Sub Main() ' Initialization... - LoadLibrary("Tools") + BasicLibraries.LoadLibrary("Tools") UserfieldDatatype(0) = "COMPANY" UserfieldDatatype(1) = "FIRSTNAME" @@ -135,4 +135,4 @@ Dim MaxIndex as Integer End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba index 9a8883efd..27299a7fc 100644 --- a/wizards/source/template/Correspondence.xba +++ b/wizards/source/template/Correspondence.xba @@ -10,7 +10,7 @@ Public DialogExited Public oDocument, oText, oBookMarks, oBookMark, oBookMarkCursor, oBookText as Object Sub Main - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") TemplateDialog = LoadDialog("Template", "TemplateDialog") DialogModel = TemplateDialog.Model DialogModel.Step = 2 @@ -54,13 +54,13 @@ Dim oFields as Object msgError$ = GetResText(1302) DialogModel.Title = GetResText(1303) DialogModel.CmdCancel.Label = GetResText(1102) - DialogModel.CmdCorrGoOn.Label = GetResText(1103) + DialogModel.CmdCorrGoOn.Label = GetResText(1103) DialogModel.OptSingle.Label = GetResText(1303 + 1) DialogModel.Optmerge.Label = GetResText(1303 + 2) LoadLanguageCorrespondence() = True Else -' Todo: Meldung, was Passiert wenn Datenbank nicht angelegt werden konnte - LoadLanguageCorrespondence() = False +' Todo: Meldung, was Passiert wenn Datenbank nicht angelegt werden konnte + LoadLanguageCorrespondence() = False End If End Function @@ -209,7 +209,7 @@ Dim oDisp as Object oUrl.Complete = "slot:6517" oTrans.parsestrict(oUrl) - oDisp = StarDesktop.currentFrame.queryDispatch(oUrl, "_self", 0) + oDisp = StarDesktop.currentFrame.queryDispatch(oUrl, "_self", 0) oDisp.dispatch(oUrl, oArg()) End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba index d02e2da42..9c71f04d6 100644 --- a/wizards/source/template/Samples.xba +++ b/wizards/source/template/Samples.xba @@ -50,7 +50,7 @@ Dim mFileProperties(0) as New com.sun.star.beans.PropertyValue oNewDocument = StarDesktop.LoadComponentFromURL(DocPath,"_blank",0, mFileProperties()) PrepareForEditing() = oNewDocument ' If IsFatOffice() Then - ' If opened within a FatOffice Environment close doc. + ' If opened within a FatOffice Environment close doc. ' Note: Due to a bug in Web office it is not possible to close the doc there oDocument.Dispose() ' End If @@ -75,7 +75,7 @@ Dim sFilterName(0) as String Dim StyleNames() as String Dim t as Integer Dim MaxIndex as Integer - LoadLibrary("Tools") + BasicLibraries.LoadLibrary("Tools") If InitResources("'Template'", "tpl") then oDocument = StarDesktop.ActiveFrame.Controller.Model If oDocument.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then @@ -176,4 +176,4 @@ Sub KillTempFile() End If End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index 5009db1ab..c7c3be6e9 100644 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -42,7 +42,7 @@ Public DialogModel as Object Sub Main 'On Local Error Goto GlobalErrorHandler - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") oBaseDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter/web", "_blank", 0, NoArgs()) oViewSettings = oBaseDocument.CurrentController.ViewSettings @@ -65,7 +65,7 @@ Sub Main oCursor = oBasedocument.Text.CreateTextCursor oCursor.InsertDocumentfromURL(FileStr, NoArgs()) SetProgressValue(40) - DialogModel.optTiled.State = 1 + DialogModel.optTiled.State = 1 NumberofStyles = FillupWebListbox(oUcb, "/stl", MainDialog, "lbStyles", Style()) SetProgressValue(50) LoadWebPageStyles(oBaseDocument) @@ -82,7 +82,7 @@ GLOBALERRORHANDLER: End Sub -Function SetProgressValue(iValue as Integer) +Function SetProgressValue(iValue as Integer) If iValue = 0 Then ProgressBar.End End If @@ -104,7 +104,7 @@ Dim CurInd as Integer oCursor.GotoEnd(True) oCursor.InsertDocumentfromURL(FileStr, NoArgs()) SetBulletAndGraphics - CheckControls(oBaseDocument.DrawPage) + CheckControls(oBaseDocument.DrawPage) ErrorOcurred: If Err <> 0 Then MsgBox(WebWiz_gErrWhileReloading$, 16, WebWiz_gWizardName$) @@ -135,7 +135,7 @@ Dim CurIndex as Integer End With SetBulletAndGraphics() CheckControls(oBaseDocument.DrawPage) - oViewCursor.GotoStart(False) + oViewCursor.GotoStart(False) oBaseDocument.UnlockControllers ToggleWindow(True) End Sub @@ -195,7 +195,7 @@ End Sub Sub EndDialog() If DialogModel.chkSaveasTemplate.State = 1 Then ' Generating template? Set events later! - AttachBasicMacroToEvent(oBaseDocument,"OnNew", "WebWizard.HtmlAutoPilotBasic.SetEvent()") + AttachBasicMacroToEvent(oBaseDocument,"OnNew", "WebWizard.HtmlAutoPilotBasic.SetEvent()") ' Call the Store template dialog DispatchSlot(5538) Else @@ -220,10 +220,10 @@ Dim oDocument as Object ' from the AutoPilot or from a template. It is not possible to set these ' links for the template created by the AutoPilot because then it is not ' possible to modify the template. - LoadLibrary("tools") + BasicLibraries.LoadLibrary("tools") oDocument = StarDesktop.ActiveFrame.Controller.Model - AttachBasicMacroToEvent(oDocument,"OnSaveDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()") - AttachBasicMacroToEvent(oDocument,"OnSaveAsDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()") + AttachBasicMacroToEvent(oDocument,"OnSaveDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()") + AttachBasicMacroToEvent(oDocument,"OnSaveAsDone", "WebWizard.HtmlAutoPilotBasic.CopyGraphics()") End Sub @@ -236,13 +236,13 @@ Dim i as Integer Dim GraphicFilePath as String Dim SavePath$ Dim GraphicFileName as String - LoadLibrary("tools") - GetPaths() + BasicLibraries.LoadLibrary("tools") + GetPaths() oBaseDocument = StarDesktop.ActiveFrame.Controller.Model Msgbox oBaseDocument.Url SavePath = oBaseDocument.Url oGraphicObjects = oBaseDocument.GraphicObjects - + For i = 0 to oGraphicObjects.Count-1 oGraphic = oGraphicObjects.GetbyIndex(i) GraphicFilePath = oGraphic.GraphicURL @@ -255,7 +255,7 @@ Dim GraphicFileName as String FileCopy BulletDir & GraphicFileName, SavePath & GraphicFileName SetBulletGraphics(GraphicFileName) - + ' ' Copy background graphic ' If ActiveWindow.Page.GrfFilename<>"" Then ' ' Set new background graphic @@ -298,11 +298,11 @@ Dim a as Integer Dim SelList(0) as Integer Dim LocMaxIndex as Integer oListboxControl = oDialog.GetControl(ListboxName) - + oDocInfo = createUnoService("com.sun.star.document.StandaloneDocumentInfo") FilterLen = Len(sFileFilter) bItemFound = False - TemplatePath = GetOfficeSubPath("Template", "wizard/web/") + TemplatePath = GetOfficeSubPath("Template", "wizard/web/") DirContent() = oUcb.GetFolderContents(TemplatePath,True) LocMaxIndex = Ubound(DirContent()) a = 0 @@ -385,7 +385,7 @@ Dim oNewBuffer(1) as New com.sun.star.beans.PropertyValue oLevel() = oRules.GetByIndex(n) bDoReplace = ModifyPropertyValue(oLevel(), oNumberingBuffer()) If bDoReplace Then - oRules.ReplaceByIndex(n, oNumberingBuffer()) + oRules.ReplaceByIndex(n, oNumberingBuffer()) End If Next n oBookmarkCursor.NumberingRules = oRules @@ -394,7 +394,7 @@ Dim oNewBuffer(1) as New com.sun.star.beans.PropertyValue oNewBuffer(1).Name = "GraphicSize" oSize.Height = 300 oSize.Width = 300 - oNewBuffer(1).Value = oSize + oNewBuffer(1).Value = oSize For n = 0 To oRules.Count - 1 oLevel() = oRules.GetByIndex(0) bDoReplace = ModifyPropertyValue(oLevel(), oNewBuffer()) @@ -444,7 +444,7 @@ Dim BackGroundURL as String Dim oBackGraph as Object Dim i, BackColor as Long Dim oFamilies as Object, oFamily as Object, oStyle as Object -Dim StylesOptions(0) as New com.sun.star.beans.PropertyValue +Dim StylesOptions(0) as New com.sun.star.beans.PropertyValue If SourceFile <> "" Then StylesOptions(0).Name = "OverwriteStyles" @@ -463,7 +463,7 @@ Dim StylesOptions(0) as New com.sun.star.beans.PropertyValue End If oFamilies = oDocument.StyleFamilies oFamily = oFamilies.GetbyName("PageStyles") -' oStyle = oDocument.StyleFamilies.GetByName("PageStyles").GetByName("Standard") +' oStyle = oDocument.StyleFamilies.GetByName("PageStyles").GetByName("Standard") For i = 0 To oFamily.Count - 1 If oFamily.GetByIndex(i).IsInUse Then oStyle = oFamily.GetbyIndex(i) @@ -510,7 +510,7 @@ Dim oLocDocument as Object oFamilies = oLocDocument.StyleFamilies oFamily = oFamilies.GetbyName("PageStyles") For i = 0 To oFamily.Count - 1 - If oFamily.GetByIndex(i).IsInUse Then + If oFamily.GetByIndex(i).IsInUse Then oStyle = oFamily.GetbyIndex(i) If oStyle.PropertySetInfo.HasPropertybyName("BackGraphicURL") Then oStyle.BackGraphicLocation = iBackgroundValue @@ -529,4 +529,4 @@ Sub SetTileBackgroundorNot(DialogModel as Object, oStyle as Object) End If End Sub -</script:module>
\ No newline at end of file +</script:module> |