Quote:
Originally Posted by e125
I want to identify and highlight all the adverbs in my document. Any
suggestions on how Word's Find function can help me accomplish this?
Many thanks.
|
From Allen Wyatt's Word Tips - this may help:
Consider the following macro:
Sub FindAdverbs()
Dim i As Integer
Dim CurrentString As String
For i = 1 To ActiveDocument.Words.Count
CurrentString = Trim(ActiveDocument.Words(i).Text)
If Right(CurrentString, 2) = "ly" Then
With ActiveDocument.Words(i)
.Italic = Not .Italic
.Bold = Not .Bold
End With
End If
Next i
End Sub
This macro searches the entire document for any word that ends in ly. If it finds one, the word is made bold and italics. This makes it easy to spot probable adverbs within a document. If you run the macro a second time, those same words are converted back to regular text.
Source:
http://wordribbon.tips.net/T011486_S...d_Adverbs.html
Remember that there are also 'flat adverbs' - adverbs that do not end in the -ly suffix. For a list of adverbs of degree, manner, place, and time - including ones that do not end in -ly - see The English Club's adverbs section at
https://www.englishclub.com/vocabulary/adverbs.htm .