app.Documents.Open strDOT 'Добавляем шаблон

With app.ActiveDocument  'Выбираем активный документ
        selection.PasteAndFormat (wdUseDestinationStylesRecovery)
        s = .ComputeStatistics(wdStatisticPages)
        
'Set BorrowPage = .Goto(What:=wdGoToPage, Count:=10)
      'With app
         Set ShapeRectangle = .Shapes.AddShape(msoShapeRectangle, 368.25, 111#, 171.75, _
        143.25).select

 ActiveDocument.Shapes.Shapes.AddShape(msoShapeRectangle, 368.25, 111#, 171.75, _
        143.25).select