打开办公室 - 大胆的交替线

Question

• 我希望能够加粗
• 为一个巨大的odt文件交替排列。
• 文档太大而无法执行
• 手动。
• 有办法吗？

Answer 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

这有帮助吗？