libreoffice basic宏

已于 2024-05-19 12:57:51 修改
阅读量1.6k 收藏 3
点赞数
分类专栏： libreoffice 文章标签： libreoffice basic uno
于 2023-07-20 19:32:29 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/inxunxun/article/details/131837977
版权
文章详细介绍了LibreOffice中宏的概念，包括宏的组织结构、使用的编程语言（如Basic）、编写宏的步骤以及宏的存储位置。提到了两种编写宏的方法，一种是使用dispatcher，另一种是直接使用UNO服务，并提供了相应的代码示例。此外，还阐述了如何运行和调试宏。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

（一）宏是什么

宏就是函数。

宏可以按库容器、库、模块、宏四级组织
库容器就是一个文件夹。里面有多个库。
库也是文件夹。里面有多个模块。
模块是单个文件。里面有多个宏。
宏是模块中的单个函数。

（二）用什么语言写宏

LibreOffice API支持Basic、Java、C/C++、Javascript、Python语言。
我选择用basic语言写宏。
LibreOffice Basic语言是专门为LibreOffice开发的，并集成到Office软件包中。顾名思义，LibreOffice Basic是Basic系列的一种编程语言。使用过其他Basic语言的人 - 特别是Microsoft的Visual Basic或Visual Basic for Applications（VBA） - 都会很快习惯LibreOffice Basic。LibreOffice Basic的大部分基本结构都与Visual Basic兼容。

（三）在哪写宏

宏的位置有三个，这三个位置就是三个库容器：
1.我的宏
用户目录下
~/.config/libreoffice/4/user/basic
2.应用程序的宏
系统目录下
/usr/lib64/libreoffice/share/basic
3.文档中的宏
保存在文档中。文档实际上是个压缩包，可以用unzip解压。

菜单栏点击“工具-宏-编辑宏”，进入编辑器
点击编辑器工具栏的“模块”，进入管理器
在管理器里，就可以在上述三个位置新建文件。

新建的文件名后缀是.xba

（四）怎么写宏

参考教程
https://wiki.openoffice.org/wiki/ZH/Documentation/BASIC_Guide
https://wiki.documentfoundation.org/Documentation/BASIC_Guide
https://help.libreoffice.org/latest/zh-CN/text/sbasic/shared/main0601.html?DbPAR=BASIC

分四步：
1.了解libreoffice basic语言。参考之前的文章：libreoffice basic语言
2.了解标准库。就是不直接引用LibreOffice api的标准函数，例如处理数字、字符串、日期值的函数。参考之前的文章：libreoffice basic库函数
3.了解LibreOffice API。允许访问LibreOffice文档，并允许创建、保存、修改和打印这些文档。参考之前的文章：libreoffice api
4.对话框编辑器：创建个人对话框窗口，并提供添加控件元素和事件处理程序的范围。

（五）写宏步骤：

有两种写宏的方法：

1.一种是使用dispatcher

这种方法通常先做宏录制。宏录制就是记录用户的一系列操作。LibreOffice使用LibreOffice Basic语言保存录制的宏。之后再在此基础上编辑宏。
确保启用宏录制，方法是转到工具>选项>LibreOffice >高级，选择“可选功能”下的“启用宏录制”选项。默认情况下，此功能在LibreOffice中处于关闭状态。
1）转到 工具 >宏 > 录制宏 开始录制宏。将显示一个带有“停止录制”按钮的小对话框，指示LibreOffice正在录制宏。
2） 键入运行此宏时要输入的所需文本。例如，键入您的姓名。
3）点击 停止录制 在小对话框中。这将导致“宏”对话框打开。
4） 打开我的宏。
5） 在“我的宏”中找到名为“标准”的库。
6） 选择“标准”库，然后选择一个模块。或者，您可以单击“新建模块”创建一个新模块
7） 在对话框中左上角的宏名称文本框中，键入名称EnterMyName
8） 单击“保存”以保存宏并关闭“宏”对话框。
如果执行了上述所有步骤，则会在所选模块中创建一个名为 EnterMyName 的宏。

使用dispatcher，不需要了解不同服务和接口。dispatcher使用诸如“uno:Undo”的命令处理文档。为简单起见，请将调度视为点击菜单中的动作。

