Dim myObjectFile As Variant - переменная для хранения ссылки на помещяемый объект
Set myObjectFile = docRef.Pages.Item(1).Place(Text7.Text) - собственно плесим файлик на первую страничку документа
docRef.Select selectableItems:=myObjectFile, appendSelection:=False - выделяем плесеный объект
Set mySelection = appRef.Selection.Item(1)
docRef.Select selectableItems:=mySelection, appendSelection:=False
appRef.Cut
docRef.Select selectableItems:=myrect, appendSelection:=False
appRef.PasteInto
myrect.Fit idCenterContent