[mso] Re: Word Macro to create list of acronyms

Tony...

Out of interest I knocked this up and may actually use it myself! It
*should* pick out all sets of 2 capitals or more over the whole
document. I'm going to play with looking to see if it's in a heading
or not in a while.

I've made the actual write away routine seperate.. you could do what
you want there... write to a file and so on. My prefered option would
be to add a new document, create a table in it and write the acronyms
there along with a chr count and so on so that I could find them in
the doc easilly. OTOH you could do a global replace of the acronym
with something like a style and then make a TOC or whatever. Please
let us know how you get on.

HTH
Lisa

Option Explicit
Sub subCountAcronyms()

Dim olWholeStory As Range
Dim llChrCount As Long
Dim llChr As Long
Dim slChr As String * 1
Dim ilChr As Integer
Dim slAcronym As String

Set olWholeStory = Selection.Range
olWholeStory.WholeStory
llChrCount = olWholeStory.Characters.Count

llChr = 0
Do
  llChr = llChr + 1
  If llChr > llChrCount Then
    Exit Do
  End If

  ' Set up current chr.
  slChr = olWholeStory.Characters(llChr)
  ilChr = Asc(slChr)

  ' Is this letter upper case?
  Select Case ilChr
  Case Is < 65, Is > 90

    ' Not Upper case.

    ' Do we have an acronym to write?
    Select Case Len(slAcronym)
    Case Is > 1
      subWriteAcronym slAcronym
    End Select
    slAcronym = ""
  Case Else

    ' Upper Case.. Add it to string.
    slAcronym = slAcronym + slChr

  End Select

Loop
'
**********************************************************************
*
End Sub
Sub subWriteAcronym(spAcronym As String)
  MsgBox spAcronym
'
**********************************************************************
*
End Sub


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in 
the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: