☰

有没有办法不用表格来格式化交替行（而不是段落）？

tag-icon • tag-icon microsoft-word
有没有办法不用表格来格式化交替行（而不是段落）？

我有一堆代码想要清晰地呈现，而且由于现在几乎不可能得到代码纸，所以我想格式化交替行以提高可读性。当然，这很容易在表格中完成，或者在段落级别完成，但需要大量的手动工作，但有没有什么方法可以做到这一点每行并且不使用表格？

尝试添加示例，但我的办公室计算机已决定不再喜欢加载页面。所以，嘿，我会即兴发挥...

有没有什么方法可以得到每行带状，而不用手动换行？

https://i.stack.imgur.com/HdjrS.jpg

答案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

如果你需要能够重新申请到文档中的许多独立块，我想您可以通过某种方式为块添加书签来实现这一点 - 例如使用诸如“codeblock”之类的名称，并在每次插入新书签时附加下一个数字，为​​您提供 codeblock1、codeblock2、codeblock3 等，然后修改上述 VBA 以将样式应用于 codeblock 引用“覆盖”的每个范围内的每个段落。然后您可能仍需要进行一些手动整理（此时撤消可能是您的朋友！）

相关内容