OpenOffice.info

Code: Alles auswählen

Sub GrossKleinSchreibung
dim LenString as integer
	myDoc=thisComponent
	myViewCursor=myDoc.GetCurrentController.ViewCursor
	LenString = Len(myviewCursor.string)

	oText = myDoc.getText   
	oCursor = oText.createTextCursor()	
	oCursor.gotoRange(myViewCursor,false) 
	oCursor.gotoStartOfWord(False)
	myViewCursor.gotoRange(oCursor,false)   
	myViewCursor.goRight(1,false)
	myViewCursor.goRight(1,true)
	buchstabe = myviewCursor.string

	if myviewCursor.string = ucase(buchstabe) then   
	oCursor.gotoStartOfWord(False)
	myViewCursor.gotoRange(oCursor,false)   
	myViewCursor.goRight(1,false)
	myViewCursor.goRight(LenString -1,true)
	buchstabe = myviewCursor.string   
	myviewCursor.string=lcase(buchstabe)
	myViewCursor.goleft(1,false)
	myViewCursor.goright(LenString,true)
	exit Sub
	end if
   
	oCursor.gotoRange(myViewCursor,false)
	oCursor.gotoStartOfWord(False)   
	myViewCursor.gotoRange(oCursor,false)
	myViewCursor.goRight(1,true)
	buchstabe = myviewCursor.string
	
	if myviewCursor.string = ucase(buchstabe) then
	myviewCursor.string=lcase(buchstabe)
	else
	myviewCursor.string=ucase(buchstabe)
	end if   
    
End Sub

Code: Alles auswählen

Sub GrossKleinSchreibung
   myDoc=thisComponent
   myViewCursor=myDoc.GetCurrentController. ViewCursor
   oText = myDoc.getText   
   oCursor = oText.createTextCursor() 
   oCursor.gotoRange(myViewCursor,false)
   oCursor.gotoStartOfWord(False)
   myViewCursor.gotoRange(oCursor,false)
   myViewCursor.goRight(1,true)
   buchstabe = myviewCursor.string
   if myviewCursor.string = lcase(buchstabe) then   
   myviewCursor.string=ucase(buchstabe)
   else
   myviewCursor.string=lcase(buchstabe)
   end if
   myViewCursor.goright(1,false)
End Sub

Code: Alles auswählen

Sub GroKlei
Dim sText As String
sText=""
'aktuelles Dokument
xDoc=ThisComponent
xController=xDoc.CurrentController
'Cursor im Doc
xVCrsr=xController.getViewCursor
CurPos=xVCrsr.getPosition()
'gesamtes Dokument
oText=xDoc.Text
xSelection = xDoc.CurrentController.getSelection
'Range des aktuellen Selection
xRange=xSelection(0)
xCursor=xRange.getText.createTExtCursorByRange(xRange)
'Wort markieren
sText=xCursor.GetString()

If Len(sText) <= 0 Then
xCursor.gotoStartOfWord(False)
xCursor.GotoEndOfWord(True)

'String aus Wort ermitteln
sText=xCursor.GetString()
End If

'klein > groß
If sText=LCase(sText) Then
sText=UCase(Left$(sText,1)) + Right$(sText, Len(sText)-1)
'Einfügen
oText.InsertString(xCursor,sText,True)
Exit Sub
End If

'groß > klein
If sText=UCase(sText) Then 
oText.InsertString(xCursor,strConvert(stext,0),True)
Exit Sub
End If

'gemischt
If Left$(sText,1) = UCase(Left$(sText,1)) Then
oText.InsertString(xCursor,strConvert(stext,1),True)
Exit Sub
End If
oText.InsertString(xCursor,strConvert(stext,1),True)
End Sub

Function strConvert (cText As String, Flag As Integer) As String
iRun = 1
while iRun < Len(cText)+1
If Flag=1 Then
Mid( cText ,iRun, 1, UCase(Mid(cText,iRun,1))
Else
Mid( cText ,iRun, 1, LCase(Mid(cText,iRun,1))
End If
iRun = iRun + 1
Wend
strConvert=cText
End Function