Insert a Paragraph mark before and after a table

gmayor · #1 10-18-2020, 06:38 AM

The code I posted works for the selected table, whether or not the table is at the start of the document. If you want it to work for all tables in the main story range then

Code:

Dim oTable As Table
Dim oRng As Range
Dim i As Integer
    For i = ActiveDocument.Tables.Count To 1 Step -1
        Set oTable = ActiveDocument.Tables(i)
        Set oRng = oTable.Range
        oRng.Collapse 1
        oRng.Select
        Selection.SplitTable
        Set oRng = oTable.Range
        oRng.Collapse 0
        oRng.InsertParagraphAfter
        DoEvents
    Next i
    Set oTable = Nothing
    Set oRng = Nothing

If you have an example of tables it doesn't work with, post the document so we can evaluate the problem.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Indention below paragraph mark...	kikola	Word VBA	13	05-26-2020 06:21 AM
Paragraph mark added on the top of every second page	aptbs00	Word	6	09-14-2018 03:53 PM
Replace space with paragraph mark	jeffreybrown	Word VBA	8	08-22-2018 03:31 PM
can't delete paragraph mark at end of document	kb	Word	10	10-06-2017 02:32 PM
Final paragraph mark	Caroline	Word	2	02-22-2011 10:39 AM