This example adds a routing slip to the active document, adds two recipients, enables status tracking, and routes the document.
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.AddRecipient Recipient:="James Allard"
.AddRecipient Recipient:="Rich Andrews"
.TrackStatus = True
.Parent.Route
End With