Indexing Names

[Guest]

I need to index hundreds of people's names in a word document. How can I mark
the index entries without having to retype each name in a last name first
format?

 

[Klaus Linke]

I need to index hundreds of people's names in a word document.
How can I mark the index entries without having to retype each
name in a last name first format?

Hi Deidre,

I think you need a macro to do that effectively (see below).
You can assign a keyboard shortcut to this macro.

See http://word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm if you need help
with that.

' select a name, then run the macro to
' add an index entry (lastname, firstname) for it
Dim strName As String
strName = Selection.Text
If InStr(1, strName, " ") > 0 Then
strName = _
Mid(strName, InStrRev(strName, " ")) _
& ", " _
& Left(strName, InStrRev(strName, " "))
End If
ActiveDocument.Indexes.MarkEntry _
Range:=Selection.Range, _
Entry:=strName

Regards,
Klaus