Pannello di Controllo Moderatore ]

Macro per modificare + tabelle contemporaneamente

Discussioni sull'applicazione di videoscrittura

Macro per modificare + tabelle contemporaneamente

Messaggioda gs1960 » giovedì 3 gennaio 2019, 12:06

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 3 volte
OpenOffice 4.1.5 su Windows 10
gs1960
 
Messaggi: 17
Iscritto il: venerdì 14 novembre 2014, 22:00

Re: Macro per modificare + tabelle contemporaneamente

Messaggioda charlie » mercoledì 9 gennaio 2019, 17:51

Rilancio questo post.
charlie
macOS 10.12 Sierra: Open Office 4.1.5 - LibreOffice 6.0.7
Windows 7 pro (VirtualBox): Open Office 4.1.5 - LibreOffice 5.4.4.2
Ubuntu 17.04 LTE (VirtualBox): LibreOffice 5.1.6.2
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
Site Admin
Site Admin
 
Messaggi: 5529
Iscritto il: mercoledì 19 dicembre 2012, 10:50

Re: Macro per modificare + tabelle contemporaneamente

Messaggioda hubert lambert » mercoledì 9 gennaio 2019, 22:42

Ciao,

Puoi provare con quella macro:
Codice: Seleziona tutto   Espandi visualeStringi visuale
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 4 volte
OpenOffice 4.1.2/4.1.4 | LibreOffice 5.4.4/6.0
Win7 + LinuxMint
hubert lambert
Volontario
Volontario
 
Messaggi: 128
Iscritto il: venerdì 9 giugno 2017, 12:48


Torna a Writer

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite

cron