Running a macro with the following code will ask you to select the folder containing the files and then it will create a two column table in a new document into the first column of which it will insert the path and filename of each file in the folder and
in the second column it will insert the number of characters with spaces that are in each document.
Sub getchars()
Dim FD As FileDialog
Dim DocSource As Document
Dim doctarget As Document
Dim tblTarget As Table
Dim tblrow As Row
Set FD = Application.FileDialog(msoFileDialogFolderPicker)
With FD
.Title = "Select the folder that contains the documents."
If .Show = -1 Then
strFolder = .SelectedItems(1) & "\"
Else
MsgBox "You did not select a folder."
Exit Sub
End If
End With
strFile = Dir$(strFolder & "*.doc*")
Set doctarget = Documents.Add
Set tblTarget = doctarget.Tables.Add(doctarget.Range, 1, 2)
With tblTarget
.Cell(1, 1).Range.Text = "File Name"
.Cell(1, 2).Range.Text = "Characters"
End With
While strFile <> ""
Set DocSource = Documents.Open(strFolder & strFile)
Set tblrow = tblTarget.Rows.Add
With tblrow
.Cells(1).Range.Text = DocSource.FullName
.Cells(2).Range.Text = DocSource.Characters.Count - DocSource.Paragraphs.Count
End With
DocSource.Close wdDoNotSaveChanges
strFile = Dir$()
Wend
doctarget.Activate
End Sub