Date: prev next · Thread: first prev next last
2013 Archives by date, by thread · List index


Hi Steve,

Steve Gruspier schrieb:
Hello:

I was wondering if this was the place to request a feature. I was
thinking the "Special Character" section is very cluttered. My feature
request is a setting that would narrow down special characters to ones
that are used in specific fields such as "Engineering" or "Physics".
Something along those lines that could help people become more efficient
using Libreoffice. I am constantly using special characters such as the
ohms (uppercase omega) symbol for resistance, particularly when I use
Libreoffice to generate tests.

I do not like the idea to remove characters or group them in another way. The Unicode groups are well defined and easy to handle.

But I would like the idea of a user defined, "favorite characters" list or similar, or even more then one, each for a special topic.

For your problem I think of this methods:
* Write an Autotext or a document, which contains all your favorite characters. Open it beside your actual text and use copy&paste to insert the characters. * Use your OS to insert the character by typing the number; you need a list of numbers beside your keyboard. * Use a macro to insert a special character. You can connect the macro to a button; I use the character itself as "name" of the button, so it is shown on the button. So you can generate your own toolbar with your favorite characters. For Writer such macro in Basic is for example (I hope the line end are set correctly in mail transport):

Sub lcl_InsertCharacter_Writer(byval sChar as string)
Dim oDoc as variant: oDoc = ThisComponent
Dim oCurrentController as variant: oCurrentController = oDoc.getCurrentController() if not(oCurrentController.supportsService("com.sun.star.text.TextDocumentView")) then
        msgbox("Only for Writer")
        exit sub
end if
Dim oTextViewCursor as variant: oTextViewCursor = oCurrentController.getViewCursor()
Dim oText as variant
If IsEmpty(oTextViewCursor.Cell) Then
        oText=oTextViewCursor.Text
Else
        oText=oTextViewCursor.Cell.Text
End If
oText.insertString(oTextViewCursor,sChar,false)
End Sub

That is the general method, and for each single character:
sub OE_Lower_Ligature
        lcl_InsertCharacter_Writer(chr(clng("&H153")))
end sub

Here &H153 is the number of the character œ , &H is the markup for a hex-number and 153 is the number itself, as can be seen in the special character dialog.

Kind regards
Regina




--
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.