diff options
Diffstat (limited to 'wizards/source/template/Autotext.xba')
| -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) |