From d0e6ae6330373851b675f0fa257d3283d0068ff1 Mon Sep 17 00:00:00 2001 From: Tom Verbeek Date: Tue, 26 Jun 2001 15:07:05 +0000 Subject: #88115# oDocument -> oDocAuto --- wizards/source/template/Autotext.xba | 14 +++++++------- 1 file 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 @@ 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)) -- cgit