Macro to remove table captions leaves empty space

Guessed · #2 08-04-2019, 10:30 PM

You will need a second bite at it if the caption is followed by a table since the paragraph mark remains if the paragraph contains any content.

Code:

Sub delTableCaptionAll()
  Dim ctr As Integer, aRng As Range
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .Text = "Table"
    .ClearFormatting
    .Style = "Caption"
    .Forward = True
    Do While .Execute
      aRng.Paragraphs(1).Range.Delete
      If aRng.Paragraphs(1).Next.Range.Information(wdWithInTable) Then
        aRng.Delete
      End If
      ctr = ctr + 1
    Loop
    Debug.Print ctr
  End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to remove space between header and first bullet in Outlook email created by Excel macro	kevinbradley57	Excel Programming	1	03-27-2019 08:39 PM
How to remove almost a full page of blank space in between Word table rows	garrisonsdad	Word Tables	4	10-18-2018 09:09 PM
Can't get rid of empty white space in table	wtfword	Word Tables	2	01-24-2018 02:47 AM
Remove consecutive empty paragraphs within existing macro	kevinbradley57	Word VBA	5	10-11-2017 05:04 PM
Remove space after table in header	melliejane	Word	1	03-05-2012 04:09 PM