Que tal criar alguns estilos de parágrafos e usar uma pequena rotina VBA para aplicá-los ao texto atualmente selecionado, por exemplo,
Sub applystripestoselection()
' create paragraph styles called banded1 and banded0
' with the characteristics you want
Const StylenamePrefix As String = "banded"
Dim i As Integer
For i = 1 To Selection.Paragraphs.Count
Selection.Paragraphs(i).Style = StylenamePrefix & CStr(i Mod 2)
Next
End Sub
Se você precisar aplicar novamente a vários blocos separados no documento, suponho que você poderia fazer isso marcando os blocos de alguma maneira. use um nome como "codeblock" e acrescente o próximo número toda vez que você inserir um novo marcador, para codeblock1, codeblock2, codeblock3 etc., então modifique o VBA acima para aplicar os estilos a cada parágrafo em cada intervalo "coberto" por um codeblock ref. Então você provavelmente ainda teria que fazer um pouco de separação manual (o Undo pode ser seu amigo neste momento!)