Discussion :

[jpg80150]

Bonjour,

Avec Access 2000 et Word2000 j'utilsais ceci pour remplacer une chaîne par une autre dans un doc Word :

Code :

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

docWord.Content.Find.Execute FindText:="{NomPrenom}",ReplaceWith:=strForAll, Replace:=wdReplaceOne

Avec Word 2002 et suivants ça ne marche plus.
Que dois-je changer ?

J'ai essayé ceci en suivant MSN mais ça ne fonctionne pas !

Code :

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

1
2
3
4
5
6
7
docWord.Content.Select
With appWord
    With Selection.Find
        .Forward = True
        .Execute FindText:="{NomPrenom}", ReplaceWith:=strForAll,Replace:=wdReplaceOne
    End With
End With

Qui peut m'aider ?
Merci

[Heureux-oli]

Bonjour et bienvenue sur le forum Access de DVP

J'ai mis un post il y a quelques temps ici

Ce que tu cherche s'y trouve.

[jpg80150]

Merci pour la réponse mais j'ai oublié de dire que j'avais fait aussi :

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
With appWord
    With Selection.Find
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Text = "{NomPrenom}"
        .Replacement.Text = strForAll
        .Execute FindText:="{NomPrenom}", ReplaceWith:=strForAll, Replace:=wdReplaceOne
    End With
End With

Seulement le .Wrap = xxx ou le .Text = xxx plante la machine ! J'utilise Access 2000 et je voulais passer de Word 2000 (qui marche) à Word 2002 ou 2003. J'avais aussi trouvé ça en enregistrant la macro.

[Heureux-oli]

Il semblerait que tu cherche à remplacer des mots dans ton document.

J'ai une autre solution à te proposer, si tu mets des signets dans ton document, tu peux atteindre tes signe pour y insérer du texte.

Si j'ai bien compris, tu part d'access.

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
Sub MergeBM()
' Publipostage à l'aide de Bookmarks
Dim wApp As Word.Application
Dim chemin As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String
'définition du SQL pour extraire les données.
sql = "SELECT * from Employés"
 
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = New Word.Application
    chemin = "c:\Local Data\Access\Publipostage\BM Publipostage.doc"
wApp.Visible = True
 
While Not rs.EOF
With wApp
    .Documents.Open (chemin)
    .ActiveDocument.Bookmarks("nom").Range.Text = rs.Fields("nom")
    .ActiveDocument.Bookmarks("prenom").Range.Text = rs.Fields("prénom")
    .ActiveDocument.PrintOut
    .ActiveDocument.Close (wdDoNotSaveChanges)
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
 
Set wApp = Nothing
End Sub

[jpg80150]

Merci, ça semble marcher avec les signets... Curieux quand même, non ?

[Heureux-oli]

Je préfère la solution des signets.
J'ai essayé la solution du remplacement, c'est un peu moins esthétique.