Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
Deleting cr
With assistance from this posting board, I've been able to delete a table if
a certain cell is empty. Dim oRng1 As Range With ActiveDocument Set oRng1 = .Range(Start:=.Bookmarks("BK_COLLS").Range.End, _ End:=.Bookmarks("BK_COLLE").Range.Start) If Len(oRng1.Tables(1).Cell(2, 1).Range) = 2 Then oRng1.Tables(1).Delete GoTo lma Else Dim t1 As Table Set t1 = ActiveDocument.Bookmarks("BK_COLL").Range.Tables(1 ) End If End With This works swell. But I'd like to also delete the first and last carriage returns which are the Start and End Bookmarks. How is this accomplished? Thank you in advance. |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
deleting | Microsoft Word Help | |||
What's with not deleting? | Microsoft Word Help | |||
Deleting page | Microsoft Word Help | |||
deleting | Microsoft Word Help | |||
Having trouble deleting | Microsoft Word Help |