diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-10-16 10:41:42 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-10-16 10:41:42 +0000 |
| commit | 062d6dbeeb8540adeb8cf035f901af06f2e7cc86 (patch) | |
| tree | 0fff0af4df22e53aa70a5a2de6c507b605686463 /wizards | |
| parent | 63a67b9fcd6e5b98e4bced02ba93beccdd10dd5c (diff) | |
#104114# creation of new document modified
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/importwizard/API.xba | 1 | ||||
| -rw-r--r-- | wizards/source/importwizard/DialogModul.xba | 2 | ||||
| -rw-r--r-- | wizards/source/importwizard/FilesModul.xba | 7 |
3 files changed, 5 insertions, 5 deletions
diff --git a/wizards/source/importwizard/API.xba b/wizards/source/importwizard/API.xba index 0f48f55300b3..b212bbd22db5 100644 --- a/wizards/source/importwizard/API.xba +++ b/wizards/source/importwizard/API.xba @@ -82,7 +82,6 @@ Dim Index as Integer sPath = "" End If If sPath = "" Then -' Todo: das User/Work Verzeichnis kann man hier wohl kaum nehmen!! sPath = SOWorkPath End If GetDefaultPath = sPath diff --git a/wizards/source/importwizard/DialogModul.xba b/wizards/source/importwizard/DialogModul.xba index 459a237f2453..748231a4bfba 100644 --- a/wizards/source/importwizard/DialogModul.xba +++ b/wizards/source/importwizard/DialogModul.xba @@ -460,7 +460,7 @@ Dim oLocUcb as Object iCreate = Msgbox (sQueryMessage, 36, sTitle) If iCreate = 6 Then On Local Error Goto NOVALIDPATH - oLocUcb.CreateFolder(sUrlPath) + CreateFolder(sUrlPath) If Not oLocUcb.Exists(sUrlPath) Then Goto NOVALIDPATH End If diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index 62eb67b5b01d..a703204af2a2 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -162,7 +162,7 @@ Dim iOverwrite as Integer ApplIndex = FilesList(i,2) sViewPath = CutPathView(sFullName, 60) ImportDialog.LabelCurDocument.Label = Str(i+1) & "/" & MaxFileIndex + 1 & " (" & sViewPath & ")" - oDocument = StarDesktop.LoadComponentFromURL(sFullName, "_blank", 0, OpenProperties()) + oDocument = StarDesktop.LoadComponentFromURL(sFullName, "_default", 0, OpenProperties()) If Not IsNull(oDocument) Then bIsPassWordProtected = CheckPassWordProtection(oDocument) End If @@ -359,7 +359,7 @@ Dim bLogIsThere as Boolean i = 2 OpenProperties(0).Name = "Hidden" OpenProperties(0).Value = True - oLogDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter", "_blank", 4, OpenProperties()) + oLogDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter", "_default", 4, OpenProperties()) oLogCursor = oLogDocument.Text.CreateTextCursor oLogTable = oLogDocument.CreateInstance("com.sun.star.text.TextTable") oLogTable.RepeatHeadline = true @@ -388,7 +388,8 @@ End Sub -Sub InsertDocNamesToLogDocument(SourceUrl as String, TargetUrl as String, sComment as String) 'bContainsBasicMacro as Boolean +Sub InsertDocNamesToLogDocument(SourceUrl as String, TargetUrl as String, sComment as String) ' +Dim bContainsBasicMacro as Boolean Dim oCell as Object Dim oLogCursor as Object Dim UrlList(1) as String |