A téglalap visszaalakítására írtam magamnak egy rövid programot:
Sub TeglaGorbites()
Dim aDoc As Document
Set aDoc = ActiveDocument
aDoc.BeginCommandGroup "Téglalap javítás"
Dim s1 As Shape
Set s1 = ActiveShape
With s1.Rectangle
rBA = .RadiusLowerLeft
rBF = .RadiusUpperLeft
rJA = .RadiusLowerRight
rJF = .RadiusUpperRight
End With
With ActiveShape
sB = .LeftX
sA = .BottomY
sS = .SizeWidth
sM = .SizeHeight
End With
With ActiveLayer
Dim s2 As Shape
Set s2 = .CreateRectangle2(sB, sA, sS, sM, rBF, rJF, rBA, JA)
End With
s1.Delete
aDoc.EndCommandGroup
End Sub