Lines Matching refs:aTable
1201 Dim aTable As Table
1204 For Each aTable In currDoc.Tables
1205 invalidBorders = GetInvalidBorder(aTable)
1207 aTable.Range.Select
1234 Next aTable
1243 Function GetInvalidBorder(aTable As Table) As String
1248 If IsInvalidBorderStyle(aTable.Borders(wdBorderTop).LineStyle) Then
1251 If IsInvalidBorderStyle(aTable.Borders(wdBorderBottom).LineStyle) Then
1254 If IsInvalidBorderStyle(aTable.Borders(wdBorderDiagonalDown).LineStyle) Then
1257 If IsInvalidBorderStyle(aTable.Borders(wdBorderDiagonalUp).LineStyle) Then
1261 If IsInvalidBorderStyle(aTable.Borders(wdBorderHorizontal).LineStyle) Then
1264 If IsInvalidBorderStyle(aTable.Borders(wdBorderLeft).LineStyle) Then
1267 If IsInvalidBorderStyle(aTable.Borders(wdBorderRight).LineStyle) Then
1270 If IsInvalidBorderStyle(aTable.Borders(wdBorderVertical).LineStyle) Then