![]() |
#4
|
||||
|
||||
![]() Quote:
Code:
Sub Demo() Application.ScreenUpdating = False Dim ArrTbls, ArrRows, ArrCols, i As Long ArrTbls = Array(1, 1, 3, 3, 4, 5) ArrRows = Array(6, 8, 6, 8, 6, 6) ArrCols = Array(4, 4, 5, 7, 2, 2) With ActiveDocument For i = 0 To UBound(ArrTbls) .Tables(ArrTbls(i)).Cell(ArrRows(i), ArrCols(i)).Range.Fields.Update Next End With Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
wlcdo2 | Word VBA | 2 | 06-19-2016 08:53 PM |
![]() |
bharathkumarst | Excel | 7 | 10-13-2014 10:25 AM |
Locking A Cell Reference Regardless | skoz55 | Excel | 8 | 05-16-2014 09:15 AM |
![]() |
bremen22 | Excel | 7 | 01-16-2014 11:06 AM |
![]() |
Jmoney2290 | Excel | 1 | 11-06-2013 09:39 PM |