Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to count words in sections using Word 2007, when EndNote used?
I need to find how to count words in a manuscript's sections in Word 2007.
The citation add in EndNote has been used for the citations. -- Dianne Griffin |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to count words in sections using Word 2007, when EndNote used?
Hi Dianne,
For a given Section, you could use something based on the following macro: Sub SectionWordCount() Dim iSct As Integer Dim iCount1 As Integer Dim iCount2 As Integer Dim iCount3 As Integer iCount1 = 0 iCount2 = 0 iCount3 = 0 Dim oFoot As Footnote Dim oEnd As Endnote iSct = Selection.Information(wdActiveEndSectionNumber) With ActiveDocument.Sections(iSct) iCount1 = .Range.ComputeStatistics(wdStatisticWords) For Each oFoot In .Range.Footnotes iCount2 = iCount2 + oFoot.Range.ComputeStatistics(wdStatisticWords) Next For Each oEnd In .Range.Endnotes iCount3 = iCount3 + oEnd.Range.ComputeStatistics(wdStatisticWords) Next End With MsgBox Prompt:="Body: " & iCount1 & vbTab & _ "Footnotes: " & iCount2 & vbTab & "Endnotes: " & iCount3 & vbTab & _ "Total: " & iCount1 + iCount2 + iCount3, Title:=" Word Count for Section " & iSct End Sub -- Cheers macropod [MVP - Microsoft Word] "Dianne Griffin" wrote in message ... I need to find how to count words in a manuscript's sections in Word 2007. The citation add in EndNote has been used for the citations. -- Dianne Griffin |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Count of words in Word 2007 and count in 2003 are different | Microsoft Word Help | |||
how do you count words/characters on word 2007 | Microsoft Word Help | |||
word count different words | Microsoft Word Help | |||
Can I set word count to not count words with three letters less? | Microsoft Word Help | |||
Problems with endnote numbering after sections w/ breaks | Microsoft Word Help |