[el-users] Σχετ: [el-users] Συντομεύσεις πλήκτρων

Μπορείς να το πετύχεις με χρήση μακροεντολής την οποία και θα συνδέσεις με κάποιο συνδυασμό 
πλήκτρων.Η σχετική ερώτηση υπάρχει στο αγγλικό forum του LO στη διεύθυνση: Special characters 
[closed] - Ask LibreOffice
  
|  
|  
|  
|   |    |

  |

  |
|  
|   |  
Special characters [closed] - Ask LibreOffice
 Is it possible for a LibreOffice (I'm using 3.6.0.0. beta2 version now) to configure specified 
special chara...  |   |

  |

  |

 

Με απλά λόγια πρέπει να ακολουθήσεις τα εξής βήματα:
1. Εργαλεία -> Μακροεντολές -> Οργάνωση μακροεντολών -> Libreoffice basic
2. Επιλέγεις "Οι μακροεντολές μου" και μετά "Δημιουργία" και δημιουργείς ένα νέο αρχείο 
μακροεντολών με όνομα MyShortcuts.
3. Στο αρχείο Basic που θα ανοίξει (με το ανάλογο περιβάλλον) γράψε τις εξής μακροεντολές:
Sub insert_three_dots
    Dim oDoc as variant
    oDoc = ThisComponent
    Dim oCurrentController as variant
    oCurrentController = oDoc.getCurrentController()
    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,chr(clng("&H2026")),false)
End Sub


Sub insert_upper_dot
    Dim oDoc as variant
    oDoc = ThisComponent
    Dim oCurrentController as variant
    oCurrentController = oDoc.getCurrentController()
    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,chr(clng("&H00B7")),false)
End Sub

4. Μετά επιλέγεις Εργαλεία -> Προσαρμογή -> Πληκτρολόγιο. 

5. Επιλέγεις από τη λίστα των συντομεύσεων μία που δεν έχει αντίστοιχη προκαθορισμένη ενέργεια 
(π.χ. την Alt + Ο) και μετά επιλέγεις από κάτω Κατηγορία: Μακροεντολές LibreOffice -> user -> 
Standard -> MyShortcuts, Λειτουργία: insert_three_dots και επιλέγεις "Τροποποίηση"

6. Επιλέγεις από τη λίστα των συντομεύσεων μία ακόμα συντόμευση που δεν έχει αντίστοιχη 
προκαθορισμένη ενέργεια (π.χ. την Alt + R) και μετά επιλέγεις από κάτω Κατηγορία: Μακροεντολές 
LibreOffice -> user -> Standard -> MyShortcuts, Λειτουργία: insert_upper_dot και επιλέγεις 
"Τροποποίηση".
7. Επιλέγεις "Εντάξει" και χρησιμοποιείς τις νέες συντομεύσεις σε κάθε αρχείο κειμένου ή λογιστικό 
φύλλο.
Σημείωση: Οι παραπάνω μακροεντολές είναι σχεδιασμένες να ενεργούν στον κειμενογράφο Writer. Αν 
χρειάζεσαι στο Calc παρόμοια λειτουργικότητα θα πρέπει να βελτιωθούν ώστε να ελέγχουν το είδος της 
εφαρμογής που είναι ανοικτή.
Καλή συνέχεια.

 

    Στις 11:52 μ.μ. Σάββατο, 7 Ιανουαρίου 2017, ο/η MarLa <marilazar6@gmail.com> έγραψε:
 

 Αγαπητοί φίλοι, καλή χρονιά σε όλους, με υγεία και υπομονή.

Δυο ερωτήσεις· πώς μπορώ να κάνω συντόμευση πλήκτρων τις τρεις 
συνεχόμενες τελείες (αποσιωπητικά), για παράδειγμα στο MS Office είναι 
ctrl+alt+., κι επίσης πώς μπορώ να κάνω συντόμευση πλήκτρων την άνω 
τελεία, ώστε να αποφεύγω κάθε φορά τη διαδικασία της εισαγωγής συμβόλου.

Σας ευχαριστώ πολύ,

Μαρία


-- 
Maria K. Lazaridou
Composer-Gutarist
Music Teacher at Public Education
Member of the Greek Composers' Union


-- 
Unsubscribe instructions: E-mail to users+unsubscribe@el.libreoffice.org
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/el/users/
All messages sent to this list will be publicly archived and cannot be deleted


   
-- 
Unsubscribe instructions: E-mail to users+unsubscribe@el.libreoffice.org
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/el/users/
All messages sent to this list will be publicly archived and cannot be deleted