Read our blogs, tips and tutorials
Try our exercises or test your skills
Watch our tutorial videos or shorts
Take a self-paced course
Read our recent newsletters
License our courseware
Book expert consultancy
Buy our publications
Get help in using our site
547 attributed reviews in the last 3 years
Refreshingly small course sizes
Outstandingly good courseware
Whizzy online classrooms
Wise Owl trainers only (no freelancers)
Almost no cancellations
We have genuine integrity
We invoice after training
Review 30+ years of Wise Owl
View our top 100 clients
Search our website
We also send out useful tips in a monthly email newsletter ...
Software ==> | Advanced VBA (28 exercises) |
Topic ==> | Links to other applications (3 exercises) |
Level ==> | Average difficulty |
Subject ==> | VBA training |
This exercise is provided to allow potential course delegates to choose the correct Wise Owl Microsoft training course, and may not be reproduced in whole or in part in any format without the prior written consent of Wise Owl.
You should find that this document already contains a macro:
Sub AnalyseTextInExcel()
'the entire story
Dim EntireStory As Range
'a collection of words
Dim StoryWords As Words
'the range of text in each word
Dim EachWordRange As Range
'get references to entire story,
'and collection of words in it
Set EntireStory = _
ActiveDocument.StoryRanges(wdMainTextStory)
Set StoryWords = EntireStory.Words
'for each word in story ...
For Each EachWordRange In StoryWords
'... list it to debug window
Debug.Print EachWordRange.Text
Next
End Sub
This macro prints out the text of each word.
Amend your macro so that it loops over all the words in this story, either:
adding the word to an Excel spreadsheet if not already found; or
increasing the word count in Excel if this word has already been added.
Your final output should start like this:
After sorting, you should find The is the most common word.
Save this document with the same name, then close it down.
You can find other training resources for the subject of this exercise here:
Kingsmoor House
Railway Street
GLOSSOP
SK13 2AA
Landmark Offices
99 Bishopsgate
LONDON
EC2M 3XD
Holiday Inn
25 Aytoun Street
MANCHESTER
M1 3AE
© Wise Owl Business Solutions Ltd 2024. All Rights Reserved.