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. |
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
Deleting cr
Hi,
i'm not sure, if I understand your question right, but for the first character in a bookmark's range: ActiveDocument.Bookmarks("Test").Range.Characters. First = "" For the last character respectively: ActiveDocument.Bookmarks("Test").Range.Characters. Last = "" You could also delete those characters, but sometimes autocorrect settings redo deleting immediately. -- Greetings from Bavaria, Germany Helmut Weber, MVP WordVBA Vista Small Business, Office XP |
Reply |
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 |