#96775# Errormessage in macro inserted

wizards/source/template/Correspondence.xba

@@ -63,7 +63,7 @@ Dim oAddressDialog as Object
 Dim oAddressPilot as Object
 Dim oFields as Object
 Dim oDocSettings as Object
-
+	On Local Error Goto GENERALERROR
 	bDBFields = DialogModel.Optmerge.State              'database or placeholder
 	
 	TemplateDialog.EndExecute()
@@ -93,10 +93,10 @@ Dim oDocSettings as Object
 	End If
 
 	ParaBreak = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK
-  oDocument = ThisComponent
+  	oDocument = ThisComponent
 	If bDBFields Then
 		'set the address db as current db at the document
-    oDocSettings = oDocument.createInstance("com.sun.star.document.Settings")
+    	oDocSettings = oDocument.createInstance("com.sun.star.document.Settings")
 		oDocSettings.CurrentDatabaseDataSource = sAddressbook
 		oDocSettings.CurrentDatabaseCommand = Table
 		oDocSettings.CurrentDatabaseCommandType = 0
@@ -111,7 +111,7 @@ Dim oDocSettings as Object
 	oFoundall = oDocument.FindAll(oSearchDesc)
 
 	'Loop over the foundings
-  For i = oFoundAll.Count -1 To 0 Step -1
+  	For i = oFoundAll.Count -1 To 0 Step -1
 		oFound = oFoundAll.GetByIndex(i)
 		sFoundString = oFound.String
 		'Extract the string inside the brackets
@@ -149,6 +149,12 @@ Dim oDocSettings as Object
 		aArgs(3).Value = Table
 		oDisp.dispatch(aURL, aArgs())
 	End If
+	
+	GENERALERROR:
+	If Err <> 0 Then
+		Resume LETSGO
+	End If
+	LETSGO:
 
 End Sub
 

wizards/source/template/template.src

@@ -2,9 +2,9 @@
  *
  *  $RCSfile: template.src,v $
  *
- *  $Revision: 1.30 $
+ *  $Revision: 1.31 $
  *
- *  last change: $Author: rt $ $Date: 2001-08-24 05:52:40 $
+ *  last change: $Author: bc $ $Date: 2002-09-02 12:06:12 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -406,7 +406,7 @@ String CorrespondenceNoTextmark+1
 
 String CorrespondenceMsgError
 {
-    Text = "Fehler";
+    Text = "Es ist ein Fehler aufgetreten!";
     Text[English] = "Error";
     Text[ english_us ] = "Error";
     Text[ portuguese ] = "Erro";