Delete first line in section

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Pete - 21 Jan 2006 14:24 GMT

I am sure this is easy ! but...

I would like to have a macro delete the first line of each section in a
document
My attempt below does not work - can anyone correct it for me

Thanks

pete

Dim s As Variant
For Each s In ActiveDocument.Sections
With s
.HomeKey Unit:=wdStory
.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
.Delete
End With
Next

Reply to this Message

Doug Robbins - Word MVP - 21 Jan 2006 17:57 GMT

Use:

Dim i As Long, myrange As Range
With ActiveDocument
For i = 1 To .Sections.Count
Set myrange = .Sections(i).Range
myrange.Collapse wdCollapseStart
myrange.Select
Selection.Bookmarks("\line").Range.Delete
Next i
End With

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

>I am sure this is easy ! but...
>
[quoted text clipped - 14 lines]
> End With
> Next

Reply to this Message

Pete - 21 Jan 2006 21:38 GMT

Doug

Thank you - it works perfectly and I very much appreciate your time

Thanks

pete

> Use:
>
[quoted text clipped - 26 lines]
> > End With
> > Next

Reply to this Message