Discussion :

[VEROLYDE]

Bjr,

Tout d'abord BONNE ANNEE 2017 à toute l'équipe et toux ceux qui liront cette discussion...

J'en viens au vif du sujet : je recherche une macro me permettant d'imprimer les caractères non imprimables sur un document word.

J'en ai trouvé une, que je mets ci-après, mais j'ai souhaité lui intégrer le caractère saut de ligne manuel ^l mais cela ne marche pas car je ne trouve pas la flèche adaptée pour que cela s'imprime correctement.

Voici la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
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
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^l"
.Replacement.Text = "^11^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 = "¬^t"
.Replacement.Text = "^t"
.Forward = True
.Wrap = wdFindContinue
Selection.Find.Execute Replace:=wdReplaceAll
End With
With Selection.Find
.Text = "^11^l"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
End With
End Sub

Merci de votre aide par avance !
Verolyde

[Invité]

Bonjour,

Votre demande est peu surprenante et c'est sans doute pour cela qu'elle ne suscite pas de réponse.
Avez-vous regardé dans l'aide VBA Word, les caractères imprimables et non imprimables ?

Pièce jointe 239194

En terme de caractère (Word, Excel,...), la liste des codes du vidage d'écran correspondent aux Chr(Code). Un Chr(10) correspondra donc à un retour à la ligne, par exemple.

Voir également dans l'aide Word, les jeux de caractères de 0 à 127 et de 128 à 255.

Pour votre macro, il serait donc peut-être plus facile de travailler par code Ansi avec un Select Case.