Ces marques de format sont appelées "caractères non imprimables"... On ne peut donc pas les imprimer. Ceci dit, la macro suivante remplace insère l'équivalent graphique des caractères retours paragraphes et tabulation, imprime puis restitue le document tel qu'il était.

 

Sub ImprimerMarques()
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 = "¬^t"
.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 = "¬^t"
.Replacement.Text = "^t"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll 
End sub

 

 

Statistiques

Aujourd'hui237
Hier862
Cette semaine8433
Ce mois24940
Total depuis 200410548183

10
visiteurs actuellement en ligne