Include/Exclude Table(s) from OnEnter event

warbird · #5 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!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Table of content to not include TOC as first section!?	neuroscientist911	Word	4	11-19-2014 07:55 AM
Docx to PDF: Exclude heading from TOC but include in bookmarks	Lebber	Word	8	12-04-2013 06:11 AM
Include a table in landscape but keep footnote continuous	prakash	Word Tables	6	11-30-2013 04:09 PM
VBA: Include Dynamic Sheet Name In Pivot Table Source Data	ibrahimaa	Excel Programming	2	04-28-2012 12:27 AM
Include headers in table of contents	bwhight	Word	1	10-10-2006 08:59 AM