![有没有办法不用表格来格式化交替行(而不是段落)?](https://linux22.com/image/1485815/%E6%9C%89%E6%B2%A1%E6%9C%89%E5%8A%9E%E6%B3%95%E4%B8%8D%E7%94%A8%E8%A1%A8%E6%A0%BC%E6%9D%A5%E6%A0%BC%E5%BC%8F%E5%8C%96%E4%BA%A4%E6%9B%BF%E8%A1%8C%EF%BC%88%E8%80%8C%E4%B8%8D%E6%98%AF%E6%AE%B5%E8%90%BD%EF%BC%89%EF%BC%9F.png)
答案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 引用“覆盖”的每个范围内的每个段落。然后您可能仍需要进行一些手动整理(此时撤消可能是您的朋友!)