Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 24. 8. 2016 10:06:23

Trambus
Člen
Registrace: 20. 2. 2013
Příspěvků: 24

makro neměnné datum

Pánové prosím, pomocí záznamníku (jinak to neumím) jsem si nahrál makro a přiřadil k tlačítku tak, aby se mi vkládalo do textu ve writeru neměnné datum. Jen mi to hází, ne pokaždé, datum ale nějaké číslo, prosím kde je chyba? děkuji!!!

sub vloz_datum2
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 ----------------------------------------------------------------------
dim args1(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 0
args1(1).Name = "SubType"
args1(1).Value = 0
args1(2).Name = "Name"
args1(2).Value = ""
args1(3).Name = "Content"
args1(3).Value = "0"
args1(4).Name = "Format"
args1(4).Value = 10037
args1(5).Name = "Separator"
args1(5).Value = " "

dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args1())
end sub

Offline

#2 24. 8. 2016 10:57:26

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 2,931

Re: makro neměnné datum

Podívejte se na nápovědu - datumové a časové funkce.
Sub datum
Date()
End Sub
nebo
Sub DatumCasRazítko
Nov()
End Sub
Zbývá jen umístit na správné místo. Projistotu si nahrajte například skok na konec, odřádkujte a spojte s některým výše uvedeným makrem.

Editoval neutr (24. 8. 2016 10:58:17)


Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte tak orientaci na fóru při vyhledávání řešení problémů
JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

Zápatí