Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.pagelayout
|
|||
|
|||
Finding Adverbs
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. |
#2
Posted to microsoft.public.word.pagelayout
|
|||
|
|||
Finding Adverbs
You could easily search for -ly adverbs, but Word has no way to recognize
any of the rest. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA "e125" wrote in message ... 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. |
#3
|
|||
|
|||
Quote:
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 . |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
finding updates for mac | Microsoft Word Help | |||
Finding a Backspace | New Users | |||
Finding Product ID on the CD | New Users | |||
FINDING changes after Compare | Microsoft Word Help | |||
Finding the path | Mailmerge |