Fejlmeddelelse ved kørsel af Makro

[hbay57]

Jeg forsøger at få hul på makroprogrammering ved at læse tutorials, fora etc. Jeg har lavet utallige forsøg med at køre eksempler, men støder ofte på fejlmeddelelsen "Basic kørselsfejl - Egenskab eller metode ikke fundet ..." - senest ved brug af .setvalue i denne lille makro som jeg kopierede fra et indlæg på dette forum:
"Sub DateNow
Dim here As Object
here =ThisComponent.CurrentSelection
here.setValue(DateValue (Now ))
here.NumberFormat =75
End sub"

Mangler jeg en add-in eller lignende for at kunne bruge .setValue, .updateValue etc?

[Jens S]

Jeg kan ikke se fejl i din makro og den virker også upåklagelig her og giver '16. jan 2013' uden anførselstegn i valgte celle. Hvis flere celler er markeret får jeg fejlen.

Denne makro giver ikke fejl, selvom du markerer flere celler:

Code: Select all

'Copyright 2011 Gustavo Buzzatti Pacheco - gbpacheco@gmail.com
'Licensed under the GNU LGPL 


Sub Dato
   Dim aLocal As New com.sun.star.lang.Locale
   oCell = ThisComponent.getCurrentSelection().getRangeAddress()
   oSheet =  ThisComponent.getSheets().getByIndex(oCell.Sheet)
   n%=ThisComponent.getNumberFormats().getStandardFormat(com.sun.star.util.NumberFormat.DATE, aLocal)
   oSheet.getCellByPosition(oCell.StartColumn,oCell.StartRow).NumberFormat = n%
   oSheet.getCellByPosition(oCell.StartColumn,oCell.StartRow).Value =  Date(now)
End Sub


Sub Tid
   Dim aLocal As New com.sun.star.lang.Locale
   oCell = ThisComponent.getCurrentSelection().getRangeAddress()
   oSheet =  ThisComponent.getSheets().getByIndex(oCell.Sheet)
   n%=ThisComponent.getNumberFormats().getStandardFormat(com.sun.star.util.NumberFormat.TIME, aLocal)
   oSheet.getCellByPosition(oCell.StartColumn,oCell.StartRow).NumberFormat = n%
   oSheet.getCellByPosition(oCell.StartColumn,oCell.StartRow).Value = now
End Sub 

mvh
Jens

[hbay57]

Ja, du har ret - jeg kørte den fra et Writer dokument, og der virkede den ikke. Men i et Calc dokument virkede den.

Skal jeg oprette et nyt indlæg med de andre fejlmeddelelser, jeg er stødt på?