Forums: Index > Watercooler > No all cap names

I have noticed a lot of all cap surnames. Worse, this pattern is getting perpetuated in category names etc. All cap names may be fine in Gedcom files, but this is not a big gedcom file. I know folks want to get to more exciting stuff, but let's devote a percentage of time to tidying up. Ok? -~ Phlox 04:51, 24 May 2009 (UTC)

Here is a word macro to clean up all caps:
Sub NoGedcomNames()
' Nuke all Caps  CHARLEMAGNE -> Charlemagne
    With Selection.Find
        .Text = "<[A-Z]{2,}>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Range.Case = wdTitleWord
End Sub
-~ Phlox 08:52, 24 May 2009 (UTC)