El 14 de agosto de 2014, 10:39, Antonio Daniel Giráldez Benítez < adgiral...@gmail.com> escribió:
> El 14/08/2014 15:43, Orlando Nuñez escribió: > > Saludos a todos > > > Me dieron una hoja hecha en Calc que contiene 60 reportes (Reporte de > expedientes.ods), para llenar informacion sobre algunos expedientes, en > fisico son 500 expedientes, asi que debo entregar: > > * Reporte de Expedientes1.ods (Del 1 al 60) > * Reporte de Expedientes2.ods (Del 61 al 120) > * Reporte de Expedientes3.ods (Del 121 al 180) > . > . > . > . > * Reporte de ExpedientesX.ods (del X al 500) > > Mi problema es que cada hoja debe seguir un corelativo entre las Hojas, > en el Reporte de Expedientes1.ods no tengo problemas porque estan desde la > "Hoja1" hasta la "Hoja60" asi que los reportes siguientes son una copia de > el, pero renombra Hoja por Hoja, por ejemplo "Hoja61", "Hoja62", > "Hoja63"... pierdo mucho tiempo, como puedo renombrar masivamente La las 60 > Hojas del "Hoja1" al "Hoja60" en "Hoja61" en "Hoja120" > > > Agradeceria su ayuda. > > > -- > TSU Orlando Nuñez > Teléfono: 04263609858 > Correo alternativo: orlandoenu...@gmail.com > > > Prueba esto.Modificalo a tu gusto > REM ***** BASIC ***** > > Sub Main > oDoc = ThisComponent > oSheet = oDoc.Sheets > Dim f > Dim indice > indice=100 > For f=0 to oDoc.Sheets.Count()-1 > oSheet(f).Name="Hoja" & Str(indice) > indice=indice+1 > next f > > End Sub > > -- > > > > Disculpa amigo pero no tengo ni la menor idea de que hacer con ese codigo, podrias darme al menos una idea de donde debo colocarlo, un poco mas de ayuda. -- TSU Orlando Nuñez Teléfono: 04263609858 Correo alternativo: orlandoenu...@gmail.com
