diff options
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/template/Autotext.xba | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/wizards/source/template/Autotext.xba b/wizards/source/template/Autotext.xba index 3a0c64cc92f1..c1b0b8f90c75 100644 --- a/wizards/source/template/Autotext.xba +++ b/wizards/source/template/Autotext.xba @@ -3,7 +3,7 @@ <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Autotext" script:language="StarBasic">Option Explicit Public UserfieldDataType(14) as String -Public oDocument as Object +Public oDocAuto as Object Public BulletList(7) as Integer Sub Main() @@ -46,15 +46,15 @@ Sub Main() BulletList(6) = 79 BulletList(7) = 58 - oDocument = StarDesktop.ActiveFrame.Controller.Model - oStyles = oDocument.Stylefamilies.NumberingStyles + oDocAuto = StarDesktop.ActiveFrame.Controller.Model + oStyles = oDocAuto.Stylefamilies.NumberingStyles ' Prepare the Search-Descriptor - oSearchDesc = oDocument.createsearchDescriptor() + oSearchDesc = oDocAuto.createsearchDescriptor() oSearchDesc.SearchRegularExpression = True oSearchDesc.SearchWords = True oSearchDesc.SearchString = "<[^>]+>" - oFoundall = oDocument.FindAll(oSearchDesc) + oFoundall = oDocAuto.FindAll(oSearchDesc) 'Loop over the foundings For i = 0 To oFoundAll.Count - 1 @@ -92,7 +92,7 @@ Sub CreateUserDatafield(oCursor, sFoundContent as String) Dim UserInfo as String Dim UserIndex as Integer - oUserfield = oDocument.CreateInstance("com.sun.star.text.TextField.ExtendedUser") + oUserfield = oDocAuto.CreateInstance("com.sun.star.text.TextField.ExtendedUser") sFoundList() = ArrayoutofString(sFoundContent,":",MaxIndex) UserInfo = UCase(LTrim(sFoundList(1))) UserIndex = IndexinArray(UserInfo, UserfieldDatatype()) @@ -151,7 +151,7 @@ Sub CreatePlaceholder(oCursor as Object, sFoundContent as String) Dim oPlaceholder as Object Dim MaxIndex as Integer Dim sFoundList(3) - oPlaceholder = oDocument.CreateInstance("com.sun.star.text.TextField.JumpEdit") + oPlaceholder = oDocAuto.CreateInstance("com.sun.star.text.TextField.JumpEdit") sFoundList() = ArrayoutofString(sFoundContent, ":" & chr(34),MaxIndex) ' Delete The Double-quotes oPlaceholder.Hint = DeleteStr(sFoundList(2),chr(34)) |