Recherche et remplacement d'un caractère dans Word

Version imprimable

Bonjour,

Je souhaiterais ouvrir un document word depuis mon code, pour cela j'ai utilisé le code suivant :
Code:

1 2 3 4 5 6 7 strNomFichierWord = "C:\FA\essai.doc" Set WordBasic = CreateObject("Word.Application") With WordBasic .Visible = True .Documents.Open strNomFichierWord .Selection.WholeStory End with
Ensuite je souhaiterais chercher dans tout le texte du fichier Word ouvert les caractères "apostrophe"

---> '

et remplacer chacun d'eux par le caractère "espace"

quelqu'un connaitrait-il la syntaxe à employer ?! ?

je vous remercie pour votre aide

et je vous souhaite une agréable journée !

essai ce qui suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "'"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    With Selection.Find
        .Text = """"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

En créant une macro et en récupérant le code.
Edit : zut, cramé ! :)

13/02/2006, 14h17
faiglon

Merci beaucoup Kloun pour cette réponse extra rapide et juste ! ! !
ça fonctionne parfaitement !

merci aussi à s.rais
je n'ai pas réussi avec le code que vous m'avez fourni, j'ai essayé quelques modifications mais ça n'a pas fonctionné non plus
je pense qu'il ne manque plus grand chose mais comme je n'y connais pas grand chose, j'ai du mal à comprendre d'où vient le coincement !

en tous les cas, j'apprécie que vous ayez tenté de m'aider et je vous remercie vivement.

je vous souhaite une très agréable journée

encore merci à tous les deux pour votre aide !!