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

## filtername for globaldocuments replaced

Browse source
This commit is contained in:
Behrend Cornelius 2001-04-30 10:48:28 +00:00
parent 745c9166f0
commit a6981e0b64
2 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -402,7 +402,7 @@ Sub SetupXMLConfiguration()
' ToDo: define Filter for Masterdocument
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

14
wizards/source/importwizard/Main.xba
View file

@ -1,16 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Main" script:language="StarBasic">&apos; ***** BASIC *****
&apos; Todo: Problematik der VBA-Makros, die angeblich nicht mit abgespeichert werden koennen.
&apos; Todo: Problematik der VBA-Makros, die angeblich nicht mit abgespeichert werden können.
&apos; Evt. Erkennen der Arbeitsverzeichnisse von MS Office
&apos; Filternamen fuer Ziel-XML-Dokumente und deren Extensionen feststellen (auch fuer StarMath)
&apos; Extension fuer XML-Vorlagen klaeren
&apos; Filternamen für Ziel-XML-Dokumente und deren Extensionen feststellen (auch für StarMath)
&apos; Extension für XML-Vorlagen klären
&apos; Todo: In Checkbox bei Texvorlagen darauf hinweisen, dass keine writer/Web Vorlagen konvertiert werden!
Public HeaderPreviews(4) as Object
Public ImportDialog as Object
Public ImportDialogArea as Object
Sub Main
BasicLibraries.LoadLibrary(&quot;Tools&quot;)
BasicLibraries.LoadLibrary(&quot;Tools&quot;)
sCRLF = CHR(10) &amp; CHR(13)
oUcb = createUnoService(&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
If Not bDebugWizard Then
@ -92,7 +93,7 @@ Dim iCurStep as Integer
Case 4
FillStep_Summary()
Case 3
&apos;Todo: muessen auch beim Zuruecksteppen wirklich die Importpfade auf ihre Gueltigkeit hin Ueberprueft werden?
&apos;Todo: müssen auch beim Zurücksteppen wirklich die Importpfade auf ihre Gültigkeit hin überprüft werden?
FillStep_InputPaths(Applcount-1, False)
Case 2
If SaveStep_InputPath Then
@ -157,6 +158,7 @@ Dim sBitmapPath as String
Else
sBitmapPath = SOBitmapPath &amp; &quot;Import_&quot; &amp; CurStep &amp; &quot;.bmp&quot;
End If
Set Bitmap = LoadPicture (sBitmapPath)
ImportDialog.ImportPreview.ImageURL = sBitmapPath
End Sub
@ -220,4 +222,4 @@ End Sub
Function ControlStateToBool(iState)
ControlStateToBool = (Val(iState) = 1)
End Function
</script:module>
</script:module>