Microsoft Office Forums - View Single Post - [Solved] how citation excluded in word count

macropod · 05-11-2014, 08:28 AM

To exclude them, you would need to count the words in them; Word doesn't have an automatic way of doing this. The following macro will count all words in citations and the bibliography:

Code:

Sub CountReferenceWords()
Dim FtNt As Footnote, EndNt As Endnote
Dim Fld As Field, i As Long, j As Long, k As Long
With ActiveDocument
  For Each Fld In .Fields
    If Fld.Type = wdFieldCitation Then
      i = i + UBound(Split(Fld.Result, " ")) + 1
    ElseIf Fld.Type = wdFieldBibliography Then
      j = UBound(Split(Fld.Result, " ")) + 1
    End If
  Next
  For Each FtNt In .Footnotes
    For Each Fld In FtNt.Range.Fields
      If Fld.Type = wdFieldCitation Then
        k = k + UBound(Split(Fld.Result, " ")) + 1
      End If
    Next
  Next
  For Each EndNt In .Endnotes
    For Each Fld In EndNt.Range.Fields
      If Fld.Type = wdFieldCitation Then
        k = k + UBound(Split(Fld.Result, " ")) + 1
      End If
    Next
  Next
End With
MsgBox "Citation words in the body: " & i & vbCr & _
"Citation words in footnotes & endnotes: " & k & vbCr & _
"Bibliography words : " & j
End Sub