🚀 go-pugleaf

Dnia 2003-05-29 21:24, Użytkownik Przemysław Kapłon napisał:

> Witam!
> 
> Czy kto? powie mi, czy jest w Calcu jaki? skrót klawiaturowy do wstawienia 
> aktualnej daty, ale nie jako formuły, tylko jako zwykły wpis daty, która 
> nie zostanie zaktualizowana  po ponownym otwarciu dokumentu. W Excelu jest 
> to Ctrl + ;
> Czy jest jaka? formuła do wstawiania daty utworzenia dokumentu?
> Chodzi mi o to, że stworzyłem sobie szablon rachunku, w którym data 
> utworzenia dokumentu będzie wstawiana automatycznie i nie zmieni się po 
> ponownym jego otwarciu.
> I jeszcze jedno: czy wie kto?, w jaki sposób uzyskać np. warto?ć słownie, 
> np. 87 >  "osiem - siedem", lub "osiemdziesišt siedem"
> Sš wprawdzie formuły "KWOTA" i "TEKST", które zamieniajš liczby na tekst, 
> ale zmieniajš one tylko format liczby tak, że komórka jest traktowana jako 
> tekstowa, a nie zmieniajš cyfr na słowa.
> 
> Pozdrawiam 
> 
> Przemek

Najpierw piszemy makro a jak jesteśmy cwani znajdujemy.
Ja znalazłem w AndrewMacro.sxw

----------------------------------------------------------------------
Sub InsertDateIntoCell
	Dim oDesktop As Object, oController As Object, oSelection As Object
	Dim doc As Object

	oDesktop = createUnoService("com.sun.star.frame.Desktop")
	oController = oDesktop.CurrentFrame.Controller	
	doc = oController.Model

	If doc.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then
		oSelection = oController.Selection

		' set the date value
		oFunction = CreateUnoService("com.sun.star.sheet.FunctionAccess")
		oFunction.NullDate = doc.NullDate
		Dim aEmpty()
		oSelection.Value = oFunction.callFunction("NOW", aEmpty())

		' Set the date number format to default
		oFormats = doc.NumberFormats
		dim aLocale as new com.sun.star.lang.Locale
		oSelection.NumberFormat = oFormats.getStandardFormat(_
			com.sun.star.util.NumberFormat.DATETIME, aLocale)

		' Set the format to something completely different
		'oSelection.NumberFormat = FindCreateNumberFormatStyle(_
		'	"YYYYMMDD.hhmmss",  doc)
	Else
		MsgBox "This macro must be run in a spreadsheet document"
	End If
End Sub
-----------------------------------------------------------------------

nasteonie
Tools->Configure
znajdujemy Ctrl++
i przypisujemy nasze makro do klawisza

Makro słownie też gdzieś w necie powinno być.