Accessing an uneven table

[Stein Kristiansen]

I have a function detecting if all the cells in a table consist of text with
hidden font:
----------------------
Public Function OnlyHiddenTextinTable(oTable As Table) As Boolean
OnlyHiddenTextinTable = True
Dim oRow As Row
Dim oCell As Cell
For Each oRow In oTable.Rows
For Each oCell In oRow.Cells
If oCell.Range.Font.Hidden <> True Then
OnlyHiddenTextinTable = False
Exit Function
End If
Next 'oCell
Next 'oRow
End Function
-----------------
The function works fine until it runs into a table with merged cells, then
it crashes.

Does anyone have a workaround this problem?

Regards
Stein

 

[Helmut Weber]

Hi Stein,

like this:

Dim oCll As Cell
For Each oCll In ActiveDocument.Tables(1).Range.Cells
' some code
Next

Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

 

[Stein Kristiansen]

Thank you Helmut.

That works perfect.

Regards
Stein