Lettres avec accents dans Eudora
Fermé
marcewa
Messages postés
6
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
23 juillet 2010
-
10 janv. 2007 à 15:12
Jan-eudora - 15 mars 2009 à 11:04
Jan-eudora - 15 mars 2009 à 11:04
A voir également:
- Lettres avec accents dans Eudora
- Eudora - Télécharger - Mail
- E avec accent - Guide
- Mon clavier n'écrit plus les lettres ✓ - Forum Clavier
- Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- Faire un coeur avec des lettres ✓ - Forum Logiciels
2 réponses
Voici un macro pour Word, qui restitue les lettres accentuées.
Sub FReudora()
'convert txt from eudora with unprintable into printable
Dim i%
Dim kar(1 To 2, 1 To 16)
kar(1, 1) = Chr(195) & Chr(169)
kar(2, 1) = "é"
kar(1, 2) = Chr(226) & Chr(128) & Chr(153)
kar(2, 2) = "'"
kar(1, 3) = Chr(195) & Chr(187)
kar(2, 3) = "û"
kar(1, 4) = Chr(195) & Chr(171)
kar(2, 4) = "ë"
kar(1, 5) = Chr(195) & Chr(162)
kar(2, 5) = "â"
kar(1, 6) = Chr(195) & Chr(168)
kar(2, 6) = "è"
kar(1, 7) = Chr(195) & Chr(170)
kar(2, 7) = "ê"
kar(1, 8) = Chr(195) & Chr(167)
kar(2, 8) = "ç"
kar(1, 9) = Chr(195) & Chr(175)
kar(2, 9) = "ï"
kar(1, 10) = Chr(195) & Chr(180)
kar(2, 10) = "ô"
kar(1, 11) = Chr(194) & Chr(171)
kar(2, 11) = Chr(171)
kar(1, 12) = Chr(194) & Chr(187)
kar(2, 12) = Chr(187)
kar(1, 13) = Chr(195) & Chr(185)
kar(2, 13) = "ù"
kar(1, 14) = Chr(195) & Chr(174)
kar(2, 14) = "î"
kar(1, 15) = Chr(195) & " "
kar(2, 15) = "à "
kar(1, 16) = Chr(194) & Chr(160)
kar(2, 16) = Chr(160)
For i = 1 To 16
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = kar(1, i)
.Replacement.Text = kar(2, i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
Sub FReudora()
'convert txt from eudora with unprintable into printable
Dim i%
Dim kar(1 To 2, 1 To 16)
kar(1, 1) = Chr(195) & Chr(169)
kar(2, 1) = "é"
kar(1, 2) = Chr(226) & Chr(128) & Chr(153)
kar(2, 2) = "'"
kar(1, 3) = Chr(195) & Chr(187)
kar(2, 3) = "û"
kar(1, 4) = Chr(195) & Chr(171)
kar(2, 4) = "ë"
kar(1, 5) = Chr(195) & Chr(162)
kar(2, 5) = "â"
kar(1, 6) = Chr(195) & Chr(168)
kar(2, 6) = "è"
kar(1, 7) = Chr(195) & Chr(170)
kar(2, 7) = "ê"
kar(1, 8) = Chr(195) & Chr(167)
kar(2, 8) = "ç"
kar(1, 9) = Chr(195) & Chr(175)
kar(2, 9) = "ï"
kar(1, 10) = Chr(195) & Chr(180)
kar(2, 10) = "ô"
kar(1, 11) = Chr(194) & Chr(171)
kar(2, 11) = Chr(171)
kar(1, 12) = Chr(194) & Chr(187)
kar(2, 12) = Chr(187)
kar(1, 13) = Chr(195) & Chr(185)
kar(2, 13) = "ù"
kar(1, 14) = Chr(195) & Chr(174)
kar(2, 14) = "î"
kar(1, 15) = Chr(195) & " "
kar(2, 15) = "à "
kar(1, 16) = Chr(194) & Chr(160)
kar(2, 16) = Chr(160)
For i = 1 To 16
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = kar(1, i)
.Replacement.Text = kar(2, i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
