Sub Start()
Dim s As Shape
If Application.Documents.Count = 0 Then
MsgBox "Нет открытых документов.", vbOKOnly, "Нет документа"
Exit Sub
End If
ActiveDocument.Unit = cdrMillimeter
x = InputBox("Ширина", , 1)
y = InputBox("Высота", , 1)
Set s = ActiveLayer.CreateRectangle2(0, 0, x, y)
SendKeys "p", True
End Sub