Consenso all'uso dei cookies

SITO1 -- SITO2 -- Forum2 -- CercaGlobale -- Informativa su Cookie e Privacy

Questo Forum1 è in sola lettura -- Usa il Forum2


Valutazione discussione:
  • 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
[Risolto] Selzione multipla di tabelle
#1
Buongiorno,
sono nuovo del forum e spero di essere nel posto giusto!
Vi sottoscrivo il mio problema.
Ho un documento scritto in write contenente numerose tabelle. Purtroppo sono tutte scontornate e ho la necessità di applicare ad ogniuna l'opzione "Bordi". Chiedevo se esiste un comando per selezionare tutte e solo le tabelle contemporaneamente, in modo da applicare la formattazzione una sola volta.
Grazie. Buona giornata.
Cita messaggio
#2
La selezione multipla di tabelle su writer non è permessa a differenza di microsoft word, puoi selezionare solo una tabella alla volta e poi applicare il bordo.
Cita messaggio
#3
(16-10-2013, 14:15 )d4rkheart Ha scritto: La selezione multipla di tabelle su writer non è permessa a differenza di microsoft word, puoi selezionare solo una tabella alla volta e poi applicare il bordo.
Ok, grazie, peccato però!
Cita messaggio
#4
provo a cercare qualche macro, vediamo se riesco a trovare qualcosa....
Cita messaggio
#5
Eccoti un file con la macro applica bordi, funziona pure su libreoffice.
Per cominciare abilita l'esecuzione delle macro su strumenti, opzioni, libreoffice, sicurezza, sicurezza delle macro, medio, ok, ok.
Apri il documento senzanome1.odt, abilita la macro.
Clic su pulsante aggiungi bordi. Vedi se va bene, ti dirò poi come aggiungere la macro su libreoffice per eseguirla su tutti i documenti.


Allegati
.zip   Senza nome 1.zip (Dimensione: 8,18 KB / Download: 13)
Cita messaggio
#6
Ciao d4rkheart,
per problemi vari non ho più frequentato il forum da mooolto tempo!
Intanto ti ringrazio per il file che mi avevi mandato. Ho provato e funziona benissimo.
Ti chiedo ora, se puoi spigarmi come abilitare la macro su tutti i documenti di libre office.
Ancora molte grazie.
Ciao,
GLF
Cita messaggio
#7
Ho visto per caso la discussione.
Segui tutti i passaggi e ti ritroverai una nuova icona su barra degli strumenti writer che ti consentirà di applicare il bordo a tutte le tabelle su tutti i documenti.
Strumenti
macro
organizza macro
LibreOffice.org basic
Macro personali
standard (devi selezionare la cartellina standard)
gestisci
nuovo
modulo
nome: AggiungiBordo
ok
seleziona il nuovo modulo AggiungiBordo
modifica
elimina tutto il codice
Codice:
REM  *****  BASIC  *****

Sub Main

End Sub

e incolla questa macro

Codice:
Sub tabelle
  Dim s As String
  Dim i As Long
  Dim oTables
  Dim oTable , oFrame, oDispHelper
  Dim oCell

  oTables = ThisComponent.getTextTables()
  If NOT oTables.hasElements() Then Exit Sub
    oFrame = ThisComponent.CurrentController.Frame
    oDispHelper = createUnoService("com.sun.star.frame.DispatchHelper")
    dim args2(9) as new com.sun.star.beans.PropertyValue
    args2(0).Name = "OuterBorder.LeftBorder"
    args2(0).Value = Array(0,0,1,0)
    args2(1).Name = "OuterBorder.RightBorder"
    args2(1).Value = Array(0,0,1,0)
    args2(2).Name = "OuterBorder.TopBorder"
    args2(2).Value = Array(0,0,1,0)
    args2(3).Name = "OuterBorder.BottomBorder"
    args2(3).Value = Array(0,0,1,0)
    args2(4).Name = "InnerBorder.Horizontal"
    args2(4).Value = Array(0,0,1,0)
    args2(5).Name = "InnerBorder.Vertical"
    args2(5).Value = Array(0,0,1,0)
    args2(6).Name = "InnerBorder.Flags"
    args2(6).Value = 0
    args2(7).Name = "InnerBorder.ValidFlags"
    args2(7).Value = 127
    args2(8).Name = "InnerBorder.DefaultDistance"
    args2(8).Value = 0

  For i = 0 To oTables.getCount() - 1
    oTable = oTables.getByIndex(i)
    ThisComponent.getCurrentController().select(oTable)
    oDispHelper.executeDispatch(oFrame, ".uno:SelectTable", "", 0, Array())
    oDispHelper.executeDispatch(oFrame, ".uno:SetBorderStyle", "", 0, args2())
Next
MsgBox "Fatto"
End Sub
clic su icona salva.

strumenti
personalizza
barre degli strumenti
barra degli strumenti: standard
aggiungi
categoria: macro personali-standard-aggiungi bordo
comandi: seleziona la voce tabelle
aggiungi
chiudi
clic su nuova voce tabelle
modifica
cambia icona
scegli l'icona che ti piace
ok
salva in libreoffice writer
ok
Cita messaggio
#8
Shocked 
Sono stato proprio fortunato!
Appena posso provo e poi ti faccio sapere.
Per il momento grazie mille!
Cita messaggio
#9
Fatto!
Perfetto, funziona tutto.
Sei stato veramente molto gentile e ti ringrazio ancora tantissimo, per aver risolto un problema per me molto importante. Grazie!
Cita messaggio
#10
Di nulla, buone ferie!
Cita messaggio


Vai al forum:


Utenti che stanno guardando questa discussione: 1 Ospite(i)