Kopiering af makroer

Jeg vil gerne kopiere nogle makroer, der oprettet i et dokument tilbage i 1997, men jeg det vil ikke rigtig virke.

Jeg har sat ind, hvad der står i makroen - jeg håber nogen kan hjælpe mig med at få det til at virke eller fortælle mig om der står noget galt i det, som får det til ikke at virke

Det er i forbindelse med at vi har skiftet brugernavne og microsoftpakke-udgave at makroerne er forsvundet fra det ene dokument, men ikke fra det andet..

Hilsen Den efterhånden opgivende

' Makronavn: DagsedlenSoeg      Placering: DAGSEDL.DOT

' Fremstillet af: Michael Allan Petersen

' Sidst redigeret: 15 feb 1997

' Denne makro søger efter en tekststreng efter brugerens valg.
' Makroen er lavet for at undgå Word's store dialogboks.
' *****************************************************************************

Public Sub MAIN()
Dim tekststreng1$
Dim button
' Opbygning af dialogboksen begynder.
WordBasic.BeginDialog 248, 74, "Michael's søgerutine"
    WordBasic.Text 10, 6, 148, 13, "Indtast dit søgeord:", "Tekst1"
    WordBasic.TextBox 164, 4, 59, 18, "Indtast"
    WordBasic.OKButton 10, 40, 88, 21
    WordBasic.CancelButton 110, 40, 88, 21
WordBasic.EndDialog
' Dialogboksen er opbygget.

Dim Dlg As Object: Set Dlg = WordBasic.CurValues.UserDialog
If WordBasic.Dialog.UserDialog(Dlg) Then

tekststreng1$ = Dlg.Indtast    'Gemmer det indtastede i en tekststreng
WordBasic.SetDocumentVar "global-variabel-1", tekststreng1$ 'Tekststrengen gemmes
                                            'som global variabel



WordBasic.EditFind Find:=Dlg.Indtast, Direction:=0

If WordBasic.EditFindFound() = -1 Then      'Søgningen gav resultat.

ElseIf WordBasic.EditFindFound() = 0 Then      'Søgningen gav intet resultat.
    button = WordBasic.MsgBox("Der er ikke flere, af de søgetal du leder efter.  Fortsæt forfra i dokumentet ?", " Michael's spørgebox", 36)
    If button = -1 Then                'Der er svaret Ja til MsgBox
        WordBasic.StartOfDocument
        WordBasic.EditFind Find:=Dlg.Indtast, Direction:=0
        If WordBasic.EditFindFound() = -1 Then  'Søgningen gav resultat.
        ElseIf WordBasic.EditFindFound() = 0 Then  'Søgningen gav intet resultat.
            WordBasic.MsgBox "Ingen aktuelle søgetal tilbage.", " Michael's meddelelsesbox", 16
        End If
    ElseIf button = 0 Then          'Der er svaret Nej til MsgBox
    End If
End If
End If
End Sub