Bonjour,
Le 16/08/07, Francois Gatto<oo...@volcar.org> a écrit :
Bonsoir,
philippe L a écrit :
Bonjour,
Je recherche un script ou une macro pour renomer les fichiers DL sur légifrance.
Le non des fichier se présente par doc suivie de 12 chiffres, je
souhaiterais que les fichiers apparaissent avec le numéro de pourvoi
ou appel ou numéro affecté au JORF !
Exemple doc 123456789112 devient 87-82444"+"Bullcrim
Merci par avance de toutes aide
Ptilou
Voici un exemple de traitement à effectuer :
sub SearchPourvoi
dim oDoc as object, oDescriptor as object, oFind as object
dim aLocation, aURL, aNumPourvoi, aDocName
dim i as integer
dim aFileProperties( 0 ) as new com.sun.star.beans.PropertyValue
aFileProperties( 0 ).Name = "Overwrite"
aFileProperties( 0 ).Value = TRUE
oDoc = ThisComponent
aLocation = Split( oDoc.Location, "/" )
for i = 0 to uBound( aLocation )-1
aURL = aURL & aLocation( i ) & "/"
next i
aDocName = ""
oDescriptor = oDoc.createReplaceDescriptor
oDescriptor.SearchRegularExpression = true
oDescriptor.setSearchString( ".*N° de pourvoi.*")
oFind = oDoc.FindFirst( oDescriptor )
if NOT isNull( oFind ) then
aNumPourvoi = Split( oFind.String, ":" )
aDocName = ConvertToURL( aURL _
& trim( aNumPourvoi( uBound( aNumPourvoi ))) _
& "_" & "Bullcrim.odt" )
oDoc.StoreAsURL( aDocName, aFileProperties() )
msgbox( "Document sauvegardé comme :" & chr( 10 ) & aDocName , 64,
"Fin" )
else
msgbox( "Aucune occurence trouvée", 48, "Traitement interrompu" )
end if
end sub
Royale ! et un grand merci ...
Mais comment j'assigne la macro ( l'execute) sur un dossier ?
Ya pas une explication comment imbriquer une dexième boucle pour le
choix de la formation de la Cour ( 8 choix possibles ) ?
Ptilou
3 messages in org.openoffice.fr.progRe: [prog] Script rename & Légifrance
