
Dein Makro könnte also so aussehen:
Code: Alles auswählen
REM ***** BASIC *****
Option Explicit
sub saveASots
dim pvArgs(0) as new com.sun.star.beans.PropertyValue
pvArgs(0).Name = "FilterName"
pvArgs(0).Value = "calc8_template"
thisComponent.storeAsUrl(replace(thisComponent.url,".ods",".ots"),pvArgs())
end sub