OpenOffice.info

Code: Alles auswählen

   oDoc = thisComponent
	oSearchDescriptor = oDoc.createSearchDescriptor
	With oSearchDescriptor
		.searchWords = True
		.searchString = "Leistungserbringung:"
	End With
	oResult = oDoc.findAll(oSearchDescriptor)
	If oResult.Count = 0 Then
		Exit Sub
	End If
	oCursor = oResult(0).Text.createTextCursor
	oCursor.gotoRange(oResult(0),False)
	If NOT oCursor.gotoNextWord(False) OR NOT oCursor.isStartofWord Then
		oCursor.gotoRange(oResult(0),False)
		oCursor.gotoPreviousWord(False)
		oCursor.gotoStart(True)
		oCursor.Cell.String = oCursor.String
	End If

Code: Alles auswählen

oItemServiceDate = false

Code: Alles auswählen

	sub InsertBelegnummer
		InsertPlaceholder("TransNumber", "Belegnummer")
   end sub

Code: Alles auswählen

Sub Example_RemoveAllPlaceholders
	dim oDoc as object
	dim oEnum as object
	dim oTField as object
	dim anc as object
	dim StyleFamilies as object
	dim PageStyles as object
	dim DefPage as object
	dim header as object
	
	oDoc = ThisComponent	
	
     StyleFamilies = oDoc.StyleFamilies
     PageStyles = StyleFamilies.getByName("PageStyles")
     DefPage = PageStyles.getByName("Standard")

	
	header=DefPage.headertext
	header.TextFields.createEnumeration
  	header.setString("Hallo")
	
	oEnum = oDoc.TextFields.createEnumeration
	
	Do While oEnum.hasMoreElements
		oTField = oEnum.nextElement
		If oTField.supportsService("com.sun.star.text.TextField.JumpEdit") Then
			
			anc = oTField.getAnchor()
			oDoc.Text.insertString(anc, ">>>>test<<<<", true)
			'oDoc.Text.removeTextContent(oTField)
		End If
	Loop

End Sub


sub Test
	InsertPlaceholder("a1", "b1")
	InsertPlaceholder("a2", "b2")
	InsertPlaceholder("a3", "b3")
	InsertPlaceholder("a4", "b4")
	InsertPlaceholder("a5", "b5")
end sub

sub InsertPlaceholder(nameString as String, tipString as String)
	rem ----------------------------------------------------------------------
	rem define variables
	dim document   as object
	dim dispatcher as object
	rem ----------------------------------------------------------------------
	rem get access to the document
	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

	rem ----------------------------------------------------------------------
	dim args1(5) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "Type"
	args1(0).Value = 38
	args1(1).Name = "SubType"
	args1(1).Value = 0
	args1(2).Name = "Name"
	args1(2).Value = nameString
	args1(3).Name = "Content"
	args1(3).Value = tipString
	args1(4).Name = "Format"
	args1(4).Value = 0
	args1(5).Name = "Separator"
	args1(5).Value = " "
	
	dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args1())

end sub

Code: Alles auswählen

	Dim oDoc as Object, TextFields as Object
	Dim thisField as Object, oCursor as Object, Anchor as Object
	oDoc = thiscomponent
	TextFields = oDoc.TextFields.createEnumeration
	
	Do While TextFields.hasMoreElements
		thisField = TextFields.NextElement
		If thisField.supportsService("com.sun.star.text.textfield.JumpEdit") Then
			If thisField.Placeholder = "ItemServiceDate" Then
				oCursor = oDoc.CurrentController.getViewCursor
				Anchor = thisField.Anchor
				oCursor.gotoRange(Anchor,False)
				oCursor.gotoStartOfLine(True)
				oCursor.Text.setString("")
				Exit Sub
			End If
		End If
	Loop

Code: Alles auswählen

Option Explicit

Code: Alles auswählen

Sub Platzhalter_finden
Dim oItemServiceDate as boolean
Dim odoc as Object
Dim oTxtFelder as Object
Dim oFeld as Object
   oDoc = thisComponent

Code: Alles auswählen

Sub Platzhalter_finden
Dim oItemServiceDate as boolean
	oDoc = thisComponent
	oItemServiceDate = false
	oTxtFelder = oDoc.getTextFields().createEnumeration()
	do while oTxtFelder.hasmoreElements()
	oFeld = oTxtFelder.nextElement
'	xray ofeld
	if oFeld.Placeholder = "ItemServiceDate" then
	oItemServiceDate = True
	end if
	loop
	if oItemServiceDate = true then
	MsgBox "Mache nichts und beende weil kein Datum vorhanden! "
	Exit Sub
	end if
	MsgBox "Tu irgendwas weil Datum vorhanden! "
End Sub