ExpandScalarProducts[expr]

Write all scalar products in expr into their angular form, i.e. sp[a,b] is replaced by a b cos[a,b]