To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=8824
------- Additional comments from fgri...@openoffice.org Wed Sep 9 15:14:36
+0000 2009 -------
Hi, I have mad a small OpenOffice.BASIC Script to implement the sorely missed
increase / decrease function. Open the Macro Manager and choose Edit to paste
the following code. Finally I have assigned Strg+8 and Strg+9 to the macro
functions.
<code>
REM ***** BASIC *****
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
objDoc = ThisComponent
objSelections = objDoc.getCurrentSelection()
For iCount = 0 To objSelections.Count-1
objSel = objSelections(iCount)
objCursor = objDoc.Text.createTextCursorByRange(objSel)
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-1
Wend
End If
Next
End Sub
Sub IncreaseSelected
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
objDoc = ThisComponent
objSelections = objDoc.getCurrentSelection()
For iCount = 0 To objSelections.Count-1
objSel = objSelections(iCount)
objCursor = objDoc.Text.createTextCursorByRange(objSel)
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+1
Wend
End If
Next
End Sub
</code>
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: issues-unsubscr...@framework.openoffice.org
For additional commands, e-mail: issues-h...@framework.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: allbugs-unsubscr...@openoffice.org
For additional commands, e-mail: allbugs-h...@openoffice.org
