place value of bookmark in footer

E

erik

hello!

i wrote the following lines to put the value of a bookmark in the footer of
the document.

Sub voettekst()

Dim vttkst As Range
Set vttkst = Bookmarks("actie1").Range

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = vttkst



End Sub

But the output of this is: FORMTEXT IN02021 (where is IN02021 the value of
the bookmark). I don't want to see 'FORMTEXT'.

Does anybody know how to use this program without getting FORMTEXT in the
output?

thnx!
erik
 
J

Jezebel

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text =
mid$(vttkst,10)
 
Top