Macro per modificare + tabelle contemporaneamente

Discussioni sull'applicazione di videoscrittura
Rispondi
gs1960
Messaggi: 17
Iscritto il: venerdì 14 novembre 2014, 22:00

Macro per modificare + tabelle contemporaneamente

Messaggio da gs1960 »

Ciao a tutti!
Ripropongo il mio quesito che avevo posto in un 3D risolto...
Queso è il LINK al vecchio dove trovate la macro di cui parlo.

Ho un file con un centinaio di tabelle che devono avere tutte la stessa formattazione, in particolare mi serve ridimensionarle tutte allo stesso modo.
Ciascuna tabella ha due righe, di cui la prima composta da una sola colonna e la seconda da 2, quindi in totale sono 3 celle.
Nella prima riga c'è un'immagine e nella seconda del testo.
La prima riga deve diventare 10.5mm di altezza e la seconda 4.5mm.....Tutto qui.

Ho provato la macro postata, ma non modifica l'altezza delle righe ed in tutte le tabelle sovrascrive la seconda cella della seconda colonna, prendendo quello che trova nella corrispondente cella della tabella di riferimento.
Allego un esempio: vorrei rendere tutte le tabelle uguali a quelle di pagina 1, ma in pratica, quella macro scrive C in tutte le tabelle nella seconda colonna della seconda riga e non modifica le altezze delle righe.
Qualcuno potrebbe aiutarmi, per cortesia?
Allegati
prova tabelle.odt
(10.12 KiB) Scaricato 148 volte
OpenOffice 4.1.5 su Windows 10
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Macro per modificare + tabelle contemporaneamente

Messaggio da charlie »

Rilancio questo post.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
hubert lambert
Volontario
Volontario
Messaggi: 164
Iscritto il: venerdì 9 giugno 2017, 13:48

Re: Macro per modificare + tabelle contemporaneamente

Messaggio da hubert lambert »

Ciao,

Puoi provare con quella macro:

Codice: Seleziona tutto

sub main
    doc = thiscomponent
    on error goto finito
    doc.lockControllers()
    tabelle = doc.TextTables
    for n = 0 to tabelle.Count -1
    	tabella = tabelle(n)
    	righe = tabella.Rows
    	righe(0).IsAutoHeight = False
    	righe(1).IsAutoHeight = False
    	righe(0).Height = 10500
    	righe(1).Height = 4500
    next n
    on error goto 0
  finito:
    doc.unlockControllers()
    if err = 0 then
        msgbox "Finito."
    else
    	msgbox "Errore " & Err & ": " & Error$ + chr(13) + "Alla riga : " + Erl, 16 ,"ERRORE"
	end if
end sub
Piacere.
Allegati
gs1960.odt
(11.19 KiB) Scaricato 152 volte
OpenOffice 4.1.2/4.1.4 | LibreOffice 5.4.4/6.0
Win7 + LinuxMint
Rispondi