Bonjour
Je cherche à mettre a jour des signets sans les détruire. Ce petit code y arrive très bien :
Sub MettreAJourSignet()
Dim BMRange As Range
' identifie le Range du signet range et insert le texte
Set BMRange = ActiveDocument.Bookmarks("S_OSA2").Range
BMRange.Text = "Hello world2"
' Re-insère le signet
ActiveDocument.Bookmarks.Add "S_OSA2", BMRange
End Sub
Mais je développe sous Lotus Script par automation Word et je ne peux pas déclarer sous Lotus Script un objet de type RANGE. Donc je dois récupérer dans des variables simples et non pas des objets le "Range" du signet.
C'est ces deux lignes que je voudrais remplacer :
Set BMRange = ActiveDocument.Bookmarks("S_OSA2").Range
BMRange.Text = "Hello world2"
J'ai essayé ceci :
ActiveDocument.Bookmarks.Add "S_OSA2", ActiveDocument.Bookmarks("S_OSA2").Range
ActiveDocument.Bookmarks("S_OSA2").Range.Text = "Hello World 2"
Mais malheureusement cela détruit le signet. Donc il faudrait insérer le texte AVANT de recréer le signet.
Merci pour votre aide.