REM  *****  BASIC  *****

rem Code08-04.odt   bibli : Remplacer Module1
Option Explicit

Sub RemplacerTextePartout()
Dim monDocument As Object
Dim jeCherche As Object, nbrFois As Long
monDocument = ThisComponent
jeCherche = monDocument.createReplaceDescriptor
with jeCherche
  .SearchString = "Marseille"
  .ReplaceString = "Bordeaux"
  .SearchWords = true
end with
nbrFois = monDocument.replaceAll(jeCherche)
print "Nombre de remplacements : " & nbrFois
End Sub