Many thanks Graham, unfortuantely this macro fails because, as I have just
found out, the customer's document contains a one-row one-cell table at the
start of the document which is not part of this exercise, i.e. does not
contain a third column and no Y's or N's.
Sorry.
In my search I have found an old posting (2007) from Doug Robbins, which
allows me to dictate which table to count from.
I have also defined that all of the customer's documents which need counting
will only have two tables, and the second one will always be the one to count.
Many thanks for your prompt reply and your assistance.
DeanH
"Graham Mayor" wrote:
The following macro will total the Ys and Ns for each table and add them
with the total for the document at the end of the document.
Dim oTable As Table
Dim lYesDOC As Long
Dim lNoDOC As Long
Dim lYesTAB As Long
Dim lNoTAB As Long
Dim LastCell As Range
lYesDOC = 0
lNoDOC = 0
For i = 1 To ActiveDocument.Tables.Count
lYesTAB = 0
lNoTAB = 0
Set oTable = ActiveDocument.Tables(i)
For j = 1 To oTable.Rows.Count
If InStr(1, UCase(oTable.Cell(j, 3).Range), "Y") Then
lYesDOC = lYesDOC + 1
lYesTAB = lYesTAB + 1
End If
If InStr(1, UCase(oTable.Cell(j, 3).Range), "N") Then
lNoDOC = lNoDOC + 1
lNoTAB = lNoTAB + 1
End If
Next j
If i = 1 Then
ActiveDocument.Range.InsertAfter vbCr & _
"Sub totals:"
End If
ActiveDocument.Range.InsertAfter vbCr & _
"Table " & i & ": Yes - " & _
lYesTAB & " No - " & lNoTAB
Next i
ActiveDocument.Range.InsertAfter vbCr & _
"Totals: Yes - " & lYesDOC & " No - " & lNoDOC
--
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
DeanH wrote:
Word 2003 on XP.
I have a document that contains multiple tables, in each table the
thrid column contains "Y" or "N". I wish to count the occurances of
both of these characters, either 1) at the bottom of each table,
and/or 2) total number of both of these characters in all of the
tables in the document.
Any help will be greatly appreciated.
DeanH