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'hui214
Hier2355
Cette semaine7661
Ce mois41991
Total depuis 200410455404

20
visiteurs actuellement en ligne