I overuse some words and phrases in my writing. Most writers have some problem words. It isn’t that the words should never be used, or that we use them incorrectly. We simply use them too frequently. <\/p>\n
The following Microsoft Word VBA macro marks words I should check for overuse. Also included are words and phrases I should avoid. <\/p>\n
Feel free to copy and modify this macro. I encourage my students to try this macro, too. Once you have the macro in Word, you can alter the word list to reflect your preferences and habits. <\/p>\n
Sub macWordsToAvoid()<\/span> I overuse some words and phrases in my writing. Most writers have some problem words. It isn’t that the words should never be used, or…<\/p>\n
<\/span> Dim vFindText As Variant
\n<\/span>
Dim txtWord As Variant
\n<\/span>
<\/span> ‘list the exceptions to look for in an array
\n<\/span>
vFindText = Array(“about”, “all”, “almost”, “a lot”, “already”, “always”, “along with”, _
\n<\/span>
“anxiously”, “absolutely”, “as well”, “believe”, “certainly”, “clearly”, “definitely”, _
\n<\/span>
“eagerly”, “easy”, “easily”, “even”, “every”, “feel”, “felt”, “few”, “finally”, “frequently”, _
\n<\/span>
“good”, “got”, “honestly”, “intrigued”, “intrigues”, “just”, “literally”, _
\n<\/span>
“many”, “merely”, “must”, “nearly”, “need”, “never”, “nice”, “not”, “numerous”, _
\n<\/span>
“only”, “quick”, “quickly”, “really”, “so”, “think”, _
\n<\/span>
“utilize”, “utilized”, “utilizes”, “very”, _
\n<\/span>
“in the event”, “in order to”, “on the grounds that”, “in case”, “the public”, _
\n<\/span>
“come to the conclusion”, _
\n<\/span>
“is”, “am”, “are”, “was”, “were”, “have”, “has”, “had”, “do”, “does”, “did”)
\n<\/span>
<\/span> Options.DefaultHighlightColorIndex = wdGray25
\n<\/span>
<\/span> ActiveDocument.Select
\n<\/span>
Selection.MoveLeft
\n<\/span>
<\/span> With Selection.Find
\n<\/span>
‘ Highlight found words
\n<\/span>
For Each txtWord In vFindText
\n<\/span>
.Text = txtWord
\n<\/span>
.Replacement.Text = txtWord
\n<\/span>
‘Set the Replace parameters
\n<\/span>
.ClearFormatting
\n<\/span>
.Replacement.Highlight = True
\n<\/span>
.Replacement.Font.Bold = True
\n<\/span>
.Forward = True
\n<\/span>
.Wrap = wdFindStop
\n<\/span>
.MatchWholeWord = True
\n<\/span>
.MatchWildcards = False
\n<\/span>
.MatchSoundsLike = False
\n<\/span>
.MatchAllWordForms = False
\n<\/span>
.Format = True
\n<\/span>
.MatchCase = False
\n<\/span>
.Execute Replace:=wdReplaceAll
\n<\/span>
Next
\n<\/span>
End With
\n<\/span>
<\/span> End Sub<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"