user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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

Aujourd'hui2436
Hier2427
Cette semaine7236
Ce mois41626
Total depuis 200413302700

14
visiteurs actuellement en ligne

22 septembre 2021