OpenOffice.info

sub Majuskel
	Dim oDoc as object : oDoc = ThisComponent
	Dim oViewC as object : oViewC = oDoc.getCurrentController().getViewCursor()
	Dim oTextC as object
	If NOT isEmpty(oViewC.textTable) then
		oZelle = oViewC.Cell
		oTextC = oZelle.getText().createTextCursorByRange( oViewC )
		Else
		oTextC = oDoc.text.createTextCursorByRange(oViewC)
	Endif
	oTextC.gotoStartOfWord(False) : oTextC.goRight(1, True)
	Dim sAnf as String : sAnf = oTextC.getString()
	sAnf = UCase(sAnf)
	oTextC.setString(sAnf, True)
end sub

Hallo Winfried,
man sollte doch besser alles genau durchlesen, bevor man weiter fragt... :?
Ich habe die Lösung ohne Probleme in deinem Makro gefunden, [b]vielen Dank![/b] Ich benutze sie, um ein versehentlich klein geschriebens Wort mit einem großen Anfangsbuchstaben zu versehen:
[code]sub Majuskel
Dim oDoc as object : oDoc = ThisComponent
Dim oViewC as object : oViewC = oDoc.getCurrentController().getViewCursor()
Dim oTextC as object
If NOT isEmpty(oViewC.textTable) then
oZelle = oViewC.Cell
oTextC = oZelle.getText().createTextCursorByRange( oViewC )
Else
oTextC = oDoc.text.createTextCursorByRange(oViewC)
Endif
oTextC.gotoStartOfWord(False) : oTextC.goRight(1, True)
Dim sAnf as String : sAnf = oTextC.getString()
sAnf = UCase(sAnf)
oTextC.setString(sAnf, True)
end sub[/code]

Alles Gute
matthias

Hallo Winfried, hallo Forum,

gibt es auch eine Möglichkeit,
den [b]Textcursor [/b]genau an die Stelle [b]in einer Texttabelle[/b] zu setzen, an der der [b]Viewcursor [/b]steht?

Im Prinzip bräuchte ich zwischen
[color=#0000FF]If NOT IsEmpty( oViewCursor.TextTable ) Then[/color]
und dem
[color=#0000FF]End If[/color]
einen Befehl, der genau an der Stelle einen Textcursor generiert.

Wahrscheinlich ist das Problem ganz leicht zu lösen, aber weder "Versuch-macht kluch" noch Literaturrecherche bringen mich wirklich weiter. Der ViewCursor lässt sich nicht wortweise bewegen, und an der oben genannten Stelle kriege ich keinen Textcursor generiert.

Alles Gute
matthias

oViewCursor = _
 ThisComponent.getCurrentController().getViewCursor()
oTempTextCursor = _
 ThisComponent.getText().createTextCursor()
oTempTextCursor.gotoRange( oViewCursor , FALSE )

If NOT IsEmpty( oViewCursor.TextTable ) Then
 print "Cursor in einer Texttabelle"
 exit Sub
End If

Erzeuge einen TextCursor und bewege ihn zum ViewCursor:
[code]
oViewCursor = _
ThisComponent.getCurrentController().getViewCursor()
oTempTextCursor = _
ThisComponent.getText().createTextCursor()
oTempTextCursor.gotoRange( oViewCursor , FALSE )[/code]
Du möchtest etwas ändern/einfügen, sonst würde Dir ja der ViewCursor ausreichen, oder?

sieh' Dir mal den Code aus [i]DateTime2[/i], Routine [color=#008000]DateTime_setWriter[/color] an:
[code]If NOT IsEmpty( oViewCursor.TextTable ) Then
print "Cursor in einer Texttabelle"
exit Sub
End If[/code]

Hilft das weiter?