Would these macros be possible to make?

Guessed · #16 08-18-2020, 06:01 PM

If you don't think it is important enough to provide realistic content and show the hidden formatting then I will just give you a macro that works with the content we assume you have provided.

Try this on a copy of your example document. If it works, try it on a copy of your real document.

Code:

Sub SortParasBySize()
  Dim aRng As Range, aTable As Table, aRow As Row

  ActiveDocument.Range.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=1
  Set aTable = ActiveDocument.Tables(1)
  aTable.Columns.Add BeforeColumn:=aTable.Columns(1)
  For Each aRow In aTable.Rows
    aRow.Cells(1).Range.Text = Len(aRow.Cells(2).Range.Text)
  Next aRow
  aTable.Rows.Add BeforeRow:=aTable.Rows(1)
  aTable.SortDescending
  aTable.Columns(1).Delete
  aTable.Rows(1).Delete
  aTable.ConvertToText
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to automatically enable the macros upon opening a file with macros?	laurieli	Office	7	01-17-2016 08:56 AM
Can you make templates dynamically update macros/etc. from Normal.DOT?	New Daddy	Word	2	11-18-2013 09:07 AM
VBA macros	tays01s	Word VBA	6	08-03-2011 09:42 PM
Macros	nore	Outlook	0	06-01-2011 04:39 PM
Macros	Desertwrangler	Word VBA	6	06-25-2010 07:06 AM