Sub wikiUnionList()
'
' Macro recorded 2/19/2003 by John Lavalie
' rewritten 11/12/2008 by John Lavalie
      
    'html formatting
    Selection.EndKey Unit:=wdStory
    Selection.TypeText ("</div>")
    Selection.HomeKey Unit:=wdStory
    Selection.TypeText ("[[Category:Commons]]")
    Selection.TypeParagraph
    Selection.TypeText ("[[Category:Serials]]")
    Selection.TypeParagraph
    Selection.MoveDown Unit:=wdLine, count:=1
    Selection.TypeText ("<div id='UnionList'>")
    Call replaceText("Compiling on", "Run date:")
    
    'create paragraphs
    Call replaceText("---------^p", "</p>^p<p>")
    Call replaceText("&", "&amp;")
    Call replaceText("<div id='UnionList'></p>", "<div id='UnionList'>")
    Call replaceText("End of File", "")
    Call replaceText("Number of Titles", "</p>" & Chr(13) & "Number of titles")
    Selection.HomeKey Unit:=wdStory
    
    'MARC formatting
    Call replaceText("=^p", "")
    Call replaceText(". [language", " [language")
    Call replaceText("/ [language", " [language")
    Call replaceText(": [language", " [language")
    Call replaceText("[language: eng]", "")
    Call replaceText("[1 copy]", "")
    Call replaceText("[999 copies]", "")
    Call replaceText("Continued by", "<i>Continued by</i>")
    Call replaceText("Title ran from 188u to", "Title ended in")
    Call replaceText("Title ran from 189u to", "Title ended in")
    Call replaceText("Title ran from 19uu to", "Title ended in")
    Call replaceText("Title ran from 197u to", "Title ended in")
    Call replaceText("Title ran from 198u to", "Title ended in")
    Call replaceText("Title ran from 199u to", "Title ended in")
    Call replaceText("Title ran from 200u to", "Title ended in")
    Call replaceText("._l", ". ")
    Call replaceText("._n", ". ")
    Call replaceText("._p", ". ")
    Call replaceText(".l", ". ")
    Call replaceText(".n", ". ")
    Call replaceText(".p", ". ")
    
    'holdings formatting
    Call replaceText("Library -  Main", "Library - Main")
    Call replaceText("Plaines  Public", "Plaines Public")
    Call replaceText("BUS-REF ", "BUSINESS")
    Call replaceText("P-T   ", "PARENT")
    Call replaceText("2FLOOR   ", "2nd FLOOR")
    Call replaceText("3FLOOR   ", "3rd FLOOR")
    Call replaceText("4FLOOR   ", "4th FLOOR")
    
    'diacritics
    Call replaceText("âa", Chr(225)) 'á
    Call replaceText("áa", Chr(224)) 'à
    Call replaceText("âe", Chr(233)) 'é
    Call replaceText("âi", Chr(237)) 'í
    Call replaceText("âo", Chr(243)) 'ó
    Call replaceText("âu", Chr(250)) 'ú
    Call replaceText("än", Chr(241)) 'ñ
    Call replaceText("ãé", "e")
    Call replaceText("âs", "s")
    Call replaceText("lektoram, ", "lektoram, ^m")
    Call replaceText("®", "")
    Call replaceText("åa", "a")
    Call replaceText("ña", "a")
    Call replaceText("±", "l")
    Call replaceText("òSåufåi", "Sufi")
    Call replaceText("Rid*os*u taijes*ut°*u", "Ridosu Taijesutu")
    Call replaceText("ò", "")
    Call replaceText("ëiì", "i")
    Call replaceText("ëTì", "T")
    Call replaceText("§", "'")
    Call replaceText(" /", "")
    Call replaceText("æ", "")
    
    'data entry errors
    Call replaceText("Library retains", "Retains")
    Call replaceText("(Incomplete)", "")
    Call replaceText("Sep. 1", "Sept. 1")
    Call replaceText("Sep. 2", "Sept. 2")
    Call replaceText("Sep. 3", "Sept. 3")
    Call replaceText("Sept..", "Sept.")
    Call replaceText("Jun. ", "June ")
    Call replaceText("Jul. ", "July ")

End Sub
Sub replaceText(f As String, r As String)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = f
        .Replacement.Text = r
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub