Coreldraw Macros Better

Sub BatchResizeToWidth()
    Dim s As Shape, newW As Double
    newW = 50 ' mm
    For Each s In ActiveSelectionRange
        s.LockAspectRatio = True
        s.SetSize newW, s.SizeHeight * (newW / s.SizeWidth)
    Next s
End Sub

Respond to document open, object creation, etc.

Better than Find/Replace.