Fejl! Ukendt argument for parameter

Været ude for det? Ja!  Fundet en bedre løsning? Desværre ikke :-(

Jeg brugte den makro, som kan hentes fra MS på dette link, men den fandt desværre heller ikke alt - og så varc der kun den manuelle metode tilbage.

http://support.microsoft.com/default.aspx?scid=kb;da;243013

Jkrons: Linket på siden virker ikke, så venter til, at høre fra M$ om dette, så jeg kan få testet makroen af.

Jkrons: Jeg har self fundet løsningen, men eftersom dit link gav mig en af koderne, som jeg skulle bruge får du 50 point for din hjælp...

Jeg smider lige koden her, så du kan bruge den selv, hvis du har lyst. Der er stadig et par små fejl og koden er ikke optimeret, så kunne sikkert være "pænere".

------------------

Sub Felter()
'
' Felter Makro
' Denne makro søger efter Word97 felter med danske betegnelser og ændre dem til engelske Word200x format.
'
    Application.ScreenUpdating = False
    Application.DisplayAlerts = wdAlertsNone
   
    If ActiveDocument.ProtectionType <> wdNoProtection Then
        ActiveDocument.Unprotect
    End If
    If ActiveWindow.View.ShowFieldCodes = False Then
        ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
    End If
   
' Søg og erstat alle danske betegnelser med engelske.

    Call DoReplace
   
    Selection.WholeStory
    Selection.Fields.Update
   
' Søg og erstat alle danske betegnelser med engelske i Hovedet af dokumentet

    For i = 1 To 2
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
       
        Call DoReplace
       
        Selection.WholeStory
        Selection.Fields.Update
       
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
       
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext
    Next

    Selection.HomeKey Unit:=wdStory
' Søg og erstat alle danske betegnelser med engelske i foden af dokumentet

    For i = 1 To 2
   
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
       
        Call DoReplace
           
        Selection.WholeStory
        Selection.Fields.Update
       
        ActiveWindow.ActivePane.View.Type = wdPrintView
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
     
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext
    Next

    If ActiveWindow.View.ShowFieldCodes = True Then
        ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
    End If
    If ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
    End If
   
    Application.ScreenUpdating = True
    Application.DisplayAlerts = wdAlertsAll
   
End Sub

Sub DoReplace()
    Dim SearchFields, ReplaceFields, i
    SearchFields = Array ("alfabetisk", "arabertal", "initstort", "mængdetekst", "valutatekst", "førstestort", "småbogstav", "ordenstal", "ordenstekst", "Romertal", "stortbogstav", "Fletformat", "Tegnformat")
    ReplaceFields = Array("alphabetic", "Arabic", "Caps", "CardText", "DollarText", "FirstCap", "Lower", "Ordinal", "OrdText", "Roman", "Upper", "Mergeformat", "Charformat")
                         
    For i = 0 To UBound(SearchFields)
        Selection.HomeKey Unit:=wdStory
     
        With Selection.Find
            .Text = SearchFields(i)
            .Replacement.Text = ReplaceFields(i)
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i
   
End Sub

OK ok du fik 75 ;o)

Tak for point - og for løsningen.