Option Explicit 
 
Public Sub Arrow_Convert() 
     ' This will make sure all the arrows in the drawings are the same
     ' Preliminary check before running the procedure
    If Documents.Count < 1 Then Exit Sub 
     
    Application.Optimization = True 
     
    Dim shp As CorelDRAW.Shape 
    Const ArrowType As Integer = 3 ' Standard arrow to use
     
     ' Select all the items on the page
    ActivePage.Shapes.All.CreateSelection 
     
     ' Iterate through all the shapes in the drawing
    For Each shp In ActiveDocument.Selection.Shapes 
         ' Check if the shape can be converted to a curve
        If shp.Outline.Type = cdrOutline Then 
             ' Check and change arrows (Start and End) as necessary
            If shp.Outline.StartArrow.Index <> 0 Then 
                shp.Outline.StartArrow = ArrowHeads.Item(ArrowType) 
            End If 
             
            If shp.Outline.EndArrow.Index <> 0 Then 
                shp.Outline.EndArrow = ArrowHeads.Item(ArrowType) 
            End If 
             
             ' Can also be referenced as shp.Outline.StartArrow = ArrowHeads (5)
        End If 
    Next shp 
     
     ' Clear the selection we had
    ActiveDocument.ClearSelection 
     
    Application.Optimization = False 
    ActiveWindow.Refresh 
End Sub