![]() |
|
|||||||
|
|
Thread Tools | Display Modes |
|
#9
|
||||
|
||||
|
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
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
| Tags |
| solved |
|
|
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 |