LibreOffice-Forum

Code: Alles auswählen

Sub test_paragraph

Dim Doc As Object
Dim Enum1 As Object
Dim Enum2 As Object
Dim TextElement As Object
Dim TextPortion As Object

Doc = ThisComponent
Enum1 = Doc.Text.createEnumeration()

'loop over all paragraphs
While Enum1.hasMoreElements
	TextElement = Enum1.nextElement
	If TextElement.supportsService("com.sun.star.text.Paragraph") Then
		Enum2 = TextElement.createEnumeration
		'loop over all sub-paragraphs
		While Enum2.hasMoreElements
			TextPortion = Enum2.nextElement
			If TextPortion.String = "" Then
				MsgBox "empty"
			Else
				MsgBox "'" & TextPortion.String & "'"
			End If
		Wend
	End If
Wend

End Sub

Code: Alles auswählen

sub Bild_oder_Umbruch_an_Cursor_Stelle
oDoc = ThisComponent
oText = oDoc.Text
oRange = oDoc.currentSelection(0)
g = oDoc.CurrentSelection(0)
  
go = oDoc.getGraphicObjects
For i = 0 to go.Count-1
	g = go.getByIndex(i)

	rem Vergleich ob der kollabierte Cursor (Länge 0) mit dem Anker eines Bildes übereinstimmt.
	if len(oRange.getstring())=0 AND oText.compareRegionStarts(g.anchor, oRange)=0 then
	  	msgbox g.name
	end if
	
	
next

rem  kein Seitenumbruch = 0
rem  Seitenumbruch "vor" = 4
rem  Seitenumbruch "danach" = 5
msgbox oRange.BreakType

end sub

Code: Alles auswählen

Sub test_paragraph

Dim Doc As Object
Dim Enum1 As Object
Dim Enum2 As Object
Dim TextElement As Object
Dim TextPortion As Object
Dim ViewCursor As Object
Dim Document   As Object
Dim Dispatcher As Object
Dim i As Integer, j As Integer, k As Integer

Doc = ThisComponent
Enum1 = Doc.Text.createEnumeration()
Document = Doc.CurrentController.Frame
Dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
ViewCursor = ThisComponent.getCurrentController().getViewCursor()

Call replace_whitespaces

i = 0 'counts the paragraphs
j = 0 'counts the sub-paragraphs
k = 0 'counts the empty paragraphs; if k > 1, the paragraph will be deleted; if the paragraph is not empty, k will be resetted to 0

'loop over all paragraphs
While Enum1.hasMoreElements
	TextElement = Enum1.nextElement
	i = i + 1
	If TextElement.supportsService("com.sun.star.text.Paragraph") Then
		Enum2 = TextElement.createEnumeration
		'loop over all sub-paragraphs
		Do While Enum2.hasMoreElements
			TextPortion = Enum2.nextElement
			j = j + 1
			If j = 1 Then
				If TextPortion.String = "" Then
					k = k + 1
				Else
					k = 0
				End If
			ElseIf j > 1 Then	
				k = 0
				Exit Do
			End If
		Loop
		If k = 2 Then
			ViewCursor.gotoRange(TextElement, false)
			Dispatcher.executeDispatch(Document, ".uno:Delete", "", 0, Array())
		End If
		j = 0
	End If
Wend

MsgBox s

End Sub

'===========

Sub replace_whitespaces

Dim Doc As Object
Dim Replace As Object

Doc = ThisComponent
Replace = Doc.createReplaceDescriptor
Replace.SearchRegularExpression = True
Replace.SearchString = "^\s*$"
Replace.ReplaceString = ""
Doc.replaceAll(Replace)

End Sub

Code: Alles auswählen

Sub delte_paragraph

Dim Document As Object
Dim Dispatcher As Object

Document = ThisComponent.CurrentController.Frame
Dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

Dispatcher.executeDispatch(document, ".uno:Delete", "", 0, Array())

End Sub

Code: Alles auswählen

Document = doc.Current.Controller.Frame

Code: Alles auswählen

Document = doc.CurrentController.Frame