![]() |
|
|
|
#1
|
||||
|
||||
|
Sorting paragraphs can be rather hit and miss, but a macro will do it e.g.
Code:
Sub Macro1()
Dim oSource As Document
Dim oDoc As Document
Dim lngPara As Long
Dim oRng As Range
Set oSource = ActiveDocument
oSource.Save
Set oDoc = Documents.Add(oSource.FullName)
oDoc.Range.Text = ""
For lngPara = oSource.Paragraphs.Count To 1 Step -1
Set oRng = oDoc.Range
oRng.Collapse 0
oRng.FormattedText = oSource.Paragraphs(lngPara).Range.FormattedText
Next lngPara
lbl_Exit:
Set oDoc = Nothing
Set oSource = Nothing
Set oRng = Nothing
Exit Sub
End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
|
| Tags |
| paragraphs, reverse |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| open dialog box in Word has folders in reverse alphabetical order | Rewster | Word | 2 | 02-20-2017 08:06 AM |
Is There an Animation that Will Reverse the Order of a Bulleted List
|
equity | PowerPoint | 3 | 04-04-2014 12:33 AM |
Reverse Order for Flashcards?
|
bknollman3 | PowerPoint | 2 | 03-23-2013 06:34 AM |
| wildcards in find & replace to reverse word order | jeffk | Word | 3 | 11-11-2012 01:47 PM |
| Reverse order of headings throughout Word | my_vine_figtree | Word VBA | 1 | 08-17-2010 01:46 AM |