Microsoft Office Forums - View Single Post - [Solved] Include/Exclude Table(s) from OnEnter event

warbird · 07-13-2015, 06:39 AM

If I read the example correctly, this is the part I'm interested in (along with the Dim statements).

Code:

 
Set CCtrlRng = CCtrl.Range
If CCtrlRng.Information(wdWithInTable) Then
Set TblRng = CCtrlRng.Tables(1).Range
i = .Range(0, TblRng.End).Tables.Count
If (i = 1) Or (i = .Tables.Count) Then Exit Sub

In my case it should look like This (?)

Code:

Set CCtrlRng = CCtrl.Range
If CCtrlRng.Information(wdWithInTable) Then
Set TblRng = CCtrlRng.Tables(1).Range
i = .Range(0, TblRng.End).Tables.Count
If (i = 1) Or (I < .Tables(12) Then Exit Sub

Thanks for your incredibly prompt response!