#92952# StarDesktop.ActiveFrame.Controller.Model --> ThisComponent

4 files changed, 15 insertions, 15 deletions

diff --git a/wizards/source/template/Autotext.xba b/wizards/source/template/Autotext.xba
index c1b0b8f90c75..da7be89c194a 100644
--- a/wizards/source/template/Autotext.xba
+++ b/wizards/source/template/Autotext.xba
@@ -18,7 +18,7 @@ Sub Main()
 	Dim FieldStringThere as String
 	Dim ULStringThere as String
 	Dim PHStringThere as String
-	
+
 	' Initialization...
     BasicLibraries.LoadLibrary("Tools")
 
@@ -46,7 +46,7 @@ Sub Main()
 	BulletList(6) = 79
 	BulletList(7) = 58
 
-	oDocAuto = StarDesktop.ActiveFrame.Controller.Model
+  oDocAuto = ThisComponent
 	oStyles = oDocAuto.Stylefamilies.NumberingStyles
 
 	' Prepare the Search-Descriptor
@@ -91,7 +91,7 @@ Sub	CreateUserDatafield(oCursor, sFoundContent as String)
 	Dim oUserfield as Object
 	Dim UserInfo as String
 	Dim UserIndex as Integer
-	
+
 	oUserfield = oDocAuto.CreateInstance("com.sun.star.text.TextField.ExtendedUser")
 	sFoundList() = ArrayoutofString(sFoundContent,":",MaxIndex)
 	UserInfo = UCase(LTrim(sFoundList(1)))
@@ -160,4 +160,4 @@ Sub	CreatePlaceholder(oCursor as Object, sFoundContent as String)
 End Sub
 
 
-</script:module>
\ No newline at end of file
+</script:module>
diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba
index 56b3b51a11e4..41686edbb1eb 100644
--- a/wizards/source/template/Correspondence.xba
+++ b/wizards/source/template/Correspondence.xba
@@ -93,7 +93,7 @@ Dim oDocSettings as Object
 	DialogExited = TRUE
 
 	ParaBreak = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK
-	oDocument = StarDesktop.ActiveFrame.Controller.Model
+  oDocument = ThisComponent
 	If bDBFields Then
 		&apos;set the address db as current db at the document
     oDocSettings = oDocument.createInstance(&quot;com.sun.star.document.Settings&quot;)
@@ -247,4 +247,4 @@ Dim bCorrectField as Boolean
 		End If
 	End If
 End Sub
-</script:module>
\ No newline at end of file
+</script:module>
diff --git a/wizards/source/template/ModuleAgenda.xba b/wizards/source/template/ModuleAgenda.xba
index b0954d769567..651a1a613eb9 100644
--- a/wizards/source/template/ModuleAgenda.xba
+++ b/wizards/source/template/ModuleAgenda.xba
@@ -45,7 +45,7 @@ Sub ModifyTemplate()
 Dim oDocument, oBookmarks, oBookmark, oBookmarkCursor, oTextField as Object
 Dim i as Integer
 
-	oDocument = StarDesktop.ActiveFrame.Controller.Model
+  oDocument = ThisComponent
 	oBookMarks = oDocument.Bookmarks
 
 	On Local Error Goto NOBOOKMARK
@@ -88,7 +88,7 @@ Dim oDocument, oBookmarks, oBookmark, oBookmarkCursor, oTextField as Object
 Dim oBaustein, oAutoText, oAutoGroup as Object
 Dim i as Integer
 
-	oDocument = StarDesktop.ActiveFrame.Controller.Model
+  oDocument = ThisComponent
 	oBookMarkCursor = CreateBookMarkCursor(oDocument, &quot;NextTopic&quot;)
 	oTextField = oBookMarkCursor.TextField
 	oAutoText = CreateUnoService(&quot;com.sun.star.text.AutoTextContainer&quot;)
@@ -117,7 +117,7 @@ Dim oFormats, oLocale as Object
 Dim iDateTimeKey as Integer
 
         BasicLibraries.LoadLibrary( &quot;Tools&quot; )
-	oDocument = StarDesktop.ActiveFrame.Controller.Model
+  oDocument = ThisComponent
 
 	oUserField = oDocument.CreateInstance(&quot;com.sun.star.text.TextField.ExtendedUser&quot;)
 	oUserField.UserDatatype = com.sun.star.text.UserDataPart.SHORTCUT
@@ -158,7 +158,7 @@ Dim AgendaFinished As Boolean
 Dim BtnAddAgendaTopic As Object
 Dim BtnFinishAgenda As Object
 
-	oDocument = StarDesktop.ActiveFrame.Controller.Model
+  oDocument = ThisComponent
 
 	BtnAddAgendaTopic = getControlModel(oDocument, &quot;BtnAddAgendaTopic&quot;)
 	BtnFinishAgenda = getControlModel(oDocument, &quot;BtnFinishAgenda&quot;)
@@ -198,4 +198,4 @@ Dim Taglist() as String
 	Bookmarkname = TagList(0)
 	sTrueContent = TagList(1)
 End Sub
-</script:module>
\ No newline at end of file
+</script:module>
diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba
index 576f00415122..3d18f3102219 100644
--- a/wizards/source/template/Samples.xba
+++ b/wizards/source/template/Samples.xba
@@ -37,7 +37,7 @@ Dim mFileProperties(0) as New com.sun.star.beans.PropertyValue
         BasicLibraries.LoadLibrary( &quot;Tools&quot; )
 	If InitResources(&quot;&apos;Template&apos;&quot;, &quot;tpl&quot;) then
 		If IsMissing(oDocument) Then
-			oDocument = StarDesktop.ActiveFrame.Controller.Model
+      oDocument = ThisComponent
 		End If
 		If oDocument.IsReadOnly then
 			MMessage = GetResText(SAMPLES)
@@ -77,7 +77,7 @@ Dim t as Integer
 Dim MaxIndex as Integer
         BasicLibraries.LoadLibrary(&quot;Tools&quot;)
 	If InitResources(&quot;&apos;Template&apos;&quot;, &quot;tpl&quot;) then
-		oDocument = StarDesktop.ActiveFrame.Controller.Model
+    oDocument = ThisComponent
 		If oDocument.SupportsService(&quot;com.sun.star.sheet.SpreadsheetDocument&quot;) Then
 			ToggleWindow(False)
 			oUcbObject = createUnoService(&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
@@ -91,7 +91,7 @@ Dim MaxIndex as Integer
 			DialogModel.Title = GetResText(STYLES)
 			DialogModel.cmdCancel.Label = GetResText(STYLES+2)
 			DialogModel.cmdOk.Label = GetResText(STYLES+3)
-			Stylenames() = ReadDirectories(StylesDir, False, False, True,)			
+			Stylenames() = ReadDirectories(StylesDir, False, False, True,)
 			MaxIndex = Ubound(Stylenames())
 			BubbleSortList(Stylenames(),True)
 			Dim cStyles(MaxIndex)
@@ -177,4 +177,4 @@ Sub KillTempFile()
 	End If
 End Sub
 
-</script:module>
\ No newline at end of file
+</script:module>