Re: [libreoffice-users] special characters from keyboard?

Hi Gary,

if you want to go with macros, the following will work:
The general part once (you might need to correct line breaks):

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 text documents")
        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


And then for each desired character, for example:

sub S_Lower_Hatchek
        lcl_InsertCharacter_Writer(chr(clng("&H0161")))
end sub

sub C_Upper_Cedilla
        lcl_InsertCharacter_Writer(chr(clng("&Hc7")))
end sub

Of cause you need to adapt the number "&H0161" or "&Hc7" to your 
character. You can assign a short-cut to macros. Macros are at the 
bottom of the Category list in the Keyboard tab of the Customize dialog.

I found it difficult to remember short-cuts. Therefore I had made an own 
toolbar for these characters, where I used the character itself as name 
for the icon. I had added the macros and the toolbar to a document 
template. I had used it many yours ago for my pupils, so that they could 
easily write French texts. But with the new special character dialog, 
such is not really needed nowadays.

Kind regards
Regina


--
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/global/users/
Privacy Policy: https://www.documentfoundation.org/privacy