• A quoi sert l'ancre qui s'affiche quelquefois dans la marge gauche ?

  • L'espace fine existe-t-elle dans Word ?

  • Comment insérer une image en fond de page?

  • PowerPoint et les fichiers MP3

  • Comment faire pour qu'une macro démarre toute seule ?

  • Comment générer du faux texte ?

  • Comment attacher un modèle à un document ?

  • Bonjour les Quickparts, adieu les Insertions Auto !

  • Comment créer un bouton qui envoie le fichier en cours ?

  • Accentuer les majuscules

  • Mon clavier perso ou comment personnaliser son clavier

 
 

 

Il s'agit effectivement d'un bug. 3 solutions :

  • Remplacer la police par la police Batavia, Isabelle, Ellis, ou Microcod. (Il y en a d'autres).
  • 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
C = 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



 

Nouveau sondage !

Les forums - Outlook ?

 
 
 

Statistiques

2861952
Aujourd'hui296
Hier2328
Cette semaine4666
Ce mois-ci12838
Depuis janvier 20042861952
Compteur d'affichages des articles
5540894

A lire de toute urgence...

Qui est en ligne ?

Nous avons 71 invités et aucun membre en ligne