Sub GraecaIIToBwgrkl()
'
' GraecaIIToBwgrkl Macro
' Macro recorded 10/4/2003 by Dr. A. Philip Brown II
'
Options.AutoFormatAsYouTypeReplaceQuotes = False
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    'Left parenthesis
        .Text = "("
        .Replacement.Text = "$"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'comma
        .Text = ","
        .Replacement.Text = "("
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'Right parenthesis
        .Text = ")"
        .Replacement.Text = "%"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'Period
        .Text = "."
        .Replacement.Text = ")"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'accute accent
        .Text = "v"
        .Replacement.Text = ","
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'smooth breathing mark
        .Text = "j"
        .Replacement.Text = "v"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'final sigma
        .Text = """"
        .Replacement.Text = "j"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'alternate final sigma
        .Text = "~"
        .Replacement.Text = "j"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'rough breathing by capital letter
        .Text = "ï"
        .Replacement.Text = "~"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'circumflex + rough breathing mark
        .Text = "|"
        .Replacement.Text = "-"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'iota subscript
        .Text = "/"
        .Replacement.Text = "|"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'circumflex
        .Text = "'"
        .Replacement.Text = "/"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'alternate circumflex
        .Text = "`"
        .Replacement.Text = "/"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'rough breathing mark
        .Text = "J"
        .Replacement.Text = "`"
        .MatchCase = True
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'grave accent
        .Text = ";"
        .Replacement.Text = "."
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'smooth breathing mark + acute accent
        .Text = "["
        .Replacement.Text = ";"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'rough breathing mark + acute accent
        .Text = "{"
        .Replacement.Text = "["
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'smooth breathing mark + grave accent
        .Text = "]"
        .Replacement.Text = "'"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'rough breathing mark + grave accent
         .Text = "}"
        .Replacement.Text = "]"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'smooth breathing mark + circumflex
        .Text = "\"
        .Replacement.Text = "="
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'semi-colon
        .Text = ":"
        .Replacement.Text = "\"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'Close smooth breathing mark for Capitals
        .Text = "Æ"
        .Replacement.Text = "V"
        .MatchCase = True
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'diaeresis + acute accent
        .Text = "?"
        .Replacement.Text = "<"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'diaeresis
        .Text = ">"
        .Replacement.Text = "?"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'diaeresis + grave accent
        .Text = "Ö"
        .Replacement.Text = ">"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'Greek question mark
        .Text = "É"
        .Replacement.Text = "*"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    'Greek dash
        .Text = "-"
        .Replacement.Text = "&"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    With Selection.Find
    'Close smooth breathing mark + acute accent
        .Text = "Ò"
        .Replacement.Text = ":"
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
    'Replace all GraecaII with Bwgrkl
        .Text = ""
        .Replacement.Text = ""
        .Font.Name = "GraecaII"
        .Replacement.Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ") ) )"
        .Replacement.Text = ")))"
        .Font.Name = "Bwgrkl"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'    With Selection.Find
'        .Text = ". . ."
'        .Replacement.Text = "..."
'        .Font.Name = "Times New Roman"
'    End With
'    Selection.Find.Execute Replace:=wdReplaceAll
    
Options.AutoFormatAsYouTypeReplaceQuotes = True
End Sub