Recherche un mot dans word et le supprimer.

[thom02]

Bonjour,

Après m'etre arraché les cheveux sur un moyen de mettre des saut de page après des bookmark. J'ai opté pour une solution ou je prévois de nombreux bookmark (un pour le texte et un deuxième pour le saut de page) et ou à la fin de mon code j'effectue une boucle pour effacer tout les bookmark inutilisés.

Pour ce faire je dois faire une recherche dans word pour les effacer.

j'ai trouvé ceci mais ca ne marche pas :-(
avez vous des idées?

Un grand merci !!

'Text est mon bookmark bloc de text
'SDP mon bookmark saut de page.
' dans mon word il sont chacun présent sour la form TEXT1..2....30 SDP1....30

'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

Un grand merci !!!

 

[JNP]

Re : Recherche un mot dans word et le supprimer.

Bonjour Thom02 ,
Tu t'es trompé d'emplacement dans le forum, il y a un emplacement "spécial Word" ...
Un petit fichier test serait le bienvenu , parce qu'un saut de page, je connais, mais un bookmark, je ne connais pas ...
Pour un saut de page, c'est

.Text = "^m"

Bon courage

 

[James007]

Re : Recherche un mot dans word et le supprimer.

Bonjour,

Pour supprimer un mot tu peux essayer :

With Selection
      .Find.Text = "mot"
      .Find.Execute
      .Delete Unit:=wdCharacter, Count:=1
End With

P.S. Si je peux exprimer le fond de ma pensée, je te conseille de poster tout ton code actuel d'un coup, pour une vraie analyse complète ...
Parce que le saucissonage que tu fais ne te fera pas avancer très vite ...

A +

 

[thom02]

Re : Recherche un mot dans word et le supprimer.

Merci James (une fois de plus) mais sur quoi se portent la sélection ?

Qqch comme ceci?

Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document

   Selection.Start = LeDocWord.Content.Start
   Selection.End = LeDocWord.Content.Start

With Selection
      .Find.Text = "mot"
      .Find.Execute
      .Delete Unit:=wdCharacter, Count:=1
End With

Un grand merci !!