Insert a Paragraph mark before and after a table

Guessed · #8 10-17-2020, 07:46 PM

I've had problems with table edge cases such as when a table is the first thing in a document. The consistent way I get around it is to use Word's insert caption which seems to avoid that issue and may well also work on your butted tables. I can't produce two butted inline tables without them merging - perhaps you are floating your tables?

In any case, try this approach which may work with your doc.

Code:

Sub aTest()
  Dim oTable As Table, oRng As Range, oFld As Field
  For Each oTable In ActiveDocument.Tables
    Set oRng = oTable.Range
    oRng.InsertCaption Label:=wdCaptionTable, ExcludeLabel:=True, Position:=wdCaptionPositionBelow
    oRng.InsertCaption Label:=wdCaptionTable, ExcludeLabel:=True, Position:=wdCaptionPositionAbove
  Next
  For Each oFld In ActiveDocument.Fields
    If LCase(oFld.Code) Like "*seq table*" Then oFld.Delete
  Next oFld
End Sub

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

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