Create Table for Multiple Pictures. 1 picture, 1 table and space between tables

macropod · #9 03-08-2022, 07:30 PM

It would have been helpful had you specified all requirements up front.

Replace:

Code:

    With oTbl
      For r = .Rows.Count - 2 To 3 Step -3
        .Split .Rows(r)
        .Range.Characters.Last.Next.ParagraphFormat.SpaceAfter = 18
      Next
    End With

with:

Code:

    With oTbl
      For r = .Rows.Count To 1 Step -3
        With .Rows(.Rows.Count).Borders
          .OutsideLineStyle = wdLineStyleDouble
          .OutsideColorIndex = wdGreen
        End With
        If .Rows.Count > 3 Then .Split .Rows(r - 2)
        .Range.Characters.Last.Next.ParagraphFormat.SpaceAfter = 18
      Next
    End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Stack multiple tables on top of each other in a single table	Remko	Excel	2	04-18-2021 04:18 AM
Create Table for Multiple Pictures	victorybadges	Word VBA	4	12-25-2020 02:11 PM
How to compile text from multiple tables into a cell in a nested table	jrooney7	Word VBA	2	03-11-2019 07:55 AM
Resize multiple pictures in a Word 2010 table	JBA479	Word VBA	1	01-24-2014 08:51 PM
Copy table cell formatting across multiple cells / tables	pakistanray	Word Tables	2	10-31-2011 08:07 AM