diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-06-26 15:07:05 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-06-26 15:07:05 +0000 |
| commit | 77ac474e3f8be7f4b4f30cabffa87cd0c0aee5d2 (patch) | |
| tree | 82e480838bc77e00424a305dad2ae06d1d7b980c /wizards/source/template/Autotext.xba | |
| parent | bdfa2239a1e2641ad4ce302a7ef2e1cf56ba443e (diff) | |
#88115# oDocument -> oDocAuto
Diffstat (limited to 'wizards/source/template/Autotext.xba')
| -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 3a0c64cc9..c1b0b8f90 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)) |