VBAWord2K: Opret mappe, tekstdokument eller find

Hej.

Jeg har et dokument "Dokument1", hvorpå jeg indtaster noget tekst. Ved tryk på en knap skal teksten overføreres til et nyt dokument (dokument2) i en mappe(mappe1) på mit skrivebord. Hvis mappen ikke ekisterer i forvejen skal den oprettes og eksisterer den, skal dokumentet(dokument2) åbnes og den tekst der i forvejen er i dokumentet skal rykkes ned til næste side og den kopierede tekst fra mit dokument1 skal indsættes på side 1 i dokument2. Jeg har lavet nedenstående kode, men kan ikke rigtig få det til at køre:


Sub Ny()
    ActiveDocument.Select
    Selection.WholeStory
    Selection.Copy
   
'Opret eller find mappe og gem
On Error GoTo error
    Dim filesys, newfolder
    Set filesys = CreateObject("Scripting.FileSystemObject")
   
    If Not filesys.FolderExists("Documents and Settings\Fælles\Skrivebord\LDJnr\") Then
        Documents.Add DocumentType:=wdNewBlankDocument 'Opret dokument
        Selection.Paste 'Indsæt jrnr blanket i nyt dokument
        newfolder = filesys.CreateFolder("C:\Documents and Settings\Fælles\Skrivebord\LDJnr\")
error:
        If Err.Number = 58 Then
            GoTo ignorerfejl
        End If

ignorerfejl:
        ActiveDocument.SaveAs ("C:\Documents and Settings\Fælles\Skrivebord\LDJnr\Journalnummer" & Date)
        ActiveDocument.Save
    Else
        Documents.Open ("C:\Documents and Settings\Fælles\Skrivebord\LDJnr\Journalnummer" & Date)
        ActiveDocument.Select
        Selection.HomeKey unit:=wdStory
        Selection.Paste
        ActiveDocument.Save
    End If

    Windows(2).Activate
    Selection.HomeKey unit:=wdStory
End Sub