[VBA/VB] Bookmarks aanmaken...

[Wilfred]

Ik probeer bookmarks aan te maken in een word document.. ik voeg een stuk tekst toe en daarachter moet de bookmark komen..
De eerste bookmark gaat goed.. De tekst op de volgende regel ook... maar dan... Dan selecteert hij het hele stuk en maakt daar de bookmark van.

Code:
With Activedocument
Set rBookmark = .Bookmarks("\EndofDoc").Range
.Range.InsertAfter ("Brief aan" & vbTab & ": ")
.Range.GoTo.EndOf
.Range.Paragraphs.Add
.Range.Bookmarks.Add Name:="bAddressOrg", Range:=Selection.Range
.Range.InsertAfter ("Kopie aan" & vbTab & ": ")

.Range.Paragraphs.Add
.Range.GoTo.EndOf
.Range.Next
.Range.Bookmarks.Add Name:="bAddressCC", Range:=Selection.Range

end with

[Wilfred]

er moet dus zoiets gebeuren

Brief aan : [hier de bookmark]
Kopie aan : [hier een andere bookmark]

Alvast dank!

[Wilfred]

Nou wilfred dat zou je eventueel zo kunnen doen! Suc6 ermee knullebul...
68 If .Bookmarks.Exists("bAddressOrg") = False Then
69 Set rBookmark = .Bookmarks("\EndofDoc").Range
70

Selection.MoveDown Unit:=wdLine, Count:=11
Selection.TypeText Text:="Brief aan" & vbTab & ": "
With .Bookmarks
.Add Range:=Selection.Range, Name:="bAddressOrg"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.TypeParagraph
Selection.TypeText Text:="Kopie aan" & vbTab & ": "
With .Bookmarks
.Add Range:=Selection.Range, Name:="bAddressCC"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.TypeParagraph

Met vriendelijke kusjes, Wilfred.