Sub RemplacerMotDocWord() ' en projet
'necessite d'activer la reference microsoft Word xx.x Object Library
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Open("C:\Documents and Settings\michel\test.doc")
With wordDoc.Content.Find
.ClearFormatting
.Text = "Insert_communes"
With .Replacement
.ClearFormatting
.Text = "ville"
End With
.Execute Replace:=wdReplaceAll
.Forward = True
.Wrap = wdFindContinue
End With
End Sub