Re: [USERS-SLOOO] Naslov okna v OOo

[Robert Ludvik]

Matjaz Horvat pravi:
V OOo mojega atija moti, da se mu v naslovu okna namesto imena datoteke
(tako je bilo v MS Office) izpise opis datoteke, ki ga uporabnik doda
pri shranjevanju.
Problem je v tem, da velikokrat za predlogo uporabi kak star dokument
(Wordov), pa ga potem le shrani z drugim imenom. Zgoraj v naslovni
vrstici okna pa je se vedno opis, ki je ponavadi kar enak imenu prejsnje
datoteke (Word ocitno sam izpolni opis z imenom).
Se da kako spremeniti, da se v naslovni vrstici prikaze ime datoteke?
LP,
Matjaz
Ja, zna biti moteče. To se dogaja samo pri datotekah ustvarjenih v 
MSOffice in potem odprtih v OOo.
Po drugi strani pa - jaz sem dobil že nekaj dokumentov, ki so imeli v 
opisu vpisane kar zanimive stvari - pošiljatelj sploh ni vedel, da so 
te stvari kje shranjene.
Kakorkoli:
odpreš nov dokument in napišeš nekaj v Datoteka - Lastnosti - Opis - 
Naslov in zapreš to pogovorno okno
Zaženeš Orodja - Makri - Posnemi makro...
in greš spet na Datoteka - Lastnosti - Opis - Naslov ampat tokrat 
pobrišeš vsebino
končaš snemanje makra
rezultat je verjetno nekaj podobnega kot spodaj. Makro shraniš in ga 
lahko prilepiš na eno ikono v orodno vrstico - v Orodja - Makri je 
gumb Dodeli...
Upam, da pomaga.
Pa čestitke atiju, ker uporablja Ooo in verjetno tudi druge OS stvari :-)

Lp
Robert Ludvik
REM  *****  BASIC  *****
Sub Main
End Sub
sub odstrani_opis
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(17) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Properties.UseUserData"
args1(0).Value = true
args1(1).Name = "Properties.DeleteUserData"
args1(1).Value = false
args1(2).Name = "Properties.Title"
args1(2).Value = ""
args1(3).Name = "Properties.Subject"
args1(3).Value = ""
args1(4).Name = "Properties.KeyWords"
args1(4).Value = ""
args1(5).Name = "Properties.Description"
args1(5).Value = ""
args1(6).Name = "Properties.AutoReload"
args1(6).Value = false
args1(7).Name = "Properties.AutoReloadTime"
args1(7).Value = 60
args1(8).Name = "Properties.AutoReloadURL"
args1(8).Value = ""
args1(9).Name = "Properties.AutoReloadFrame"
args1(9).Value = ""
args1(10).Name = "Properties.Field1Title"
args1(10).Value = "Info 1"
args1(11).Name = "Properties.Field2Title"
args1(11).Value = "Info 2"
args1(12).Name = "Properties.Field3Title"
args1(12).Value = "Info 3"
args1(13).Name = "Properties.Field4Title"
args1(13).Value = "Info 4"
args1(14).Name = "Properties.Field1"
args1(14).Value = ""
args1(15).Name = "Properties.Field2"
args1(15).Value = ""
args1(16).Name = "Properties.Field3"
args1(16).Value = ""
args1(17).Name = "Properties.Field4"
args1(17).Value = ""
dispatcher.executeDispatch(document, ".uno:SetDocumentProperties", "", 
0, args1())

end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]