diff options
Diffstat (limited to 'wizards/source/formwizard')
| -rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index aed946d168aa..c1c8a91a14cd 100644 --- a/wizards/source/formwizard/FormWizard.xba +++ b/wizards/source/formwizard/FormWizard.xba @@ -64,7 +64,7 @@ Dim i as Integer Dim SelCount as Integer BasicLibraries.LoadLibrary("Tools") BasicLibraries.LoadLibrary("WebWizard") - bDebug = False + bDebug = True If Not bDebug Then On Local Error GoTo WIZARDERROR End If @@ -299,9 +299,9 @@ End Sub Sub StoreForm() Dim bDocIsStored as Boolean -Dim FilterNames(0,2) as String +Dim TypeNames(0,2) as String Dim oMasterKey as Object -Dim oFilters() as Object +Dim oTypes() as Object Dim sTargetPath as String Dim sBookmarkName as String Dim oDBBookmarks as Object @@ -309,11 +309,11 @@ Dim bLinkExists as Boolean Dim i as Integer Dim sBaseBookmarkName as String oMasterKey = GetRegistryKeyContent("org.openoffice.Office.TypeDetection/") - oFilters() = oMasterKey.Filters - FilterNames(0,0) = oFilters.GetByName("swriter: StarOffice XML (Writer)").UIName - FilterNames(0,1) = "*.sxw" - FilterNames(0,2) = "" - sTargetPath = StoreDocument(oDocument, FilterNames(), "Form_" & sDBName & "_" & TableName & ".sxw", WorkPath) + oTypes() = oMasterKey.Types + TypeNames(0,0) = oTypes.GetByName("writer_StarOffice_XML_Writer").UIName + TypeNames(0,1) = "*.sxw" + TypeNames(0,2) = "" + sTargetPath = StoreDocument(oDocument, TypeNames(), "Form_" & sDBName & "_" & TableName & ".sxw", WorkPath) If sTargetPath <> "" Then sBookmarkName = GetFileNamewithoutExtension(FileNameoutofPath(sTargetPath)) sBaseBookmarkName = sBookmarkName |