I was wondering if someone could help with a VBA macro in Microsoft Word that counts the number of Characters

I need a character count macro. Here's what I need it to do.

for example;

This line

This text field will change all the time. (X characters)

I need a character count of "This text field will change all the time." in the "X" position after it. So, I would want it to read,

This text field will change all the time. (41 characters)

I would think that this would be easy if you know what you are doing, but I don't. can someone Help?

What have you done so far? Why don't you use an already made tool? Or Javascript on a webpage?

Mobinga:

What have you done so far? Why don't you use an already made tool? Or Javascript on a webpage?

I am actually very new to VBA programming and could ve done this easily on MS excel. but seeing as this is meant to be in MS word, it 's become a boil on my crotch.


here's wht ve done so far;


Option Explicit
Sub Word_counter()

Dim Wordlength As Integer
Dim WordNow As Integer
Dim x As Integer

ActiveDocument.Tables(1).Rows(1).Cells(1).Select
For x = 1 To ActiveDocument.Tables(1).Rows.Count
Selection.MoveRight Unit:=wdCell
WordNow = Len(Selection.Text)
Selection.TypeText Text:=WordNow
Next x

End Sub


rubbish, i know!

I thought there is a "len" function in VB

Search for Len in Google and see the use. Len(text) will give u the total characters in the variable "text"

werepeLeri:

I thought there is a "len" function in VB

Search for Len in Google and see the use. Len(text) will give u the total characters in the variable "text"

Yeah, i included the Len function in my VBA code--- see above.

So, i retweaked my code and this seems to return the number of characters quite well, but does anyone no of a way to do this automatically as i type?


Option Explicit
Sub Word_counter()

Dim Wordlength As Integer
Dim WordNow As Integer
Dim x As Integer
On Error Resume Next
ActiveDocument.Tables(1).Rows(1).Cells(1).Select
WordNow = Len(Selection.Text)
Selection.MoveRight Unit:=wdCell
If IsNumeric(WordNow) = True Then
Selection.TypeText Text:=WordNow - 2

End If

End Sub

You mean this ??

http://office.microsoft.com/en-us/word-help/count-the-number-of-words-in-a-document-HA010368775.aspx

why waste time writing the code?

Microsoft Word already has a tool for that. If you're using Word 2007, here's what to do:

Click on the Review tab
Click on Word count tab
Voila!

check the picture below: