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

macropod · #1 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

gorkac · #2 03-11-2022, 05:12 AM

I don't know how to thank you for your help. Requests are improvements that occur to me.

Quote:

Originally Posted by macropod

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

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