Stronę tą wyświetlono już: 4999 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.
Rys. 1
Widok okna Znaki specjalne programu Writer pakietu LibreOffice:
- lista wyboru kroju czcionki;
- lista wyboru typu znaków, najbardziej przydatne z nich to:
- Grecki podstawowy;
- Cyrylica;
- Symbole walut;
- Operatory matematyczne;
- Grecki podstawowy;
- lista możliwych do wstawienia znaków;
- kod heksadecymalny znaku;
- kod dziesiętny znaku;
- wybrane do wstawienia znaki;
- pomoc;
- wstawia znaki i zamyka okno;
- 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):
rem makro do zamiany jednego tekstu na drugi w dokumencie wraz z kolorowaniem na czerwono
sub ChangeText(changeFrom as string, changeTo as string)
RDescrip = ThisComponent.createReplaceDescriptor
RDescrip.searchRegularExpression = False
RDescrip.SearchCaseSensitive = true
RDescrip.searchString = changeFrom
rngs = ThisComponent.findAll(RDescrip)
for i = 0 to rngs.count-1
foundText = rngs.getByIndex(i)
foundText.CharColor = RGB(255,0,0)
next i
RDescrip.replaceString = changeTo
ThisComponent.replaceAll(RDescrip)
end sub
rem Zamiana liter greckich zapisanych w stylu encji HTML na rzeczywiste symbole greckie wraz z kolorowaniem na czerwono
sub ChangeGreek
greekHtml = Array("Α", "α", "Β", "β", "Γ", "γ", "Δ", "δ", "Ε", "ε", "Ζ", "ζ", "Η", "η", "Θ", "θ", "Ι", "ι", "Κ", "κ", "Λ", "λ", "Μ", "μ", "Ν", "ν", "Ξ", "ξ", "Ο", "ο", "Π", "π", "Ρ", "ρ", "Σ", "σ", "Τ", "τ", "Υ", "amp;υ", "Φ", "φ", "Χ", "χ", "Ψ", "ψ", "Ω", "ω")
greek = Array("Α", "α", "Β", "β", "Γ", "γ", "Δ", "δ", "Ε", "ε", "Ζ", "ζ", "Η", "η", "Θ", "θ", "Ι", "ι", "Κ", "κ", "Λ", "λ", "Μ", "μ", "Ν", "ν", "Ξ", "ξ", "Ο", "ο", "Π", "pi;", "Ρ", "ρ", "Σ", "σ", "Τ", "τ", "Υ", "υ", "Φ", "φ", "Χ", "χ", "Ψ", "ψ", "Ω", "ω")
for i = 0 to 47
ChangeText(greekHtml(i), greek(i))
next i
end sub