strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

#93037# importfiltername for masterdocuments modified

Browse source
This commit is contained in:
Behrend Cornelius 2001-10-25 14:48:02 +00:00
parent c03887c46f
commit 65f8438503
2 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
wizards/source/importwizard/DialogModul.xba
View file

@ -388,7 +388,7 @@ Sub SetupXMLConfiguration()
XMLFilterName(6,2) = "sti|std"
XMLFilterName(7,0) = "sgl"
XMLFilterName(7,1) = "swriter: writer_globaldocument_StarOffice_XML_Writer_GlobalDocument"
XMLFilterName(7,1) = "swriter/GlobalDocument: writer_globaldocument_StarOffice_XML_Writer_GlobalDocument"
XMLFilterName(7,2) = "sxg"
End Sub

17
wizards/source/importwizard/FilesModul.xba
View file

@ -316,16 +316,15 @@ 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"
'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 = StarDesktop.currentFrame.queryDispatch(oUrl, "_self", 0)
oDisp.dispatch(oUrl, oArg())
printdbgInfo oDisp
' oLogDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter", "_blank", 4, NoArgs())' HiddenProperties()) ' HiddenProperties())
' oDisp.dispatch(oUrl, oArg())
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)
@ -334,7 +333,7 @@ Dim oDisp as Object
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)