SITO1 -- SITO2 -- Forum1 -- CercaGlobale -- Informativa su Cookie e Privacy


Valutazione discussione:
  • 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
Realizzare Macro in Calc
#11
Si invece è importante perché i dati da copiare e quindi i segnalibri sono tanti e per eventuali ulteriori modifiche successive diventa utile evidenziarne la posizione.
Comunque continuerò a documentarmi .
Grazie
Cita messaggio
Grazie da:
#12
Per utilizzare i segnalibri di OpenOffice Writer occorre richiamare lo strumento “Navigatore” che può essere lanciato in tre modi:

Dal menù “Visualizza > Navigatore”
Dal pulsante nella barra degli strumenti
Premendo il tasto F5
Cita messaggio
Grazie da:
#13
Si, ok. Visualizzo l'elenco dei segnalibri, ma il mio problema è individuare la posizione di ogni segnalibri a distanza di giorni/settimane.

Qualcosa che mi evidenzi, nel mio testo, dove sono i vari segnalibri.
Grazie
Cita messaggio
Grazie da:
#14
col navigatore cliccando sui vari segnalibri il cursore si sposta sul segnalibro
Cita messaggio
Grazie da:
#15
Ok, se è l'unico modo per farlo.
Grazie
Cita messaggio
Grazie da:
#16
un altro modo potrebbe essere quello di inserire su ogni segnalibro un carattere poco usato tipo | e nella macro inserire l'eliminazione di quel carattere oltre che l'inserimento del dato.
Cita messaggio
Grazie da:
#17
Ok direi che non è proprio un ostacolo.
Invece a macro completata vorrei porre un ulteriore quesito:

ho completato la macro che mi copia le celle giuste e me le incolla nel mio file di Writer; però dal momento che il mio file di Calc contiene l'elenco del personale (Circa 50 righe, una per dipendente) come posso fare per integrare a monte della macro una variabile che mi chieda "...di quale RIGA vuoi copiare le CELLE?...".
Così farei una solo macro e non 50.
Poi la macro la associo ad un pulsante o ad un menù personalizzato (e questo sarei in grado).
Grazie ancora
Cita messaggio
Grazie da:
#18
questa crea un file per ogni riga
Codice:
Sub writerBookmark
Dim  dummy(), args()
Doc = ThisComponent
adresseDoc = ConvertToURL("F:\Download\Domanda.odt")
ultimariga = 10 '<<< da modificare
for riga = 2 to ultimariga
 Documento = StarDesktop.loadComponentFromURL(adresseDoc, "_default", 0, dummy() )
 CognomeNome = Doc.sheets(0).getCellRangeByName("A" & riga).string & "  " & Doc.sheets(0).getCellRangeByName("B" & riga).string
 Luogo = Doc.sheets(0).getCellRangeByName("C" & riga).string
 nascita = Doc.sheets(0).getCellRangeByName("D" & riga).string
'........
 oText = Documento.Text
 oInsertPoint =Documento.getBookmarks().getByName("nome").getAnchor()
 oText.insertString(oInsertPoint, CognomeNome, false)
 oInsertPoint =Documento.getBookmarks().getByName("luogo").getAnchor()
 oText.insertString(oInsertPoint, luogo, false)
 oInsertPoint =Documento.getBookmarks().getByName("data").getAnchor()
 oText.insertString(oInsertPoint, nascita, false)
' .........  
 Filename =  ConvertToURL("F:\Download\Domanda_" & CognomeNome & ".odt")
 Documento.storeToURL(Filename, args())
 Documento.close True
next
End Sub
Cita messaggio
Grazie da:
#19
Scusami....ma io devo creare il documento di una riga, cioè solo di quel dipendente per cui si verifica una condizione.
Non di tutti i dipendenti.
Grazie
Cita messaggio
Grazie da:
#20
metti il numero della riga in H2 e prova questa
Codice:
Sub writerBookmark
Dim  dummy(), args()
Doc = ThisComponent
adresseDoc = ConvertToURL("F:\Download\Domanda.odt")
riga = Doc.sheets(0).getCellRangeByName("H2").Value
Documento = StarDesktop.loadComponentFromURL(adresseDoc, "_default", 0, dummy() )
CognomeNome = Doc.sheets(0).getCellRangeByName("A" & riga).string & "  " & Doc.sheets(0).getCellRangeByName("B" & riga).string
Luogo = Doc.sheets(0).getCellRangeByName("C" & riga).string
nascita = Doc.sheets(0).getCellRangeByName("D" & riga).string
'........
oText = Documento.Text
oInsertPoint =Documento.getBookmarks().getByName("nome").getAnchor()
oText.insertString(oInsertPoint, CognomeNome, false)
oInsertPoint =Documento.getBookmarks().getByName("luogo").getAnchor()
oText.insertString(oInsertPoint, luogo, false)
oInsertPoint =Documento.getBookmarks().getByName("data").getAnchor()
oText.insertString(oInsertPoint, nascita, false)
' .........  
Filename =  ConvertToURL("F:\Download\Domanda_" & CognomeNome & ".odt")
Documento.storeToURL(Filename, args())
Documento.close True
End Sub
Cita messaggio
Grazie da:


Vai al forum:


Utenti che stanno guardando questa discussione: