Word has a built-in word-count macro. Does excel?

A friend needs to find the total of all the words in an excel document.

Thanks,

Jack Crane

Nope.

Jack Crane wrote:

Word has a built-in word-count macro. Does excel?

A friend needs to find the total of all the words in an excel document.

Thanks,

Jack Crane

--

Dave Peterson

Hi Jack,
See Chip's macro for one worksheet, it is looking at text, which
is what you see not formulas and not values.
.. http://www.cpearson.com/excel/WordCount.htm
--
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm

FWIW:
Found this in Google:
Paste into Standard Module

Sub AAA()
Dim WordCount As Long
Dim cell As Range
Dim S As String
Dim N As Long
For Each cell In ActiveSheet.UsedRange.Cells
S = cell.Text
N = 0
If S < "" Then
N = 1
End If
WordCount = WordCount + N
Next cell
MsgBox WordCount
End Sub

Hope this helps;


"Jack Crane" wrote in message
6...
Word has a built-in word-count macro. Does excel?

A friend needs to find the total of all the words in an excel document.

Thanks,

Jack Crane

Hi Jim,
Looks like an adaptation of Chip's macro attempting to count the number
of cells that are not empty.

That will count only the number of cells which contain text. It
doesn't take into account that a cell may contain more than one
word. For a real word counter, see
http://www.cpearson.com/excel/wordcount.htm .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Jim May" wrote in message
news:07JQf.238819$oG.65444@dukeread02...
FWIW:
Found this in Google:
Paste into Standard Module

Sub AAA()
Dim WordCount As Long
Dim cell As Range
Dim S As String
Dim N As Long
For Each cell In ActiveSheet.UsedRange.Cells
S = cell.Text
N = 0
If S < "" Then
N = 1
End If
WordCount = WordCount + N
Next cell
MsgBox WordCount
End Sub

Hope this helps;


"Jack Crane" wrote in message
6...
Word has a built-in word-count macro. Does excel?

A friend needs to find the total of all the words in an excel
document.

Thanks,

Jack Crane

Yeah you're right guys,
I got in a hurry, particularly after I tried Chip's original
code and with six words spread over only 4 cells,
the count came back 14; ???

My attempt to help went "down-hill" from there.
Sorry OP..
Tks,


"Chip Pearson" wrote in message
...
That will count only the number of cells which contain text. It doesn't
take into account that a cell may contain more than one word. For a real
word counter, see http://www.cpearson.com/excel/wordcount.htm .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Jim May" wrote in message
news:07JQf.238819$oG.65444@dukeread02...
FWIW:
Found this in Google:
Paste into Standard Module

Sub AAA()
Dim WordCount As Long
Dim cell As Range
Dim S As String
Dim N As Long
For Each cell In ActiveSheet.UsedRange.Cells
S = cell.Text
N = 0
If S < "" Then
N = 1
End If
WordCount = WordCount + N
Next cell
MsgBox WordCount
End Sub

Hope this helps;


"Jack Crane" wrote in message
6...
Word has a built-in word-count macro. Does excel?

A friend needs to find the total of all the words in an excel document.

Thanks,

Jack Crane