答案1
遗憾的是,(据我所知)没有简单的方法。如果 LO 为每个引用指定一个特定的字符样式,那就简单了,但它没有。
因此,据我所知,您有两个选择:
- 手动为每个引文分配自定义字符样式;
- 使用宏完成此任务(见下文)。
对我来说,以下代码有效:
Sub AddBiblioStyle
Dim oDoc,oFields,oEnum,ThisField
oDoc = ThisComponent
oFields = oDoc.getTextFields
oEnum = oFields.createEnumeration
While oEnum.HasMoreElements
ThisField = oEnum.nextElement
ThisField.Anchor.CharStyleName = "Biblio"
Wend
End Sub
基于https://ask.libreoffice.org/t/find-field-replace-by-plain-text-keep-formating/62591/3
这只是应用了字符样式当前文档中的所有文本字段都应使用名为“Biblio”的字符样式。该字符样式在运行时必须存在,否则您将收到错误。它将影响所有文本字段,因此我无法预测任何副作用。
要使用宏:
- 创建具有所需特征(文本颜色、背景、字体等)的自定义字符样式;
- 将宏添加到您的文档(菜单附加功能->宏->管理->基本);
- 将宏代码中的“Biblio”替换为您的自定义字符样式的名称;
- 执行宏。