Correcting a macro

[ronas]

Hi

I have a list:

word1
word2
word3
.
.
.


This macro must delete repetitive words but doesn't work correctly

'Dim AmountMoved As Long
Dim myRange As Range
Selection.WholeStory
Selection.Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", _
SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _
FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
:=wdEnglishUS, SubFieldNumber:="Paragraphs", SubFieldNumber2:= _
"Paragraphs", SubFieldNumber3:="Paragraphs"
'start with first paragraph and extend range down to second
Set myRange = ActiveDocument.Paragraphs(1).Range
AmountMoved = myRange.MoveEnd(unit:=wdParagraph, Count:=1)
'loop until there are no more paragraphs to check
Do While AmountMoved > 0
'if two paragraphs are identical, delete second one
'and add the one after that to myRange so it can be checked
If myRange.Paragraphs(1).Range.Text = _
myRange.Paragraphs(2).Range.Text Then
myRange.Paragraphs(2).Range.Delete
AmountMoved = myRange.MoveEnd(unit:=wdParagraph, Count:=1)
Else
'if two paragraphs aren't identical, add the one after
'that to my range, so it can be checked, and drop the first one,
'since it is no longer of interest.
AmountMoved = myRange.MoveEnd(unit:=wdParagraph, Count:=1)
myRange.MoveStart unit:=wdParagraph, Count:=1
End If
Loop
MsgBox ("end")
End Sub

Please correct it.

Thanks

 

[edmoor]

Dit is een Nederlands forum.
Daarnaast verwacht ik niet dat iemand die in elkaar gedrukte code gaat ontvlooien om te kijken wat het doet en waarom wat je wilt niet werkt. Zorg er dus eerst voor dat het fatsoenlijk leesbaar is, tevens met inspringpunten op de juiste plekken.

 

[OctaFish]

Persoonlijk stoor ik mij dan weer mateloos aan het voorlaatste zinnetje : "Please correct it". Als mijn baas zo iets tegen mij zou zeggen krijgt-ie een klap voor zijn kanis . Wij voeren hier op het forum geen opdrachten uit. Toch?

 

[snb]

Dit is de stijl van vragenstellers uit India op internationale fora.

 

[edmoor]

Ik ben het eens met Octafish en vind het ook "geen stijl"

 

[OctaFish]

Dit is de stijl van vragenstellers uit India op internationale fora.

Niets weerhoudt TS ervan om de vraag op een Indiaas forum te stellen . Nog even en we krijgen in dit land een discussie of Zwarte Pieten nog wel zwart mogen zijn .