> Studio CICUTO - PC C ha scritto:
> > ziomaul ha scritto:
> >>>>> premendo Ctrl+Invio, si può andare a capo quando si vuole!
---cut---
> > Stefano
> >
> addirittura se voglio usare solo la tastiera seleziono con i tasti
> frecce la cella e con F2 abilito la modifica...
> ib
Oppure c'è questa piccola macro che modifica automaticamente il testo nella
cella rendendolo "a capo"
Essendo una macro poi si può associarla ad un pulsante sulla barra o ad una
combinazione di tasti
Unica cosa, conviene o modificare il foglio (o la scelta di caselle) che devono
contenere il testo a capo prima della digitazione, oppure dopo aver digitato il
tutto ed essere usciti dalla cella.
Nota il carattere "_" è per l'a capo che in una sola riga non ci entravano
sub testoacapo
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.Dispat_
chHelper")
rem ----------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "AlignmentHyphenation"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:Alig_ nmentHyphenation", "", 0,
args1())
rem ----------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "WrapText"
args2(0).Value = true
dispatcher.executeDispatch(docu_
ment, ".uno:WrapText", "", 0, args2())
end sub
Ditta Novelli di T di Lernia & f sas
Novelli Angelo
Via M. Battistini 111 00168 - Roma
T 066145955 - Fax 066279244
[EMAIL PROTECTED]
------------------------------------------------------
Con Prometeo prestiti senza spese fino a 31.000 Euro!
http://click.libero.it/webnation06marz07
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
