check for dobbelt ord

Jeg tror du bliver nødt til at lave en makro eller bruge VBA (Visual Basic for Applications) som er indbygget i Office-pakken ...

Her er  en makro, der kan finde dubletter og sletter dem.

Indsæt den i et modul i visual basic (Tryk Alt + F11)

Sub FindDubletter()
' Makro indspillet 05-02-2002 af Richardt Veje Madsen

'Gå til toppen af dokumentet
Selection.HomeKey Unit:=wdStory

'tæler antal ord i dokumentet
AntalOrd = ActiveDocument.Words.Count

'Marker første ord
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Flag = 0
   
'løkke
For n = 1 To AntalOrd

    If Flag = 0 Then
        Flag = 1
        Else
        Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    End If
   
    ' Indsætter ordet i en variabel
    var = Selection
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdMove
   
    'Fjerner overflødige mellemrum
    var = Trim(var)
   
    'Hvis ordet er længere en et bogstav
    If Len(var) > 1 Then
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = var
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    End If
Next n
   
End Sub

>> rvm Flot med din makro; men der findes sorterings muligheder i Word til at afsløre dubletter uden programmering af macros!

Ja - men det er jo kun dubletter lige ved siden af hinanden - ikke ord i tilfældig rækkefølge

Hvorfor har du afvist mit svar - jeg har jo produceret noget - ikke bare skrevet at du kan lave en makro !!!

LAd mig vide hvordan jeg smider nogl epoint efter dig, så skal du få lidt i posen, jeg har så mange point selv, og hvad skla jeg dog med dem.

*S*

Du opretter et spørgsmål og skriver "Point til rvm for spg: http://www.eksperten.dk/spm/168320"

Så giver jeg et svar og du accepterer det.

Forøvrigt - fik du løst dit problem. Makroen var jo bare et forslag uden at kende din nøjagtige datastruktur.