#88115# changed to work with option explicit

1 files changed, 11 insertions, 3 deletions

diff --git a/wizards/source/template/Autotext.xba b/wizards/source/template/Autotext.xba
index 14603f6b5133..3a0c64cc92f1 100644
--- a/wizards/source/template/Autotext.xba
+++ b/wizards/source/template/Autotext.xba
@@ -88,6 +88,10 @@ Sub	CreateUserDatafield(oCursor, sFoundContent as String)
 	Dim MaxIndex as Integer
 	Dim sTextFieldNotDefined as String
 	Dim sFoundList(3)
+	Dim oUserfield as Object
+	Dim UserInfo as String
+	Dim UserIndex as Integer
+	
 	oUserfield = oDocument.CreateInstance("com.sun.star.text.TextField.ExtendedUser")
 	sFoundList() = ArrayoutofString(sFoundContent,":",MaxIndex)
 	UserInfo = UCase(LTrim(sFoundList(1)))
@@ -108,19 +112,23 @@ End Sub
 ' Creates a Bullet by setting a soft Formatation on the first unsorted List-Templates with a defined
 ' Bullet Id
 Sub	CreateBullet(oCursor, oStyles as Object)
-Dim n, m, s as Integer
+	Dim n, m, s as Integer
+	Dim StyleSet as Boolean
+	Dim ostyle as Object
+	Dim StyleName as String
+	Dim alevel()
 	StyleSet = False
 	For s = 0 To Ubound(BulletList())
 		For n = 0 To oStyles.Count - 1
 			ostyle = oStyles.getbyindex(n)
-			oStyleName = oStyle.Name
+			StyleName = oStyle.Name
 			alevel() = ostyle.NumberingRules.getbyindex(0)
 			' The properties of the style are stored in a Name-Value-Array()
 			For m = 0 to Ubound(alevel())
 				' Set the first Numbering template without a bulletID
 				If (aLevel(m).Name = "BulletId") Then
 					If alevel(m).Value = BulletList(s) Then
-						oCursor.NumberingStyle = oStyle.Name
+						oCursor.NumberingStyle = StyleName
 						oCursor.SetString("")
 						exit Sub
 					End if