Discussion :

[emulamateur]

Bonjour,

J'utilise la macro suivant pour transformer (NPN°) en (PIECE N°), avec un formatage particulier :

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
Dim booTrouve As Boolean
Selection.HomeKey unit:=wdStory
 
Do
With Selection.Find
    .Text = "(NPN°)"
        booTrouve = .Execute
End With
Selection.Font.Italic = True
Selection.Font.Bold = True
Selection.Font.Underline = True
Selection.Font.Color = wdColorDarkRed
Debug.Print "ok"
Loop While booTrouve
 
 
 
 With Selection.Find
    .ClearFormatting
    .Text = "(NPN°)"
    .Replacement.ClearFormatting
    .Replacement.Text = "(PIECE N°)"
    .Execute Replace:=wdReplaceAll, Forward:=True, _
        Wrap:=wdFindContinue
End With

Or, mes documents ont des pièces N°, 1,2, .... 12, ....20 ...

Je voudrais modifier la macro pour que le formatage/remplacement s'applique ainsi :

(NPN°1) ou (NPN°12) devienne (PIECE N°1) ou (PIECE N°12), voire (NPN°1 : contrat de travail) devienne (PIECE N°1 : contrat de travail), je pense qu'il faut utiliser des caractères spéciaux comme ?? ou ** ... mais je ne vois pas comment les intégrer ...

Si quelqu'un avait une petite idée ... ce serait hypra sympa

Merci !

[Heureux-oli]

Salut,

Je ne comprend pas d'où vient ta difficulté.

Si tu remplaces la séquence (NPN° par (PIECE N° ça devrait le faire.
Ou alors tu ne dis pas tout !

[emulamateur]

Merci de ton aide

Mon code, actuellement, permet de transformer (NPN°) en (PIECE N°)

Par contre, il ne permet pas de faire, par exemple (NPN°1: contrat de travail) en (PIECE N°1: contrat de travail)

J'ai essayé ta modification et, par exempl, (NPN°1: contrat de travail) devient (PIECE N°1: contrat de travail)

Si je suis plus clair ...

[Heureux-oli]

Salut,

C'est effectivement plus clair.
Je pense que le plus simple est de le faire en deux étapes, une pour le remplacement et l'autre pour la mise en forme.

[emulamateur]

Je le pense aussi mais la longueur de la chaîne variant en fonction de l'intitulé de la pièce, je pensais utiliser la fonction instr() mais je sèche totalement... Pour l implémenter a mon code. Merci

[Heureux-oli]

Salut,

Les caractères génériques permettent de faire une recherche sur une partie de chaîne.

Là : http://sepia.developpez.com/office/w...emplacer/#L2-B
Une petite explication.

Si tu sèches, l'enregistreur de macro peut faire la différence. Il suffit de copier le code qu'il donne.

[emulamateur]

Merci de ton aide, j'ai mis en place ce code qui (semble-t-il) ne crée pas d'erreurs après moult usages ...

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
Public Sub replace()
Selection.HomeKey unit:=wdStory
ScreenUpdating = False
 
 
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Font.Bold = True ' on met en gras ce qui remplacera la chaine
    .Replacement.Font.Italic = True ' on met en italique ce qui remplacera la chaine
    .Replacement.Font.Underline = wdUnderlineSingle ' ' on souligne  ce qui remplacera la chaine
    .Replacement.Font.Color = wdColorDarkRed
    .MatchWildcards = True
    .Text = "(\(PIECE N°*\))" ' c'est ici que l'on cherche le (Pièce n°*) à transformer
    .Replacement.Text = "\1"
    .Forward = True
    .Execute replace:=wdReplaceAll
End With
End Sub

Si cela peut aide qqn.

Merci