|
|
|
|
#1
05-03-2016, 06:12 PM
|
||||
|
||||
You could use: Code:
Sub Add_Rows_Table()
Application.ScreenUpdating = False
Dim Tbl As Table, Rng As Range
For Each Tbl In ActiveDocument.Tables
Tbl.Cell(1, 1).Range.Select
Selection.InsertRowsAbove 1
Next Tbl
Application.ScreenUpdating = True
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Adding comments to PPT slides causes error | Render9 | PowerPoint | 0 | 02-09-2016 08:46 AM |
| Adding ContentControl to a table | milena | Word VBA | 2 | 04-20-2015 01:04 AM |
 Table property adding spacing
|
Ulodesk | Word Tables | 4 | 01-12-2015 01:23 PM |
|
Adding Rows to a Table
|
SuzeG | Word VBA | 8 | 01-02-2014 08:05 AM |
|
adding table to a particular place
|
hklein | Word VBA | 2 | 07-25-2011 01:45 AM |
Windows 7 64bit 
Office 2010 32bit
Hybrid Mode