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?
Macro per modificare + tabelle contemporaneamente
Macro per modificare + tabelle contemporaneamente
- Allegati
-
- prova tabelle.odt
- (10.12 KiB) Scaricato 148 volte
OpenOffice 4.1.5 su Windows 10
Re: Macro per modificare + tabelle contemporaneamente
Rilancio questo post.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
-
- Volontario
- Messaggi: 164
- Iscritto il: venerdì 9 giugno 2017, 13:48
Re: Macro per modificare + tabelle contemporaneamente
Ciao,
Puoi provare con quella macro:
Piacere.
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
- Allegati
-
- gs1960.odt
- (11.19 KiB) Scaricato 152 volte
OpenOffice 4.1.2/4.1.4 | LibreOffice 5.4.4/6.0
Win7 + LinuxMint
Win7 + LinuxMint