diff options
Diffstat (limited to 'smoketestoo_native/data/Test_10er.xml')
| -rw-r--r-- | smoketestoo_native/data/Test_10er.xml | 284 |
1 files changed, 142 insertions, 142 deletions
diff --git a/smoketestoo_native/data/Test_10er.xml b/smoketestoo_native/data/Test_10er.xml index 636dc2129120..5563ce1b4894 100644 --- a/smoketestoo_native/data/Test_10er.xml +++ b/smoketestoo_native/data/Test_10er.xml @@ -91,7 +91,7 @@ Sub DeleteAllSavedFiles() sFileName = sWorkPath+cTempFileName+"."+GetDocEndings(frmDraw or cFltXML) If FileExists (sFileName) then Kill (sFileName) - End If + End If sFileName = sWorkPath+cTempFileName+"."+GetDocEndings(frmWriter or cFlt50) If FileExists (sFileName) then Kill (sFileName) @@ -119,22 +119,22 @@ Sub DeleteAllLogFiles() End If If FileExists (sWorkPath+sSCLogFileName) then Kill (sWorkPath+sSCLogFileName) - End If + End If If FileExists (sWorkPath+sSDLogFileName) then Kill (sWorkPath+sSDLogFileName) - End If + End If If FileExists (sWorkPath+sSMathLogFileName) then Kill (sWorkPath+sSMathLogFileName) - End If + End If If FileExists (sWorkPath+sSImDLogFileName) then Kill (sWorkPath+sSImDLogFileName) - End If + End If If FileExists (sWorkPath+sSChartLogFileName) then Kill (sWorkPath+sSChartLogFileName) - End If + End If If FileExists (sWorkPath+sSHptLogFileName) then Kill (sWorkPath+sSHptLogFileName) - End If + End If If FileExists (sWorkPath+sSMessageLogFileName) then Kill (sWorkPath+sSMessageLogFileName) End If @@ -156,8 +156,8 @@ Function OpenLogDat (sFileName as String) as Integer Dim LocaleFileChannel% If FileExists (sWorkPath+sFileName) then Kill (sWorkPath+sFileName) - End If - LocaleFileChannel% = Freefile + End If + LocaleFileChannel% = Freefile Open sWorkPath+sFileName For Output As LocaleFileChannel% OpenLogDat = LocaleFileChannel% end Function @@ -201,11 +201,11 @@ DIM nStrPos as Long sWorkPath = GetWorkPath sWorkPathURL = GetWorkURL - + if GetSystem (sWorkPath) = "windows" then sWorkPath = ConvertPathToWin (sWorkPath) end if - + 'search ExtensionURL sDocURL = gOutPutDoc.URL CompatibilityMode(true) @@ -234,7 +234,7 @@ DIM nStrPos as Long end if if bMakeChartTest then call MakeChartTest (frmChart) - end if + end if if bMakeMathTest then call MakeNewDoc (frmMath) end if @@ -247,13 +247,13 @@ DIM nStrPos as Long if bMakeExtensionTest then call Test_Ext.TestExtensions (frmExtension) end if - + Close #MainFileChannel end Sub Sub WriteTestSequence (FileChannel as integer) Print #FileChannel, "Sequence of testing" - + if bMakeWriterTest then WriteTests ("writer : ", true, FileChannel) end if @@ -271,7 +271,7 @@ Sub WriteTestSequence (FileChannel as integer) end if if bMakeChartTest then WriteTests ("chart : ", false, FileChannel) - end if + end if if bMakeMathTest then WriteTests ("math : ", false, FileChannel) end if @@ -284,13 +284,13 @@ Sub WriteTestSequence (FileChannel as integer) if bMakeExtensionTest then WriteExtensionTests ("Extension : ", FileChannel) end if - + Print #FileChannel end Sub Sub WriteTests (sText as string, bTestAll as boolean, nFileChannel as integer) Dim sWriteStr as string - + sWriteStr = sText sWriteStr = sWriteStr + "new" if bTestAll then @@ -319,33 +319,33 @@ Sub WriteTests (sText as string, bTestAll as boolean, nFileChannel as integer) sWriteStr = sWriteStr + ", open 5.0" end if end if - + sWriteStr = sWriteStr + ", close" - + Print #nFileChannel, sWriteStr end Sub Sub WriteDBTests (sText as string, nFileChannel as integer) Dim sWriteStr as string - + sWriteStr = sText sWriteStr = sWriteStr + "open / services" sWriteStr = sWriteStr + ", insert" sWriteStr = sWriteStr + ", delete" sWriteStr = sWriteStr + ", seek" sWriteStr = sWriteStr + ", close" - + Print #nFileChannel, sWriteStr end Sub Sub WriteExtensionTests (sText as string, nFileChannel as integer) Dim sWriteStr as string - + sWriteStr = sText sWriteStr = sWriteStr + "services" sWriteStr = sWriteStr + ", install" sWriteStr = sWriteStr + ", uninstall" - + Print #nFileChannel, sWriteStr end Sub @@ -354,7 +354,7 @@ Sub MakeDocTest (FilterType as Integer) Dim sFileNameXML$, sFileName50$, sFileName8$ Dim bError as Boolean Dim nCurrentAction as Integer - + On Local Error GoTo DOCTESTERROR nCurrentAction = cLogfileFailed FileChannel% = OpenLogDat (GetLogFileName(FilterType)) @@ -366,7 +366,7 @@ Sub MakeDocTest (FilterType as Integer) if not IsNull (oDoc) then nCurrentAction = cDocCut call CutAndPaste(FilterType, oDoc) -' bError = oDoc.CurrentController.frame.close +' bError = oDoc.CurrentController.frame.close nCurrentAction = cDocSaveOpen8 if bMakeSaveOpen8Test and IsFilterAvailable (FilterType or cFlt8) then sFileName8 = sWorkPathURL+cTempFileName+"."+GetDocEndings(FilterType or cFlt8) @@ -381,68 +381,68 @@ Sub MakeDocTest (FilterType as Integer) if bMakeSaveOpen50Test and IsFilterAvailable (FilterType or cFlt50) then sFileName50 = sWorkPathURL+cTempFileName+"."+GetDocEndings(FilterType or cFlt50) SaveDoc (sFileName50, oDoc, GetDocFilter(FilterType or cFlt50)) - end if -' oDoc.dispose + end if +' oDoc.dispose nCurrentAction = cDocClose oDoc.close (true) -' bError = true ' nur zum ¦bergang, weil bError = oDoc.CurrentController.frame.close nicht geht -' LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, FileChannel) -' LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, MainFileChannel) -' SetStatus (FilterType, cDocClose, bError) +' bError = true ' nur zum ¦bergang, weil bError = oDoc.CurrentController.frame.close nicht geht +' LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, FileChannel) +' LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, MainFileChannel) +' SetStatus (FilterType, cDocClose, bError) nCurrentAction = cDocSaveOpen8 if bMakeSaveOpen8Test and IsFilterAvailable (FilterType or cFlt8) then oDoc = LoadDoc (sFileName8) - -' oDoc = Documents.open(sFileName) + +' oDoc = Documents.open(sFileName) LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpen8Doc, FileChannel) LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpen8Doc, MainFileChannel) SetStatus (FilterType, cDocSaveOpen8, not IsNull (oDoc)) - + if not IsNull (oDoc) then -' oDoc.dispose +' oDoc.dispose nCurrentAction = cDocClose oDoc.close (true) - end If + end If end if - + nCurrentAction = cDocSaveOpenXML if bMakeSaveOpenXMLTest and IsFilterAvailable (FilterType or cFltXML) then oDoc = LoadDoc (sFileNameXML) - -' oDoc = Documents.open(sFileName) + +' oDoc = Documents.open(sFileName) LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpenXMLDoc, FileChannel) LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpenXMLDoc, MainFileChannel) SetStatus (FilterType, cDocSaveOpenXML, not IsNull (oDoc)) - + if not IsNull (oDoc) then -' oDoc.dispose +' oDoc.dispose nCurrentAction = cDocClose oDoc.close (true) - end If + end If end if - + nCurrentAction = cDocSaveOpen50 if bMakeSaveOpen50Test and IsFilterAvailable (FilterType or cFlt50) then oDoc = LoadDoc (sFileName50) - -' oDoc = Documents.open(sFileName) + +' oDoc = Documents.open(sFileName) LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpen50Doc, FileChannel) LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpen50Doc, MainFileChannel) SetStatus (FilterType, cDocSaveOpen50, not IsNull (oDoc)) - + if not IsNull (oDoc) then -' oDoc.dispose +' oDoc.dispose nCurrentAction = cDocClose oDoc.close (true) - end If + end If end if - end If + end If Print #FileChannel, "---" Close #FileChannel% Exit Sub ' Without error - + DOCTESTERROR: - If (nCurrentAction = cLogfileFailed) then + If (nCurrentAction = cLogfileFailed) then SetStatus (FilterType, cDocNew, False) Exit Sub else @@ -450,7 +450,7 @@ Sub MakeDocTest (FilterType as Integer) LogState (False, GetDocFilter(FilterType or cFltNewDoc)+" "+ GetErrorMessage(nCurrentAction), MainFileChannel) SetStatus (FilterType, nCurrentAction, False) Close #FileChannel% - End If + End If Exit Sub ' With error End Sub @@ -462,26 +462,26 @@ Sub MakeNewDoc (FilterType as Integer) nCurrentAction = cLogfileFailed FileChannel% = OpenLogDat (GetLogFileName(FilterType)) nCurrentAction = cDocNew -' oDoc = Documents.Add(GetDocFilter(FilterType)) +' oDoc = Documents.Add(GetDocFilter(FilterType)) oDoc = LoadDoc ("private:factory/" + GetDocFilter(FilterType or cFltNewDoc)) LogState (not IsNull (oDoc), GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageNewDoc, FileChannel) LogState (not IsNull (oDoc), GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageNewDoc, MainFileChannel) SetStatus (FilterType, cDocNew, not IsNull (oDoc)) if not IsNull (oDoc) then nCurrentAction = cDocClose -' oDoc.dispose +' oDoc.dispose oDoc.close (true) -' bError = true ' nur zum ¦bergang, weil bError = oDoc.CurrentController.frame.close nicht geht -' LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, FileChannel) -' LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, MainFileChannel) -' SetStatus (FilterType, cDocClose, bError) - end If +' bError = true ' nur zum ¦bergang, weil bError = oDoc.CurrentController.frame.close nicht geht +' LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, FileChannel) +' LogState (bError, GetDocFilter(FilterType)+" "+ cMessageCloseDoc, MainFileChannel) +' SetStatus (FilterType, cDocClose, bError) + end If Print #FileChannel, "---" Close #FileChannel% Exit Sub ' Without error - + DOCTESTERROR2: - If (nCurrentAction = cLogfileFailed) then + If (nCurrentAction = cLogfileFailed) then SetStatus (FilterType, cDocNew, False) Exit Sub else @@ -489,7 +489,7 @@ Sub MakeNewDoc (FilterType as Integer) LogState (False, GetDocFilter(FilterType or cFltNewDoc)+" "+ GetErrorMessage(nCurrentAction), MainFileChannel) SetStatus (FilterType, nCurrentAction, False) Close #FileChannel% - End If + End If Exit Sub ' With error End Sub @@ -513,7 +513,7 @@ Sub MakeChartTest (FilterType as Integer) LogState (bError, GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageNewDoc, FileChannel) LogState (bError, GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageNewDoc, MainFileChannel) SetStatus (FilterType, cDocNew, bError) -' oDoc.dispose +' oDoc.dispose nCurrentAction = cDocClose oDoc.close (true) else @@ -524,9 +524,9 @@ Sub MakeChartTest (FilterType as Integer) Print #FileChannel, "---" Close #FileChannel% Exit Sub ' Without error - + CHARTTESTERROR: - If (nCurrentAction = cLogfileFailed) then + If (nCurrentAction = cLogfileFailed) then SetStatus (FilterType, cDocNew, False) Exit Sub else @@ -534,7 +534,7 @@ Sub MakeChartTest (FilterType as Integer) LogState (False, GetDocFilter(FilterType or cFltNewDoc)+" "+ GetErrorMessage(nCurrentAction), MainFileChannel) SetStatus (FilterType, nCurrentAction, False) Close #FileChannel% - End If + End If Exit Sub ' With error End Sub @@ -543,17 +543,17 @@ Sub LogState (bState as Boolean, sText as String, nLocaleFileChannel as integer) Print #nLocaleFileChannel, sText+" -> ok" else Print #nLocaleFileChannel, sText+" -> error" - end If + end If end Sub Function GetDocEndings (DocType as Integer) as String Select Case ( DocType ) case frmWriter or cFlt8 - GetDocEndings = "odt" ' Textdokument + GetDocEndings = "odt" ' Textdokument case frmCalc or cFlt8 - GetDocEndings = "ods" 'Tabellendokument + GetDocEndings = "ods" 'Tabellendokument case frmImpress or cFlt8 - GetDocEndings = "odp" 'PrÕsentation + GetDocEndings = "odp" 'PrÕsentation case frmDraw or cFlt8 GetDocEndings = "odg" 'Zeichen case frmHyperText, frmHyperText or cFlt50, frmHyperText or cFltXML @@ -567,42 +567,42 @@ Function GetDocEndings (DocType as Integer) as String case frmDraw or cFlt50 GetDocEndings = "sda" 'Zeichen 5.0 case frmWriter or cFltXML - GetDocEndings = "sxw" ' Textdokument + GetDocEndings = "sxw" ' Textdokument case frmCalc or cFltXML - GetDocEndings = "sxc" 'Tabellendokument + GetDocEndings = "sxc" 'Tabellendokument case frmImpress or cFltXML - GetDocEndings = "sxi" 'PrÕsentation + GetDocEndings = "sxi" 'PrÕsentation case frmDraw or cFltXML GetDocEndings = "sxd" 'Zeichen case else GetDocEndings = "" - end Select + end Select end Function Function GetDocFilter (DocType as Integer) as String Select Case ( DocType ) - case frmWriter or cFlt8 - GetDocFilter = "writer8" ' Textdokument + case frmWriter or cFlt8 + GetDocFilter = "writer8" ' Textdokument case frmCalc or cFlt8 - GetDocFilter = "calc8" 'Tabellendokument + GetDocFilter = "calc8" 'Tabellendokument case frmImpress or cFlt8 - GetDocFilter = "impress8" 'Präsentation + GetDocFilter = "impress8" 'Präsentation case frmDraw or cFlt8 GetDocFilter = "draw8" 'Zeichen case frmMath or cFlt8 GetDocFilter = "math8" 'Formel - + case frmWriter or cFltXML - GetDocFilter = "StarOffice XML (Writer)" ' Textdokument + GetDocFilter = "StarOffice XML (Writer)" ' Textdokument case frmCalc or cFltXML - GetDocFilter = "StarOffice XML (Calc)" 'Tabellendokument + GetDocFilter = "StarOffice XML (Calc)" 'Tabellendokument case frmImpress or cFltXML - GetDocFilter = "StarOffice XML (Impress)" 'Präsentation + GetDocFilter = "StarOffice XML (Impress)" 'Präsentation case frmDraw or cFltXML GetDocFilter = "StarOffice XML (Draw)" 'Zeichen case frmMath or cFltXML - GetDocFilter = "StarOffice XML (Math)" 'Formel - + GetDocFilter = "StarOffice XML (Math)" 'Formel + case frmHyperText, frmHyperText or cFlt50, frmHyperText or cFltXML GetDocFilter = "HTML" 'Hypertext-Dokument case frmWriter or cFlt50 @@ -615,69 +615,69 @@ Function GetDocFilter (DocType as Integer) as String GetDocFilter = "StarDraw 5.0" 'Zeichen 5.0 case frmMath or cFlt50 GetDocFilter = "StarMath 5.0" 'Formel 5.0 - + case frmWriter or cFltNewDoc - GetDocFilter = "swriter" ' Textdokument + GetDocFilter = "swriter" ' Textdokument case frmCalc or cFltNewDoc - GetDocFilter = "scalc" 'Tabellendokument + GetDocFilter = "scalc" 'Tabellendokument case frmMessage or cFltNewDoc - GetDocFilter = "Message" 'Nachricht + GetDocFilter = "Message" 'Nachricht case frmImpress or cFltNewDoc - GetDocFilter = "simpress" 'Präsentation + GetDocFilter = "simpress" 'Präsentation case frmDraw or cFltNewDoc GetDocFilter = "sdraw" 'Zeichen case frmMath or cFltNewDoc - GetDocFilter = "smath" 'Formel + GetDocFilter = "smath" 'Formel case frmImage or cFltNewDoc - GetDocFilter = "simage" 'Bild + GetDocFilter = "simage" 'Bild case frmHyperText or cFltNewDoc GetDocFilter = "swriter/web" 'Hypertext-Dokument case frmChart or cFltNewDoc - GetDocFilter = "schart" 'Diagramm + GetDocFilter = "schart" 'Diagramm case else GetDocFilter = "" - end Select + end Select end Function Function GetLogFileName (DocType as Integer) as String Select Case ( DocType ) - case frmWriter - GetLogFileName = sSWLogFileName ' Textdokument + case frmWriter + GetLogFileName = sSWLogFileName ' Textdokument case frmCalc - GetLogFileName = sSCLogFileName 'Tabellendokument + GetLogFileName = sSCLogFileName 'Tabellendokument case frmMessage - GetLogFileName = sSMessageLogFileName 'Nachricht + GetLogFileName = sSMessageLogFileName 'Nachricht case frmImpress - GetLogFileName = sSDLogFileName 'PrÕsentation + GetLogFileName = sSDLogFileName 'PrÕsentation case frmDraw GetLogFileName = sSDrawLogFileName 'Zeichnen case frmMath - GetLogFileName = sSMathLogFileName 'Formel + GetLogFileName = sSMathLogFileName 'Formel case frmImage - GetLogFileName = sSImDLogFileName 'Bild + GetLogFileName = sSImDLogFileName 'Bild case frmHyperText - GetLogFileName = sSHptLogFileName 'Hypertext-Dokument + GetLogFileName = sSHptLogFileName 'Hypertext-Dokument case frmChart - GetLogFileName = sSChartLogFileName 'Diagramm + GetLogFileName = sSChartLogFileName 'Diagramm case frmJava GetLogFileName = sJavaLogFileName 'Java case frmDataBase - GetLogFileName = sSDBLogFileName 'Database + GetLogFileName = sSDBLogFileName 'Database case frmExtension - GetLogFileName = sExtLogFileName 'Extension + GetLogFileName = sExtLogFileName 'Extension case else GetLogFileName = "" - end Select + end Select end Function Function GetErrorMessageOnAction (nAction as Integer) as String Select Case ( nAction ) - case cDocNew - GetErrorMessageOnAction = cMessageNewDoc + case cDocNew + GetErrorMessageOnAction = cMessageNewDoc case cDocCut - GetErrorMessageOnAction = cMessageCutObj + GetErrorMessageOnAction = cMessageCutObj case cDocPaste - GetErrorMessageOnAction = cMessagePasteObj + GetErrorMessageOnAction = cMessagePasteObj case cDocSaveOpen8 GetErrorMessageOnAction = cMessageSaveOpen8Doc case cDocSaveOpenXML @@ -688,7 +688,7 @@ Function GetErrorMessageOnAction (nAction as Integer) as String GetErrorMessageOnAction = cMessageCloseDoc case else GetErrorMessageOnAction = "" - end Select + end Select end Function Function IsFilterAvailable (FilterType as Integer) as boolean @@ -705,10 +705,10 @@ Function TestJava (FilterType as Integer) as boolean LogState (not IsNull (oObj), "Java "+ cMessageNewDoc, FileChannel) LogState (not IsNull (oObj), "Java "+ cMessageNewDoc, MainFileChannel) SetStatus (FilterType, cDocNew, not IsNull (oObj)) - + Print #FileChannel, "---" Close #FileChannel% - + TestJava = not IsNull (oObj) End Function @@ -721,17 +721,17 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object) Select Case ( DocType ) case frmWriter Dim oCursor as Object - + sText = "AutomaticText" oText = oDoc.GetText oCursor = oText.CreateTextCursor oText.InsertString(oCursor, sText, true) ' Cursor selektiert den Text oView = oDoc.getCurrentController oView.Select(oCursor) - + if bMakeCutTest then call CutText (oDoc) - + if oText.GetString = "" Then bCutState = True else @@ -741,10 +741,10 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object) LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, FileChannel) LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, MainFileChannel) end if - + if bMakePasteTest and bMakeCutTest then call PasteText (oDoc) - + if oText.GetString = sText Then bPasteState = True else @@ -757,16 +757,16 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object) case frmCalc DIM oCell as Object - + sText = "AutomaticText" oCell = oDoc.Sheets(0).GetCellByPosition(0, 0) oCell.String = sText oView = oDoc.getCurrentController oView.Select(oCell) - + if bMakeCutTest then call CutText (oDoc) - + if oCell.String = "" Then bCutState = True else @@ -776,10 +776,10 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object) LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, FileChannel) LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, MainFileChannel) end if - + if bMakePasteTest and bMakeCutTest then call PasteText (oDoc) - + if oCell.String = sText Then bPasteState = True else @@ -796,7 +796,7 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object) Dim xSize as Object Dim xPoint as Object Dim bObjState as Boolean - + xSize = CreateUnoStruct ("com.sun.star.awt.Size") xPoint = CreateUnoStruct ("com.sun.star.awt.Point") xSize.Width = 2000 @@ -804,29 +804,29 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object) xPoint.x = 10000 xPoint.y = 10000 oPage = oDoc.DrawPages(0) - + if DocType = frmImpress Then oPage.Layout = 20 ' set page layot to none end If - + oRect = oDoc.CreateInstance("com.sun.star.drawing.RectangleShape") oRect.Size = xSize oRect.Position = xPoint oPage.add(oRect) - + oView = oDoc.getCurrentController oView.Select(oRect) - + ' Prüft ob überhaupt ein Object angelegt wurde if oPage.count = 1 Then bObjState = True else bObjState = False end If - - if bMakeCutTest then + + if bMakeCutTest then call CutText (oDoc) - + if (oPage.count = 0) and bObjState Then bCutState = True else @@ -835,13 +835,13 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object) SetStatus (DocType, cDocCut, bCutState) LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, FileChannel) LogState (bCutState, GetDocFilter(DocType or cFltNewDoc)+" "+ cMessageCutObj, MainFileChannel) - end if + end if wait (1000) 'wait after cut - + if bMakePasteTest and bMakeCutTest then call PasteText (oDoc) - + if (oPage.count = 1) and bObjState Then bPasteState = True else @@ -855,17 +855,17 @@ Sub CutAndPaste (DocType as Integer, oDoc as Object) case frmImage case frmHyperText case frmChart - end Select + end Select end Sub Sub LoadLibrary( LibName as String ) - + dim args(1) dim arg as new com.sun.star.beans.PropertyValue arg.Name = "LibraryName" arg.Value = LibName args(0) = arg - + dim url as new com.sun.star.util.URL dim trans as object trans = createUnoService("com.sun.star.util.URLTransformer" ) @@ -875,7 +875,7 @@ Sub LoadLibrary( LibName as String ) dim disp as object disp = StarDesktop.currentFrame.queryDispatch( url, "", 0 ) disp.dispatch( url, args() ) - + End Sub Sub LoadDoc (DocName as String) as Object @@ -886,7 +886,7 @@ Sub LoadDoc (DocName as String) as Object if Left(DocName, 5 ) <> "file:" then trans.parsestrict( url ) endif - + Dim aPropArray(0) as Object aPropArray(0) = CreateUnoStruct("com.sun.star.beans.PropertyValue") aPropArray(0).Name = "OpenFlags" @@ -894,7 +894,7 @@ Sub LoadDoc (DocName as String) as Object dim doc as object dim noargs() - doc = StarDesktop.loadComponentFromURL( url.Complete, "_blank", 0, aPropArray() ) ' XModel + doc = StarDesktop.loadComponentFromURL( url.Complete, "_blank", 0, aPropArray() ) ' XModel LoadDoc = doc End Sub @@ -906,16 +906,16 @@ Sub SaveDoc (DocName as String, oDoc as Object, sFilterName as string ) if Left(DocName, 5 ) <> "file:" then trans.parsestrict( url ) endif - + if not (sFilterName = "") then Dim aPropArray(0) as Object aPropArray(0) = CreateUnoStruct("com.sun.star.beans.PropertyValue") aPropArray(0).Name = "FilterName" aPropArray(0).Value = sFilterName - + oDoc.storeAsURL( url.Complete, aPropArray() ) else MessageBox "Filtername is unknown!" - end if + end if end Sub </script:module> |