组件（文档）的功能分为模型、控制器和框架。
框架
它包含一个模型的控制器，并知道所有关于窗口的信息。框架没有任何窗口的功能，框架只知道窗口存在。就相当于文档与窗口的中介。
向框架发送调度，因为它控制事物并知道如何路由调度。
模型
由文档数据和更改数据的方法组成。
您可以使用模型直接更新数据。
控制器
了解当前视图和数据；它接收输入然后操作文档。
控制器知道选择了什么，并且能够选择什么。

组件几乎总是指打开的文档，但其他窗口也是组件。例如，IDE和帮助窗口。

DispatchHelper是负责调度命令的服务。
oDispHelper = createUnoService（“com.sun.star.frame.DispatchHelper”）
它的executeDispatch函数负责调度命令，executeDispatch方法的参数如下
XDispatchProvider 执行调度的调度提供程序。
URL String 要调度的命令，以字符串形式。
target Frame String 接收调度的框架。使用空字符串或“_self”指定 当前框架（任何其他值无效）。
long 指示如何查找目标框架的可选搜索标志。使用零或空白
PropertyValue() 可选参数。

示例

oProvider = ThisComponent.CurrentController.Frame
oDispHelper = createUnoService("com.sun.star.frame.DispatchHelper") 
oDispHelper.executeDispatch(oProvider,".uno:Undo", "", , Array()) 

Dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$B$3" ' position to B3
oProvider = ThisComponent.CurrentController.Frame
oDispHelper = createUnoService("com.sun.star.frame.DispatchHelper") 
oDispHelper.executeDispatch(oProvider, ".uno:GoToCell", "", 0, args2())

查找调度命令
http://wiki.services.openoffice.org/wiki/Framework/Article/OpenOffice.org_3.x_Commands 包含一个命令列表。

使用UICommandDescription服务来枚举支持的模块。创建一个新的Calc文档并为每个模块创建一个工作表。模块支持的命令放置在工作表上。

Sub Print_All_Commands
	oDoc = StarDesktop.loadComponentFromURL("private:factory/scalc", "_default", 0, Array())
	oSheets = oDoc.getSheets()
	oUICommandDescription = CreateUnoService("com.sun.star.frame.UICommandDescription")
	oModuleIdentifier = CreateUnoService("com.sun.star.frame.ModuleManager")
	aModules = oModuleIdentifier.getElementNames()
	For n = 0 To UBound(aModules)
		oModuleUICommandDescription = oUICommandDescription.getByName(aModules(n))
		aCommands = oModuleUICommandDescription.getElementNames()
		If n <= UBound(oSheets.getElementNames()) Then
			oSheets.getByIndex(n).setName(aModules(n))
		Else
			oSheets.insertNewByName(aModules(n),n)
		End If
		oSheets.getCellByPosition(0, 0, n).getText().setString("Command") 
		oSheets.getCellByPosition(1, 0, n).getText().setString("Label")
		oSheets.getCellByPosition(2, 0, n).getText().setString("Name")
		oSheets.getCellByPosition(3, 0, n).getText().setString("Popup")
		oSheets.getCellByPosition(4, 0, n).getText().setString("Property")
		For i = 0 To UBound(aCommands)
			aCommand = oModuleUICommandDescription.getByName(aCommands(i))
			For k = 0 To UBound(aCommand)
				If aCommand(k).Name = "Label" Then
					sLabel = aCommand(k).Value
				ElseIf aCommand(k).Name = "Name" Then
					sName = aCommand(k).Value
				ElseIf aCommand(k).Name = "Popup" Then
					bPopup = aCommand(k).Value
				ElseIf aCommand(k).Name = "Property" Then
					nProperty = aCommand(k).Value
				End If
			Next
			oSheets.getCellByPosition(0, i+1, n).getText().setString(aCommands(i))
			oSheets.getCellByPosition(1, i+1, n).getText().setString(sLabel)
			oSheets.getCellByPosition(2, i+1, n).getText().setString(sName)
			If bPopup Then
				oSheets.getCellByPosition(3, i+1, n).getText().setString("True")
			Else
				oSheets.getCellByPosition(3, i+1, n).getText().setString("False")
			End If
			oSheets.getCellByPosition(4, i+1, n).getText().setString(CStr(nProperty))
		Next
		oColumns = oSheets.getByIndex(n).getColumns()
		For j = 0 To 4
			oColumns.getByIndex(j).setPropertyValue("OptimalWidth", True)
		Next
	Next
