Bookmarks og VBA

Hej,
Jeg har fået nedenstående kode så jeg kan prøve at arbejde videre med den, men jeg er ikke nogen haj til vba, så jeg er allerede løbet ind i problemer.
Bookmar2 er et procentbeløb, og jeg kan ikke få det vist i mit dok. ???? Nogen forslag?

Hvordan redigerer jeg i de bookmarks der er indsat i dok. og hvordan tilføjer jeg nye?
Jeg har prøvet indsæt bogmærke, men listen omfatter ikke flere end de par stykker der er lavet på forhånd?
Hvis jeg laver en kopi af noget af koden for neden og kalder det et nyt nr bookmark kan jeg ikke finde det fra test.doc

På forhånd tak
Mvh


Sub Test_DDE()
'Denne sub laver en skriftlig rapport i Word, for en valgt måned

'***********************************************************************************
'              Opretter forbindelse mellem de 2 applikationer
'***********************************************************************************
channelNumber = Application.DDEInitiate(app:="WinWord", _
                topic:=ActiveWorkbook.Path & "\Test.doc")

'***********************************************************************************
'        Bookmark 0: Den valgte måned
'        Bookmark 4: Den valgte måned
'***********************************************************************************
Set rangetopoke_Bookmark0 = Ark21.Range("B2")
Application.DDEPoke channelNumber, "Bookmark0", rangetopoke_Bookmark0
Set rangetopoke_Bookmark4 = Ark21.Range("B2")
Application.DDEPoke channelNumber, "Bookmark4", rangetopoke_Bookmark4

'***********************************************************************************
'        Bookmark 1: Absolut forskel på budgetteret og realiseret omsætning
'        Bookmark 2: Procentvis forskel på budgetteret og realiseret omsætning
'        Bookmark 3: Større / mindre
'***********************************************************************************
If Ark21.Range("D6").Value < 0 Then
    'Budgetteret > realiseret
    'Bookmark 1:
    Ark21.Range("D6") = -1 * Ark21.Range("D6")
    Set rangetopoke_Bookmark1 = Ark21.Range("D6")
    Application.DDEPoke channelNumber, "Bookmark1", rangetopoke_Bookmark1
    Ark21.Range("D6").Formula = "=C6 - B6"
    'Bookmark 2:
    Ark21.Range("E6") = Ark21.Range("E6")
    Set rangetopoke_Bookmark2 = Ark21.Range("E6")
    Application.DDEPoke channelNumber, "Bookmark2", rangetopoke_Bookmark2
    Ark21.Range("E6").Formula = "=D6/C6"