#96091# 'ToggleDesignMode' Routine modified

1 files changed, 10 insertions, 10 deletions

diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba
index 25a4cb5b8460..19c8b6ef6989 100644
--- a/wizards/source/tools/Misc.xba
+++ b/wizards/source/tools/Misc.xba
@@ -371,7 +371,7 @@ Function DuplicateRow(oSheet as Object, RangeName as String)
 Dim oRange as Object
 Dim oCell as Object
 Dim oCellAddress as New com.sun.star.table.CellAddress
-Dim oRangeAddress as New com.sun.star.table.CellRangeAddress 
+Dim oRangeAddress as New com.sun.star.table.CellRangeAddress
 	oRange = oSheet.GetCellRangeByName(RangeName)
 	oRangeAddress = oRange.RangeAddress
 	oCell = oSheet.GetCellByPosition(oRangeAddress.StartColumn,oRangeAddress.StartRow)
@@ -413,9 +413,9 @@ End Sub
 Sub Main
 '	oDocument = StarDesktop.ActiveFrame.Controller.Model
 	oComponents = StarDesktop.Components.CreateEnumeration
-	Do 
+	Do
 		oComponent = oComponents.NextElement
-		ShowSupportedServicenames(oComponent)	
+		ShowSupportedServicenames(oComponent)
 	Loop Until Not oComponents.HasMoreElements
 	For i = 0 To Ubound(StarDesktop.Components())
 		PrintdbgInfo StarDesktop.Components(i)
@@ -585,7 +585,7 @@ End Sub
 
 
 Function GetSheetIndex(oSheets, sName) as Integer
-Dim i as Integer	
+Dim i as Integer
 	For i = 0 To oSheets.Count-1
 		If oSheets(i).Name = sName Then
 			GetSheetIndex = i
@@ -605,7 +605,7 @@ Dim aAddress As Variant
 	oCursor.GotoEndOfUsedArea(True)
 	aAddress = oCursor.RangeAddress
 	GetLastUsedRow = aAddress.EndRow
-End Function		
+End Function
 
 
 ' Note To set a one lined frame you have to set the inner width to 0
@@ -664,7 +664,7 @@ Dim i as Integer
 			GetPropertyValueIndex = i
 			Exit Function
 		End If
-	Next i	
+	Next i
 	GetPropertyValueIndex() = -1
 End Function
 
@@ -677,7 +677,7 @@ Dim oDisp as Object
 	oTrans = createUNOService("com.sun.star.util.URLTransformer")
 	oUrl.Complete = "slot:" & CStr(SlotID)
 	oTrans.parsestrict(oUrl)
-	oDisp = StarDesktop.ActiveFrame.queryDispatch(oUrl, "_self", 0)	
+	oDisp = StarDesktop.ActiveFrame.queryDispatch(oUrl, "_self", 0)
 	oDisp.dispatch(oUrl, oArg())
 End Sub
 
@@ -702,7 +702,7 @@ Dim oLocale as New com.sun.star.lang.Locale
 	oLocale.Language = sLanguage
 	oLocale.Country = sCountry
 	GetLocale = oLocale
-End Function					
+End Function
 
 
 Sub ToggleDesignMode(oDocument as Object)
@@ -712,7 +712,7 @@ Dim aSwitchMode as new com.sun.star.util.URL
 	aTransformer.parseStrict(aSwitchMode)
 	oFrame = oDocument.currentController.Frame
 	oDispatch = oFrame.queryDispatch(aSwitchMode, oFrame.Name, 63)
-	Dim aEmptyArgs() as com.sun.star.bean.PropertyValue
+        Dim aEmptyArgs() as New com.sun.star.bean.PropertyValue
 	oDispatch.dispatch(aSwitchMode, aEmptyArgs())
 	Erase aSwitchMode
-End Sub</script:module>
\ No newline at end of file
+End Sub</script:module>