TranslateProject/sources/tech/20221220.0 ⭐️⭐️ Writing a Macro in LibreOffice Calc Getting Started.md

5.9 KiB
Raw Permalink Blame History

Writing a Macro in LibreOffice Calc: Getting Started

Planning to automate stuff in LibreOffice? Start writing your first LibreOffice Calc macro using this guide.

LibreOffice provides a way to write your macro to automate various repetitive tasks in your office application. You can use Python or basic for your macro development. This tutorial focuses on writing a macro in LibreOffice with a Hello World macro in the Basic programming language.

Write your first macro in LibreOffice Calc

Macro Objective

We are going to create a macro that would put the string Hello World in the first cell of LibreOffice calc, i.e. the cell of row 1 and col A.

Creating the Macro

  • Open LibreOffice Calc from Applications => Office => LibreOffice Calc.

LibreOffice_1

  • Go to the option from the menu: Tools ==> Macros ==> Organize Macros ==> LibreOffice Basic. Below LibreOffice basic macros window will open.

LibreOffice_2

  • Give your desired name in the macro name box and click New. You can use any name you want. For this tutorial, I have used hello_world.

LibreOffice_3

  • Once you have clicked the New button, the macro editor will open. Here are some things to note in this window. This is the place where you should be writing your code, debugging your code, etc. You can see the macros name became the function name of your basic macro.

LibreOffice_4

  • Now, its time to code the first macro. Lets declare two variables of type objects.
dim document as object dim dispatcher as object
  • Lets assign two values to the above variables.
document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

ThisComponent refers to the current document.

In LibreOffice, everything you do, e.g. type, colour, insert, is “watched” by a controller. The controller then dispatches the changes to the document frame, i.e. the main window area of the Calc. So the document variable refers to the main area of Calc.

The createUnoService creates an instance of the DispatchHelper service. This service will help us to dispatch the tasks from the macro to the frame. Almost all LibreOffice macro tasks can be executed using the dispatcher.

  • Now we will declare an array of properties. Properties are always in a name/value pair. Thus the name contains the property name, and the value contains the value of that property.
dim args1(0) as new com.sun.star.beans.PropertyValue

Our objective is to put Hello World in the first Cell. To point to the first cell A1 and put a text, we would use two properties ToPoint and StringName.

Once we set the properties, its time to call the dispatch to send these to the document. So call the executeDispatch event of the dispatcher using two commands: .uno:GoToCell, and .uno:EnterString.

dim args2(0) as new com.sun.star.beans.PropertyValueargs1(0).Name = "ToPoint" args1(0).Value = "$A$1" args2(0).Name = "StringName" args2(0).Value = "Hello World!"

These commands tell the frame what needs to be executed and also pass the entire property array with values.

LibreOffice_5

Now put a message box to notify when the execution is completed.

Running the Macro

  • Its time to run the macro. To run the macro, press F5 or click Run Macro from the toolbar (see above).
  • After execution, the message box would pop up. If you go back and check the Calc spreadsheet, you should see Hello World! written in the first Cell.

LibreOffice_6

LibreOffice_7

Complete Code

REM  *****  BASIC  *****
sub hello_world

	dim document   as object
	dim dispatcher as object
	
	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	
	dim args1(0) as new com.sun.star.beans.PropertyValue
	dim args2(0) as new com.sun.star.beans.PropertyValue
	
	args1(0).Name = "ToPoint"
	args1(0).Value = "$A$1"
	dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
	
	args2(0).Name = "StringName"
	args2(0).Value = "Hello World!"
	dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())

   msgbox "Completed!"
end sub

Looking for Something Else?

If you are looking for more LibreOffice macro tutorials Or wants to learn more about it, please follow the below link for a complete Macro Tutorials Index:

Macro tutorial index

Next:How to Find Out Ubuntu Version: 6 Methods


via: https://www.debugpoint.com/writing-a-macro-in-libreoffice-calc-getting-started/

作者:Arindam 选题:lkxed 译者:译者ID 校对:校对者ID

本文由 LCTT 原创编译,Linux中国 荣誉推出