microsoft.public.word.vba.general

Hello Helmut,

Thank you so much for the code snippet. That worked exactly the way I
wanted it to. Moreover, it gave me some things to research and learn from.

Regards,

Alan

Helmut Weber wrote:
> 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