.Public Sub test1()
	Dim myRange As Range
	Set myRange = ActiveDocument.Paragraphs(5).Range
	myRange.Select
	'Добавляем новый абзац
	myRange.InsertAfter "New Text"
	myRange.InsertParagraphAfter
	'Выделяем и затем вырезаем добавленный абзац и помещаем его в буфер
	myRange.MoveStart Unit:=wdParagraph
	myRange.Select
	Selection.Cut
	'Добавляем новый абзац
	Selection.InsertAfter "Новый текст!"
	Selection.InsertParagraphAfter
	'Добавляем абзац из буфера
	Selection.Collapse Direction:=wdCollapseEnd
	Selection.Paste
End Sub