Macro to return a word count of text contained within a bookmark

gmayor · #5 08-21-2016, 06:29 AM

The macro looks for two bookmarks named "Sustainability" and "TeamWorking" which relate to the bookmarks in your illustration (where they are not named). Change those names in the macro to the actual names and the macro will work to add or update the table shown in your illustration.

To get the word count of the bookmarked range containing the cursor

Code:

Dim orng As Range
    Set orng = Selection.Bookmarks(1).Range
    MsgBox orng.Words.Count

Paul is right, that bookmarks are not necessary, especially if you are going to do the job manually. Even with a macro you could have counted the words in the table cell without the need for a bookmark.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
FORMTEXT field contained in INCLUDETEXT bookmark	emwinschuh	Word	1	08-17-2015 08:55 AM
A recurring word count macro?	bpanda	Word VBA	1	06-11-2013 07:17 AM
Word Count Macro	bpanda	Word VBA	1	01-11-2013 06:51 PM
Word 2003 - IncludeText Does Not Include Bookmark Text if in a Form Text Control	skarden	Word	1	12-12-2011 10:39 PM
*Word 2007 Macro for Character Count	gbartlet	Word	0	07-21-2010 11:12 AM