summaryrefslogtreecommitdiff
path: root/wizards
diff options
context:
space:
mode:
authorTom Verbeek <tv@openoffice.org>2001-06-11 12:30:33 +0000
committerTom Verbeek <tv@openoffice.org>2001-06-11 12:30:33 +0000
commit44613a0a000d472bf3e2e88854acc2f6ec01cede (patch)
treeabef28bc3997853ce752b451e73a5fc964f9a4b3 /wizards
parent97d96a53c47d620a87e3a04f0247c096ac08e6c0 (diff)
fixed dim bug and removed msgboxes
Diffstat (limited to 'wizards')
-rw-r--r--wizards/source/template/Autotext.xba6
1 files changed, 2 insertions, 4 deletions
diff --git a/wizards/source/template/Autotext.xba b/wizards/source/template/Autotext.xba
index 4f18ed757289..f7ca325e1895 100644
--- a/wizards/source/template/Autotext.xba
+++ b/wizards/source/template/Autotext.xba
@@ -2,11 +2,12 @@
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Autotext" script:language="StarBasic">Public UserfieldDataType(14) as String
Public oDocument as Object
+Public oCursor as Object
Public BulletList(7) as Integer
Sub Main()
&apos; Initialization...
- BasicLibraries.LoadLibrary(&quot;Tools&quot;)
+ BasicLibraries.LoadLibrary(&quot;Tools&quot;)
UserfieldDatatype(0) = &quot;COMPANY&quot;
UserfieldDatatype(1) = &quot;FIRSTNAME&quot;
@@ -129,9 +130,6 @@ Dim MaxIndex as Integer
oPlaceholder = oDocument.CreateInstance(&quot;com.sun.star.text.TextField.JumpEdit&quot;)
sFoundList() = ArrayoutofString(sFoundContent, &quot;:&quot; &amp; chr(34),MaxIndex)
&apos; Delete The Double-quotes
- msgbox(DeleteStr(sFoundList(2),chr(34)))
- msgbox(DeleteStr(sFoundList(1),chr(34)))
-
oPlaceHolder.Hint = DeleteStr(sFoundList(2),chr(34))
oPlaceHolder.placeholder = DeleteStr(sFoundList(1),chr(34))
oCursor.Text.InsertTextContent(oCursor,oPlaceholder,True)