problemer med makro til udskrift af 2 kopier

Hej!
Jeg har lavet en makro i Word, som først udskriver 1 kopi, indsætter ordet "kopi" på dokumentet, printer 1 kopi mere ud og derefter sletter ordet "kopi" igen!
Jeg har indsat et bogmærke på siden, ved navn "kopi" som ordet kopi skal indsættes i.
Problemet er at den ikke gemmer bogmærket! Selv om jeg har gemt skabelonen efter bogmærket er oprettet, så virker makroen ikke ordentligt før jeg har oprettet bogmærket igen og det er jo ikke meningen....
Koden ser således ud:
Sub udskriv2kopier()
'
' udskriv2kopier Makro
' Makro indspillet 02-09-2004 af Mikael
'
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
       
    Selection.GoTo What:=wdGoToBookmark, Name:="kopi"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="KOPI"
   
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
       
        Selection.GoTo What:=wdGoToBookmark, Name:="kopi"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
     
End Sub


Hvad er der galt? er det noget kode i makroen, der er skyld i at bogmærket bliver slettet og hvordan kan jeg rette op på det. Håber der er et par kvikke hoveder :-) der kan løse denne gåde for mig!

På forhånd tak

Mikael