Vito, pozdravljeni!
Šele zdaj sem uspela natančneje pogledati spodnji makro. Ure in minute itd.
(ki jih ne potrebujem) mi ni problem odstraniti. Vljudno pa prosim za vašo
pomoč pri naslednjem: makro dodeljuje datoteki fiksno ime "Kopija", medtem
ko bi meni pomagalo, če bi bilo ime variabilno, t.j. če bi dodelil kot ime
vsakokratne začetne besede datoteke - recimo 3 besede. Je to izvedljivo?
Primer: če se datoteka začne s stavkom Geografija človeškega genoma je
postala jasna šele ... naj bi pri kliku na tipko 'Shrani' ali 'Shrani kot'
pogovorno okno predlagalo kot naslov Geografija človeškega genoma. Če bi bil
ta predlagan tekst že počrnjen (= označen), bi lahko uporabnik naslov
sprejel, dopolnil ali pobrisal.
Vnaprej hvala in lp, Ksenija
----- Original Message -----
From: "Vito Smolej" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Monday, May 28, 2007 8:03 AM
Subject: [USERS-SLOOO] še en odgovor, oziroma dva
...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]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
