...oziroma tri: kar se DTP tiče: na ebay sem našel quarkexpress 5.01 za
1 (en) euro, neregistriran etc. InDesign CS2 za 32 ...
----------------------------------------------------
Pri drugem od dveh vprašanj je šlo za shranjevanje datotek, kjer naj bi
bilo polje za ime datoteke že predzasedeno.Tu je predlog za makro brez
parametrov, kjer se odpre dialog (za vsak primer, če je treba
prednastavljeno ime spremeniti). Ime datoteke je "kopija", z repom v
obliki -HH-MM-SS (timestamp).
sub testsave
dim MojeIme as string
MojeIme = "kopija-" & Hour(Now()) & "-" & Minute(now()) & "-" &
Second(Now())
dim ObjFileDlg as object
ObjFileDlg = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
dim Dialogtype(0)
Dialogtype(0)=com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE
with ObjFileDlg
rem pozor, pike!!
.initialize( DialogType())
.appendFilter( "Datoteke Oo (ODT)", "*.odt" )
.appendFilter("Besedila (txt)", "*.txt")
.SetDefaultName MojeIme
.Execute
end with
end sub
Podobno gre avtomatično, brez dialoga - shranjuje se v ROOT, ki v
spodnjem primeru kaže na i:/arc
sub testsaveNoDialog
dim MojeIme as string
MojeIme = "kopija-" & Hour(Now()) & "-" & Minute(now()) & "-" &
Second(Now())
const root = "file:///I:/arc/"
rem
----------------------------------------------------------------------
rem get access to the document
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dim args(2) as new com.sun.star.beans.PropertyValue
args(0).Name = "URL"
args(0).Value = Root & MojeIme
args(1).Name = "FilterName"
args(1).Value = "writer8"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
