Макрос(перенос выделенного абзаца в конец активного документа)

[student12345]

Здравствуйте,помогите пожалуйста написать макрос : Выделенный абзац перенести в конец активного документа. Пробывал сам написать,но ничего не получилось,очень плохо понял данную тему...

[Пименов Александр]

Selection.Paragraphs(1).Range.Select
Selection.Cut
ActiveDocument.Paragraphs.Last.Range.Characters(Characters.Count -1).Select
Selection.TypeParagraph
Selection.Paste

[Казанский]

Александр,
(Characters.Count - Compile error: Variable not defined.
Можно так:

Sub bb()
Selection.Paragraphs(1).Range.Cut
Selection.EndKey wdStory
Selection.TypeParagraph
Selection.Paste
End Sub

[Пименов Александр]

Сообщение от Казанский

Александр,
(Characters.Count - Compile error: Variable not defined.

Согласен, надо

ActiveDocument.Paragraphs.Last.Range.Characters(ActiveDocument.Paragraphs.Last.Range.Characters.Count -1).Select