Mobile menu

A MSWord macro to count the length of the text string?
Thread poster: xxxOTMed
Local time: 14:17
English to Polish
+ ...
Nov 23, 2004

Same situation as in the previous post.
Translation of SW strings in a MSWord table (optimistically assuming the txt was converted into doc, that is).
A couple of colums in the table including:
Column C - numeric - total allowed length of the text string for the entry
Column D - text - translated term

Now the question is whether any of you has come accross a macro/tool that would calculate the number of chars in column D, compare it to the number in column C and if the number of chars in column D is greater than the number in column C => highlight the text, blink, flash or send an email to the Head of QA.

What is quite frustrating is that I have already had such a tool from supplied by one of our clients. And of course, having searched every single xls from the past 2 years, have not found it to my sheer desperation.

Again, any help will be grossly appreciated.

Direct link Reply with quote

Local time: 14:17
Macro counts length of string Nov 24, 2004


here a macro for word. I have inserted some notes, so it is easy to change to your needs.


Regards from Germany
Wilhelm Polmann

Sub mLength()
' For free use and at your own risk
' Copyright by Wilhelm Polmann

Dim Wordlength As Integer
Dim WordNow As Integer

'If there are empty cells use in your table:
'On Error Resume Next

'Example for 4 columns

ActiveDocument.Tables(1).Rows(1).Cells(1).Select 'First Table in the document

For x = 1 To ActiveDocument.Tables(1).Rows.Count ' Start at first table, Column A, Row 1

' Move Selection, depends on number of columns
Selection.MoveRight Unit:=wdCell ' Jump to Column B
Selection.MoveRight Unit:=wdCell ' Jump to Column C

' Column C,
Wordlength = CInt(Selection.Text)

' Move Selection
Selection.MoveRight Unit:=wdCell 'Jump to Column D
WordNow = Len(Selection.Text)

' If Word too long then write "(Number of characters)characters too long"

If WordNow > Wordlength Then
Selection.MoveRight wdCharacter, 1
Selection.Font.Color = wdColorRed
Selection.TypeText Text:=WordNow - Wordlength & " characters too long"

' ' or:
' MsgBox "Oh no, text too long: " & _
' WordNow- Wordlength & _
' " Characters."
' Exit Sub

End If

Selection.MoveRight Unit:=wdCell ' Jump to Column A

Next x

End Sub

Direct link Reply with quote

Rossana Triaca  Identity Verified
Local time: 09:17
English to Spanish
Excel... Nov 24, 2004

I've no idea about word, but what you want to do is really easy in Excel; you can copy&paste your two columns and add a third column with the following:

Column A
Allowed no of chars

Column B

Column C
=IF(LEN(B1) < = A1;"OK";"ERROR")

This formula displays an OK if the number of characters in the text is the same or less than the number indicated in the first column or an ERROR label if not.

Since I am backtranslating from spanish I am not 100% certain that the function that gets the character length is actually LEN (my excel displays "LARGO", i.e., LENGTH), but it should be something of the sort (look it up under "text functions").

Hope it helps,
p.d. Spaces in the formula are just to display it correctly in the post... there shouldn't be any in Excel!

[Edited at 2004-11-24 12:06]

Direct link Reply with quote

Magda Dziadosz  Identity Verified
Local time: 14:17
Member (2004)
English to Polish
+ ...
Moving this thread Nov 24, 2004

to the Office Application forum which is designed specifically to discuss MS Office.


Direct link Reply with quote
Local time: 14:17
English to Polish
+ ...
Thank you all for your input Nov 25, 2004

I do appreciate your time + effort.
I do realize Excel is much easier to do wordcounts in columns. the problem is it is much more comfortable to use Word table+Trados for this kind of work (lots of strings, fuzzies, reps + real time spell-check etc.).

I think the macro would most likely do the trick for us, but it would most likely need a bit of tuning up for our table. Will take the liberty of contacting wi_lee to show him/her the part we are still struggling with.

Thanks again, Greg

Direct link Reply with quote

To report site rules violations or get help, contact a site moderator:

You can also contact site staff by submitting a support request »

A MSWord macro to count the length of the text string?

Advanced search

PerfectIt consistency checker
Faster Checking, Greater Accuracy

PerfectIt helps deliver error-free documents. It improves consistency, ensures quality and helps to enforce style guides. It’s a powerful tool for pro users, and comes with the assurance of a 30-day money back guarantee.

More info »
The words you want Anywhere, Anytime

WordFinder is the market's fastest and easiest way of finding the right word, term, translation or synonym in one or more dictionaries. In our assortment you can choose among more than 120 dictionaries in 15 languages from leading publishers.

More info »

All of
  • All of
  • Term search
  • Jobs