Makro til søg/erstat i 2 dokumenter

Hvilken version af Word arbejder du med?
Kan du sende de to dokumenter til mig, så jeg har lidt at teste med *S*
rvejemad@csc.com

hej rvm. Jeg arbejder med word2000.
Jeg vil prøve at finde et eksempel frem og sende den til dig.

Her er et forslag:

Sub Søg()

'Gemmer det aktive dokuments navn i en variabel, så det kan aktiveres løbende
FindDok = ActiveDocument.Name

'Åbner en dialogboks, så du kan pege på ordlistefilen
dlgAnswer = Dialogs(wdDialogFileOpen).Show

Application.ScreenUpdating = False

'Hvis dlgAnswer = -1 er der et åbent dokument
If (dlgAnswer = -1) Then
    'Gemmer det aktive dokuments navn i en variabel, så det kan aktiveres løbende
    ErstatDok = ActiveDocument.Name
   
    'Vælger hele dokumentets, så jeg kan få fat i tabellen
    Selection.WholeStory
    Selection.Tables(1).Select
   
    'Tæller rækker til loopet
    Antalrækker = Selection.Information(wdEndOfRangeRowNumber)
   
    'Sætter markøren i 1. celle med indholdet markeret
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.SelectCell
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   
    For n = 1 To Antalrækker
        Find = Selection.Text
       
        Selection.MoveRight Unit:=wdCell
        Erstat = Selection.Text
       
        Documents(FindDok).Activate
           
        'Søger og erstatter
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = Find
            .Replacement.Text = Erstat
            .Forward = True
            .Wrap = wdFindContinue
        End With
        Selection.Find.Execute Replace:=wdReplaceAll

        Documents(ErstatDok).Activate
        Selection.MoveRight Unit:=wdCell
    Next
End If

Documents(ErstatDok).Close False

Application.ScreenUpdating = True

End Sub