Macro to remove table captions leaves empty space

afif · #1 08-04-2019, 08:38 PM

I tried to run the macro to remove captions in all tables in a document.

Code:

Sub delTableCaptionAll()
    
    
    Dim ctr As Integer
    Dim txt As String
    Dim Check As Boolean
    Dim para As Paragraph
    ctr = 0
    
    
    
    For Each para In ActiveDocument.Paragraphs
        txt = para.Range.Text
        Debug.Print txt
        
        Check = InStr(txt, "Table")
        Debug.Print Check
        
        If Check = True And para.Range.Style = "Caption" Then
            para.Range.Delete
        End If
        ctr = ctr + 1
        Debug.Print ctr
    Next
End Sub

The problem is it doesn't remove the line (image attached) after the caption is deleted. How can I remove the space after the caption is deleted ?
Thanks

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

afif · #3 08-05-2019, 12:01 AM

Thanks. That works fine. But the problem is I insert the caption using macro. For testing purpose. I insert it multiple times.
When I try to delete them, the lines of removed captions are still there.
I try to use the following code to check whether the previous paragraph is empty. If it is empty, then remove the line. But it returns false.

Code:

If aRng.Paragraphs(1).Previous.Range.Text = "" Then
        aRng.Delete
End If

Guessed · #4 08-05-2019, 01:12 AM

A paragraph range always includes a paragraph mark so Range.Text is going to give you a vbCr value. Try looking for aRng.Paragraphs(1).Previous.Range.Text = vbCr

Guessed · #5 08-05-2019, 01:14 AM

And the code I provided earlier used the same double test as yours did. It is looking for a style where the paragraph also contains the word 'Table'. Those empty paragraphs fail on the second test.

afif · #6 08-05-2019, 01:34 AM

Thanks Lockton for the reply, that removes 1 blank line above. But what if I try to remove several blank lines from multiple caption insertions in one table ?

I try to add the code below :

Code:

'loop through all blank lines above the removed line.
Do While aRng.Paragraphs(1).Previous.Range.Text = vbCr
        
        aRng.Delete
Loop

But it doesn't remove all the blank lines

Guessed · #7 08-05-2019, 09:24 PM

Remove any instance of empty paragraphs in blocks of text by searching for ^p^p and replacing with ^p

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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