Delete row with empty cel in a table

		Microsoft Office Forums > Microsoft Word > Word VBA
Delete row with empty cel in a table

FAQ

Thread Tools

Display Modes

04-27-2015, 06:15 AM

gmaxey

Windows 7 32bit Delete row with empty cel in a table

Office 2010 (Version 14.0)

Expert

Join Date: May 2010

Location: Brasstown, NC

Posts: 1,635

Here is another way. An empty cell has a text length = 2. A row marker has a text length = 2. So an empty row with three cells has a text length = 8.

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Do
    If Len(Selection.Tables(1).Rows.Last.Range.Text) = 8 Then
      Selection.Tables(1).Rows.Last.Delete
    Else
      Exit Do
    End If
  Loop
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Tags

empty cell delete row

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 10:01 AM.