Microsoft Office Forums - View Single Post - [Solved] Create Table for Multiple Pictures. 1 picture, 1 table and space between tables

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