Apache OpenOffice Community Forum

Code: Select all

{title: In Times of Trial}

Code: Select all

{subtitle:Traditional}
{c:Verse1}

Code: Select all

Sub EnumerateParagraphs
REM Author: Andrew Pitonyak
Dim oParEnum 'Enumerator used to enumerate the paragraphs
Dim oPar 'The enumerated paragraph
REM Enumerate the paragraphs.
REM Tables are enumerated along with paragraphs
oParEnum = ThisComponent.getText().createEnumeration()
Do While oParEnum.hasMoreElements()
oPar = oParEnum.nextElement()
REM This avoids the tables. Add an else statement if you want to
REM process the tables.
If oPar.supportsService("com.sun.star.text.Paragraph") Then
MsgBox oPar.getString(), 0, "I found a paragraph"
ElseIf oPar.supportsService("com.sun.star.text.TextTable") Then
Print "I found a TextTable"
Else
Print "What did I find?"
End If
Loop
End Sub

Code: Select all

Sub seachReplaceStyles()
	Dim   mySearch As Object,    myResult As Object, myElement As Object
	Dim myString() As String, myStyleName As String
	Dim          i As Integer

	mySearch = thisComponent.createSearchDescriptor()

	mySearch.searchString            = "\{.{1,}:.{1,}\}"                     ' The string that you search.
	mySearch.searchRegularExpression = True

	myResult = thisComponent.findAll(mySearch)
       
	If myResult.hasElements Then
	 For i = 0 to myResult.count-1
	                   myElement = myResult.getByIndex(i)
	                    myString = split(myElement.string, ":")
	                 myStyleName = right(myString(0), len(myString(0)) - 1)
	                 myString(0) = ""
	  myString(uBound(myString)) = left(myString(uBound(myString)), len(myString(uBound(myString))) - 1)
	            myElement.string = join(myString, "")
	     myElement.ParaStyleName = myStyleName                               ' The style that you apply to your string.
     Next i
    End If
End Sub

Code: Select all

Sub EnumerateParagraphs
	MODIFIED FROM REM Author: Andrew Pitonyak
	Dim oParEnum 'Enumerator used to enumerate the paragraphs
	Dim oPar 'The enumerated paragraph
	REM Enumerate the paragraphs.
	REM Tables are enumerated along with paragraphs
	oParEnum = ThisComponent.getText().createEnumeration()
	Do While oParEnum.hasMoreElements()
		oPar = oParEnum.nextElement()
		REM This avoids the tables. Add an else statement if you want to
		REM process the tables.
		If oPar.supportsService("com.sun.star.text.Paragraph") Then
			st= TRIM(oPar.getString())
			if left(st,1) = "{" and right(st,1) ="}" then
				a= instr(1,st,":")
				if a then
					stylename = trim(mid(st,2,a-2))


					if stylename = "c" then stylename = "callout"

					st=TRIM(mid(st,a+1,len(st) - a-1))
					oPar.parastylename = stylename
					oPar.string = st

				end if
			end if

			'ElseIf oPar.supportsService("com.sun.star.text.TextTable") Then
			'Print "I found a TextTable"
			'Else
			'Print "What did I find?"
		End If
Loop
End Sub