wizards/source/gimmicks/AutoText.xba

   1 <?xml version="1.0" encoding="UTF-8"?>
   2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
   3 <!--
   4  * This file is part of the LibreOffice project.
   5  *
   6  * This Source Code Form is subject to the terms of the Mozilla Public
   7  * License, v. 2.0. If a copy of the MPL was not distributed with this
   8  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   9  *
  10  * This file incorporates work covered by the following license notice:
  11  *
  12  *   Licensed to the Apache Software Foundation (ASF) under one or more
  13  *   contributor license agreements. See the NOTICE file distributed
  14  *   with this work for additional information regarding copyright
  15  *   ownership. The ASF licenses this file to you under the Apache
  16  *   License, Version 2.0 (the "License"); you may not use this file
  17  *   except in compliance with the License. You may obtain a copy of
  18  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  19 -->
  20 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="AutoText" script:language="StarBasic">&apos; BASIC
  21 Option Explicit
  22 Dim oDocument as Object
  23 Dim sDocumentTitle as String
  24
  25
  26 Sub Main()
  27 Dim oTable as Object
  28 Dim oRows as Object
  29 Dim oDocuText as Object
  30 Dim oAutoTextCursor as Object
  31 Dim oAutoTextContainer as Object
  32 Dim oAutogroup as Object
  33 Dim oAutoText as Object
  34 Dim oCharStyles as Object
  35 Dim oContentStyle as Object
  36 Dim oHeaderStyle as Object
  37 Dim oGroupTitleStyle as Object
  38 Dim n, m, iAutoCount as Integer
  39         BasicLibraries.LoadLibrary(&quot;Tools&quot;)
  40         sDocumentTitle = &quot;Installed AutoTexts&quot;
  41
  42         &apos; Open a new empty document
  43         oDocument = CreateNewDocument(&quot;swriter&quot;)
  44         If Not IsNull(oDocument) Then
  45                 oDocument.DocumentProperties.Title = sDocumentTitle
  46                 oDocuText = oDocument.Text
  47
  48                 &apos; Create The Character-templates
  49                 oCharStyles = oDocument.StyleFamilies.GetByName(&quot;CharacterStyles&quot;)
  50
  51                 &apos; The Characterstyle for the Header that describes the Title of Autotextgroups
  52                 oGroupTitleStyle = oDocument.createInstance(&quot;com.sun.star.style.CharacterStyle&quot;)
  53                 oCharStyles.InsertbyName(&quot;AutoTextGroupTitle&quot;, oGroupTitleStyle)
  54
  55                 oGroupTitleStyle.CharWeight = com.sun.star.awt.FontWeight.BOLD
  56                 oGroupTitleStyle.CharHeight = 14
  57
  58                 &apos; The Characterstyle for the Header that describes the Title of Autotextgroups
  59                 oHeaderStyle = oDocument.createInstance(&quot;com.sun.star.style.CharacterStyle&quot;)
  60                 oCharStyles.InsertbyName(&quot;AutoTextHeading&quot;, oHeaderStyle)
  61                 oHeaderStyle.CharWeight = com.sun.star.awt.FontWeight.BOLD
  62
  63                 &apos; &quot;Ordinary&quot; Table Content
  64                 oContentStyle = oDocument.createInstance(&quot;com.sun.star.style.CharacterStyle&quot;)
  65                 oCharStyles.InsertbyName(&quot;TableContent&quot;, oContentStyle)
  66
  67                 oAutoTextContainer = CreateUnoService(&quot;com.sun.star.text.AutoTextContainer&quot;)
  68
  69                 oAutoTextCursor = oDocuText.CreateTextCursor()
  70
  71                 oAutoTextCursor.CharStyleName = &quot;AutoTextGroupTitle&quot;
  72                 &apos; Link the Title with the following table
  73                 oAutoTextCursor.ParaKeepTogether = True
  74
  75                 For n = 0 To oAutoTextContainer.Count - 1
  76                         oAutoGroup = oAutoTextContainer.GetByIndex(n)
  77
  78                         oAutoTextCursor.SetString(oAutoGroup.Title)
  79                         oAutoTextCursor.CollapseToEnd()
  80                         oDocuText.insertControlCharacter(oAutoTextCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False)
  81                         oTable = oDocument.CreateInstance(&quot;com.sun.star.text.TextTable&quot;)
  82                         &apos; Divide the table if necessary
  83                         oTable.Split = True
  84 &apos;                  oTable.KeepTogether = False
  85                         oTable.RepeatHeadLine = True
  86                         oAutoTextCursor.Text.InsertTextContent(oAutoTextCursor,oTable,False)
  87                         InsertStringToCell(&quot;AutoText Name&quot;,oTable.GetCellbyPosition(0,0), &quot;AutoTextHeading&quot;)
  88                         InsertStringToCell(&quot;AutoText Shortcut&quot;,oTable.GetCellbyPosition(1,0), &quot;AutoTextHeading&quot;)
  89                         &apos; Insert one row at the bottom of the table
  90                         oRows = oTable.Rows
  91                         iAutoCount = oAutoGroup.Count
  92                         For m = 0 To iAutoCount-1
  93                                 &apos; Insert the name and the title of all Autotexts
  94                                 oAutoText = oAutoGroup.GetByIndex(m)
  95                                 InsertStringToCell(oAutoGroup.Titles(m), oTable.GetCellbyPosition(0, m + 1), &quot;TableContent&quot;)
  96                                 InsertStringToCell(oAutoGroup.ElementNames(m), oTable.GetCellbyPosition(1, m + 1), &quot;TableContent&quot;)
  97                                 If m &lt; iAutoCount-1 Then
  98                                         oRows.InsertbyIndex(m + 2,1)
  99                                 End If
 100                         Next m
 101                         oDocuText.insertControlCharacter(oAutoTextCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False)
 102                         oAutoTextCursor.CollapseToEnd()
 103                 Next n
 104         End If
 105 End Sub
 106
 107
 108 Sub InsertStringToCell(sCellString as String, oCell as Object, sCellStyle as String)
 109 Dim oCellCursor as Object
 110         oCellCursor = oCell.CreateTextCursor()
 111         oCellCursor.CharStyleName = sCellStyle
 112         oCell.Text.insertString(oCellCursor,sCellString,False)
 113         oDocument.CurrentController.Select(oCellCursor)
 114 End Sub</script:module>