diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-11-05 14:35:36 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-11-05 14:35:36 +0000 |
| commit | 5a4b4415be2dc4c447a19058e7f15e4c5aa21c4f (patch) | |
| tree | 1632988a2c1cf14f7ae4a6e45dc6b0f27a74ecf5 /wizards/source/importwizard/FilesModul.xba | |
| parent | 37f4d7f96337ba3572d44356a276953a46c7f783 (diff) | |
#93436# Declaration of OS Function "RegCloseKey" modified
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 3e121258e2e2..a7ffbc641179 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) |