diff options
author | Tom Verbeek <tv@openoffice.org> | 2001-11-12 14:24:05 +0000 |
---|---|---|
committer | Tom Verbeek <tv@openoffice.org> | 2001-11-12 14:24:05 +0000 |
commit | f3c91eaec4482b75277fcbf9f0d932b31e8570e6 (patch) | |
tree | bbbba4d71dfca66b0a4ee35b789d4cf362f07b40 /wizards | |
parent | 00d166ff50c8b95d5a21851285bb4624791bfc1a (diff) |
#92952# StarDesktop.ActiveFrame.Controller.Model --> ThisComponent
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/template/Autotext.xba | 8 | ||||
-rw-r--r-- | wizards/source/template/Correspondence.xba | 4 | ||||
-rw-r--r-- | wizards/source/template/ModuleAgenda.xba | 10 | ||||
-rw-r--r-- | wizards/source/template/Samples.xba | 8 |
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 'set the address db as current db at the document oDocSettings = oDocument.createInstance("com.sun.star.document.Settings") @@ -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, "NextTopic") oTextField = oBookMarkCursor.TextField oAutoText = CreateUnoService("com.sun.star.text.AutoTextContainer") @@ -117,7 +117,7 @@ Dim oFormats, oLocale as Object Dim iDateTimeKey as Integer BasicLibraries.LoadLibrary( "Tools" ) - oDocument = StarDesktop.ActiveFrame.Controller.Model + oDocument = ThisComponent oUserField = oDocument.CreateInstance("com.sun.star.text.TextField.ExtendedUser") 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, "BtnAddAgendaTopic") BtnFinishAgenda = getControlModel(oDocument, "BtnFinishAgenda") @@ -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( "Tools" ) If InitResources("'Template'", "tpl") 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("Tools") If InitResources("'Template'", "tpl") then - oDocument = StarDesktop.ActiveFrame.Controller.Model + oDocument = ThisComponent If oDocument.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then ToggleWindow(False) oUcbObject = createUnoService("com.sun.star.ucb.SimpleFileAccess") @@ -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> |