'Dim k As Integer
'For k = iBlock To 30 'Iblock correspon à l'index du dernier bookmar qui aura été utilisé. 30 est le nombre de bookmark que j'ai crée en avance vive 'la patience:-)
With LeDocWord.Find'
Selection.Find.ClearFormatting
With Selection.Find
'Pour mon bloc texte...
.Text = "TEXT" & k
.Replacement.Text = "" 'j'aurais préféré effacer mais je ne trouve pas...
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
'Pour mon saut de page
.Text = "SDP" & k
.Replacement.Text = "" 'j'aurais préféré effacer mais je ne trouve pas...
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Next