word count of all files in directory

Yash Jha answered on September 4, 2022 Popularity 4/10 Helpfulness 1/10

answer word count of all files in directory

word count of all files in directory

Comments(1)

Function GETWORDCOUNT()
    
    Dim FD As FileDialog
    
    Dim DocSource As Document

    Dim totalWordCount As Long
    
    Dim preWordCount As Long
    
    Dim newWordCount As Long
    
    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 Function
            
        End If
        
    End With
    
    strFile = Dir$(strFolder & "*.doc")

    totalWordCount = 0
    preWordCount = 0
    newWordCount = 0
    
    While strFile <> ""
        
        Set DocSource = Documents.Open(strFolder & strFile)
        
        newWordCount = CInt(DocSource.Words.Count)
        totalWordCount = newWordCount + preWordCount
        preWordCount = totalWordCount
        
        DocSource.Close wdDoNotSaveChanges
        
        strFile = Dir$()
        
    Wend
    
    GETWORDCOUNT = CLng(totalWordCount)
    
End Function

Popularity 4/10 Helpfulness 1/10 Language whatever

Source: Grepper

Tags: directory whatever word word-count

Link to this answer
Share Copy Link

Contributed on Sep 04 2022

Yash Jha

0 Answers Avg Quality 2/10

Continue with Google

By continuing, I agree that I have read and agree to Greppers's Terms of Service and Privacy Policy.

word count of all files in directory

Contents

More Related Answers

word count of all files in directory

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.