Recherche

 

Il s'agit effectivement d'un ancien bug qui ne se produit plus. Voici néanmoins 3 solutions :

  • Remplacer la police par la police Batavia, Isabelle, Ellis, ou Microcod. (Il y en a d'autres). Elles ne sont pas des plus jolies, mais elles permettent néanmoins de récupérer votre texte.
  • Si l'on n'a pas peur de perdre sa mise en forme : copier dans un éditeur de texte comme WordPad ou Bloc-notes, changer la police et récupérer
  • Appliquer la macro suivante :

Sub Remettre() 'macro écrite par Geo
Dim D1 As Long
Dim C As String
Dim ValCar As Integer
Selection.HomeKey unit:=wdStory
ActiveWindow.View.ShowFieldCodes = True
Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
Do
= Left(Selection.Text, 1
'pour les champs sélectionner le car gauche
ValCar = AscB(C)
If ValCar <> 19 Then
Selection.Delete
Selection.InsertAfter Chr(ValCar)
End If
Selection.Collapse direction:=wdCollapseEnd
D1 = Selection.MoveRight(wdCharacter, 2, wdExtend)
If D1 < 2 Then Exit Do 
plus qu'un seul caractère : fin de Document
Selection.Collapse direction:=wdCollapseStart
Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
Loop
ActiveWindow.View.ShowFieldCodes = False
MsgBox "Terminé"
End Sub

 

 

Statistiques

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

65

Pays
018273688
Aujourd'hui: 11
Hier: 68
Cette semaine: 11
Semaine dernière: 783
Ce mois: 1.950