diff options
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/template/Samples.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba index 3009f4cba705..25ff81bcf14d 100644 --- a/wizards/source/template/Samples.xba +++ b/wizards/source/template/Samples.xba @@ -110,7 +110,7 @@ End Sub Sub SaveCurrentStyles(oDocument as Object) 'This sub stores the current document in the directory to hold temporary files. - On Error Goto ErrorOcurred + On Error Goto ErrorOccurred aTempURL = GetPathSettings("Temp", False) Dim aRightMost as String aRightMost = Right(aTempURL, 1) @@ -126,7 +126,7 @@ Sub SaveCurrentStyles(oDocument as Object) oDocument.storeToURL(aTempURL, NoArgs()) Exit Sub -ErrorOcurred: +ErrorOccurred: MsgBox(GetResText("STYLES_1"), 16, GetResText("STYLES_0")) On Local Error Goto 0 End Sub |