Delete a table between two bookmarks   

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,

date: Fri, 14 Mar 2008 10:33:01 -0700   author:   SoNew2This

Re: Delete a table between two bookmarks   

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

date: Fri, 14 Mar 2008 23:01:59 +0100   author:   Helmut Weber