Delete a table between two bookmarks

[SoNew2This]

What I would like to do is delete a table between two bookmarks if row 2 cell
1 is blank. I've seen how to delete between two bookmarks:

Dim oRng As Range
With ActiveDocument
Set oRng=.Range(Start:=Bookmarks("BK1").Range.End,_
End:=BookMarks("BK2").Range.Start)
oRng.Delete
End With

But how would I test to see if the cell is blank and if so then delete the
table.

Thanks,

 

[Helmut Weber]

Hi,

Dim oRng As Range
With ActiveDocument
Set oRng=.Range(Start:=Bookmarks("BK1").Range.End,_
End:=BookMarks("BK2").Range.Start)
oRng.Delete
End With

like that:

Sub Test7()
Dim oRng As Range
With ActiveDocument
Set oRng = .Range(Start:=.Bookmarks("BK1").Range.End, _
End:=.Bookmarks("BK2").Range.Start)
If Len(oRng.Tables(1).Cell(2, 1).Range) = 2 Then
oRng.Tables(1).Delete
End If
End With
End Sub

Note that there is a period missing
before "bookmarks" in your code.

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP