Halo Greg,
Sorry but this part (table9) is not working. I've checked your code and can't find a fault in it. I tried to change some parameters but it won't work.
Do you have an idea to fix it?
Table 11 and 15 works fine.
I've tried to make it even better to place a text in the first row with a text "No problems". After that the empty rows are deleted. But I can't get the text in the desired cell (Opmerking0).
This is watt I tried:
Code:
Sub checkEmptyFirstRow()
Selection.GoTo What:=wdGoToBookmark, Name:="Opmerking0"
If Len(Selection.Tables(1).Rows.Last.Range.Text) = 10 Then
ActiveDocument.Bookmarks("Opmerking0").Range.Text="No problems"
End If
End Sub
I think 'last' is wrong in the code, the current row must be read out and the text in the second cell. In this cell there's a bookmark called 'Opmerking0'.
Above the thirst (data) row there are 2 header rows.
Sorry if my English is poor.
Grt ViBoR
From Holland