Libre office writer 宏插入日期和日期 + n 天

Question

这里有一个类似的问题，但使用的是 calc，但答案似乎是特定于 calc 的。我想在 libre writer 中编写一个宏，插入当前日期、一个逗号和 space 然后是当前日期 + 2 天、一个逗号和 space 然后是当前日期 + 14 天。

记录日期插入宏给出了以下内容，但老实说，我不知道如何解释这段代码，在网上也找不到什么帮助。

sub recall_period
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertDateField", "", 0, Array())


end sub

将不胜感激任何帮助或ides。干杯达米安

Answer 1

Andrew Pitonyak's macro document 有许多使用日期的示例。

第 7.7.1 节显示了将日期字段插入 Writer 文档的示例。
第 7.7.2 节还介绍了如何将日期加 10 天。
清单 5.100 给出了一个函数，可以将任意金额添加到日期中。
第 6.7 节显示了使用 Now() 获取当前日期的示例。

注意：录制宏通常不是学习基础编程的好方法，因为它录制的是丑陋的调度程序调用，而不是更优雅的 API 代码。

Libre office writer 宏插入日期和日期 + n 天

Libre office writer macro insert date, and date + n days

libreoffice

libreoffice-basic