Request a macro for word 2013

[ronas]

Hi

I have a list like the following list in word 2013:

word1
word2
word3
.
.
.


They should be sorted according to the last letter (Ascending)

If two words have the same last letter, should be sorted according to the letter penultimate and so on.


Thanks

 

[OctaFish]

Welkom bij HelpMij! Aangezien dit een Nederlands(talig) forum is, krijg je in het Nederlands antwoord... Ook in het Engels zou het hetzelfde zijn, namelijk: Word kan niet achterwaards sorteren. Je zult daar een macro voor moeten maken die de tekst omkeert. Maar je vraagt ook om een macro, dus dat wist je denk ik al.

Probeer deze eens: hij doet wel alle tekst, dus wellicht zul je de range nog moeten aanpassen. Je kunt de tekst natuurlijk ook vanuit een selectie naar een nieuw document overzetten, daar sorteren en dan weer terug plakken.

Sub Sorteren_1()

    With ActiveDocument.Range(0, ActiveDocument.Range.End - 1)
        .Text = StrReverse(.Text)
        .Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderDescending
        .Text = StrReverse(.Text)
    End With
End Sub

 

[ronas]

Welkom bij HelpMij! Aangezien dit een Nederlands(talig) forum is, krijg je in het Nederlands antwoord... Ook in het Engels zou het hetzelfde zijn, namelijk: Word kan niet achterwaards sorteren. Je zult daar een macro voor moeten maken die de tekst omkeert. Maar je vraagt ook om een macro, dus dat wist je denk ik al.

Probeer deze eens: hij doet wel alle tekst, dus wellicht zul je de range nog moeten aanpassen. Je kunt de tekst natuurlijk ook vanuit een selectie naar een nieuw document overzetten, daar sorteren en dan weer terug plakken.

Sub Sorteren_1()

    With ActiveDocument.Range(0, ActiveDocument.Range.End - 1)
        .Text = StrReverse(.Text)
        .Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderDescending
        .Text = StrReverse(.Text)
    End With
End Sub

Thank you very much

 

[OctaFish]

One more thing: the QUOTE button is NOT a reply Button. Use the big textbox at the bottom; that's main purpose is: waiting for your messages .

 

[ronas]

Yes, you are right

 

[snb]

@Octa

So why don't 'them' administrators remove that quote button ?

 

[OctaFish]

@snb: if only we knew... 'them' is a different species .