Free utility that finds acronyms in MSWord?

[DC]

I'm looking for an application (add-on, macro or external app) that can look
through the document and extract all the possible acronyms (words in caps for
example).

It sounds like a simple solution to me, so I expect to pay little or none
for it. Any ideas??

 

[grammatim]

Ctrl-F ("Find") > More > Format > Font > AllCaps

(But if you're English, that won't find the acronyms, because they
write Unesco and Aids.)

 

[Suzanne S. Barnhill]

Find won't find capitalized text that way because rarely does it have the
All Caps font property applied. More often it's been typed using the Shift
or Caps Lock key. You can, however, use wildcards to find series of
characters A-Z.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Ctrl-F ("Find") > More > Format > Font > AllCaps

(But if you're English, that won't find the acronyms, because they
write Unesco and Aids.)

 

[grammatim]

Change Case doesn't seem to affect the underlying characters that were
typed? (It doesn't count as a Tracked Change, for instance.) So maybe
it's like a character style, and can be Found?

 

[Suzanne S. Barnhill]

I'm afraid I don't understand this reply. What does Change Case have to do
with the Find dialog, and what is the "it" that is like a character style
and can be found?

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Change Case doesn't seem to affect the underlying characters that were
typed? (It doesn't count as a Tracked Change, for instance.) So maybe
it's like a character style, and can be Found?

 

[grammatim]

That's what I'm asking. I've never used character styles (they appear
to work so differently from FrameMaker's character styles that I've
always found them impenetrable), but I use Change Case all the time,
and when something with Cnanged Case goes to a ToC or an Index or a
STYLEREF, it appears as what you typed rather than in Changed form.
Thus it seems to work just like an AllCaps character style.

 

[Suzanne S. Barnhill]

Interesting. I rarely use Change Case (and I guess have never used it on a
heading that would go in a TOC), so I hadn't observed this.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

That's what I'm asking. I've never used character styles (they appear
to work so differently from FrameMaker's character styles that I've
always found them impenetrable), but I use Change Case all the time,
and when something with Cnanged Case goes to a ToC or an Index or a
STYLEREF, it appears as what you typed rather than in Changed form.
Thus it seems to work just like an AllCaps character style.

 

[Suzanne S. Barnhill]

Okay, I've tried this now. I had a document with headings in Caps &
lowercase. I used Change Case to change one of the headings to CAPS. When I
updated the TOC, that heading was in caps, as I would expect.

 

[Graham Mayor]

The thread seems to have lost the plot, but the original premise of a tool
to extract words that are capitalised is not that hard to achieve. I take it
by 'extract' you mean to another document? In which case something like

Sub ExtractAcronyms()
Dim rText As Range
Dim SDoc As Document
Dim TDoc As Document
Set SDoc = ActiveDocument
Set TDoc = Documents.Add
SDoc.Activate
With Selection
.HomeKey wdStory
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Text = ""
Do While .Execute(findText:="[A-Z.]{2,}", _
MatchWildcards:=True, _
Wrap:=wdFindStop, Forward:=True) = True
Set rText = Selection.Range
TDoc.Activate
Selection.TypeText rText & vbCr
SDoc.Activate
rText.Collapse wdCollapseEnd
Loop
End With
End With
TDoc.Activate
With Selection
.WholeStory
.Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", _
SortFieldType:=wdSortFieldAlphanumeric, _
SortOrder:=wdSortOrderAscending
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "(*^13)@"
.Replacement.Text = "\1"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
.HomeKey wdStory
.Delete
End With
End Sub

http://www.gmayor.com/installing_macro.htm
should do the trick


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>