diff options
author | Behrend Cornelius <bc@openoffice.org> | 2001-10-01 14:41:55 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2001-10-01 14:41:55 +0000 |
commit | 9030ca8eb80b1627fc543c269583d96a9077ac06 (patch) | |
tree | 21b0d27a00c7488a1264e8c5ff35e5ea66b6177f /wizards/source/tools/Misc.xba | |
parent | 28c4b12a54fbd424958b728b06dbf11a7eb181b0 (diff) |
#91427# Sub GetDocumentType now with exception handling
Diffstat (limited to 'wizards/source/tools/Misc.xba')
-rw-r--r-- | wizards/source/tools/Misc.xba | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index b9e4848c2bf4..e7b87f16bbab 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -416,6 +416,7 @@ End Sub Function GetDocumentType(oDocument) + On Local Error GoTo NODOCUMENTTYPE If oDocument.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then GetDocumentType() = "scalc" ElseIf oDocument.SupportsService("com.sun.star.text.TextDocument") Then @@ -425,6 +426,12 @@ Function GetDocumentType(oDocument) ElseIf oDocument.SupportsService("com.sun.star.formula.FormulaProperties") Then GetDocumentType() = "smath" End If + NODOCUMENTTYPE: + If Err <> 0 Then + GetDocumentType = "" + Resume GOON + GOON: + End If End Function |