Discussion :

[kara.ci]

Bonjour,

Je suis en train de développer une petite macro qui fait une recherche des espaces dans un document Word pour supprimer les espaces successif.
En gros je recherche les espaces grâce à la formule ^w

Le problème est qu'il me trouve également les tabulations.
Est-t'il possible de trouver les espaces sans les tabulations ?

Merci

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
Sub TrimGlobal()
'
' TrimGlobal Macro
'
'
With Selection.Find
    .ClearFormatting
    .Text = "^w"
    .MatchWildcards = False
    .Replacement.ClearFormatting
    .Replacement.Text = " "
    .Execute Replace:=wdReplaceAll
End With
 
End Sub

[Heureux-oli]

Salut,

Pourquoi faire une macro ?

Une simple recherche/remplacement devrait le faire.
Tu recherches les doubles espaces et tu les remplaces par un espace simple.
Si tu as quatres espaces, en deux passages ils seront remplacés par un seul espace.

[kara.ci]

Salut,

Pourquoi faire une macro ?

Une simple recherche/remplacement devrait le faire.
Tu recherches les doubles espaces et tu les remplaces par un espace simple.
Si tu as quatres espaces, en deux passages ils seront remplacés par un seul espace.

La macro sert a faciliter le travail d'utilisateur suite à un publipostage qui utilise des donnés venant d'un fichier csv. Les données contiennent des espaces en trop dans les champs car ce sont des données de taille fixe.

Oui j'ai déjà pensé à faire une recherche sur le double espace mais cette recherche pose problème quand mes mots sont séparés pas des double espace car dans ces cas là les mots se retrouvent collés.

[Heureux-oli]

Salut,

Les mots collés ?
Si tu remplace deux espaces par un seul, les mots ne sauraient pas être collés.
De toute façon, la macro que tu utilises fait la même chose que l'interface.

[kara.ci]

Salut,

Les mots collés ?
Si tu remplace deux espaces par un seul, les mots ne sauraient pas être collés.
De toute façon, la macro que tu utilises fait la même chose que l'interface.

Oui j'ai mal lu, en effet il ne sont pas collés, mais je suis obligé d'executer plusieur fois le recherche remplacer

[kara.ci]

Bonjour,

J'ai résolu mon problème
voici ce que je fais:
Je boucle tant que la recherche avec des doubles espaces retourne un résultat. Comme ça le remplacement se fait correctement sans me supprimer les tabulations.

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
 
Sub TrimGlobal()
'
' TrimGlobal Macro
'
'
    Do
        With Selection.Find
            .ClearFormatting
            .Text = "  "
            .MatchWildcards = False
            .Replacement.ClearFormatting
            .Replacement.Text = " "
            .Execute Replace:=wdReplaceAll
        End With
 
    Loop While Selection.Find.Found = True
 
End Sub