diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-06-11 12:30:33 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-06-11 12:30:33 +0000 |
| commit | 44613a0a000d472bf3e2e88854acc2f6ec01cede (patch) | |
| tree | abef28bc3997853ce752b451e73a5fc964f9a4b3 /wizards/source/template | |
| parent | 97d96a53c47d620a87e3a04f0247c096ac08e6c0 (diff) | |
fixed dim bug and removed msgboxes
Diffstat (limited to 'wizards/source/template')
| -rw-r--r-- | wizards/source/template/Autotext.xba | 6 |
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() ' Initialization... - BasicLibraries.LoadLibrary("Tools") + BasicLibraries.LoadLibrary("Tools") UserfieldDatatype(0) = "COMPANY" UserfieldDatatype(1) = "FIRSTNAME" @@ -129,9 +130,6 @@ Dim MaxIndex as Integer oPlaceholder = oDocument.CreateInstance("com.sun.star.text.TextField.JumpEdit") sFoundList() = ArrayoutofString(sFoundContent, ":" & chr(34),MaxIndex) ' 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) |