Delete row with empty cel in a table

vibor · #8 04-30-2015, 02:41 PM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to delete all empty rows from all tables	braddgood	Word VBA	15	10-02-2015 01:54 PM
Delete empty cell and shift up	Linh	Word Tables	1	09-21-2014 01:52 PM
Creating VBA Code to Delete Empty Column in Table	Faugs	Word VBA	5	08-07-2014 03:29 PM
Delete lots of empty space between paragraphs.	FieldTechnician	Word	4	10-25-2013 01:14 PM
Macro to delete rows with all empty cells	ubns	Excel Programming	2	08-14-2012 02:01 AM