Insert bookmark at end of document

[FertRob]

I,m trying to insert a bookmark at the end of a document. I tried
several things but nothing works. I'm working with word 2000 this is the
code i'm using

Dim pRange As Word.Range, Hdoc As Document


If Hdoc.Bookmarks.Exists("OndTek") = False Then
Set pRange = ??????????????
Else
Set pRange = Hdoc.Bookmarks("OndTek").Range
End If

pRange = StrOndertekening
Hdoc.Bookmarks.Add Name:="OndTek", Range:=pRange

On the ??????? i tried hdoc.goto, selection, hdoc.end etc nothing works,
i am getting errors on object en type not corresponding.

Can anyone help me

Thanks
Robert

 

[Dave Lett]

Hi Robert,

You can you the following to insert a bookmark at the end of a document:

Dim oRng As Range
Set oRng = ActiveDocument.Range
oRng.Collapse Direction:=wdCollapseEnd
ActiveDocument.Bookmarks.Add Name:="EndOfDoc", Range:=oRng

HTH,
Dave

 

[Helmut Weber]

Hi,

I don't understand your code, but anyway,
there is a predefined bookmark "endofdoc",
like this:
ActiveDocument.Bookmarks("\EndofDoc").Select

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

 

[FertRob]

Thanks Dave,

Works perfect.

Robert

 

[FertRob]

Thanks Helmud,

i totaly forgot about these predefined bookmarks. I will use you option.

Robert