S Wordem takto:
Private Sub ResizeWn()
With Application
.WindowState = wdWindowStateNormal
.Width = 580
.Height = 420
End With
End SubS jakoukoliv aplikací, to nevím.
S Wordem takto:
Private Sub ResizeWn()
With Application
.WindowState = wdWindowStateNormal
.Width = 580
.Height = 420
End With
End Sub