开放式办公室 - 粗体交替线条

Posted 2023-02-24

【中文标题】开放式办公室 - 粗体交替线条

【英文标题】：Open Office - Bold alternating lines

【发布时间】：2015-03-18 14:58:26

【问题描述】：

我希望能够加粗

巨大的 odt 文档的交替行。

文档太大，无法处理

这个是手动的。

有没有办法做到这一点？

【参考方案1】：

请注意，Writer 文档不是面向行的软件。

一行的“长度”取决于您的字体、字体大小、页面布局、屏幕分辨率等。

话虽如此...如果您的文档包含一个文本，其中“行”由段落分隔符分隔，那么这里有一个宏可以更改每个其他段落的段落重量。

将此源​​复制到“标准”库（您的安装或相关文档）中的一个模块，以使其可用（对于您的所有 Writer 文档或“唯一一个”相关文档） - 并运行它.

Sub alternating_bold
' 20150320
' tested with AOO 4.0.1, but should work with any brand/version


oDoc = ThisComponent
oText = oDoc.Text

eElements = oText.createEnumeration()

' counter
i = 0

' loop
While eElements.hasMoreElements()

   ' every element
   one = eElements.nextElement

   ' if even counted
   If ( i mod 2 = 0 )   Then 
      one.CharWeight = 200 
   End If 

   ' count it
   i = i + 1 

WEnd

End Sub

这有帮助吗？