Recherche

Ces marques de format sont appelées "caractères non imprimables"... On ne peut donc pas les imprimer. L'astuce consiste donc à faire un recherche-remplace et de remplacer ces marques par l'équivalent (une image) imprimable :

  • La marque de paragraphe ALT+244 ¶
  • les parenthèses encadrant un champ par ALT+123 {, et ALT+125 }
  • le trait d'union insécable par un trait d'union (manœuvre irréversible)
  • le trait d'union conditionnel par ALT+170 ¬
  • le saut de ligne manuel par ALT+168, police symbol
  • la tabulation par ALT+169 ou 232 , police symbol
  • l'espace insécable par ALT+248 °

Les codes sont les codes à entrer dans la boîte REMPLACER. 

Et voici une macro qui traite le problème plus rapidement : 

 

Sub ImprimerMarques()
'macro écrite par Geo, mise à jour par m@rina
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = "¶^p"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^t"
.Replacement.Text = ChrW(8594& "^t"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^l"
.Replacement.Text = ChrW(8629& "^l"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

Application.PrintOut FileName:="", _
Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False
With Selection.Find
.Text = "¶^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(8594& "^t"
.Replacement.Text = "^t"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(8629& "^l"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Statistiques

France 72,4% France
Canada 7,8% Canada
Belgique 3,9% Belgique

Total:

105

Pays
018297873
Aujourd'hui: 9
Hier: 153
Cette semaine: 1.832
Semaine dernière: 1.704
Ce mois: 2.376