[Risolto] Cambio spessore bordi al foglio di calcolo completo.

[Massimo.1973]

Salve a tutti ho un grattacapo che non so risolvere : ho fatto un foglio di calcolo ( che allego a questo argomento ) il quale mi serve per annotare i miei turni; fino al mese scorso è andato tutto bene, ma due giorni fa ho avuto bisogno di immettere i miei turni di Dicembre ed al primo avvio del documento OpenOffice (4.1.13) mi avvisava che era stato creato con una versione più recente del programma.
Successivamente ho proceduto con la ricerca di una nuova versione di OpenOffice, ma senza successo perchè il programma rispondeva che la versione in uso era la più aggiornata.
All'apertura del documento ho notato che la formattazione era cambiata, l'orientamento della pagina non era più verticale ma era orizzontale, ed è stato facile modificare completamente il documento perchè i fogli sono solamente 12, uno per mese; impresa più ardua invece per la formattazione dei bordi, la quale è stata sostituita la misura dello spessore delle linee da 1 pt. a 0,05 pt.
Volevo chiedere a Voi che sicuramente siete più esperti del sottoscritto, se vi è un modo rapido per ripristinare lo spessore di tutte le linee dei bordi del documento ad 1 pt., senza rendere necessaria l'operazione di cambiamento linea per linea.
Ringrazio anticipatamente,

Massimo.

[Gaetanopr]

Prova questa macro

Codice: Seleziona tutto

Sub Bordi
Dim oBordeLinea As New com.sun.star.table.BorderLine
oBordeLinea.InnerLineWidth = 35
Doc = ThisComponent
 
For i = 0 To Doc.Sheets.count - 1
  oSheet =Doc.Sheets(i)
  c = oSheet.createCursor
  c.gotoEndOfUsedArea(false)
  LastRow = c.RangeAddress.EndRow
  LastCol = c.RangeAddress.EndColumn
  
  oCellRange = oSheet.GetCellRangeByPosition(0, 0, LastCol, LastRow) 
  For col =  oCellRange.RangeAddress.StartColumn To oCellRange.RangeAddress.EndColumn	
   For riga = oCellRange.RangeAddress.StartRow To oCellRange.RangeAddress.EndRow
    cell = oSheet.getcellbyposition(col, riga)
    Border = cell.BottomBorder
    if Border.LineWidth = 2 then 
       cell.BottomBorder = oBordeLinea
       cell.TopBorder  = oBordeLinea
       cell.LeftBorder  = oBordeLinea
       cell.RightBorder  = oBordeLinea
    end if   
   Next riga
  next col
next i  
  end sub
 

[Massimo.1973]

Abbi pazienza ma non sono pratico, sai dirmi cortesemente come devo fare per far eseguire ad OpenOffice la macro che mi hai mandato ?

[Gaetanopr]

Devi abilitare il programma alle macro andando su Strumenti - Opzioni - Sicurezza - Sicurezza delle macro - imposti a medio, ad ogni apertura del file ti comparirà una finestra dove dovrai selezionare il pulsante Abilita macro.

[Massimo.1973]

Non funziona, non cambia alcuno spessore dei bordi.

[Gaetanopr]

Non hai nemmeno scaricato il file che ho allegato.

[Massimo.1973]

Scusa non mi ero accorto che avevi allegato la soluzione, grazie.