Есть ли способ форматировать чередующиеся строки (не абзацы) без таблиц?

Question

У меня есть куча кода, который я хочу представить четко, и, поскольку кодовую бумагу практически невозможно получить, я бы хотел отформатировать чередующиеся строки, чтобы улучшить удобочитаемость. Конечно, это легко сделать в таблице или на уровне абзаца с большим количеством ручной работы, но есть ли способ сделать это для каждой строки и без использования таблиц?

Попытался добавить пример, но мой офисный компьютер решил, что ему больше не нравится загрузка страниц. Эй, я буду импровизировать ...

Есть ли способ получить полосу за линию без использования ручных разрывов строк?

Answer 1

Как насчет создания пары стилей абзаца и использования небольшой подпрограммы VBA для применения их к выбранному в данный момент тексту, например

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

Если вам нужно иметь возможность повторно применить к многочисленным отдельным блокам в документе, я полагаю, вы могли бы сделать это, добавив в закладки блоки каким-либо образом - например, используйте имя, например "кодовый блок", и добавляйте следующий номер каждый раз, когда вставляете новая закладка, чтобы дать вам codeblock1, codeblock2, codeblock3 и т. д., затем измените вышеуказанный VBA, чтобы применить стили к каждому абзацу в каждом диапазоне, "охватываемом" кодовым блоком ref. Тогда вам, вероятно, все равно придется немного разобраться в ручном режиме (Отмена может стать вашим другом на этом этапе!)