Discussion :

[tintin72]

Bonjour,

J'ai récupéré un texte dont tous les mots en gras
sont collés (à droite) au texte normal, ex:

Bonjourtout le monde !

Un pb de formatage de l'éditeur de texte sûrement.
Bref, j'ai donc copié collé ce texte dans Word pour
effectuer les corrections.
J'ai trouvé comment faire pour rechercher tous les
mots en gras.
Maintenant ce que je voudrais c'est remplacer chaque mot par
lui-même en lui ajoutant un espace à la fin (sans avoir à taper le mot sélectionné évidemment).


Est ce possible ?

Merci d'avance.

[JackOuYA]

Bonsoir,

cela est surement possible mais montre nous où tu en est lorsque tu effectue ta recherche ..afin qu'on voit comment adapter ton code ...l'idée serai :

Code :

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

1
2
   Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=" "

[Heureux-oli]

Salut,

Je pense que la recherche a été faite avec l'outil de Word et pas en VBA.

[tintin72]

Merci pour ta réponse mais je me sert très mal de Word
et je ne connais pas du tout la prog VBA etc...

Pour rechercher tous les mots en gras je fais:

Rechercher->Format->Police->gras

et je ne met rien dans le champ: rechercher.
Mais dans l'onglet remplacer comment lui dire de
remplacer le mot sélectionné par lui-même avec
en + un espace à la fin ?

Voilà, si quelqu'un peut m'aider.

[Heureux-oli]

Salut,

Cette fois, je pense que sans VBA, point de salut.

[Heureux-oli]

Essaie ce morceau de code :

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
 
Sub Macro1()
Dim myText As String
 
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .Font.Bold = True
 
 
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    myText = Selection.Range.Text
    Selection.Range.Text = myText & " "
 
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[tintin72]

Merci beaucoup pour ton aide.
Comme je l'ai dis plus haut je ne connait
rien à VBA , aussi, où est ce que je dois placer ce code ?

[Heureux-oli]

Tu fais Alt + F11 et tu colles le code.
Tu positionnes le curseur dans le code et tu fais F5.

[Arkham46]

Salut,

Cette fois, je pense que sans VBA, point de salut.

Peut-être bien qui si :

Cliquer dans la case "Remplacer par :"
Choisir, dans le menu du bouton "spécial" en bas, l'entrée de menu "remplacer"
Ce qui donne dans la case "Remplacer par :"

^&

Et ajouter un espace

[Heureux-oli]

Peut-être bien qui si :

Cliquer dans la case "Remplacer par :"
Choisir, dans le menu du bouton "spécial" en bas, l'entrée de menu "remplacer"
Ce qui donne dans la case "Remplacer par :"

Et ajouter un espace

[tintin72]

Trop cool !

Un grand merci à Arkham46 pour cette astuce.