Reverse Paragraph List Macro

Sark · #1 08-14-2021, 02:03 AM

Hi all.

I found the macro below to reverses the order of a text (paragraph) list. This works just fine, but affects the entire document.
How could I change this to apply the effect to just selected lines.

I've created a few macros in the past for an old version of CorelDraw I used to use, but the various syntex I've tried don't work with Word. Any advice would be appreciated.

Mark

Code:

Sub ReverseOrderOfParagraphs()
    Dim tmpTable As Table
    Dim rg As Range
   
    Set tmpTable = ActiveDocument.Range.ConvertToTable(Separator:=wdSeparateByParagraphs)
    With tmpTable
        .Columns.Add BeforeColumn:=.Columns(1)
       
        Set rg = .Cell(1, 1).Range
        rg.End = rg.End - 1
        rg.Fields.Add Range:=rg, Type:=wdFieldSequence, Text:="a"
        rg.Cells(1).Range.Copy
       
        .Columns(1).Select
        Selection.Paste
        Selection.Fields.Update
       
        .Sort ExcludeHeader:=False, FieldNumber:=1, SortOrder:=wdSortOrderDescending
       
        .Columns(1).Delete
       
        .ConvertToText
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How Do I Control Paragraph Spacing in a Numbered List	SteveClark590	Word	11	07-08-2021 07:31 PM
How do I order the paragraph styles list?	Tunathedog	Word	3	04-08-2016 05:37 AM
Reverse Bold macro	brent chadwick	Word VBA	15	02-26-2016 05:25 PM
Is There an Animation that Will Reverse the Order of a Bulleted List	equity	PowerPoint	3	04-04-2014 12:33 AM
Macro to reverse a test string	Jennifer Murphy	Word VBA	5	01-16-2014 03:19 PM