You could perhaps try to use the WolframAlpha function with the pods?
Column@{WolframAlpha[
"polynomial long division (y^3-6y+20)/(y-3)", \
{{"QuotientAndRemainder", 1}, "Content"},
PodStates -> {"QuotientAndRemainder__Step-by-step solution"}],
WolframAlpha[
"polynomial long division (y^3-6y+20)/(y-3)", \
{{"QuotientAndRemainder", 2}, "Content"},
PodStates -> {"QuotientAndRemainder__Step-by-step solution"}]}
Use == to start a session with Wolfram Alpha and then type your equation
Then choose the show steps in the equation solved windows
Now select the plus button to the right and select Formatted pod or Subpod (I chose now formatted which even looks better. This will generate the 'complex' expression and start a Wolfram session to only show this part of the content.
And here is the formatted Pod output
WolframAlpha["polynomial long division (y^3-6y+20)/(y-3)",
IncludePods -> "QuotientAndRemainder",
AppearanceElements -> {"Pods"},
TimeConstraint -> {30, Automatic, Automatic, Automatic},
PodStates -> {"QuotientAndRemainder__Step-by-step solution"}]
So with that you play around!