diff options
Diffstat (limited to 'wizards/source/importwizard/FilesModul.xba')
| -rw-r--r-- | wizards/source/importwizard/FilesModul.xba | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index 3e121258e..a7ffbc641 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -316,15 +316,7 @@ Dim i as Integer Dim bLogExists as Boolean If ImportDialog.chkLogfile.State = 1 Then i = 2 -'Dim oArg() as new com.sun.star.beans.PropertyValue -'Dim oUrl as new com.sun.star.util.URL -'Dim oDisp as Object -' oUrl.Complete = "private:factory/swriter" -' oDisp = StarDesktop.currentFrame.queryDispatch(oUrl, "_self", 0) -' oDisp = StarDesktop.currentFrame.queryDispatch(oUrl, "_self", 0) - -' oDisp.dispatch(oUrl, oArg()) - oLogDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter", "_blank", 4, NoArgs())' HiddenProperties()) ' HiddenProperties()) + oLogDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter", "_blank", 4, NoArgs())' HiddenProperties()) ' HiddenProperties()) oLogCursor = oLogDocument.Text.CreateTextCursor oLogTable = oLogDocument.CreateInstance("com.sun.star.text.TextTable") oLogCursor.Text.InsertTextContent(oLogCursor, oLogTable, True) @@ -333,7 +325,7 @@ Dim bLogExists as Boolean oLogCursor = oLogTable.GetCellbyPosition(1,0).createTextCursor oLogCursor.SetString(sTargetDocuments) bInsertRow = False - ' Todo: Strings in Resourcen +' Todo: Strings in Resourcen sLogUrl = SOWorkPath & "/Logfile.sxw" Do bLogExists = oUcb.Exists(sLogUrl) |