Familypedia
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
'
    Selection.Find.ClearFormatting
    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.Find.Execute
    Selection.Range.Case = wdTitleWord
End Sub
-~ Phlox 08:52, 24 May 2009 (UTC)