Voici une macro écrite pour les versions à partir de 2002 car elle utilise le picker de fichiers pour sélectionner plusieurs fichiers. Elle affiche la liste des fichiers avec le nb de caractères. Cette liste à séparateur tabulation est convertible en tableau. En fin de liste le total est inscrit.

 

Public Sub ListeFichiersNombreCaractères()
'Macro écrite par Anacoluthe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
If .Show = -1 Then
For Each vFichier In .SelectedItems
If LCase(Right(vFichier, 4)) = ".doc" Then
Documents.Open FileName:=vFichier, Visible:=False
With Documents(vFichier)
sNom = .Name
NbChar = .BuiltInDocumentProperties("Number of Characters")
Total = Total + NbChar
.Close SaveChanges:=wdDoNotSaveChanges
End With
Selection.InsertAfter sNom & vbTab & NbChar & vbCr
End If
Next vFichier
End If
End With
Selection.InsertAfter "TOTAL : " & Total & " Caractères"
End Sub

 

 

 

Statistiques

Aujourd'hui50
Hier2573
Cette semaine8021
Total depuis 200410015130

4
visiteurs actuellement en ligne