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
Le reste est à ta charge ;-)
Francois Gatto
PS : testé avec un doc Legifrance =>
"Cour de Cassation
Chambre criminelle
Audience publique du 12 avril 1988
Rejet
N° de pourvoi : 87-82444"
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
