AOO410/main/wizards/source/template/Autotext.xba - openoffice - Git at Google

 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
 <!--***********************************************************
  *
  * Licensed to the Apache Software Foundation (ASF) under one
  * or more contributor license agreements.  See the NOTICE file
  * distributed with this work for additional information
  * regarding copyright ownership.  The ASF licenses this file
  * to you under the Apache License, Version 2.0 (the
  * "License"); you may not use this file except in compliance
  * with the License.  You may obtain a copy of the License at
  *
  *   http://www.apache.org/licenses/LICENSE-2.0
  *
  * Unless required by applicable law or agreed to in writing,
  * software distributed under the License is distributed on an
  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
  * KIND, either express or implied.  See the License for the
  * specific language governing permissions and limitations
  * under the License.
  *
  ***********************************************************-->
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Autotext" script:language="StarBasic">Option Explicit

 Public UserfieldDataType(14) as String
 Public oDocAuto as Object
 Public BulletList(7) as Integer
 Public sTextFieldNotDefined as String
 Public sGeneralError as String


 Sub Main()
 	Dim oCursor as Object
 	Dim oStyles as Object
 	Dim oSearchDesc as Object
 	Dim oFoundall as Object
 	Dim oFound as Object
 	Dim i as Integer
 	Dim sFoundString as String
 	Dim sFoundContent as String
 	Dim FieldStringThere as String
 	Dim ULStringThere as String
 	Dim PHStringThere as String
 	On Local Error Goto GENERALERROR
 	&apos; Initialization...
     BasicLibraries.LoadLibrary(&quot;Tools&quot;)
 	If InitResources(&quot;&apos;Template&apos;&quot;, &quot;tpl&quot;) Then
 		sGeneralError = GetResText(1302)
 		sTextFieldNotDefined = GetResText(1400)
 	End If

 	UserfieldDatatype(0) = &quot;COMPANY&quot;
 	UserfieldDatatype(1) = &quot;FIRSTNAME&quot;
 	UserfieldDatatype(2) = &quot;NAME&quot;
 	UserfieldDatatype(3) = &quot;SHORTCUT&quot;
 	UserfieldDatatype(4) = &quot;STREET&quot;
 	UserfieldDatatype(5) = &quot;COUNTRY&quot;
 	UserfieldDatatype(6) = &quot;ZIP&quot;
 	UserfieldDatatype(7) = &quot;CITY&quot;
 	UserfieldDatatype(8) = &quot;TITLE&quot;
 	UserfieldDatatype(9) = &quot;POSITION&quot;
 	UserfieldDatatype(10) = &quot;PHONE_PRIVATE&quot;
 	UserfieldDatatype(11) = &quot;PHONE_COMPANY&quot;
 	UserfieldDatatype(12) = &quot;FAX&quot;
 	UserfieldDatatype(13) = &quot;EMAIL&quot;
 	UserfieldDatatype(14) = &quot;STATE&quot;
 	BulletList(0) = 149
 	BulletList(1) = 34
 	BulletList(2) = 65
 	BulletList(3) = 61
 	BulletList(4) = 49
 	BulletList(5) = 47
 	BulletList(6) = 79
 	BulletList(7) = 58

 	oDocAuto = ThisComponent
 	oStyles = oDocAuto.Stylefamilies.GetByName(&quot;NumberingStyles&quot;)

 	&apos; Prepare the Search-Descriptor
 	oSearchDesc = oDocAuto.createsearchDescriptor()
 	oSearchDesc.SearchRegularExpression = True
 	oSearchDesc.SearchWords = True
 	oSearchDesc.SearchString  = &quot;&lt;[^&gt;]+&gt;&quot;
 	oFoundall = oDocAuto.FindAll(oSearchDesc)

 	&apos;Loop over the foundings
 	For i = 0 To oFoundAll.Count - 1
 		oFound = oFoundAll.GetByIndex(i)
 		sFoundString = oFound.String
 		&apos;Extract the string inside the brackets
 		sFoundContent = FindPartString(sFoundString,&quot;&lt;&quot;,&quot;&gt;&quot;,1)
 		sFoundContent = LTrim(sFoundContent)

 		&apos; Define the Cursor and place it on the founding
 		oCursor = oFound.Text.CreateTextCursorbyRange(oFound)

 		&apos; Find out, which object is to be created...
 		FieldStringThere = Instr(1,sFoundContent,&quot;Field&quot;)
 		ULStringThere = Instr(1,sFoundContent,&quot;UL&quot;)
 		PHStringThere = Instr(1,sFoundContent,&quot;Placeholder&quot;)
 		If FieldStringThere = 1 Then
 			CreateUserDatafield(oCursor, sFoundContent)
 		ElseIf ULStringThere = 1 Then
 			CreateBullet(oCursor, oStyles)
 		ElseIf PHStringThere = 1 Then
 			CreatePlaceholder(oCursor, sFoundContent)
 		End If
 	Next i

 	GENERALERROR:
 	If Err &lt;&gt; 0 Then
 		Msgbox(sGeneralError,16, GetProductName())
 		Resume LETSGO
 	End If
 	LETSGO:
 End Sub


 &apos; creates a User - datafield out of a string with the following structure
 &apos; &quot;&lt;field:Company&gt;&quot;
 Sub	CreateUserDatafield(oCursor, sFoundContent as String)
 	Dim MaxIndex as Integer
 	Dim sFoundList(3)
 	Dim oUserfield as Object
 	Dim UserInfo as String
 	Dim UserIndex as Integer

 	oUserfield = oDocAuto.CreateInstance(&quot;com.sun.star.text.TextField.ExtendedUser&quot;)
 	sFoundList() = ArrayoutofString(sFoundContent,&quot;:&quot;,MaxIndex)
 	UserInfo = UCase(LTrim(sFoundList(1)))
 	UserIndex = IndexinArray(UserInfo, UserfieldDatatype())
 	If UserIndex &lt;&gt; -1 Then
 		oUserField.UserDatatype = UserIndex
 		oCursor.Text.InsertTextContent(oCursor,oUserField,True)
 		oUserField.IsFixed = True
 	Else
 		Msgbox(UserInfo &amp;&quot;: &quot; &amp; sTextFieldNotDefined,16, GetProductName())
 	End If
 End Sub


 &apos; Creates a Bullet by setting a soft Formatation on the first unsorted List-Templates with a defined
 &apos; Bullet Id
 Sub	CreateBullet(oCursor, oStyles as Object)
 	Dim n, m, s as Integer
 	Dim StyleSet as Boolean
 	Dim ostyle as Object
 	Dim StyleName as String
 	Dim alevel()
 	StyleSet = False
 	For s = 0 To Ubound(BulletList())
 		For n = 0 To oStyles.Count - 1
 			ostyle = oStyles.getbyindex(n)
 			StyleName = oStyle.Name
 			alevel() = ostyle.NumberingRules.getbyindex(0)
 			&apos; The properties of the style are stored in a Name-Value-Array()
 			For m = 0 to Ubound(alevel())
 				&apos; Set the first Numbering template without a bulletID
 				If (aLevel(m).Name = &quot;BulletId&quot;) Then
 					If alevel(m).Value = BulletList(s) Then
 						oCursor.NumberingStyle = StyleName
 						oCursor.SetString(&quot;&quot;)
 						exit Sub
 					End if
 				End If
 			Next m
 		Next n
 	Next s
 	If Not StyleSet Then
 		&apos; The Template with the demanded BulletID is not available, so take the first style in the sequence
 		&apos; that has a defined Bullet ID
 		oCursor.NumberingStyleName = oStyles.GetByIndex(5).Name
 		oCursor.SetString(&quot;&quot;)
 	End If
 End Sub


 &apos; Creates a placeholder out of a string with the following structure:
 &apos;&lt;placeholder:Showtext:Helptext&gt;
 Sub	CreatePlaceholder(oCursor as Object, sFoundContent as String)
 	Dim oPlaceholder as Object
 	Dim MaxIndex as Integer
 	Dim sFoundList(3)
 	oPlaceholder = oDocAuto.CreateInstance(&quot;com.sun.star.text.TextField.JumpEdit&quot;)
 	sFoundList() = ArrayoutofString(sFoundContent, &quot;:&quot; &amp; chr(34),MaxIndex)
 	&apos; Delete The Double-quotes
 	oPlaceholder.Hint = DeleteStr(sFoundList(2),chr(34))
 	oPlaceholder.placeholder = 	DeleteStr(sFoundList(1),chr(34))
 	oCursor.Text.InsertTextContent(oCursor,oPlaceholder,True)
 End Sub


 </script:module>
	<?xml version="1.0" encoding="UTF-8"?>
	<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
	<!--***********************************************************
	*
	* Licensed to the Apache Software Foundation (ASF) under one
	* or more contributor license agreements. See the NOTICE file
	* distributed with this work for additional information
	* regarding copyright ownership. The ASF licenses this file
	* to you under the Apache License, Version 2.0 (the
	* "License"); you may not use this file except in compliance
	* with the License. You may obtain a copy of the License at
	*
	* http://www.apache.org/licenses/LICENSE-2.0
	*
	* Unless required by applicable law or agreed to in writing,
	* software distributed under the License is distributed on an
	* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
	* KIND, either express or implied. See the License for the
	* specific language governing permissions and limitations
	* under the License.
	*
	***********************************************************-->
	<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Autotext" script:language="StarBasic">Option Explicit

	Public UserfieldDataType(14) as String
	Public oDocAuto as Object
	Public BulletList(7) as Integer
	Public sTextFieldNotDefined as String
	Public sGeneralError as String


	Sub Main()
	Dim oCursor as Object
	Dim oStyles as Object
	Dim oSearchDesc as Object
	Dim oFoundall as Object
	Dim oFound as Object
	Dim i as Integer
	Dim sFoundString as String
	Dim sFoundContent as String
	Dim FieldStringThere as String
	Dim ULStringThere as String
	Dim PHStringThere as String
	On Local Error Goto GENERALERROR
	' Initialization...
	BasicLibraries.LoadLibrary("Tools")
	If InitResources("'Template'", "tpl") Then
	sGeneralError = GetResText(1302)
	sTextFieldNotDefined = GetResText(1400)
	End If

	UserfieldDatatype(0) = "COMPANY"
	UserfieldDatatype(1) = "FIRSTNAME"
	UserfieldDatatype(2) = "NAME"
	UserfieldDatatype(3) = "SHORTCUT"
	UserfieldDatatype(4) = "STREET"
	UserfieldDatatype(5) = "COUNTRY"
	UserfieldDatatype(6) = "ZIP"
	UserfieldDatatype(7) = "CITY"
	UserfieldDatatype(8) = "TITLE"
	UserfieldDatatype(9) = "POSITION"
	UserfieldDatatype(10) = "PHONE_PRIVATE"
	UserfieldDatatype(11) = "PHONE_COMPANY"
	UserfieldDatatype(12) = "FAX"
	UserfieldDatatype(13) = "EMAIL"
	UserfieldDatatype(14) = "STATE"
	BulletList(0) = 149
	BulletList(1) = 34
	BulletList(2) = 65
	BulletList(3) = 61
	BulletList(4) = 49
	BulletList(5) = 47
	BulletList(6) = 79
	BulletList(7) = 58

	oDocAuto = ThisComponent
	oStyles = oDocAuto.Stylefamilies.GetByName("NumberingStyles")

	' Prepare the Search-Descriptor
	oSearchDesc = oDocAuto.createsearchDescriptor()
	oSearchDesc.SearchRegularExpression = True
	oSearchDesc.SearchWords = True
	oSearchDesc.SearchString = "<[^>]+>"
	oFoundall = oDocAuto.FindAll(oSearchDesc)

	'Loop over the foundings
	For i = 0 To oFoundAll.Count - 1
	oFound = oFoundAll.GetByIndex(i)
	sFoundString = oFound.String
	'Extract the string inside the brackets
	sFoundContent = FindPartString(sFoundString,"<",">",1)
	sFoundContent = LTrim(sFoundContent)

	' Define the Cursor and place it on the founding
	oCursor = oFound.Text.CreateTextCursorbyRange(oFound)

	' Find out, which object is to be created...
	FieldStringThere = Instr(1,sFoundContent,"Field")
	ULStringThere = Instr(1,sFoundContent,"UL")
	PHStringThere = Instr(1,sFoundContent,"Placeholder")
	If FieldStringThere = 1 Then
	CreateUserDatafield(oCursor, sFoundContent)
	ElseIf ULStringThere = 1 Then
	CreateBullet(oCursor, oStyles)
	ElseIf PHStringThere = 1 Then
	CreatePlaceholder(oCursor, sFoundContent)
	End If
	Next i

	GENERALERROR:
	If Err <> 0 Then
	Msgbox(sGeneralError,16, GetProductName())
	Resume LETSGO
	End If
	LETSGO:
	End Sub


	' creates a User - datafield out of a string with the following structure
	' "<field:Company>"
	Sub CreateUserDatafield(oCursor, sFoundContent as String)
	Dim MaxIndex as Integer
	Dim sFoundList(3)
	Dim oUserfield as Object
	Dim UserInfo as String
	Dim UserIndex as Integer

	oUserfield = oDocAuto.CreateInstance("com.sun.star.text.TextField.ExtendedUser")
	sFoundList() = ArrayoutofString(sFoundContent,":",MaxIndex)
	UserInfo = UCase(LTrim(sFoundList(1)))
	UserIndex = IndexinArray(UserInfo, UserfieldDatatype())
	If UserIndex <> -1 Then
	oUserField.UserDatatype = UserIndex
	oCursor.Text.InsertTextContent(oCursor,oUserField,True)
	oUserField.IsFixed = True
	Else
	Msgbox(UserInfo &": " & sTextFieldNotDefined,16, GetProductName())
	End If
	End Sub


	' Creates a Bullet by setting a soft Formatation on the first unsorted List-Templates with a defined
	' Bullet Id
	Sub CreateBullet(oCursor, oStyles as Object)
	Dim n, m, s as Integer
	Dim StyleSet as Boolean
	Dim ostyle as Object
	Dim StyleName as String
	Dim alevel()
	StyleSet = False
	For s = 0 To Ubound(BulletList())
	For n = 0 To oStyles.Count - 1
	ostyle = oStyles.getbyindex(n)
	StyleName = oStyle.Name
	alevel() = ostyle.NumberingRules.getbyindex(0)
	' The properties of the style are stored in a Name-Value-Array()
	For m = 0 to Ubound(alevel())
	' Set the first Numbering template without a bulletID
	If (aLevel(m).Name = "BulletId") Then
	If alevel(m).Value = BulletList(s) Then
	oCursor.NumberingStyle = StyleName
	oCursor.SetString("")
	exit Sub
	End if
	End If
	Next m
	Next n
	Next s
	If Not StyleSet Then
	' The Template with the demanded BulletID is not available, so take the first style in the sequence
	' that has a defined Bullet ID
	oCursor.NumberingStyleName = oStyles.GetByIndex(5).Name
	oCursor.SetString("")
	End If
	End Sub


	' Creates a placeholder out of a string with the following structure:
	'<placeholder:Showtext:Helptext>
	Sub CreatePlaceholder(oCursor as Object, sFoundContent as String)
	Dim oPlaceholder as Object
	Dim MaxIndex as Integer
	Dim sFoundList(3)
	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))
	oPlaceholder.placeholder = DeleteStr(sFoundList(1),chr(34))
	oCursor.Text.InsertTextContent(oCursor,oPlaceholder,True)
	End Sub


	</script:module>