L.A. Lawyer was telling us:
L.A. Lawyer nous racontait que :
Like this:
Dim bkMarkName As String
Dim bkMarkRge As Range
bkMarkName = "Test"
Set bkMarkRge = ActiveDocument.Bookmarks(bkMarkName).Range
bkMarkRge.Text = "New Short Text"
ActiveDocument.Bookmarks.Add bkMarkName, bkMarkRge
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site:
http://www.word.mvps.org