To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=93535
------- Additional comments from [EMAIL PROTECTED] Sat Sep 6 23:46:17 +0000
2008 -------
Here is a screenshot. In the background (top) is Benner's Lexicon with jumbled
display. In the foreground is my test file. Read the comments on it also.
Here are the two macros to map the font up and down. Select some text and then
run the macro.
Sub SetUStr
oVC = ThisComponent.currentcontroller.getViewCursor
aString = oVC.String
x=61440 'F000
for i= 1 to len(aString)
mid(aString, i,1)=chr(asc(mid(aString, i,1)) Or x) 'Bitwise Or.
next
oVC.setString(aString)
End Sub 'SetUStr
Sub SetAStr
oVC = ThisComponent.currentcontroller.getViewCursor
aString = oVC.String
x=255 '00FF
for i= 1 to len(aString)
mid(aString, i,1)=chr(asc(mid(aString, i,1)) And x) 'Bitwise And.
next
oVC.setString(aString)
End Sub 'SetAStr
---------------------------------------------------------------------
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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
