View Single Post
 
Old 12-05-2012, 03:23 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

What you could try is cleaning up the table contents. I note that many cells have an empty first paragraph, plus text padding at the end. The following macro cleans up both, thus reducing each table's overall size.
Code:
Sub CleanUp()
Dim Tbl As Table, TblCl As Cell, Rng As Range, RngDel As Range
With ActiveDocument
  For Each Tbl In .Tables
    For Each TblCl In Tbl.Range.Cells
      Set Rng = TblCl.Range
      Rng.End = Rng.End - 1
      Set RngDel = Rng.Characters.Last
      RngDel.Collapse wdCollapseEnd
        Do While Asc(RngDel.Characters.First.Previous) < 33
          If RngDel.Start = Rng.Start Then Exit Do
          RngDel.Start = RngDel.Start - 1
        Loop
      RngDel.Text = vbNullString
      If Rng.Paragraphs.Count > 1 Then
      If Len(Rng.Paragraphs.First.Range) = 1 Then Rng.Paragraphs.First.Range = vbNullString
      End If
    Next
  Next
End With
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote