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 !!
Code:
'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
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
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 ...
Merci James (une fois de plus) mais sur quoi se portent la sélection ?
Qqch comme ceci?
Code:
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