Diacritice

Diacriticele sunt glife adăugate unor litere.

Documentele scrise în Windows XP sau în versiuni anterioare folosesc sedile. Cele scrise în versiunile Windows mai recente folosesc virgule. Uneori există incompatibilități între cele două tipuri de caractere, iar aplicația Word poate afișa pătrate în locul acelor caractere (litere).

În figura alăturată, pe rândul de sus, sunt folosite virgule, iar pe rândul de jos - sedile.

La „ă”, „î” și „â” (eventual „ã”) nu sunt probleme de afișare, dar la „s” și „t” pot să apară probleme.

Pe de altă parte, anumite fonturi nu conțin literele cu virgulă (de exemplu, Monotype Corsiva) și Word afișează litera cu virgulă, dar scrisă cu un alt font care conține acea literă.

Una din rezolvările rapide ale problemei este să înlocuim caracterele cu sedilă cu cele cu virgulă (sau invers), cu ajutorul unei macrocomenzi.

Macrocomanda poate fi construită folosind Macro Recorder. Mai jos sunt macrocomenzile pentru înlocuirea diacriticelor cu sedilă și diacritice cu virgulă...

Sub Diacritice_Sedila_in_Virgula()
'
' Diacritice_Sedila_in_Virgula Macrocomanda
' Transformarea diacriticelor cu sedila in diacritice cu virgula
'
    'salt la inceputul documentului
    Selection.HomeKey Unit:=wdStory
    
'inlocuirea sh cu sedila in sh cu virgula
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(351)
        .Replacement.Text = ChrW(537)
        .MatchCase = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'inlocuirea tz cu sedila in tz cu virgula
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(355)
        .Replacement.Text = ChrW(539)
        .MatchCase = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

... și pentru înlocuirea diacriticelor cu virgulă în diacritice cu sedilă.

Sub Diacritice_Virgula_in_Sedila()
' Diacritice_Virgula_in_Sedila Macrocomanda
' Transformarea diacriticelor cu virgula in diacritice cu sedila
'
    'salt la inceputul documentului
    Selection.HomeKey Unit:=wdStory
    
'inlocuirea sh cu virgula in sh cu sedila
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(537)
        .Replacement.Text = ChrW(351)
        .MatchCase = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'inlocuirea tz cu virgula in tz cu sedila
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(539)
        .Replacement.Text = ChrW(355)
        .MatchCase = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub