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-26-2015, 04:39 PM

Guessed

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

Office 2010 32bit

Expert

Join Date: Mar 2010

Location: Canberra/Melbourne Australia

Posts: 4,176

You haven't made it clear what constitutes empty but if we assume that the bookmark length = 0 means empty then you might do it this way

Code:

Sub Cleanup()
  Dim x As Integer, sBkmk As String
  For x = 60 To 1 Step -1
    sBkmk = "Prob" & x
    If ActiveDocument.Bookmarks.Exists(sBkmk) Then
      If Len(ActiveDocument.Bookmarks(sBkmk).Range.Text) = 0 Then
        ActiveDocument.Bookmarks(sBkmk).Range.Rows(1).Delete
      End If
    End If
  Next x
End Sub

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

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 05:27 AM.