Public Sub CopyImage()
	'Копирование рисунка через буфер
	Dim MyRange As Range
	Set MyRange = Documents("DocOne").Paragraphs(1).Range
	With MyRange
		'Первый абзац этого документа содержит рисунок
		' - элемент коллекции TableOfFiguress.Выделяем рисунок
		.MoveEnd Unit:=wdCharacter, Count:=-7
		.Select
		.Copy
	End With
		Set MyRange = ActiveDocument.Paragraphs(6).Range
		MyRange.Select
		Selection.Collapse Direction:=wdCollapseEnd
		Selection.Paste
	
End Sub