Microsoft Office Forums - View Single Post - Macro to remove table captions leaves empty space

afif · 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