diff options
Diffstat (limited to 'wizards/source/template/Samples.xba')
| -rw-r--r-- | wizards/source/template/Samples.xba | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba index 26e7e6be85d1..b6bb3e1d0155 100644 --- a/wizards/source/template/Samples.xba +++ b/wizards/source/template/Samples.xba @@ -37,7 +37,7 @@ Dim mFileProperties(0) as New com.sun.star.beans.PropertyValue BasicLibraries.LoadLibrary( "Tools" ) If InitResources("'Template'", "tpl") then If IsMissing(oDocument) Then - oDocument = ThisComponent + oDocument = ThisComponent End If If oDocument.IsReadOnly then MMessage = GetResText(SAMPLES) @@ -49,11 +49,7 @@ Dim mFileProperties(0) as New com.sun.star.beans.PropertyValue mFileProperties(0).Value = True oNewDocument = StarDesktop.LoadComponentFromURL(DocPath,"_default",0, mFileProperties()) PrepareForEditing() = oNewDocument -' If IsFatOffice() Then - ' If opened within a FatOffice Environment close doc. - ' Note: Due to a bug in Web office it is not possible to close the doc there - oDocument.Dispose() - ' End If + DisposeDocument(oDocument) Else PrepareForEditing() = NULL End If @@ -177,4 +173,4 @@ Sub KillTempFile() End If End Sub -</script:module> +</script:module>
\ No newline at end of file |