Protect Property Example

This example protects the active document (only allows comments) and then routes it.

ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
    .Subject = "Status Doc"
    .Protect = wdAllowOnlyComments
    .AddRecipient Recipient:="Kim Johnson"
End With
ActiveDocument.Route