OpenOffice.info

Code: Alles auswählen

Sub textfelder
	
	Dim oDoc as Object
	Dim textFieldEnumeration as Object
	Dim currentField as Object
	
	oDoc = thisComponent
	textFieldEnumeration = oDoc.getTextFields().createEnumeration() 
	
	' loop durch alle Felder
	While textFieldEnumeration.hasMoreElements()
	
		currentField = textFieldEnumeration.nextElement()
		If currentField.supportsService( "com.sun.star.text.TextField.Annotation" ) Then
			MsgBox currentField.Date.Day & "." & _
				currentField.Date.Month & "." & _
				currentField.Date.Year & ":" & chr(13) & _
				currentField.Author & chr(13) & _
				currentField.Content
		ElseIf currentField.supportsService( "com.sun.star.text.TextField.SetExpression" ) Then
			MsgBox currentField.VariableName & chr(13) & currentField.Content
		End If
	Wend
End Sub

Code: Alles auswählen

thisComponent.getBookmarks().getByName("test").getAnchor.setString("What you want to insert")

Code: Alles auswählen

Sub Main 
	DisplayMethods( thisComponent, "" )
	DisplayMethods( thisComponent, "props" )
	DisplayMethods( thisComponent, "interfaces" )
End Sub


Sub DisplayMethods(oObj As Object, SWhat As String)
	DIM sMethodList As String, sMsgBox As String
	DIM fs, ep As Integer
	DIM i As Integer
	DIM EOL As Boolean

	if sWhat = "" then
		sMethodList = oObj.DBG_methods
	elseif sWhat = "props" then
		sMethodList = oObj.DBG_Properties
	else
		sMethodList = oObj.DBG_SupportedInterfaces
	endif
	fs = 1
	EOL = FALSE

	While fs <= Len(sMethodList)
		sMsgBox = ""
		For i = 0 to 15
			ep = InStr(fs, sMethodList, ";")
			if ep = 0 then
				ep = Len(sMethodList)
			endif
			sMsgBox = sMsgBox & Mid$(sMethodList, fs, ep - fs) & Chr$(13)
			fs = ep + 1
		Next i
		MsgBox sMsgBox
	Wend
End Sub

Code: Alles auswählen

Sub Main
	
	Dim oDoc as Object
	Dim textFieldEnumeration as Object
	Dim currentField as Object 
	
	oDoc = thisComponent
	textFieldEnumeration = oDoc.getTextFields().createEnumeration()
	
	' loop durch alle Felder
	While textFieldEnumeration.hasMoreElements() 

		currentField = textFieldEnumeration.nextElement()
		
		' test nach dem Variablenname des Feldes
		If currentField.VariableName = "Name" then

			currentField.Content = "Ein Name über OOBasic gesetzt"
		Elseif currentField.VariableName = "Vorname" then

			currentField.Content = "Ein Vorname über OOBasic"
		Elseif currentField.VariableName = "Strasse" then

			currentField.Content = "Eine Strasse über OOBasic"
		Else

			currentField.Content = "Unbekanntes Feld"
		End If
	Wend
	
	'  wichtig !! Refresh damit die Änderungen 
	'  im Dokument angezeigt werden
	oDoc.getTextFields().refresh()	
	
End Sub

Code: Alles auswählen

 odoc=thiscomponent 
 oDoc.getBookmarks().getByName("test").getAnchor.setString("What you want to insert")

Code: Alles auswählen

sub test
 dateneintragen("Meintext", "Textmarke")
end Sub

Sub DatenEintragen( stext, sBookMark as String)
   oDoc = ThisComponent
   On Error Goto Errorhandler
   oRangeCursor = JumpToBookmark( oDoc,sBookMark )
   oRangeCursor.String = stext
   Exit Sub
   Errorhandler:
End Sub

Function JumpToBookmark( oDoc As Object, sBookmarkName As String ) As Object
' Jump to the Bookmark and get the Cursor from the selection
	Dim oBookmark As Object
	oBookmark = oDoc.Bookmarks.getByName(sBookmarkName)
	oBookmarkAnchor = oBookmark.Anchor
	oRangeCursor = oDoc.Text.createTextCursorByRange( oBookmarkAnchor )
	JumpToBookmark = oRangeCursor
End Function

Code: Alles auswählen

oDoc.getBookmarks().getByName("Textmarke").getAnchor.setString(
"Text")