diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-08-14 15:45:23 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-08-14 15:45:23 +0000 |
| commit | 507d602fadc7b019f194e252d38252ce54ab0279 (patch) | |
| tree | 039b705ee01272f6eeb56d38d36de3aed370e609 /wizards/source/importwizard | |
| parent | b2fee4758929a0de09161e7bf05478373fa3ce31 (diff) | |
#95840# Mediadescriptor "Overwrite" removed from OpenProperties
Diffstat (limited to 'wizards/source/importwizard')
| -rw-r--r-- | wizards/source/importwizard/FilesModul.xba | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index d2e6433c9d26..ed1485d24e5a 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -78,7 +78,7 @@ End Sub Sub ConvertAllDocuments(sFilterName()) Dim FileProperties(1) as new com.sun.star.beans.PropertyValue Dim WriterWebProperties(0) as new com.sun.star.beans.PropertyValue -Dim OpenProperties(4) as new com.sun.star.beans.PropertyValue +Dim OpenProperties(3) as new com.sun.star.beans.PropertyValue Dim FilesList(0,2) as String Dim sViewPath as String Dim i as Integer @@ -113,7 +113,7 @@ Dim bIsPassWordProtected as Boolean If bCancelTask Or RetValue = 0 Then bConversionIsRunnig = False Exit Sub - End if + End if bIsDocument = False CurFound = ReadApplicationDirectories(i, FilesList(), bIsDocument, sFilterName()) ShowCurrentProgress(bIsDocument, CurFound) @@ -123,7 +123,7 @@ Dim bIsPassWordProtected as Boolean If bCancelTask Or RetValue = 0 Then bConversionIsRunnig = False Exit Sub - End if + End if bIsDocument = True CurFound = ReadApplicationDirectories(i, FilesList(), bIsDocument, sFilterName()) ShowCurrentProgress(bIsDocument, CurFound) @@ -137,12 +137,10 @@ Dim bIsPassWordProtected as Boolean OpenProperties(1).Name = "AsTemplate" OpenProperties(1).Name = False OpenProperties(2).Name = "MacroExecutionMode" - OpenProperties(2).Name = com.sun.star.document.MacroExecMode.NEVER_EXECUTE + OpenProperties(2).Name = com.sun.star.document.MacroExecMode.NEVER_EXECUTE OpenProperties(3).Name = "UpdateDocMode" OpenProperties(3).Name = com.sun.star.document.UpdateDocMode.NO_UPDATE - OpenProperties(4).Name = "Overwrite" - OpenProperties(4).Name = true - + MaxFileIndex = Ubound(FilesList(),1) FileCount = 0 For i = 0 To MaxFileIndex @@ -374,7 +372,7 @@ Dim oCommentCursor as Object If i = 1 And bContainsBasicMacro Then oCommentCursor = oCell.createTextCursor() oCell.insertControlCharacter(oCommentCursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False) - oCell.insertString(oCommentCursor, sReeditMacro, false) + oCell.insertString(oCommentCursor, sReeditMacro, false) End If LocUrl = UrlList(i) oLogCursor = oCell.createTextCursor() @@ -384,7 +382,7 @@ Dim oCommentCursor as Object oLogCursor.HyperLinkTarget = LocUrl LocFileName = FileNameOutOfPath(LocUrl) oCell.InsertString(oLogCursor, LocFileName,False) - Next i + Next i oLogDocument.Store() End If End Sub @@ -414,7 +412,7 @@ End Sub ' This macro has to be reworked out again as it works with deprecated interfaces ' It can be completed as soon as Bug #93295 will be fixed because right now it -' is not possible to access BasicLibraries and DialogLibraries from outside the +' is not possible to access BasicLibraries and DialogLibraries from outside the ' document Function CheckIfMacroExists(oDocument as Object) as Boolean Dim ModuleNames() as String @@ -463,4 +461,4 @@ End Function Sub OpenLogDocument() Dim NoArgs() as New com.sun.star.beans.PropertyValue OpenDocument(sLogUrl, NoArgs()) -End Sub</script:module>
\ No newline at end of file +End Sub</script:module> |