Bonjour,
J'ai modifié le script que ma fait François, je ne comprend pas
comment activé la casse majuscule minuscule qui n'est pas pris en
compte par ce dernier ?
( il prend en compte art au lieux de Art ! )
Merci
Ptilou
Le script :
sub SearchArticle
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( ".*Art.*")
oFind = oDoc.FindFirst( oDescriptor )
if NOT isNull( oFind ) then
aNumPourvoi = Split( oFind.String, "." )
aDocName = ConvertToURL( aURL _
& trim( aNumPourvoi( uBound( aNumPourvoi )))_
& "_" & "CPP.rtf" )
oDoc.StoreAsURL( aDocName, aFileProperties() )
else
msgbox( "Aucune occurence trouvée", 48, "Traitement interrompu" )
end if
end sub
2 messages in org.openoffice.fr.progSensibilité à la casse de Basic
