microsoft.public.word.vba.general

Hi Alan,

there must be other ways,
but this one works for me:

Sub Test400t89()
With Selection
.Collapse
If .Range.ListParagraphs.Count > 0 Then
.Paragraphs.First.Range.Select
End If
While .Paragraphs.First.Previous.Range.ListParagraphs.Count > 0
.MoveStart unit:=wdParagraph, Count:=-1
Wend
While .Paragraphs.Last.Next.Range.ListParagraphs.Count > 0
.MoveEnd unit:=wdParagraph, Count:=1
Wend
End With
End Sub


Cutting and pasting, I think, would not be a problem.
--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP