Discussion :

[tsm33]

Bonjour,

J'ai une macro qui positionne des signets au fil de mon document.
Je dois extraire dans des nouveaux doc le contenu entre des signets.
Les signets ne contiennent pas de texte, ils sont posés juste pour marquer une position.

je sais comment atteindre les signets mais le Extend est "dévalider" par le Selection.GoTo suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Selection.GoTo What:=wdGoToBookmark, Name:="debut"
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.GoTo What:=wdGoToBookmark, Name:="fin"

Comment sélectionner le texte entre deux signets pour ensuite faire "Selection.copy" ?

Merci
jerôme

[tsm33]

désolé, j'ai trouvé en cherchant mieux,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   ActiveDocument.Range(ActiveDocument.Bookmarks("debut").Range.Start, ActiveDocument.Bookmarks("fin").Range.End).Select

ps: Discussion à supprimer