[EMAIL PROTECTED] ha scritto:
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]
Bello ! Grazie !
Adesso lo provo, lo faccio provare e se va bene lo mettiamo come bug
(guardate che manca questo) per OOo ;-)
Ciao
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