End Sub

XDispatchInformationProvider从当前控制器返回调度命令的列表

Sub printcommands
	oDoc = StarDesktop.loadComponentFromURL("private:factory/scalc", "_default", 0, Array())
	oSheet = oDoc.getSheets().getByIndex(0)
	oSheet.getCellByPosition(0, 0).getText().setString("Group")
	oSheet.getCellByPosition(1, 0).getText().setString("Command")
	oController = ThisComponent.getCurrentController()
	If IsNull(oController) Or NOT HasUnoInterfaces( oController, "com.sun.star.frame.XDispatchInformationProvider") Then
		Exit Sub
	End If
	k=0
	iSupportedCmdGroups = oController.getSupportedCommandGroups()
	For i = 0 To UBound(iSupportedCmdGroups) 
		aDispatchInfo = 	oController.getConfigurableDispatchInformation(iSupportedCmdGroups(i))
		For j = 0 To UBound(aDispatchInfo) 
			aDispatchInformation = aDispatchInfo(j)
			k = k + 1
			oSheet.getCellByPosition(0, k).getText().setString(iSupportedCmdGroups(i)) 			
			oSheet.getCellByPosition(1, k).getText().setString(aDispatchInformation.Command)
		Next
	Next
End Sub

Dispatch命令名称区分大小写。

使用调度程序编写宏
某些组件不支持宏记录器，例如，Draw。
宏记录器有很多局限性，例如，宏记录器通常不会跟踪对话框打开。我是在使用宏记录器创建宏来导入文本时发现这个限制的

Sub CreateOutlineInImpress
	oProvider = ThisComponent.CurrentController.Frame
	oDispHelper = createUnoService("com.sun.star.frame.DispatchHelper") 
	oDispHelper.executeDispatch(oProvider,".uno:SendOutlineToStarImpress","", , Array())
End Sub

将整个Writer文档复制到剪贴板。
宏记录器很快提供了一个解决方案。不幸的是，从添加到文档中的按钮调用宏时失败，但它从IDE和AOO调用时成功。解决方案是在执行之前将焦点设置在文档上

Sub CopyToClipboard_Dispatch
	document = ThisComponent.CurrentController.Frame
	document.ContainerWindow.setFocus
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 
	dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array()) 
	dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
End Sub

如果改成用直接服务，那么如下所示

Sub CopyToClipboard_API
	ThisComponent.CurrentController.Select(ThisComponent.Text)
	o = ThisComponent.CurrentController.getTransferable()
	sClipName = "com.sun.star.datatransfer.clipboard.SystemClipboard"
	oClip = createUnoService(sClipName)
	oContents = oClip.setContents(o, null)
End Sub

调度功能强大，并且不需要太多关于内部工作原理的知识。
但除了只能在调度中使用的功能，如撤销命令，最好是直接使用内部对象。

2.另一种就是直接使用uno服务写宏，这种方法不用dispatcher。

下面是基本步骤：
StarDesktop
样式
文本文档

（六）运行宏

工具 - 宏 - 运行宏

