OpenOffice.info

Code: Alles auswählen

Sub DecreaseSelected
	Dim objDoc As Object
	Dim objSelections As Object
	Dim objSel As Object
	Dim objCursor As Object
	Dim iCount As Integer
	Dim oTextElementEnum As Object
	Dim oTextElement As Object
	Dim iPt As Integer
	iPt= InputBox ("Bitte eine Pt-Verkleinerung eingeben:","Schrifthöhe ändern:","1")	
	objDoc = ThisComponent
	objSelections = objDoc.getCurrentSelection()
	For iCount = 0 To objSelections.Count-1
		objSel = objSelections(iCount)
		objCursor = objDoc.Text.createTextCursorByRange(objSel)
		xray objCursor
	'	If  objCursor.IsCollapsed() Then Msgbox "kein Text ist selektiert"
		If Not objCursor.IsCollapsed() Then 'is not emtpy
			
			oTextElementEnum = objCursor.createEnumeration()
			While oTextElementEnum.hasMoreElements()
	      		oTextElement = oTextElementEnum.nextElement
	      		'verkleinern um 1 pt.
				oTextElement.CharHeight = oTextElement.CharHeight-iPt
	      	Wend
		End If
	Next
End Sub

Code: Alles auswählen

Sub TextSel
oVC = ThisComponent.CurrentController.getViewCursor
If oVC.isCollapsed then 
	msgbox "kein Text selektiert"
	exit sub
end if
If not oVC.isCollapsed then msgbox "Text selekiiert"

End Sub