Writer - wstawianie znaków specjalnych w tekście

Stronę tą wyświetlono już: 125 razy

Wstawianie znaków specjalnych w tekście umożliwia okno dialogowe Znaki specjalne, które można wyświetlić klikając na pasku narzędziowym Standardowy przycisk z znakiem Ω. W opisie poniższego rysunku zamieściłem informacje na temat kontrolek tego okna dialogowego.

Widok okna Znaki specjalne programu Writer pakietu LibreOffice
Rys. 1
Widok okna Znaki specjalne programu Writer pakietu LibreOffice:
  1. lista wyboru kroju czcionki;
  2. lista wyboru typu znaków, najbardziej przydatne z nich to:
    • Grecki podstawowy;
    • Cyrylica;
    • Symbole walut;
    • Operatory matematyczne;
    • Grecki podstawowy;
  3. lista możliwych do wstawienia znaków;
  4. kod heksadecymalny znaku;
  5. kod dziesiętny znaku;
  6. wybrane do wstawienia znaki;
  7. pomoc;
  8. wstawia znaki i zamyka okno;
  9. zamyka okno bez wstawiania znaków

W systemie Windows można posłużyć się wbudowaną funkcją wstawiania znaków za pomocą ich kodu dziesiętnego. Wystarczy bowiem trzymając wciśnięty Prawy Alt wpisać kod znaku a następnie upuścić klawisz Alt, by wstawiony został znak.

Można też napisać sobie makro, które zamieni np. litery greckie zapisane w stylu encji kodu HTML na rzeczywiste litery greckie. Oto przykładowy kod takiego makra (które równocześnie koloruje na czerwono znaki):

Listing 1
  1. rem makro do zamiany jednego tekstu na drugi w dokumencie wraz z kolorowaniem na czerwono
  2. sub ChangeText(changeFrom as string, changeTo as string)
  3. RDescrip = ThisComponent.createReplaceDescriptor
  4. RDescrip.searchRegularExpression = False
  5. RDescrip.SearchCaseSensitive = true
  6. RDescrip.searchString = changeFrom
  7. rngs = ThisComponent.findAll(RDescrip)
  8. for i = 0 to rngs.count-1
  9. foundText = rngs.getByIndex(i)
  10. foundText.CharColor = RGB(255,0,0)
  11. next i
  12. RDescrip.replaceString = changeTo
  13. ThisComponent.replaceAll(RDescrip)
  14. end sub
  15. rem Zamiana liter greckich zapisanych w stylu encji HTML na rzeczywiste symbole greckie wraz z kolorowaniem na czerwono
  16. sub ChangeGreek
  17. greekHtml = Array("Α", "α", "Β", "β", "Γ", "γ", "Δ", "δ", "Ε", "ε", "Ζ", "ζ", "Η", "η", "Θ", "θ", "Ι", "ι", "Κ", "κ", "Λ", "λ", "Μ", "μ", "Ν", "ν", "Ξ", "ξ", "Ο", "ο", "Π", "π", "Ρ", "ρ", "Σ", "σ", "Τ", "τ", "Υ", "amp;υ", "Φ", "φ", "Χ", "χ", "Ψ", "ψ", "Ω", "ω")
  18. greek = Array("Α", "α", "Β", "β", "Γ", "γ", "Δ", "δ", "Ε", "ε", "Ζ", "ζ", "Η", "η", "Θ", "θ", "Ι", "ι", "Κ", "κ", "Λ", "λ", "Μ", "μ", "Ν", "ν", "Ξ", "ξ", "Ο", "ο", "Π", "pi;", "Ρ", "ρ", "Σ", "σ", "Τ", "τ", "Υ", "υ", "Φ", "φ", "Χ", "χ", "Ψ", "ψ", "Ω", "ω")
  19. for i = 0 to 47
  20. ChangeText(greekHtml(i), greek(i))
  21. next i
  22. end sub

Komentarze