Ciao, puoi usare un event listner: Global oListener, oSheet, oCell Sub AddListener oSheet = ThisComponent.getSheets().getByName("Foglio1") oCell = oSheet.getCellRangeByName("C69") oListener = CreateUnoListener("C69_", "com.sun.star.chart.XChartDataChangeEventListen...

Ciao, seleziona un range ed esegui questa macro: Sub ExportSelectionToPDF Dim a(1) As New com.sun.star.beans.PropertyValue Dim b(0) As New com.sun.star.beans.PropertyValue oDoc = ThisComponent oSheet = oDoc.getCurrentController.ActiveSheet aSel = oDoc.getCurrentSelection.RangeAddress b(0).Name = &qu...

Ciao, prova questo semplice ciclo: Sub Prova oSheet = ThisComponent.getSheets().getByName("PRIMA") For i = 1 to 40 c = oSheet.getCellRangeByName("C" & i).Value * 4 - 1 oSheet.getCellRangeByName("D" & c).String = oSheet.getCellRangeByName("D" & c).S...

La macro è questa: Sub PrintTwice Dim aPrintOpt(0) As New com.sun.star.beans.PropertyValue aPrintOpt(0).Name = "CopyCount" aPrintOpt(0).Value = 2 ThisComponent.Print(aPrintOpt()) End Sub Per aggiungere il bottone sulla barra, visto che è un'operazione una tantum, puoi anche farlo "a m...

Sub Attesa oSheet = ThisComponent.Sheets.getByName("Foglio1") oSheet.isVisible = False oDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1) oDialog.setVisible(True) oProgressBarModel = oDialog.Model.ProgressBar1 oProgressBarModel.ProgressValueMin = 1 oProgressBarModel.ProgressValue...

strumenti -> macro -> organizza finestre di dialogo... -> Nuovo -> Ok -> Modifica

Puoi fare così: crea un dialogo e inserisci una label con un messaggio di attesa, poi modifica la tua macro sulla base di questo esempio Sub Attesa oSheet = ThisComponent.Sheets.getByName("Foglio1") oSheet.isVisible = False oDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1) oDialo...

Ti ringrazio ma ho provato ad usarlo e mi da un messaggio di errore sull'ultima riga. "errore di runtime basic, si è verificata un'eccezione type:com.sun.star.uno.Runtime.Exception Nel mio esempio davo x scontato che ci fosse un foglio vuoto aperto! Riprova ad eseguire la macro aprendo prima u...

Io eviterei i cicli individuando le dimensioni dei range da copiare in questo modo: Sub CopyValues oSheet = ThisComponent.Sheets.getByName("Foglio1") oCellCursor = oSheet.createCursor() oCellCursor.gotoEndOfUsedArea(False) nEndColumn = oCellCursor.getRangeAddress().endColumn nEndRow = oCel...

Sub FormattaCelle Dim aBorder as New com.sun.star.table.BorderLine oSheet = ThisComponent.getSheets().getByName("Foglio1") oCellRange = oSheet.getCellRangeByPosition(1, 1, 2, 2) 'B2:C3 'oCellRange = oSheet.getCellRangeByName("B2:C3") 'Se preferisci selezionare per nome oCellRang...

Per arrotondare per difetto prendi la parte intera del numero con la funzione Int, per arrotondare per eccesso aggiungi 1 al risultato precedente

Hai ragione, salvando nel formato PDF/A-1a il problema non si presenta! Ho riscritto la macro per salvare in pdf e inviare per email (che è quello che alla fine mi serviva) utilizzando il formato PDF/A-1a... Sub ConvertToPDFandSend Dim FileProperties(1) As New com.sun.star.beans.PropertyValue BasicL...

Su Windows, per replicare l'errore utilizzare il seguente documento: CampoDataWin.odt che contiene all'interno solamente un campo data impostato sulla data 01/01/12. Se si esegue la macro Sub DataOggi Dim oDoc Dim oData Dim oDataCtrl oDoc = ThisComponent oData = oDoc.DrawPage.Forms.GetByIndex(0).get...

Salve, mi accade una cosa strana: in un modello writer è presente un controllo campo data che viene aggiornato all'apertura in questo modo: Sub DataOggi Dim oDoc Dim oData Dim oDataCtrl oDoc = ThisComponent oData = oDoc.DrawPage.Forms.GetByIndex(0).getByName("CampoData") oDataCtrl = oDoc.C...

Grazie mille! Mi era sfuggita la proprietà AnchorPageNo di LineShape. In questo modo non ho alcun problema a posizionarmi su una pagina specifica e inserire la linea tramite la drawpage! Il codice risulta quindi: Sub InsertLines Dim oDoc Dim oLine Dim oLinePos As New com.sun.star.awt.Point Dim oLine...

Mostra barra: Nascondi barra:

Salve a tutti, sto scrivendo un ciclo per inserire una riga (LineShape) su ogni pagina di un documento writer: Dim oDoc Dim oVcursor Dim oCursor Dim oText Dim oLine Dim oLinePos As New com.sun.star.awt.Point Dim oLineSize As New com.sun.star.awt.Size oDoc = ThisComponent oLinePos.x = 800 oLinePos.y ...

vladko ha scritto:se copi incolli quella parte di codice su google ti porta ad un libro sulle macro che ti conviene scaricare
http://belkaclacass.free.fr/cemkusproce ... rcelly.pdf

Ottimo, grazie!!

Dopo diversi tentativi sono riuscito a capire dove era l'errore. Di seguito posto il codice funzionante: oDoc = ThisComponent oTS = oDoc.getTextSections oSection = oTS.getByName("Testo") oAnchor = oSection.getAnchor() oDoc.CurrentController.Select(oAnchor) oTransferable = oDoc.CurrentContr...

Ho provato ma non funziona. Il testo viene incollato dove si trova il cursore all'apertura del file di destinazione (nel mio caso in una sezione che si chiama "intestazione" e non "testo" come vorrei) oDoc = ThisComponent oTS = oDoc.getTextSections oSection = oTS.getByName("...

Salve a tutti, avrei bisogno di una macro che copia tutto il contenuto (compresa la formattazione) di una sezione all'interno di un'altra sezione in un altro documento. Finora ho usato questa macro che copia solo il testo non formattato: oDoc = ThisComponent oTS = oDoc.getTextSections oSection = oTS...