libreoffice_如何开始在LibreOffice Basic中编写宏
cumj63710的博客
06-30 2998
libreoffice 我长期以来一直答应撰写有关脚本语言Basic和在LibreOffice中创建宏的文章。 本文致力于LibreOffice Basic中使用的数据类型，并且在更大程度上致力于变量的描述以及使用它们的规则。 我将尝试为高级用户和新手用户提供足够的信息。 （并且，我要感谢所有对此俄语文章进行评论并提出建议的人，特别是那些帮助回答难题的人。） 变量命名约定 以下是正确...
libreoffice表格python宏教程 一
void的博客
12-18 1439
LibreOffice自带了一个宏编辑器，但是只能用basic语言，无法用Python。所以，我们必须在单独的编辑器中编写Python代码。可使用任何编辑器来编辑，但我建议使用vscode。需要安装apso扩展，此扩展可以创建删除管理python宏文件，同时还能设置偏好编辑器下面是扩展下载地址。
试用LibreOffice对VBA的支持
Tirecoed的专栏
03-06 9203
　　安装了Win7后，要打个表格又要用到Office，没有装MS Office，把Office 2007装上试用，不习惯。WPS2005以后虽然不错，但那个自动后台占用网络资源感觉不好。想到以后要将公司软件尽可能正版化，于是又试一下LibreOffice。　　记得第一次听说LibreOffice是在一个FreeBSD群里，当时我问什么是LibreOffice，有人告诉我落后了。后来查了，感觉比较让人期待的是它将移除对Java的一些依赖，因为个人感觉Java在桌面应用程序的速度实在是慢。　　下载安装都比较顺利
LibreOffice_宏教程3_0.7z
01-19
LibreOffice 的宏教程，共 600 多页（英文），有很多实例，包含 PDF 和 ODT 两种格式，作者是 Andrew D. Pitonyak，教程原名《OpenOffice.org Macros Explained OOME Third Edition》，本教程可以在他的网站下载：https://www.pitonyak.org/book/
Java 与 LibreOffice 集成开发指南
最新发布
weixin_41544125的博客
04-11 1246
Java 与 LibreOffice 的集成开发为开发者提供了一种强大的工具，用于实现文档自动化处理、文档转换、内容编辑等任务。通过本文的介绍，您应该能够掌握如何使用 Java 调用 LibreOffice 提供的 API，实现跨平台的文档处理功能。希望本文对您的开发工作有所帮助。
LibreOffice 宏
我的专栏
01-15 1419
这里的 ReplaceString 宏可以在 LibreOffice 中实现文本替换和格式设置： ' 给文档中的拼音 [*] 和注释 {*} 添加颜色 ' 可用类似的方法实现代码着色 Sub PinYinHighLight Dim aReplaceArgs(0) as new com.sun.star.beans.PropertyValue ' 恢复全文默认颜色 aReplaceArgs(0).Name = "CharColor" aReplaceArgs(0).Value = &H
libreoffice python宏
void的博客
07-20 1299
创建一个文件并将其保存为 “HelloWorldCalc.py” 到 ~/.config/libreoffice/4/user/Scripts/python（适用于Linux）和C：\Users\AppData\Roaming\LibreOffice\4\user\Scripts\python for Windows。当然也可以不使用全局对象，而是直接使用uno.py里面的函数，不过不如使用XSCRIPTCONTEXT方便。在“Python宏”窗口中，展开“我的宏”部分。
LibreOffice_Basic_编程基础
07-18
涵盖了所有 LibreOffice Basic 编程的基础知识点，对于了解和学习 LibreOffice Basic 编程的入门者很有用。更高级的开发指南请参见《LibreOffice开发者指南》中文版，读懂那个，需要一些 C++ 或者 Java 的功底。
libreoffice basic语言
void的博客
04-26 1157
如果几个模块包含名称相同的 Private 变量，libreOffice Basic将会在每次出现该名称时创建一个不同的变量。&运算符在处理字符串时更安全，因为它假定所有参数都应该是字符串，如果参数不是字符串，则将参数转换为字符串。很难在代码中发现这类错误。如果相应的参数不存在，则将默认值（本例中为值0）传递给 B_Local，而不是传递已传递的参数。参数，也就是说，如果调用中不包含相应的参数，libreOffice Basic将传递一个空参数。在以下示例中，A 参数是必需的，而 B 参数是可选的。
macro-converter:〜从Excel宏到LibreOffice宏的宏转换项目〜
05-08
〜从Excel宏到LibreOffice宏的宏转换项目〜 概述 存在此项目的目的是，Microsoft Excel工作簿宏代码不适用于libreoffice calc。 这是因为，Excel Visual Basic for Application（VBA）和LibreOfice Basic在语法上是...
Open/LibreOffice Basic Macros:OpenOffice 和/或 LibreOffice 的 StarBasic 宏集合-开源
05-29
10 个用于 OpenOffice 和 LibreOffice 的 StarBasic 模块和库，每个模块和库都存储在一个空的 Base 数据库中，该数据库仅用作代码容器。 大多数代码都封装了 Windows API 函数。 - WinCharset 模块 - WinExec 模块 -...
在windows下LibreOffice_python宏执行.zip
05-13
在windows下LibreOffice_python宏执行，简单的教程。喜欢的朋友共同研究研究。
openoffice/libreoffice中的biasic宏语言编程
love code, love life.
03-26 1472
openoffice是很好的替代微软office的开源办公软件，其中的 表格处理模块具有多种语言的宏编程，basic，python，bean，JavaScript 下面是通过循环语句的赋值，每个cell赋值一个随机数 REM ***** BASIC ***** Sub Main dim Doc as object dim Sheet as object dim Cell as object Doc = ThisComponent Sheet = Doc.Sheets(0) for i=
libreoffice表格python宏教程 二
void的博客
12-19 504
（1）选择菜单“工具>自定义”调出对话框（2）点击事件切页（3）为“打开文档”事件分配宏注意下面的保存于选项：当保存于文档中时，只要在任何计算机上打开此文档，就会执行宏；当保存于LibreOffice中时，将为每个在本机打开的文档执行宏。给事件分配的宏，在执行时会传入一个参数，所以如果宏函数没有参数就会报错，但如果给宏函数添加一个参数，那么在使用“工具-宏-运行宏”执行宏时又会报错。所以解决方法是为宏函数加入一个可变参数，就像这样。
在LibreOffice 中启用录制宏的功能
田豆芽的IT技术专栏
05-13 4654
LibreOffice 打开录制宏的方法
libreoffice中创建宏按钮自动输出csv文件
zvui_的博客
09-21 400
Tools - Macros - Edit Macros REM ***** BASIC ***** Sub ExportToCsv document = ThisComponent ' Use the global string tools library to generate a path to save each CSV GlobalScope.BasicLibraries.loadLibrary("Tools") FileDirectory = Tools
chatgpt赋能Python-libreoffice_python宏
xuhss_com的博客
05-17 515
LibreOffice Python宏是一个强大的编程框架，可以使用Python编写脚本来增强和自定义LibreOffice的功能。使用Python作为编程语言，可以让LibreOffice的开发者和用户更容易学习和使用它。Python是一种简单易用的编程语言，具有清晰、简洁和易于阅读的语法，这使得编写宏变得更加容易和简单。LibreOffice Python宏还为用户提供了许多高级功能和扩展，包括对跨平台、多平台以及多语言支持的完美支持。本文由chatgpt生成，文章没有在chatgpt。
libreoffice basic标准库
void的博客
04-27 1189
在VBA中，该函数还会返回标准文件的名称，因此，要仅检索目录，还需要进行进一步检查。因此，在将B中的内容复制到A之前，必须将B转换为A的内部格式。如果libreOffice Basic中的字符串包含非数字值，并且将其赋给某个数字，则libreOffice Basic将不生成错误消息，但会在第一个无效字符处停止转换字符串。以下调用显示一个包含“是”和“否”按钮（值4）的信息框，并将第二个按钮（“否”）设置为默认值（值256），该信息框还包含一个问号（值32），因此参数值为4+256+32=292。
libreoffice python_如何在LibreOffice中运行python宏？
weixin_39975529的博客
12-23 843
问题描述当我去工具 – >宏 – >组织宏 – > Python我得到这个对话框：无法创建新的Python宏。显然LibreOffice没有Python编辑器，因此我必须在其他地方编写宏，然后执行它们。但我不知道在哪里放Python脚本。我尝试使用名称中的”HeloWorld”搜索system-wide文件，但没有得到任何结果。我试图将test.py文件放入：/home/mart...
LibreOffice宏教程：实例丰富的600页OOME第三版
LibreOffice宏主要使用BASIC语言（也称为LibreOffice Basic）进行编程。本教程中将详细介绍这种语言的基础语法和结构，例如变量声明、条件语句、循环、数组等。 - **变量和数据类型**：介绍在LibreOffice Basic中...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值