Ответ: Макрос потестить
А что мешает воспользоваться моим кодом? Или он тоже не работает?
комментирую Ваш код:
Private Sub Cmd1_Click()
Dim x As Double, y As Double, w As Double, h As Double
ActiveDocument.Selection.GetBoundingBox x, y, w, h, True
ActivePage.SetSize w, h...