Delete contents of section, but leave section in place

[Bob]

I have a bookmark at the very beginning of a section. I
want to go to that bookmark and then delete the contents
of the section but leave the section and bookmark there.

I've done a 'goto the bookmark' and then expanded the
selection by

Selection.Expand wdSection
Selection.Delete

but this selects the last paragraph mark and therefore
the section break.

 

[Doug Robbins - Word MVP]

Use

Dim myrange As Range
Set myrange =
ActiveDocument.Bookmarks("BookmarkName").Range.Sections(1).Range
myrange.End = myrange.End - 1
myrange.Text = ""
ActiveDocument.Bookmarks.Add "BookmarkName", myrange


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[Larry]

That's pretty damned clever, Doug.

Larry