' This document contains macros for fixing up the music in documents written in Microsoft Word using
' the "BZ" Byzantine music fonts. The macros were initially developed by Father Efraim.
' I have adapted them from EZ fonts to BZ. I have developed a EZtoBZ macro that
' translates documents written in EZ fonts into BZ. I have also added some plain but useful macros.
' Finally, I have changed the code to make PolishNotes and MakesNotesRed rerunnable.
'
' For more infomation about the macros, see the file "ODIGIES.doc"
' If you encounter any problems with these macros please contact me at: stef@dblab.ntua.gr
'
' Last changes made: 10th July, 2006
' Stefanos Souldatos, Father Efraim




'Variables for character codes
Dim chSpace As Integer
Dim chExcl As Integer
Dim chDQuotes As Integer
Dim chSharp As Integer
Dim chDollar As Integer
Dim chPercent As Integer
Dim chAmber As Integer
Dim chQuote As Integer
Dim chLPar As Integer
Dim chRPar As Integer
Dim chStar As Integer
Dim chPlus As Integer
Dim chComma As Integer
Dim chMinus As Integer
Dim chFull As Integer
Dim chSlash As Integer
Dim ch0 As Integer
Dim ch1 As Integer
Dim ch2 As Integer
Dim ch3 As Integer
Dim ch4 As Integer
Dim ch5 As Integer
Dim ch6 As Integer
Dim ch7 As Integer
Dim ch8 As Integer
Dim ch9 As Integer
Dim chColon As Integer
Dim chSemi As Integer
Dim chLT As Integer
Dim chEq As Integer
Dim chGT As Integer
Dim chQuestion As Integer
Dim chAt As Integer
Dim chCapA As Integer
Dim chCapB As Integer
Dim chCapC As Integer
Dim chCapD As Integer
Dim chCapE As Integer
Dim chCapF As Integer
Dim chCapG As Integer
Dim chCapH As Integer
Dim chCapI As Integer
Dim chCapJ As Integer
Dim chCapK As Integer
Dim chCapL As Integer
Dim chCapM As Integer
Dim chCapN As Integer
Dim chCapO As Integer
Dim chCapP As Integer
Dim chCapQ As Integer
Dim chCapR As Integer
Dim chCapS As Integer
Dim chCapT As Integer
Dim chCapU As Integer
Dim chCapV As Integer
Dim chCapW As Integer
Dim chCapX As Integer
Dim chCapY As Integer
Dim chCapZ As Integer
Dim chLSqBr As Integer
Dim chBackslash As Integer
Dim chRSqBr As Integer
Dim chCircum As Integer
Dim chLowLine As Integer
Dim chGrave As Integer
Dim chA As Integer
Dim chB As Integer
Dim chC As Integer
Dim chD As Integer
Dim chE As Integer
Dim chF As Integer
Dim chG As Integer
Dim chH As Integer
Dim chI As Integer
Dim chJ As Integer
Dim chK As Integer
Dim chL As Integer
Dim chM As Integer
Dim chN As Integer
Dim chO As Integer
Dim chP As Integer
Dim chQ As Integer
Dim chR As Integer
Dim chS As Integer
Dim chT As Integer
Dim chU As Integer
Dim chV As Integer
Dim chW As Integer
Dim chX As Integer
Dim chY As Integer
Dim chZ As Integer
Dim chLCuBr As Integer
Dim chVertical As Integer
Dim chRCuBr As Integer
Dim chTilde As Integer
Dim chCopyright As Integer
Dim ch91 As Integer
Dim chA1 As Integer
Dim chA2 As Integer
Dim chA3 As Integer
Dim chA4 As Integer
Dim chA5 As Integer
Dim chA6 As Integer
Dim chA7 As Integer
Dim chA8 As Integer
Dim chAA As Integer
Dim chAB As Integer
Dim chAC As Integer
Dim chB6 As Integer
Dim chBA As Integer
Dim chCE As Integer
Dim chD0 As Integer
Dim chD6 As Integer
Dim chD7 As Integer
Dim chD8 As Integer
Dim chD9 As Integer
Dim chDA As Integer
Dim chE4 As Integer
Dim chF0 As Long
Dim chF1 As Long
Dim chF2 As Long
Dim chF3 As Long
Dim chF4 As Long
Dim chF5 As Long
Dim chF6 As Long
Dim chF7 As Long
Dim chF8 As Long
Dim chF9 As Long
Dim chFA As Long
Dim chFB As Long
Dim chFC As Long
Dim chFD As Long
Dim chFE As Long
Dim chFF As Long



Dim symSpace As Long
Dim symExcl As Long
Dim symDQuotes As Long
Dim symSharp As Long
Dim symDollar As Long
Dim symPercent As Long
Dim symAmber As Long
Dim symQuote As Long
Dim symLPar As Long
Dim symRPar As Long
Dim symStar As Long
Dim symPlus As Long
Dim symComma As Long
Dim symMinus As Long
Dim symFull As Long
Dim symSlash As Long
Dim sym0 As Long
Dim sym1 As Long
Dim sym2 As Long
Dim sym3 As Long
Dim sym4 As Long
Dim sym5 As Long
Dim sym6 As Long
Dim sym7 As Long
Dim sym8 As Long
Dim sym9 As Long
Dim symColon As Long
Dim symSemi As Long
Dim symLT As Long
Dim symEq As Long
Dim symGT As Long
Dim symQuestion As Long
Dim symAt As Long
Dim symCapA As Long
Dim symCapB As Long
Dim symCapC As Long
Dim symCapD As Long
Dim symCapE As Long
Dim symCapF As Long
Dim symCapG As Long
Dim symCapH As Long
Dim symCapI As Long
Dim symCapJ As Long
Dim symCapK As Long
Dim symCapL As Long
Dim symCapM As Long
Dim symCapN As Long
Dim symCapO As Long
Dim symCapP As Long
Dim symCapQ As Long
Dim symCapR As Long
Dim symCapS As Long
Dim symCapT As Long
Dim symCapU As Long
Dim symCapV As Long
Dim symCapW As Long
Dim symCapX As Long
Dim symCapY As Long
Dim symCapZ As Long
Dim symLSqBr As Long
Dim symBackslash As Long
Dim symRSqBr As Long
Dim symCircum As Long
Dim symLowLine As Long
Dim symGrave As Long
Dim symA As Long
Dim symB As Long
Dim symC As Long
Dim symD As Long
Dim symE As Long
Dim symF As Long
Dim symG As Long
Dim symH As Long
Dim symI As Long
Dim symJ As Long
Dim symK As Long
Dim symL As Long
Dim symM As Long
Dim symN As Long
Dim symO As Long
Dim symP As Long
Dim symQ As Long
Dim symR As Long
Dim symS As Long
Dim symT As Long
Dim symU As Long
Dim symV As Long
Dim symW As Long
Dim symX As Long
Dim symY As Long
Dim symZ As Long
Dim symLCuBr As Long
Dim symVertical As Long
Dim symRCuBr As Long
Dim symTilde As Long
Dim symCopyright As Long
Dim sym91 As Long
Dim symA1 As Long
Dim symA2 As Long
Dim symA3 As Long
Dim symA4 As Long
Dim symA5 As Long
Dim symA6 As Long
Dim symA7 As Long
Dim symA8 As Long
Dim symAA As Long
Dim symAB As Long
Dim symAC As Long
Dim symAD As Long
Dim symB6 As Long
Dim symBA As Long
Dim symCE As Long
Dim symD0 As Long
Dim symD6 As Long
Dim symD7 As Long
Dim symD8 As Long
Dim symD9 As Long
Dim symDA As Long
Dim symE4 As Long
Dim symF0 As Long
Dim symF1 As Long
Dim symF2 As Long
Dim symF3 As Long
Dim symF4 As Long
Dim symF5 As Long
Dim symF6 As Long
Dim symF7 As Long
Dim symF8 As Long
Dim symF9 As Long
Dim symFA As Long
Dim symFB As Long
Dim symFC As Long
Dim symFD As Long
Dim symFE As Long
Dim symFF As Long

Dim redColor As Integer

Dim ezPsaltica As Long
Dim ezFthora As Long
Dim ezSpecialI As Long
Dim ezSpecialII As Long
Dim ezOxeia As Long

Dim bzByzantina As Long
Dim bzFthores As Long
Dim bzIson As Long
Dim bzLoipa As Long
Dim bzPalaia As Long

Dim ezSymbols(500) As Long
Dim ezFonts(500) As Integer
Dim bzSymbols(500) As Long
Dim bzFonts(500) As Integer
Dim i As Integer


Private Sub BZ_Initialize_Global_Variables()
    
    redColor = 237
    
    ezPsaltica = 1
    ezFthora = 2
    ezSpecialI = 3
    ezSpecialII = 4
    ezOxeia = 5

    bzByzantina = 1
    bzFthores = 2
    bzIson = 3
    bzLoipa = 4
    bzPalaia = 5

End Sub




Private Sub BZ_Initialize_Character_Codes()
    
    BZ_Initialize_Global_Variables
    
    chSpace = 32
    chExcl = 33
    chDQuotes = 34
    chSharp = 35
    chDollar = 36
    chPercent = 37
    chAmber = 38
    chQuote = 39
    chLPar = 40
    chRPar = 41
    chStar = 42
    chPlus = 43
    chComma = 44
    chMinus = 45
    chFull = 46
    chSlash = 47
    ch0 = 48
    ch1 = 49
    ch2 = 50
    ch3 = 51
    ch4 = 52
    ch5 = 53
    ch6 = 54
    ch7 = 55
    ch8 = 56
    ch9 = 57
    chColon = 58
    chSemi = 59
    chLT = 60
    chEq = 61
    chGT = 62
    chQuestion = 63
    chAt = 64
    chCapA = 65
    chCapB = 66
    chCapC = 67
    chCapD = 68
    chCapE = 69
    chCapF = 70
    chCapG = 71
    chCapH = 72
    chCapI = 73
    chCapJ = 74
    chCapK = 75
    chCapL = 76
    chCapM = 77
    chCapN = 78
    chCapO = 79
    chCapP = 80
    chCapQ = 81
    chCapR = 82
    chCapS = 83
    chCapT = 84
    chCapU = 85
    chCapV = 86
    chCapW = 87
    chCapX = 88
    chCapY = 89
    chCapZ = 90
    chLSqBr = 91
    chBackslash = 92
    chRSqBr = 93
    chCircum = 94
    chLowLine = 95
    chGrave = 96
    chA = 97
    chB = 98
    chC = 99
    chD = 100
    chE = 101
    chF = 102
    chG = 103
    chH = 104
    chI = 105
    chJ = 106
    chK = 107
    chL = 108
    chM = 109
    chN = 110
    chO = 111
    chP = 112
    chQ = 113
    chR = 114
    chS = 115
    chT = 116
    chU = 117
    chV = 118
    chW = 119
    chX = 120
    chY = 121
    chZ = 122
    chLCuBr = 123
    chVertical = 124
    chRCuBr = 125
    chTilde = 126
    chCopyright = 169
    ch91 = 145
    chA1 = 161
    chA2 = 162
    chA3 = 163
    chA4 = 164
    chA5 = 165
    chA6 = 166
    chA7 = 167
    chA8 = 168
    chAA = 170
    chAB = 171
    chAC = 172
    chAD = 173
    chB6 = 182
    chBA = 186
    chCE = 206
    chD0 = 208
    chD6 = 214
    chD7 = 215
    chD8 = 216
    chD9 = 217
    chDA = 218
    chE4 = 228
    chF0 = 240
    chF1 = 241
    chF2 = 242
    chF3 = 243
    chF4 = 244
    chF5 = 245
    chF6 = 246
    chF7 = 247
    chF8 = 248
    chF9 = 249
    chFA = 250
    chFB = 251
    chFC = 252
    chFD = 253
    chFE = 254
    chFF = 255
    
End Sub




Private Sub BZ_Initialize_Symbol_Codes()
    
    BZ_Initialize_Global_Variables
    
    symSpace = 61472
    symExcl = 61473
    symDQuotes = 61474
    symSharp = 61475
    symDollar = 61476
    symPercent = 61477
    symAmber = 61478
    symQuote = 61479
    symLPar = 61480
    symRPar = 61481
    symStar = 61482
    symPlus = 61483
    symComma = 61484
    symMinus = 61485
    symFull = 61486
    symSlash = 61487
    sym0 = 61488
    sym1 = 61489
    sym2 = 61490
    sym3 = 61491
    sym4 = 61492
    sym5 = 61493
    sym6 = 61494
    sym7 = 61495
    sym8 = 61496
    sym9 = 61497
    symColon = 61498
    symSemi = 61499
    symLT = 61500
    symEq = 61501
    symGT = 61502
    symQuestion = 61503
    symAt = 61504
    symCapA = 61505
    symCapB = 61506
    symCapC = 61507
    symCapD = 61508
    symCapE = 61509
    symCapF = 61510
    symCapG = 61511
    symCapH = 61512
    symCapI = 61513
    symCapJ = 61514
    symCapK = 61515
    symCapL = 61516
    symCapM = 61517
    symCapN = 61518
    symCapO = 61519
    symCapP = 61520
    symCapQ = 61521
    symCapR = 61522
    symCapS = 61523
    symCapT = 61524
    symCapU = 61525
    symCapV = 61526
    symCapW = 61527
    symCapX = 61528
    symCapY = 61529
    symCapZ = 61530
    symLSqBr = 61531
    symBackslash = 61532
    symRSqBr = 61533
    symCircum = 61534
    symLowLine = 61535
    symGrave = 61536
    symA = 61537
    symB = 61538
    symC = 61539
    symD = 61540
    symE = 61541
    symF = 61542
    symG = 61543
    symH = 61544
    symI = 61545
    symJ = 61546
    symK = 61547
    symL = 61548
    symM = 61549
    symN = 61550
    symO = 61551
    symP = 61552
    symQ = 61553
    symR = 61554
    symS = 61555
    symT = 61556
    symU = 61557
    symV = 61558
    symW = 61559
    symX = 61560
    symY = 61561
    symZ = 61562
    symLCuBr = 61563
    symVertical = 61564
    symRCuBr = 61565
    symTilde = 61566
    symCopyright = 61609
    sym91 = 61585
    symA1 = 61601
    symA2 = 61602
    symA3 = 61603
    symA4 = 61604
    symA5 = 61605
    symA6 = 61606
    symA7 = 61607
    symA8 = 61608
    symAA = 61610
    symAB = 61611
    symAC = 61612
    symAD = 61613
    symB6 = 61622
    symBA = 61626
    symCE = 61646
    symD0 = 61648
    symD6 = 61654
    symD7 = 61655
    symD8 = 61656
    symD9 = 61657
    symDA = 61658
    symE4 = 61668
    symF0 = 61680
    symF1 = 61681
    symF2 = 61682
    symF3 = 61683
    symF4 = 61684
    symF5 = 61685
    symF6 = 61686
    symF7 = 61687
    symF8 = 61688
    symF9 = 61689
    symFA = 61690
    symFB = 61691
    symFC = 61692
    symFD = 61693
    symFE = 61694
    symFF = 61695

End Sub




Private Sub BZ_Initialize_EZ_BZ_Map()
    i = -1
    
    BZ_Initialize_Symbol_Codes
    
    BZ_Initialize_EZPsaltica_BZ_Map
    BZ_Initialize_EZFthora_BZ_Map
    BZ_Initialize_EZSpecialI_BZ_Map
    BZ_Initialize_EZSpecialII_BZ_Map
    BZ_Initialize_EZOxeia_BZ_Map

End Sub




Private Sub BZ_Initialize_EZPsaltica_BZ_Map()

'line ~!@#$
    
    i = i + 1
    ezSymbols(i) = symSpace
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symSpace
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symTilde
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapC
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symExcl
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symJ
    bzFonts(i) = bzByzantina
            
    i = i + 1
    ezSymbols(i) = symAt
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symK
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symSharp
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symL
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symDollar
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symSemi
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symPercent
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symX
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCircum
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symC
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symAmber
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symV
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symStar
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symB
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symLPar
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symN
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symRPar
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symQuote
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symLowLine
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symH
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symPlus
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symQuote
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symVertical
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symBackslash
    bzFonts(i) = bzLoipa
    
    
    
    
'line `123456
    
    i = i + 1
    ezSymbols(i) = symGrave
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symX
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = sym1
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symS
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = sym2
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symD
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = sym3
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symF
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = sym4
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symG
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = sym5
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symS
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym6
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symD
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym7
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symF
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym8
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symG
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym9
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symH
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym0
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symA
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symMinus
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symColon
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symEq
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symQuestion
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symBackslash
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symBackslash
    bzFonts(i) = bzByzantina
    
    
    
'line QWER
    
    i = i + 1
    ezSymbols(i) = symCapQ
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapJ
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapW
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapK
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapE
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapL
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapR
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symLCuBr
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapT
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symLSqBr
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapY
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symP
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapU
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symMinus
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapI
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symRPar
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapO
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symV
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapP
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symLowLine
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symLCuBr
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symLT
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symRCuBr
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapM
    bzFonts(i) = bzByzantina
    
    
    
'line qwer
    
    i = i + 1
    ezSymbols(i) = symQ
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapS
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symW
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapD
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symE
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapF
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symR
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapG
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symT
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapS
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symY
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapD
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symU
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapF
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symI
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapG
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symO
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symC
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symP
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapA
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symLSqBr
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symComma
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symRSqBr
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symQuestion
    bzFonts(i) = bzByzantina
    
    
    
'line ASDF

    i = i + 1
    ezSymbols(i) = symCapA
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symI
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapS
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symR
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapD
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symAt
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapF
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCircum
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapG
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapW
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapH
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symTilde
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapJ
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symPercent
    bzFonts(i) = bzPalaia
        
    i = i + 1
    ezSymbols(i) = symCapK
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symLPar
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapL
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symSlash
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symColon
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symStar
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symDQuotes
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symM
    bzFonts(i) = bzByzantina



'line asdf
    i = i + 1
    ezSymbols(i) = symA
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symU
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symS
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symE
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symD
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym2
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symF
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym6
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symG
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symW
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symH
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symGrave
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symJ
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapO
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symK
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym9
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symL
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapV
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symSemi
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym8
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symQuote
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symSlash
    bzFonts(i) = bzByzantina


'line ZXCV
    i = i + 1
    ezSymbols(i) = symCapZ
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapU
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapX
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapR
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapC
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symAmber
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapV
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symExcl
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapB
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symAt
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapN
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symSharp
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapM
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symDollar
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symLT
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symGrave
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symGT
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCircum
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symQuestion
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symPercent
    bzFonts(i) = bzByzantina
    
    
    
'line zxcv
    
    i = i + 1
    ezSymbols(i) = symZ
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapI
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symX
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCapE
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symC
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym7
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symV
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym1
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symB
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym2
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symN
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym3
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symM
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym4
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symComma
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym5
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symFull
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym6
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symSlash
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symTilde
    bzFonts(i) = bzByzantina



'copyright, alt0186
    
    i = i + 1
    ezSymbols(i) = symCopyright
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symAmber
    bzFonts(i) = bzPalaia

    i = i + 1
    ezSymbols(i) = symBA
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCopyright
    bzFonts(i) = bzFthores



'boithitika symbola

    i = i + 1
    ezSymbols(i) = sym91
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = sym91
    bzFonts(i) = bzByzantina

    i = i + 1
    ezSymbols(i) = symCE
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symCE
    bzFonts(i) = bzByzantina

    i = i + 1
    ezSymbols(i) = symD0
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symD0
    bzFonts(i) = bzByzantina

    i = i + 1
    ezSymbols(i) = symD7
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symD7
    bzFonts(i) = bzByzantina

    i = i + 1
    ezSymbols(i) = symE4
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symE4
    bzFonts(i) = bzByzantina

    i = i + 1
    ezSymbols(i) = symF8
    ezFonts(i) = ezPsaltica
    bzSymbols(i) = symD8
    bzFonts(i) = bzByzantina

End Sub




Private Sub BZ_Initialize_EZFthora_BZ_Map()

'line ~!@#$
    
    i = i + 1
    ezSymbols(i) = symSpace
    ezFonts(i) = ezFthora
    bzSymbols(i) = symSpace
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symTilde
    ezFonts(i) = ezFthora
    bzSymbols(i) = symTilde
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symExcl
    ezFonts(i) = ezFthora
    bzSymbols(i) = symExcl
    bzFonts(i) = bzFthores
            
    i = i + 1
    ezSymbols(i) = symAt
    ezFonts(i) = ezFthora
    bzSymbols(i) = symAt
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symSharp
    ezFonts(i) = ezFthora
    bzSymbols(i) = symPlus
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symDollar
    ezFonts(i) = ezFthora
    bzSymbols(i) = symSharp
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symPercent
    ezFonts(i) = ezFthora
    bzSymbols(i) = symStar
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCircum
    ezFonts(i) = ezFthora
    bzSymbols(i) = symDollar
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symAmber
    ezFonts(i) = ezFthora
    bzSymbols(i) = symColon
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symStar
    ezFonts(i) = ezFthora
    bzSymbols(i) = symLPar
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symLPar
    ezFonts(i) = ezFthora
    bzSymbols(i) = symLowLine
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symRPar
    ezFonts(i) = ezFthora
    bzSymbols(i) = symRPar
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symLowLine
    ezFonts(i) = ezFthora
    bzSymbols(i) = symY
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symPlus
    ezFonts(i) = ezFthora
    bzSymbols(i) = symN
    bzFonts(i) = bzFthores
    
    
    
'line `123456
    
    i = i + 1
    ezSymbols(i) = symGrave
    ezFonts(i) = ezFthora
    bzSymbols(i) = symGrave
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym1
    ezFonts(i) = ezFthora
    bzSymbols(i) = sym1
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym2
    ezFonts(i) = ezFthora
    bzSymbols(i) = sym2
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym3
    ezFonts(i) = ezFthora
    bzSymbols(i) = symEq
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym4
    ezFonts(i) = ezFthora
    bzSymbols(i) = sym3
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym5
    ezFonts(i) = ezFthora
    bzSymbols(i) = sym8
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym6
    ezFonts(i) = ezFthora
    bzSymbols(i) = sym4
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym7
    ezFonts(i) = ezFthora
    bzSymbols(i) = symSemi
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym8
    ezFonts(i) = ezFthora
    bzSymbols(i) = sym9
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym9
    ezFonts(i) = ezFthora
    bzSymbols(i) = symMinus
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym0
    ezFonts(i) = ezFthora
    bzSymbols(i) = sym0
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symMinus
    ezFonts(i) = ezFthora
    bzSymbols(i) = symT
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symEq
    ezFonts(i) = ezFthora
    bzSymbols(i) = symB
    bzFonts(i) = bzFthores
    
    
    
'line QWER
    
    i = i + 1
    ezSymbols(i) = symCapQ
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapQ
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapW
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapW
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapE
    ezFonts(i) = ezFthora
    bzSymbols(i) = symLCuBr
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapR
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapE
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapT
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapU
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapY
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapR
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapU
    ezFonts(i) = ezFthora
    bzSymbols(i) = symQuestion
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapI
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapI
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapO
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapP
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapP
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapO
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symLCuBr
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapY
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symRCuBr
    ezFonts(i) = ezFthora
    bzSymbols(i) = symN
    bzFonts(i) = bzByzantina
    
    
    
'line qwer
    
    i = i + 1
    ezSymbols(i) = symQ
    ezFonts(i) = ezFthora
    bzSymbols(i) = symQ
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symW
    ezFonts(i) = ezFthora
    bzSymbols(i) = symW
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symE
    ezFonts(i) = ezFthora
    bzSymbols(i) = symLSqBr
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symR
    ezFonts(i) = ezFthora
    bzSymbols(i) = symE
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symT
    ezFonts(i) = ezFthora
    bzSymbols(i) = symU
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symY
    ezFonts(i) = ezFthora
    bzSymbols(i) = symR
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symU
    ezFonts(i) = ezFthora
    bzSymbols(i) = symSlash
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symI
    ezFonts(i) = ezFthora
    bzSymbols(i) = symI
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symO
    ezFonts(i) = ezFthora
    bzSymbols(i) = symP
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symP
    ezFonts(i) = ezFthora
    bzSymbols(i) = symO
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symLSqBr
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapT
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symRSqBr
    ezFonts(i) = ezFthora
    bzSymbols(i) = symB
    bzFonts(i) = bzByzantina
    
    
    
'line ASDF

    i = i + 1
    ezSymbols(i) = symCapA
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapV
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapS
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapM
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapD
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapD
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapF
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapF
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapG
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapG
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapH
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapH
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapJ
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapJ
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapK
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapK
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapL
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapL
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symColon
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapN
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symDQuotes
    ezFonts(i) = ezFthora
    bzSymbols(i) = symY
    bzFonts(i) = bzFthores



'line asdf
    i = i + 1
    ezSymbols(i) = symA
    ezFonts(i) = ezFthora
    bzSymbols(i) = symV
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symS
    ezFonts(i) = ezFthora
    bzSymbols(i) = symM
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symD
    ezFonts(i) = ezFthora
    bzSymbols(i) = symD
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symF
    ezFonts(i) = ezFthora
    bzSymbols(i) = symF
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symG
    ezFonts(i) = ezFthora
    bzSymbols(i) = symG
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapH
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapH
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symJ
    ezFonts(i) = ezFthora
    bzSymbols(i) = symJ
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symK
    ezFonts(i) = ezFthora
    bzSymbols(i) = symK
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symL
    ezFonts(i) = ezFthora
    bzSymbols(i) = symL
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symSemi
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapB
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symQuote
    ezFonts(i) = ezFthora
    bzSymbols(i) = symT
    bzFonts(i) = bzFthores


'line ZXCV
    i = i + 1
    ezSymbols(i) = symCapZ
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapC
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapX
    ezFonts(i) = ezFthora
    bzSymbols(i) = symLT
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapC
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapC
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapV
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapV
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapB
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapB
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapN
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapN
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapM
    ezFonts(i) = ezFthora
    bzSymbols(i) = symCapM
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symLT
    ezFonts(i) = ezFthora
    bzSymbols(i) = symLT
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symGT
    ezFonts(i) = ezFthora
    bzSymbols(i) = symGT
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symQuestion
    ezFonts(i) = ezFthora
    bzSymbols(i) = symQuestion
    bzFonts(i) = bzIson
    
    
    
'line zxcv
    
    i = i + 1
    ezSymbols(i) = symZ
    ezFonts(i) = ezFthora
    bzSymbols(i) = symC
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symX
    ezFonts(i) = ezFthora
    bzSymbols(i) = symComma
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symC
    ezFonts(i) = ezFthora
    bzSymbols(i) = symC
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symV
    ezFonts(i) = ezFthora
    bzSymbols(i) = symV
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symB
    ezFonts(i) = ezFthora
    bzSymbols(i) = symB
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symN
    ezFonts(i) = ezFthora
    bzSymbols(i) = symN
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symM
    ezFonts(i) = ezFthora
    bzSymbols(i) = symM
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symComma
    ezFonts(i) = ezFthora
    bzSymbols(i) = symComma
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symFull
    ezFonts(i) = ezFthora
    bzSymbols(i) = symFull
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symSlash
    ezFonts(i) = ezFthora
    bzSymbols(i) = symSlash
    bzFonts(i) = bzIson

    i = i + 1
    ezSymbols(i) = symCopyright
    ezFonts(i) = ezFthora
    bzSymbols(i) = symVertical
    bzFonts(i) = bzFthores

End Sub




Private Sub BZ_Initialize_EZSpecialI_BZ_Map()


'line ~!@#$
    
    i = i + 1
    ezSymbols(i) = symSpace
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symSpace
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symTilde
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symZ
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symExcl
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symComma
    bzFonts(i) = bzLoipa
            
    i = i + 1
    ezSymbols(i) = symAt
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symFull
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symSharp
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symA1
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symDollar
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symA3
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symPercent
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapB
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCircum
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapN
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symAmber
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapQ
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symStar
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symAA
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symLPar
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapH
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symRPar
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symM
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symLowLine
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapE
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symPlus
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symA6
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symVertical
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symA2
    bzFonts(i) = bzLoipa
    
    
    
    
'line `123456
    
    i = i + 1
    ezSymbols(i) = symGrave
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symAB
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym1
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symK
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym2
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symL
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym3
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symSemi
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym4
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symQuote
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym5
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapT
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym6
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symU
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym7
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapU
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym8
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symY
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym9
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symI
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym0
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symJ
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symMinus
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symE
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symEq
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapZ
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symBackslash
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symLowLine
    bzFonts(i) = bzLoipa
    
    
    
'line QWER
    
    i = i + 1
    ezSymbols(i) = symCapQ
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapZ
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapW
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapX
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapE
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapC
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapR
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapV
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapT
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapY
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapY
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symO
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapU
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapO
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapI
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapI
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapO
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symEq
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symCapP
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symPlus
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symLCuBr
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapR
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symRCuBr
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapW
    bzFonts(i) = bzLoipa
    
    
    
'line qwer
    
    i = i + 1
    ezSymbols(i) = symQ
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapK
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symW
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapL
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symE
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symColon
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symR
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symDQuotes
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symT
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symT
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symY
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapP
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symU
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symA
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symI
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapA
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symO
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symZ
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symP
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapJ
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symLSqBr
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symR
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symRSqBr
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symW
    bzFonts(i) = bzLoipa
    
    
    
'line ASDF

    i = i + 1
    ezSymbols(i) = symCapA
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symSharp
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapS
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symAt
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapD
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symSharp
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapF
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symAmber
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapG
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symA4
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapH
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symExcl
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapJ
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symQ
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapK
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symDollar
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapL
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCopyright
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symColon
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symRPar
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symDQuotes
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symGT
    bzFonts(i) = bzLoipa



'line asdf
    i = i + 1
    ezSymbols(i) = symA
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symTilde
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symS
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symExcl
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symD
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym3
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symF
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym7
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symG
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symA5
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symH
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym1
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symJ
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symVertical
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symK
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym4
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symL
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symLT
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symSemi
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym0
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symQuote
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapM
    bzFonts(i) = bzLoipa


'line ZXCV
    i = i + 1
    ezSymbols(i) = symCapZ
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym3
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapX
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym2
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapC
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symPercent
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapV
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symLPar
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapB
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symStar
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symCapN
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapZ
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symCapM
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapA
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symLT
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapS
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symGT
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symA8
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symQuestion
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symX
    bzFonts(i) = bzFthores
    
    
    
'line zxcv
    
    i = i + 1
    ezSymbols(i) = symZ
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symGrave
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symX
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym1
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symC
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym5
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symV
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym9
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symB
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = sym8
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symN
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symZ
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symM
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symA
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symComma
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symS
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symFull
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symA7
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symSlash
    ezFonts(i) = ezSpecialI
    bzSymbols(i) = symCapX
    bzFonts(i) = bzFthores

End Sub




Private Sub BZ_Initialize_EZSpecialII_BZ_Map()


'line ~!@#$
    
    i = i + 1
    ezSymbols(i) = symSpace
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symSpace
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symTilde
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symSemi
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symExcl
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symQuote
    bzFonts(i) = bzIson
            
    i = i + 1
    ezSymbols(i) = symAt
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symPercent
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symSharp
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCircum
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symDollar
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symAmber
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symPercent
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symRSqBr
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symRPar
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symEq
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symLowLine
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapH
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symPlus
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapB
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symVertical
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symPercent
    bzFonts(i) = bzIson
    
    
    
    
'line `123456
    
    i = i + 1
    ezSymbols(i) = symGrave
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symColon
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = sym1
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symDQuotes
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = sym2
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym5
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym3
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym6
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym4
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym7
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym5
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symRSqBr
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = sym6
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symRCuBr
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = sym7
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symVertical
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = sym8
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapY
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = sym9
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym0
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = sym0
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symMinus
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symMinus
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symDQuotes
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symEq
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapT
    bzFonts(i) = bzFthores
    
    i = i + 1
    ezSymbols(i) = symBackslash
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symRCuBr
    bzFonts(i) = bzLoipa
    
    
    
'line QWER
    
    i = i + 1
    ezSymbols(i) = symCapQ
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symAmber
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapW
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symStar
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapE
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symLPar
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapR
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCircum
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapT
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symMinus
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapY
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symQ
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapU
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symW
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapI
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapW
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symRCuBr
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symRSqBr
    bzFonts(i) = bzLoipa
    
    
    
'line qwer
    
    i = i + 1
    ezSymbols(i) = symQ
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym7
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symW
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym8
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symE
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym9
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symR
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym6
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symT
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symPlus
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symY
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym0
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symU
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym5
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symI
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapQ
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symP
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symRPar
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symRSqBr
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symPlus
    bzFonts(i) = bzLoipa
    
    
    
'line ASDF

    i = i + 1
    ezSymbols(i) = symCapA
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symExcl
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapS
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symAt
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapD
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symSharp
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapF
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symDollar
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapG
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symEq
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapH
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symTilde
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symColon
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapZ
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symDQuotes
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapX
    bzFonts(i) = bzIson



'line asdf
    i = i + 1
    ezSymbols(i) = symA
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym1
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symS
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym2
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symD
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym3
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symF
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = sym4
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symG
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symLowLine
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symH
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symGrave
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symSemi
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symZ
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symQuote
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symX
    bzFonts(i) = bzIson


'line ZXCV
    i = i + 1
    ezSymbols(i) = symCapZ
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapL
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapC
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symD
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapV
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symF
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapB
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symG
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapN
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symH
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapM
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symJ
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symLT
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symK
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symGT
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symS
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symQuestion
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symA
    bzFonts(i) = bzIson
    
    
    
'line zxcv
    
    i = i + 1
    ezSymbols(i) = symZ
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symZ
    bzFonts(i) = bzLoipa
    
    i = i + 1
    ezSymbols(i) = symC
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapD
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symV
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapF
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symB
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapG
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symN
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapH
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symM
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapJ
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symComma
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapK
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symFull
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapS
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symSlash
    ezFonts(i) = ezSpecialII
    bzSymbols(i) = symCapA
    bzFonts(i) = bzIson

End Sub




Private Sub BZ_Initialize_EZOxeia_BZ_Map()


'line ~!@#$
    
    i = i + 1
    ezSymbols(i) = symSpace
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symSpace
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symTilde
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symX
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symExcl
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symJ
    bzFonts(i) = bzPalaia
            
    i = i + 1
    ezSymbols(i) = symAt
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symK
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symSharp
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symL
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symDollar
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symSemi
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symPercent
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symZ
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCircum
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapZ
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symAmber
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symO
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symStar
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapO
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symLPar
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symP
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symRPar
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapQ
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symLowLine
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapH
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symPlus
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symQ
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symVertical
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symEq
    bzFonts(i) = bzPalaia
    
    
    
    
'line `123456
    
    i = i + 1
    ezSymbols(i) = symGrave
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symQuote
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = sym1
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symS
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = sym2
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symD
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = sym3
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symF
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = sym4
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symG
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = sym5
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapS
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = sym6
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapD
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = sym7
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapF
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = sym8
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapG
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = sym9
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symB
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = sym0
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapQ
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symMinus
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symDQuotes
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symEq
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapX
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symBackslash
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symH
    bzFonts(i) = bzPalaia
    
    
    
'line QWER
    
    i = i + 1
    ezSymbols(i) = symCapQ
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symN
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapW
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapB
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapE
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapN
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapR
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symColon
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapT
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapL
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapY
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapL
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapU
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapJ
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapI
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symA
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapO
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symV
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapP
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapA
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symLCuBr
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symLT
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symRCuBr
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symRPar
    bzFonts(i) = bzPalaia
    
    
    
'line qwer
    
    i = i + 1
    ezSymbols(i) = symQ
    ezFonts(i) = ezOxeia
    bzSymbols(i) = sym7
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symW
    ezFonts(i) = ezOxeia
    bzSymbols(i) = sym5
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symE
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symPlus
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symR
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symLSqBr
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symT
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symO
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symY
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symP
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symU
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCircum
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symI
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symA
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symO
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symC
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symP
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symQ
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symLSqBr
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symComma
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symRSqBr
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symLowLine
    bzFonts(i) = bzPalaia
    
    
    
'line ASDF

    i = i + 1
    ezSymbols(i) = symCapA
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symI
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapS
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symR
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapD
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapT
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapF
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapY
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapG
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapW
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapH
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symDollar
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapJ
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symLSqBr
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapK
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symLPar
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapL
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapC
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symColon
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symStar
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symDQuotes
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symM
    bzFonts(i) = bzPalaia



'line asdf
    i = i + 1
    ezSymbols(i) = symA
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symU
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symS
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symE
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symD
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symT
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symF
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symY
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symG
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symW
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symH
    ezFonts(i) = ezOxeia
    bzSymbols(i) = sym4
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symJ
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapP
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symK
    ezFonts(i) = ezOxeia
    bzSymbols(i) = sym9
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symL
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapV
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symSemi
    ezFonts(i) = ezOxeia
    bzSymbols(i) = sym8
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symQuote
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symSlash
    bzFonts(i) = bzPalaia


'line ZXCV
    i = i + 1
    ezSymbols(i) = symCapZ
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapU
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapX
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapR
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symCapC
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symP
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapV
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symLSqBr
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapB
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symRSqBr
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapN
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symBackslash
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symCapM
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapP
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symLT
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symLCuBr
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symGT
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symRCuBr
    bzFonts(i) = bzIson
    
    i = i + 1
    ezSymbols(i) = symQuestion
    ezFonts(i) = ezOxeia
    bzSymbols(i) = sym0
    bzFonts(i) = bzPalaia
    
    
    
'line zxcv
    
    i = i + 1
    ezSymbols(i) = symZ
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapI
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symX
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapE
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symC
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCapM
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symV
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symFull
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symB
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symFull
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symN
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symBackslash
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symM
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symVertical
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symComma
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symGT
    bzFonts(i) = bzByzantina
    
    i = i + 1
    ezSymbols(i) = symFull
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symGT
    bzFonts(i) = bzPalaia
    
    i = i + 1
    ezSymbols(i) = symSlash
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symMinus
    bzFonts(i) = bzPalaia



    i = i + 1
    ezSymbols(i) = symBA
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symLCuBr
    bzFonts(i) = bzPalaia


    i = i + 1
    ezSymbols(i) = symCopyright
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symLCuBr
    bzFonts(i) = bzByzantina


'boithitika symbola

    i = i + 1
    ezSymbols(i) = sym91
    ezFonts(i) = ezOxeia
    bzSymbols(i) = sym91
    bzFonts(i) = bzPalaia

    i = i + 1
    ezSymbols(i) = symCE
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symCE
    bzFonts(i) = bzPalaia

    i = i + 1
    ezSymbols(i) = symD0
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symD0
    bzFonts(i) = bzPalaia

    i = i + 1
    ezSymbols(i) = symD7
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symD7
    bzFonts(i) = bzPalaia

    i = i + 1
    ezSymbols(i) = symE4
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symE4
    bzFonts(i) = bzPalaia

    i = i + 1
    ezSymbols(i) = symF8
    ezFonts(i) = ezOxeia
    bzSymbols(i) = symD8
    bzFonts(i) = bzPalaia

End Sub




Sub BZ_EZtoBZ()
    BZ_Initialize_EZ_BZ_Map
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "EZ Psaltica"
        .Text = "^t"
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = "^t"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "EZ Fthora"
        .Text = "^t"
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = "^t"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "EZ Special-I"
        .Text = "^t"
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = "^t"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "EZ Special-II"
        .Text = "^t"
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = "^t"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "EZ Oxeia"
        .Text = "^t"
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = "^t"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    For i = LBound(ezSymbols) To UBound(ezSymbols)
        
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
        
            .Text = ChrW(ezSymbols(i))
            Select Case ezFonts(i)
                Case 1
                    .Font.Name = "EZ Psaltica"
                Case 2
                    .Font.Name = "EZ Fthora"
                Case 3
                    .Font.Name = "EZ Special-I"
                Case 4
                    .Font.Name = "EZ Special-II"
                Case 5
                    .Font.Name = "EZ Oxeia"
            End Select
        
            .Replacement.Text = ChrW(bzSymbols(i))
            Select Case bzFonts(i)
                Case 1
                    .Replacement.Font.Name = "BZ Byzantina"
                Case 2
                    .Replacement.Font.Name = "BZ Fthores"
                Case 3
                    .Replacement.Font.Name = "BZ Ison"
                Case 4
                    .Replacement.Font.Name = "BZ Loipa"
                Case 5
                    .Replacement.Font.Name = "BZ Palaia"
            End Select
            
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = True
            .MatchWildcards = False
        
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    
    Next
    
End Sub




Private Sub BZ_BZtoEZ()
    BZ_Initialize_EZ_BZ_Map
    
    For i = LBound(ezSymbols) To UBound(ezSymbols)
        
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
        
            .Text = ChrW(bzSymbols(i))
            Select Case bzFonts(i)
                Case 1
                    .Font.Name = "BZ Byzantina"
                Case 2
                    .Font.Name = "BZ Fthores"
                Case 3
                    .Font.Name = "BZ Ison"
                Case 4
                    .Font.Name = "BZ Loipa"
                Case 5
                    .Font.Name = "BZ Palaia"
            End Select
            
            .Replacement.Text = ChrW(ezSymbols(i))
            Select Case ezFonts(i)
                Case 1
                    .Replacement.Font.Name = "EZ Psaltica"
                Case 2
                    .Replacement.Font.Name = "EZ Fthora"
                Case 3
                    .Replacement.Font.Name = "EZ Special-I"
                Case 4
                    .Replacement.Font.Name = "EZ Special-II"
                Case 5
                    .Replacement.Font.Name = "EZ Oxeia"
            End Select
            
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = True
            .MatchWildcards = False
        
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    
    Next
    
End Sub




Sub BZ_FormatPage()
'
' EZ_margins1 Macro
' Macro recorded 3/8/2006 by Stefanos Souldatos
'
    Selection.WholeStory
    
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = InchesToPoints(0.7)
        .BottomMargin = InchesToPoints(0.8)
        .LeftMargin = InchesToPoints(1)
        .RightMargin = InchesToPoints(1)
        .Gutter = InchesToPoints(0)
        .HeaderDistance = InchesToPoints(0.5)
        .FooterDistance = InchesToPoints(0.5)
        .PageWidth = InchesToPoints(8.27)
        .PageHeight = InchesToPoints(11.69)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
    With Selection.ParagraphFormat
        .LeftIndent = InchesToPoints(0)
        .RightIndent = InchesToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 60
        .Alignment = wdAlignParagraphLeft
        .WidowControl = False
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = InchesToPoints(0.5)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
    End With
    Selection.Font.Name = "BZ Byzantina"
    Selection.Font.Size = 22
    
    Selection.EndKey Unit:=wdLine
    Application.Keyboard (1033)
    Selection.TypeText Text:=" "
    
End Sub




Sub BZ_PolishNotes()

' The following macro will run the two large macros "PolishNotes1" to
'  "PolishNotes13". If no text is selected before running this macro, it
'  will polish the entire document. But if some text is selected, it will
'  only polish the notes selected. In order to do this, it creates a new
'  document as a temporary scratch pad. When it closes this scratch pad,
'  Word asks the user if he wants the changes to this scratch pad to be
'  saved. The user should respond "no", since this scratch pad is useless
'  for him.

    Dim SelectedText
    
    BZ_Initialize_Symbol_Codes
    
    If Selection.Type = wdSelectionIP Then
       SelectedText = 0

'  This is a flag variable which equals zero when no text is selected,
'   in which case the next five lines of code are skipped, as well as the
'   last four lines of code.

    Else
      SelectedText = 1
      Selection.Copy
      Documents.Add DocumentType:=wdNewBlankDocument
      Selection.PasteAndFormat (wdPasteDefault)
    End If
 
'
' The first 5 lines of code remove any previous formatting so that none of the music is raised,
'   condensed, or expanded.
'
    Selection.WholeStory
    Selection.Font.Spacing = 0
    Selection.Font.Position = 0
    Selection.Font.Scaling = 100
    
    BZ_MakeAllBlack
    
    BZ_Polish_Start
    BZ_Polish_ApliAntikenoma
    BZ_Polish_Gorgo1
    BZ_Polish_Gorgo2
    BZ_Polish_Isokratima1
    BZ_Polish_Isokratima2
    BZ_Polish_Isokratima3
    BZ_Polish_Isokratima4
    BZ_Polish_KentimataGorgo
    BZ_Polish_KentimataOmalo
    BZ_Polish_KentimataStigmi
    BZ_Polish_KlasmaAplesDieseis
    BZ_Polish_MartyriesMetra
    BZ_Polish_Syndesmos
    BZ_Polish_Yporroi
    BZ_Polish_Palaia
    BZ_Polish_PalaiaGorgo
    BZ_Polish_PalaiaKentimataOmalo
    BZ_Polish_PalaiaSyndesmos
    BZ_Polish_PalaiaTzakismaAples
    BZ_Polish_RepositionCompinations1
    BZ_Polish_RepositionCompinations2

    BZ_Justify1
    BZ_Justify2
    BZ_Justify3

    If SelectedText = 0 Then Exit Sub
    Selection.WholeStory
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    ActiveDocument.Close
    Selection.PasteAndFormat (wdPasteDefault)

End Sub




Private Sub BZ_Polish_Start()

    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False

'
' The following lines of code remove all spaces
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "Tahoma"
        .Text = " "
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
' The following lines of code rearrange characters to avoid "misunderstandings"
' psifisto should not follow tromikon, strepton i paraklitiki
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symFull) & ChrW(symSlash)
        .Replacement.Text = ChrW(symSlash) & ChrW(symFull)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symGT) & ChrW(symSlash)
        .Replacement.Text = ChrW(symSlash) & ChrW(symGT)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSlash)
        With .Replacement
            .Font.Emboss = True
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symGT)
        With .Replacement
            .Font.Emboss = True
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symGT) & ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symSlash) & ChrW(symGT)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Font.Emboss = False
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symGT)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Palaia"
            .Font.Emboss = False
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symGT) & ChrW(symSlash)
        .Replacement.Text = ChrW(symSlash) & ChrW(symGT)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symFull) & ChrW(symGT) & "]"
        With .Replacement
            .Font.Emboss = True
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symSlash)
        With .Replacement
            .Font.Emboss = True
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFull) & ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symSlash) & ChrW(symFull)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symGT) & ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symSlash) & ChrW(symGT)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symFull) & ChrW(symGT) & "]"
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Font.Emboss = False
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Palaia"
            .Font.Emboss = False
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub




Private Sub BZ_Polish_ApliAntikenoma()

'
' The following lines of code shift the aple and the antikenoma to the right when they are
'   beneath a petaste (and whatever else)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(sym8) & ChrW(symStar) & "]" & ChrW(symM)
        With .Replacement
            .Text = ChrW(symM) & ChrW(sym8)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symM) & ChrW(symStar)
        With .Replacement
            .Text = ChrW(symM) & ChrW(sym8)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & _
            ChrW(symCapG) & ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & _
            ChrW(symDQuotes) & "]" & ChrW(symM) & ChrW(sym8)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symM) & ChrW(sym8)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symStar) & ChrW(symM)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symStar)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symM)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Scaling = 90
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "?"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symM) & ChrW(sym8)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
            ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & _
            ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & ChrW(symCapC) & ChrW(symCapV) & _
            ChrW(symCapB) & ChrW(symCapN) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
            ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & _
            ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & ChrW(symCapC) & ChrW(symCapV) & _
            ChrW(symCapB) & ChrW(symCapN) & "]" & ChrW(symM) & ChrW(sym8)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symM) & ChrW(sym8)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symStar) & ChrW(symM)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symStar)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 5
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symM)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Scaling = 90
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
            ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & _
            ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & ChrW(symCapC) & ChrW(symCapV) & _
            ChrW(symCapB) & ChrW(symCapN) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = False
            .Font.Emboss = False
            .Font.Spacing = -5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False

End Sub




Private Sub BZ_Polish_Gorgo1()
'
' The following 40 lines of code shift a gorgon down that is above an oligon with a kentema on
'   top (i.e., a jump of three)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symF) & ChrW(symM) & ChrW(symR)
        .Replacement.Text = ChrW(symF) & ChrW(symR) & ChrW(symM)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symF) & ChrW(symM) & ChrW(symE)
        .Replacement.Text = ChrW(symF) & ChrW(symR) & ChrW(symM)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symF) & ChrW(symE)
        .Replacement.Text = ChrW(symF) & ChrW(symR)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symF) & ChrW(symR)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symR)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Position = -3
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following 46 lines of code shift a gorgon to its proper position when placed
' on an oligon that has an ypsele and kentemata above it (a jump of 4+1)
'
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symE)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symA)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA) & ChrW(symE)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symA)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = False
            .Font.Emboss = False
            .Font.Spacing = -4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = False
            .Font.Emboss = False
            .Font.Spacing = 4
            .Font.Position = 4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following 54 lines of code shift a gorgon that is after a rest so that it is
'  aligned exactly above the aple.
'
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symBackslash)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symE) & ChrW(symR) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symBackslash) & "[" & ChrW(symR) & ChrW(symE) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symBackslash)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 12
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symE) & ChrW(symR) & "]"
        .Font.StrikeThrough = True
        With .Replacement
        .Font.Name = "BZ Byzantina"
            .Text = ChrW(symE)
            .Font.Spacing = -12
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False

End Sub




Private Sub BZ_Polish_Gorgo2()
'
' The following lines of code lower the gorgon when it is
'   placed above an apostrophos or kentimata.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symJ) & ChrW(symStar) & ChrW(symR)
        .Replacement.Text = ChrW(symJ) & ChrW(symR) & ChrW(symStar)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symJ) & ChrW(symR)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symJ) & ChrW(symSlash) & ChrW(symR)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'kentimata, gorgo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symX) & ChrW(symR)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symR)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Position = -3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following lines of code lower the gorga-stigmi, digorga, trigorga when
'   placed above an apostrophos.
'
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symJ)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symTilde) & ChrW(symExcl) & ChrW(symAt) & ChrW(symSharp) & _
         ChrW(symDollar) & ChrW(symPercent) & ChrW(symCircum) & ChrW(symAmber) & _
         ChrW(symStar) & ChrW(symLPar) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symJ) & "[" & ChrW(symTilde) & ChrW(symExcl) & ChrW(symAt) & ChrW(symSharp) & _
         ChrW(symDollar) & ChrW(symPercent) & ChrW(symCircum) & ChrW(symAmber) & _
         ChrW(symStar) & ChrW(symLPar) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symJ)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "?"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = -3
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False


'
' The following 32 lines of code slightly lower a gorgon that
'  is beneath an elaphron.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symK) & ChrW(symCapE)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapE)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Position = -1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False


'
' The following 76 lines of code fix a gorgon that is beneath a elafron that has an apostrophos
'   in it.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symL) & ChrW(symCapR)
        .Replacement.Text = ChrW(symL) & ChrW(symCapE)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symL) & ChrW(symCapE)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapE)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Position = -4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following 45 lines of code reposition a gorgon that is beneath
'  a hamele so that they are aligned better.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSemi) & ChrW(symCapE)
        .Replacement.Text = ChrW(symSemi) & ChrW(symCapR)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSemi) & ChrW(symCapR)
        With .Replacement
        .Text = "^&"
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSemi)
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapR)
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Position = 2
        .Font.Spacing = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub




Private Sub BZ_Polish_Isokratima1()
'
' The following lines of code replaces the isokratema to the left with that of the right corner
' when it is above a character of medium width (in BZ Byzantina fonts), such as the petaste, elaphron, etc.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
            ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symDQuotes) & _
            ChrW(symH) & ChrW(symK) & ChrW(symL) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symA)
        With .Replacement
            .Text = ChrW(symF0)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symS)
        With .Replacement
            .Text = ChrW(symF1)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symD)
        With .Replacement
            .Text = ChrW(symF2)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symF)
        With .Replacement
            .Text = ChrW(symF3)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symG)
        With .Replacement
            .Text = ChrW(symF4)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symH)
        With .Replacement
            .Text = ChrW(symF5)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symJ)
        With .Replacement
            .Text = ChrW(symF6)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symK)
        With .Replacement
            .Text = ChrW(symF7)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symL)
        With .Replacement
            .Text = ChrW(symF8)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symSemi)
        With .Replacement
            .Text = ChrW(symF9)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symQuote)
        With .Replacement
            .Text = ChrW(symFA)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
            ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symDQuotes) & _
            ChrW(symH) & ChrW(symK) & ChrW(symL) & "]" & _
            "[" & ChrW(symF0) & ChrW(symF1) & ChrW(symF2) & ChrW(symF3) & ChrW(symF4) & ChrW(symF5) & _
            ChrW(symF6) & ChrW(symF7) & ChrW(symF8) & ChrW(symF9) & ChrW(symFA) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF0)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symA)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF1)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symS)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF2)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symD)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF3)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF4)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symG)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF5)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symH)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF6)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symJ)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF7)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symK)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF8)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symL)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF9)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symSemi)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFA)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symQuote)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False

    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symA)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapA)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symS)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapS)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symD)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapD)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symF)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapF)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symG)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapG)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symH)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapH)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symJ)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapJ)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symK)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapK)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symL)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapL)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symSemi)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symColon)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symQuote)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symDQuotes)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False
    
End Sub




Private Sub BZ_Polish_Isokratima2()
'
' The following lines of code replaces the isokratema to the left with that of the right corner
' when it is above a character of medium width (in BZ Loipa fonts), such as the petaste, elaphron, etc.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & ChrW(symCapH) & ChrW(symCapJ) & _
            ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & _
            ChrW(symCapC) & ChrW(symCapV) & ChrW(symCapB) & ChrW(symCapN) & ChrW(symC) & ChrW(symV) & ChrW(symM) & _
            ChrW(symComma) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = "[" & ChrW(symA) & ChrW(symS) & ChrW(symD) & ChrW(symF) & ChrW(symG) & ChrW(symH) & ChrW(symJ) & _
            ChrW(symK) & ChrW(symL) & ChrW(symSemi) & ChrW(symQuote) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & ChrW(symCapH) & ChrW(symCapJ) & _
            ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & _
            ChrW(symCapC) & ChrW(symCapV) & ChrW(symCapB) & ChrW(symCapN) & ChrW(symC) & ChrW(symV) & ChrW(symM) & _
            ChrW(symComma) & "]" & _
            "[" & ChrW(symA) & ChrW(symS) & ChrW(symD) & ChrW(symF) & ChrW(symG) & ChrW(symH) & ChrW(symJ) & _
            ChrW(symK) & ChrW(symL) & ChrW(symSemi) & ChrW(symQuote) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapA)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symS)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapS)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapD)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapF)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symG)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapG)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symH)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapH)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symJ)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapJ)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symK)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapK)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symL)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapL)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSemi)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symColon)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symQuote)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symDQuotes)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False

End Sub




Private Sub BZ_Polish_Isokratima3()
'
' The following lines of code shift the isokratema slightly to the left
' when it is above a character of medium width (in BZ Byzantina), such as the petaste, elaphron, etc.
' (when isocratema to the right has been used)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
            ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symDQuotes) & _
            ChrW(symH) & ChrW(symK) & ChrW(symL) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapA)
        With .Replacement
            .Text = ChrW(symF0)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapS)
        With .Replacement
            .Text = ChrW(symF1)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapD)
        With .Replacement
            .Text = ChrW(symF2)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapF)
        With .Replacement
            .Text = ChrW(symF3)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapG)
        With .Replacement
            .Text = ChrW(symF4)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapH)
        With .Replacement
            .Text = ChrW(symF5)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapJ)
        With .Replacement
            .Text = ChrW(symF6)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapK)
        With .Replacement
            .Text = ChrW(symF7)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapL)
        With .Replacement
            .Text = ChrW(symF8)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symColon)
        With .Replacement
            .Text = ChrW(symF9)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symDQuotes)
        With .Replacement
            .Text = ChrW(symFA)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
            ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symDQuotes) & _
            ChrW(symH) & ChrW(symK) & ChrW(symL) & "]" & _
            "[" & ChrW(symF0) & ChrW(symF1) & ChrW(symF2) & ChrW(symF3) & ChrW(symF4) & ChrW(symF5) & _
            ChrW(symF6) & ChrW(symF7) & ChrW(symF8) & ChrW(symF9) & ChrW(symFA) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "?"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.StrikeThrough = False
        .Font.Spacing = -4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = "[" & ChrW(symF0) & ChrW(symF1) & ChrW(symF2) & ChrW(symF3) & ChrW(symF4) & ChrW(symF5) & _
            ChrW(symF6) & ChrW(symF7) & ChrW(symF8) & ChrW(symF9) & ChrW(symFA) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = False
            .Font.Spacing = 4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF0)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapA)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF1)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapS)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF2)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapD)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF3)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF4)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapG)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF5)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapH)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF6)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapJ)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF7)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapK)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF8)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapL)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF9)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symColon)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFA)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symDQuotes)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False
    
End Sub

Private Sub BZ_Polish_Isokratima4()
'
' The following lines of code shift the isokratema slightly to the left
' when it is above a character of medium width (in BZ Loipa), such as the petaste, elaphron, etc.
' (when isocratema to the right has been used)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & ChrW(symCapH) & ChrW(symCapJ) & _
            ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & _
            ChrW(symCapC) & ChrW(symCapV) & ChrW(symCapB) & ChrW(symCapN) & ChrW(symC) & ChrW(symV) & ChrW(symM) & _
            ChrW(symComma) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapA)
        With .Replacement
            .Text = ChrW(symF0)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapS)
        With .Replacement
            .Text = ChrW(symF1)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapD)
        With .Replacement
            .Text = ChrW(symF2)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapF)
        With .Replacement
            .Text = ChrW(symF3)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapG)
        With .Replacement
            .Text = ChrW(symF4)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapH)
        With .Replacement
            .Text = ChrW(symF5)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapJ)
        With .Replacement
            .Text = ChrW(symF6)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapK)
        With .Replacement
            .Text = ChrW(symF7)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapL)
        With .Replacement
            .Text = ChrW(symF8)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symColon)
        With .Replacement
            .Text = ChrW(symF9)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symDQuotes)
        With .Replacement
            .Text = ChrW(symFA)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & ChrW(symCapH) & ChrW(symCapJ) & _
            ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & _
            ChrW(symCapC) & ChrW(symCapV) & ChrW(symCapB) & ChrW(symCapN) & ChrW(symC) & ChrW(symV) & ChrW(symM) & _
            ChrW(symComma) & "]" & _
            "[" & ChrW(symF0) & ChrW(symF1) & ChrW(symF2) & ChrW(symF3) & ChrW(symF4) & ChrW(symF5) & _
            ChrW(symF6) & ChrW(symF7) & ChrW(symF8) & ChrW(symF9) & ChrW(symFA) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "?"
            .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.StrikeThrough = False
        .Font.Spacing = -4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = "[" & ChrW(symF0) & ChrW(symF1) & ChrW(symF2) & ChrW(symF3) & ChrW(symF4) & ChrW(symF5) & _
            ChrW(symF6) & ChrW(symF7) & ChrW(symF8) & ChrW(symF9) & ChrW(symFA) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = False
            .Font.Spacing = 4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF0)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapA)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF1)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapS)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF2)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapD)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF3)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF4)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapG)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF5)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapH)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF6)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapJ)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF7)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapK)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF8)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapL)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symF9)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symColon)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFA)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symDQuotes)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False

End Sub


Private Sub BZ_Polish_KentimataGorgo()
'
' The following lines of code shift the gorgon or gorgo-stigmi slightly to the left when it is above
' kentemata that are above an oligon that has also ison or apostrofos to the left of the kentemata.
'
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symMinus) & ChrW(symLowLine) & ChrW(symR) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symTilde) & ChrW(symExcl) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symMinus) & ChrW(symLowLine) & "]" & _
            "[" & ChrW(symR) & ChrW(symTilde) & ChrW(symExcl) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symMinus) & ChrW(symLowLine) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = -2
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symTilde) & ChrW(symExcl) & ChrW(symR) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 2
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    
'
' The following lines of code shift the gorgon slightly to the left when it is above kentemata
' that are above an oligon that has also elafron, elafron and apostrofos or xamili to the left of the kentemata.
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symR)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symP) & ChrW(symLSqBr) & ChrW(symLCuBr) & _
            ChrW(symTilde) & ChrW(symExcl) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symP) & ChrW(symLSqBr) & ChrW(symLCuBr) & "]" & _
            "[" & ChrW(symR) & ChrW(symTilde) & ChrW(symExcl) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symP) & ChrW(symLSqBr) & ChrW(symLCuBr) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = -2
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symR) & ChrW(symTilde) & ChrW(symExcl) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 2
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False

End Sub




Private Sub BZ_Polish_KentimataOmalo()
'
' The following lines of code move the kentemata to the left and lower the omalon when they collide
' beneath an oligon.
'
    'first rearrange the notes
    'klasma
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symC) & ChrW(symU) & ChrW(symLT)
        .Replacement.Text = ChrW(symC) & ChrW(symLT) & ChrW(symU)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symD) & ChrW(symU) & ChrW(symLT)
        .Replacement.Text = ChrW(symD) & ChrW(symLT) & ChrW(symU)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'gorgo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symC) & ChrW(symE) & ChrW(symLT)
        .Replacement.Text = ChrW(symC) & ChrW(symLT) & ChrW(symE)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'argo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symC) & ChrW(symW) & ChrW(symLT)
        .Replacement.Text = ChrW(symC) & ChrW(symLT) & ChrW(symW)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'triimiargo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symC) & ChrW(symCapW) & ChrW(symLT)
        .Replacement.Text = ChrW(symC) & ChrW(symLT) & ChrW(symCapW)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'then, reposition the notes
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symC) & ChrW(symLT)
        With .Replacement
            .Text = ChrW(symCE) & ChrW(symLT)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symD) & ChrW(symCE) & "]" & ChrW(symLT)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symLT)
        .Font.Emboss = True
        With .Replacement
             .Text = "^&"
             .Font.Emboss = False
             .Font.Position = -2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False


'
' The following lines of text shift an omalon (omalon on the middle of two notes)
' down when it collides with a kentema or kentemata that are beneath an oligon.
'
    'first bring the omalon before gorgon etc.
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symE) & ChrW(symComma)
        .Replacement.Text = ChrW(symComma) & ChrW(symE)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symComma)
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = ChrW(symComma)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symGrave) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & _
            ChrW(sym5) & ChrW(sym6) & ChrW(sym7) & ChrW(sym8) & ChrW(sym9) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symGrave) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & _
            ChrW(sym5) & ChrW(sym6) & ChrW(sym7) & ChrW(sym8) & ChrW(sym9) & "]" & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symGrave) & ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(symGrave)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym1) & ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym1)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym2) & ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym2)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym3) & ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym3)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym4) & ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym4)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym5) & ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym5)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym6) & ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym6)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym7) & ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym7)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym8) & ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym8)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym9) & ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym9)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = ChrW(symComma)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False
    
'
    'then fix it
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symC) & ChrW(symA) & ChrW(symComma)
        With .Replacement
             .Text = ChrW(symCE) & ChrW(symA) & ChrW(symComma)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
             
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symD) & ChrW(symCE) & "]" & ChrW(symA) & ChrW(symComma)
        With .Replacement
             .Text = "^&"
             .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
             .Text = "^&"
             .Font.Emboss = False
             .Font.Position = -1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False


'
' The following 70 lines of code shift an omalon to the right when it is beneath an apostrophos
'  followed by an ison.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symJ) & ChrW(symA) & ChrW(symComma)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = ChrW(symRSqBr)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    
End Sub




Private Sub BZ_Polish_KentimataStigmi()
'
' The following 358 lines of code add a dot to the right of a gorgon that is above the kentemata
'   when followed by (a vareia and) an ison
'
    
    'stirigma, ison, kentimata, gorgo, vareia, ison
    'stirigma, apostrofos, kentimata, gorgo, vareia, iso
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symLowLine) & ChrW(symMinus) & "]" & ChrW(symR) & ChrW(symBackslash) & _
            ChrW(symA)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symLowLine) & ChrW(symMinus) & "]" & ChrW(symR) & ChrW(symA)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symR)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = ChrW(symExcl)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    
'
'
'
    'stirigma, elafron, kentimata, gorgo, vareia, ison
    'stirigma, elafron-apostrofos, kentimata, gorgo, vareia, ison
    'stirigma, xamili, kentimata, gorgo, vareia, ison
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symP) & ChrW(symLSqBr) & ChrW(symLCuBr) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symR) & ChrW(symBackslash) & ChrW(symA) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symP) & ChrW(symLSqBr) & ChrW(symLCuBr) & "]" & _
            ChrW(symR) & ChrW(symBackslash) & ChrW(symA)
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symP) & ChrW(symLSqBr) & ChrW(symLCuBr) & "]" & _
            ChrW(symR) & ChrW(symA)
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symR)
        .Font.StrikeThrough = True
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = ChrW(symExcl)
            .Font.Emboss = False
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False
'
'
'
    'oligon, kentimata, gorgo, vareia, iso
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symCapV) & ChrW(symBackslash) & ChrW(symA)
        With .Replacement
            .Text = ChrW(symD7) & ChrW(symD8) & ChrW(symBackslash) & ChrW(symA)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symCapV) & ChrW(symA)
        With .Replacement
            .Text = ChrW(symD7) & ChrW(symD8) & ChrW(symA)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symD7) & ChrW(symD8) & ChrW(symBackslash) & ChrW(symA)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symD7) & ChrW(symD8) & ChrW(symA)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD8)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = ChrW(sym1)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    
    'i do some double work to be sure that the process is rerunnable
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symD7) & ChrW(symV) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symGrave) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & _
          ChrW(sym5) & ChrW(sym6) & ChrW(sym7) & ChrW(sym8) & ChrW(sym9) & ChrW(symTilde) & _
          ChrW(symExcl) & ChrW(symAt) & ChrW(symSharp) & ChrW(symDollar) & ChrW(symPercent) & _
          ChrW(symCircum) & ChrW(symAmber) & ChrW(symStar) & ChrW(symLPar) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symD7) & ChrW(symV) & "][" & ChrW(symGrave) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & _
          ChrW(sym5) & ChrW(sym6) & ChrW(sym7) & ChrW(sym8) & ChrW(sym9) & ChrW(symTilde) & _
          ChrW(symExcl) & ChrW(symAt) & ChrW(symSharp) & ChrW(symDollar) & ChrW(symPercent) & _
          ChrW(symCircum) & ChrW(symAmber) & ChrW(symStar) & ChrW(symLPar) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symV)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symD7)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symGrave)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symTilde)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symGrave)
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym1)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symExcl)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym1)
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym2)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symAt)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym2)
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym3)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSharp)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym3)
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym4)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symDollar)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym4)
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym5)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symPercent)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym5)
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym6)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCircum)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym6)
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym7)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symAmber)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym7)
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym8)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symStar)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym8)
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym9)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symLPar)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym9)
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False

End Sub




Private Sub BZ_Polish_KlasmaAplesDieseis()
'
' The following 14 lines of code fix an orthographical error when the user puts a klasma beneath
'   a jump of four.
'
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symG) & ChrW(symCapI)
        .Replacement.Text = ChrW(symG) & ChrW(symCapU)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
' The following 45 lines of code shift a klasma to the right when
' it is to the right of an ypsele above an oligon (a jump of five
' held for two beats) so that they don't collide
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symS)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symU) & ChrW(symI) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symS) & "[" & ChrW(symU) & ChrW(symI) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symS)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = False
            .Font.Emboss = False
            .Font.Spacing = 2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symU) & ChrW(symI) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symU)
            .Font.StrikeThrough = False
            .Font.Emboss = False
            .Font.Spacing = -2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following 76 lines of code raise a klasma that is above an elaphron
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symK) & ChrW(symL) & ChrW(symH) & "]" & "[" & ChrW(symI) & ChrW(symU) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symI) & ChrW(symU) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symU)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symU)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Position = 1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following lines of code shift an aple down so that
'  it doesn't collide with an antikenoma beneath a jump of 2
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symQuestion)
        With .Replacement
             .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(sym8)
        With .Replacement
             .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symQuestion) & ChrW(sym8)
        .Font.Emboss = True
        With .Replacement
           .Font.Name = "BZ Byzantina"
           .Text = ChrW(symCapZ)
           .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following 45 lines of code lower a diple that is beneath
'  a jump down of three so that they don't collide.
'
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symL) & ChrW(sym9)
        With .Replacement
        .Text = "^&"
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym9)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Position = -2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following 60 lines of code reposition a diple that
'  is beneath a hamele so that they are aligned better.
'

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSemi) & ChrW(sym9)
        .Replacement.Text = ChrW(symSemi) & ChrW(symLPar)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSemi) & ChrW(symLPar)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSemi)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symLPar)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
' The following 63 lines of code align a diesis beneath an elaphron
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symK) & ChrW(symH) & "][" & ChrW(symB) & ChrW(symCapB) & ChrW(symN) & ChrW(symCapN) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symB)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symN)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapB)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCapN)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symK) & ChrW(symH) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symN) & ChrW(symCapN) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symK) & ChrW(symH) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Fthores"
        .Text = "[" & ChrW(symB) & ChrW(symN) & ChrW(symCapB) & ChrW(symCapN) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symK) & ChrW(symH) & "][" & ChrW(symB) & ChrW(symCapB) & ChrW(symN) & ChrW(symCapN) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symB)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symN)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapB)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symCapN)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symK) & ChrW(symH) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symN) & ChrW(symCapN) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub




Private Sub BZ_Polish_MartyriesMetra()
'
' The following 63 lines of code lower all martyries and tempo marks
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symTilde) & ChrW(symExcl) & ChrW(symAt) & ChrW(symSharp) & ChrW(symDollar) & _
         ChrW(symPercent) & ChrW(symCircum) & ChrW(symAmber) & ChrW(symGrave) & ChrW(sym1) & _
         ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & ChrW(sym5) & ChrW(sym6) & ChrW(sym7) & "]"
         With .Replacement
            .Text = "^&"
            .Font.Position = -3
         End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Fthores"
        .Text = "[" & ChrW(symCapA) & ChrW(symA) & ChrW(symCapS) & ChrW(symS) & _
             ChrW(symCapZ) & ChrW(symZ) & ChrW(symCapX) & ChrW(symX) & ChrW(symVertical) & ChrW(symBackslash) & "]"
         With .Replacement
            .Text = "^&"
            .Font.Position = -3
         End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'tempo marks
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symTilde) & ChrW(symExcl) & ChrW(symAt) & ChrW(symSharp) & _
        ChrW(symGrave) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & "]"
         With .Replacement
            .Text = "^&"
            .Font.Position = -3
         End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
'
' The following 46 lines of code shift to the left a tonos
'  that is after a chromatic martyria
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symPercent) & ChrW(symTilde)
        With .Replacement
        .Text = "^&"
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symPercent)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symTilde)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
' The following lines of code replace two bar lines in a row
'  with a single character that has those two bar lines closer together.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symO) & ChrW(symO)
        .Replacement.Text = ChrW(symP)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symPercent) & ChrW(symPercent)
        .Replacement.Text = ChrW(symGrave)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
' The following lines of code shift the metro to the right near the double diastoli
' when the latter is on an oligon
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symRSqBr) & ChrW(symP)
        .Replacement.Text = ChrW(symP) & ChrW(symRSqBr)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symRCuBr) & ChrW(symP)
        .Replacement.Text = ChrW(symP) & ChrW(symRCuBr)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symVertical) & ChrW(symP)
        .Replacement.Text = ChrW(symP) & ChrW(symVertical)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symRSqBr) & ChrW(symCapP)
        .Replacement.Text = ChrW(symCapP) & ChrW(symRSqBr)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symRCuBr) & ChrW(symCapP)
        .Replacement.Text = ChrW(symCapP) & ChrW(symRCuBr)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symVertical) & ChrW(symCapP)
        .Replacement.Text = ChrW(symCapP) & ChrW(symVertical)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symCapP) & "[" & ChrW(symRSqBr) & ChrW(symRCuBr) & ChrW(symVertical) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symRSqBr)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symA5)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symRCuBr)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symA6)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symVertical)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symA7)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

End Sub








Private Sub BZ_Polish_Syndesmos()
'
' The following 61 lines of code shift the syndesmos to the right when preceded by an oligon
'   with kentemata and a gorgon.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symCapV) & ChrW(symQuestion)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True

    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symQuestion)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = ChrW(symRCuBr)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    

'
' The following 65 lines of code replace a syndesmos followed by a psefiston
'  with special characters that replace these two symbols
'
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSlash) & ChrW(symQuestion)
        .Replacement.Text = ChrW(symQuestion) & ChrW(symSlash)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symQuestion) & ChrW(symSlash)
        With .Replacement
            .Font.Name = "BZ Palaia"
            .Text = ChrW(symLowLine) & ChrW(symMinus)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symMinus) & ChrW(symLowLine)
        .Replacement.Text = ChrW(symLowLine) & ChrW(symMinus)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
' The following 30 lines of code shift the kentemata to the left when they
'      collide with a psefeston beneath an oligon.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symC) & ChrW(symU) & ChrW(symSlash)
        .Replacement.Text = ChrW(symC) & ChrW(symSlash) & ChrW(symU)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symC) & ChrW(symE) & ChrW(symSlash)
        .Replacement.Text = ChrW(symC) & ChrW(symSlash) & ChrW(symE)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symC) & ChrW(symSlash)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symC)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symCE)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The next lines of code shift the klasma beneath a petaste to its proper
'   position (more to the right)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & _
          ChrW(symCapG) & ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & _
           ChrW(symDQuotes) & "]" & ChrW(symCapI)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapI)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(sym91)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    
 '
 '
 '
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symCapI)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
         ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & _
         ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & ChrW(symCapC) & ChrW(symCapV) & _
         ChrW(symCapB) & ChrW(symCapN) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
         ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & _
         ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & ChrW(symCapC) & ChrW(symCapV) & _
         ChrW(symCapB) & ChrW(symCapN) & "]" & ChrW(symCapI)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapI)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym91)
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False
    
'
' The following 72 lines of code shift a psefeston to the right when it collides with a klasma
'   beneath a petaste.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symZ)
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = ChrW(sym91)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(sym91) & ChrW(symSlash) & ChrW(symJ)
        .Replacement.Text = ChrW(sym91) & ChrW(symJ) & ChrW(symSlash)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(sym91) & ChrW(symJ) & ChrW(symSlash)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchAllWordForms = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym91)
        .Font.Emboss = True
        With .Replacement
            .Font.Emboss = False
            .Text = "^&"
            .Font.Spacing = 2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symJ)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -10
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 10
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
'
' The following 81 lines of code align a psefiston that is
' beneath a "long" oligon (stirigma).
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symLowLine) & ChrW(symSlash)
        With .Replacement
            .Font.Emboss = True
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symLowLine)
        .Font.Emboss = True
        With .Replacement
            .Font.Emboss = False
            .Text = "^&"
            .Font.Spacing = -4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 4
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'an akolouthei tromiko, strepto i paraklitiki, ferta konta
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symFull) & ChrW(symGT) & "]"
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symGT)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash) & "[" & ChrW(symFull) & ChrW(symGT) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Engrave = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash)
        .Font.Engrave = True
        With .Replacement
            .Text = "^&"
            .Font.Engrave = False
            .Font.Spacing = 0
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symFull) & ChrW(symGT) & "]"
        .Font.Engrave = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 4
            .Font.Engrave = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False

'
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSlash)
        With .Replacement
            .Font.Emboss = True
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symP) & ChrW(symCapP) & ChrW(symLSqBr) & ChrW(symLCuBr) & "]"
        With .Replacement
            .Font.Emboss = True
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symP) & ChrW(symCapP) & ChrW(symLSqBr) & ChrW(symLCuBr) & "]" & ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Font.StrikeThrough = True
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symP) & ChrW(symCapP) & ChrW(symLSqBr) & ChrW(symLCuBr) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = -5
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'an akolouthei tromiko, strepto i paraklitiki, ferta konta
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symFull) & ChrW(symGT) & "]"
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symGT)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash) & "[" & ChrW(symFull) & ChrW(symGT) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Engrave = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash)
        .Font.Engrave = True
        With .Replacement
            .Text = "^&"
            .Font.Engrave = False
            .Font.Spacing = 0
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symFull) & ChrW(symGT) & "]"
        .Font.Engrave = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 5
            .Font.Engrave = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False
    
End Sub




Private Sub BZ_Polish_Yporroi()
'
' The following 100 lines of code split an yporroe from the gorgon, digorgon and trigorgon.
'   (This is necessary so that an aple or diple beneath the yporroe will be properly aligned.)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symColon)
        .Replacement.Text = ChrW(symQuote) & ChrW(symD0)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symW)
        .Replacement.Text = ChrW(symA4) & ChrW(symAA)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symCapW)
        .Replacement.Text = ChrW(symA4) & ChrW(symAC)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symE)
        .Replacement.Text = ChrW(symA4) & ChrW(symA5)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symCapE)
        .Replacement.Text = ChrW(symA4) & ChrW(symA7)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symR)
        .Replacement.Text = ChrW(symA4) & ChrW(symA8)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symCapR)
        .Replacement.Text = ChrW(symA4) & ChrW(symA6)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
'
' The following 100 lines of code add space after an yporroe that has
' a gorgon, digorgon, or trigorgon above it, checking first if there is an
' aple or diple beneath them.
'
' i first reverse the gorga with the aples so that aples are exactly under yporroi
'
    
    'first the yporroi-gorgo of BZ Byzantine
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symD0) & ChrW(symStar)
        .Replacement.Text = ChrW(symStar) & ChrW(symD0)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symD0) & ChrW(symLPar)
        .Replacement.Text = ChrW(symLPar) & ChrW(symD0)
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symD0) & ChrW(symRPar)
        .Replacement.Text = ChrW(symRPar) & ChrW(symD0)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'mazeyo tin tripli na mi sproxnei to gorgo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symRPar) & ChrW(symD0)
        With .Replacement
            .Text = "^&"
            .Font.Spacing = -2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symD0)
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
'
'
    'BZ loipa
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symStar) & ChrW(symLPar) & ChrW(symRPar) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symA5) & ChrW(symA6) & ChrW(symA7) & ChrW(symA8) & ChrW(symAA) & ChrW(symAC) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA5) & ChrW(symStar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symStar) & ChrW(symA5)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA6) & ChrW(symStar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symStar) & ChrW(symA6)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA7) & ChrW(symStar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symStar) & ChrW(symA7)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA8) & ChrW(symStar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symStar) & ChrW(symA8)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symAA) & ChrW(symStar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symStar) & ChrW(symAA)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symAC) & ChrW(symStar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symStar) & ChrW(symAC)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA5) & ChrW(symLPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symLPar) & ChrW(symA5)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA6) & ChrW(symLPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symLPar) & ChrW(symA6)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA7) & ChrW(symLPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symLPar) & ChrW(symA7)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA8) & ChrW(symLPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symLPar) & ChrW(symA8)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symAA) & ChrW(symLPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symLPar) & ChrW(symAA)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symAC) & ChrW(symLPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symLPar) & ChrW(symAC)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA5) & ChrW(symRPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symRPar) & ChrW(symA5)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA6) & ChrW(symRPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symRPar) & ChrW(symA6)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA7) & ChrW(symRPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symRPar) & ChrW(symA7)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symA8) & ChrW(symRPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symRPar) & ChrW(symA8)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symAA) & ChrW(symRPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symRPar) & ChrW(symAA)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symAC) & ChrW(symRPar)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symRPar) & ChrW(symAC)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    'mazeyo tin tripli na mi sproxnei to gorgo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symRPar) & "[" & ChrW(symA5) & ChrW(symA6) & ChrW(symA7) & ChrW(symA8) & ChrW(symAA) & ChrW(symAC) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = -2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'epanafero tis aples sti BZ Byzantina
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symStar) & ChrW(symLPar) & ChrW(symRPar) & "]"
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = "^&"
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'telos, rythmizo ta kena
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symAA) & ChrW(symAC) & "]"
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = "^&"
            .Font.Spacing = 3
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symA5) & ChrW(symA7) & "]"
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = "^&"
            .Font.Spacing = 4
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symA6) & ChrW(symA8) & "]"
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = "^&"
            .Font.Spacing = 5
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub




Private Sub BZ_Polish_Palaia()
'
' The following 46 lines of code fix a psefiston that colides with
'  kentemata that are beneath an oxeia.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symC) & ChrW(symCE) & "]" & ChrW(symSlash)
        With .Replacement
            .Text = ChrW(symCE) & ChrW(symSlash)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symCE)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following 10 lines of code shrink the kentemata beneath an oxeia
'  when they are too close to an omalon beneath them.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symC) & ChrW(symLT)
        .Replacement.Text = ChrW(symCE) & ChrW(symLT)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
'
' The following 52 lines of code align a psefiston with an oxeia that is
'  beneath kentemata that have an ison or elaphron to the left of them
'  that are also above the oxeia.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symCapA) & ChrW(symCapH) & ChrW(symCapK) & ChrW(symCapL) & _
            ChrW(symColon) & "]" & ChrW(symSlash)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapA) & ChrW(symCapH) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'an akolouthei tromiko, strepto i paraklitiki, ferta konta
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symFull) & ChrW(symGT) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symGT)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash) & "[" & ChrW(symFull) & ChrW(symGT) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = False
            .Font.Spacing = 0
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symFull) & ChrW(symGT) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = 2
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False

'
' The following 58 lines of code reposition an aple that is beneath an antikenoma,
'  beneath a kentema beneath an oxeia.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symD) & ChrW(symM) & ChrW(symStar)
        .Replacement.Text = ChrW(symCapX) & ChrW(sym8)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symCapX) & ChrW(sym8)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym8)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Position = -4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
    Selection.WholeStory
    Selection.Font.Emboss = False
    
 
'
' The following 79 lines of code reposition an aple that is beneath an antikenoma,
'  beneath kentemata beneath an oxeia.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symC) & ChrW(symCE) & "]" & ChrW(symM) & ChrW(symStar)
        .Replacement.Text = ChrW(symCE) & ChrW(symStar) & ChrW(symM)
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symC) & ChrW(symCE) & "]" & ChrW(symStar) & ChrW(symM)
        With .Replacement
            .Text = ChrW(symCE) & ChrW(symStar) & ChrW(symM)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCE)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -6
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symStar)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Position = -3
            .Font.Spacing = 2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symM)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Position = -3
            .Font.Spacing = 4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub




Private Sub BZ_Polish_PalaiaGorgo()
'
' The following 358 lines of code add a dot to the right of a gorgon that is above the kentemata
'   when followed by (a vareia and) an ison
'
    
    'oxeia, ison, kentimata, gorgo, (vareia), ison
    'oxeia, apostrofos, kentimata, gorgo, (vareia),iso
    '...
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symR) & ChrW(symBackslash) & ChrW(symA) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symCapA) & ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & _
            ChrW(symCapL) & ChrW(symColon) & ChrW(symR) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapA) & ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & _
            ChrW(symCapL) & ChrW(symColon) & "]" & ChrW(symR) & ChrW(symBackslash) & ChrW(symA)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapA) & ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & _
            ChrW(symCapL) & ChrW(symColon) & "]" & ChrW(symR) & ChrW(symA)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symR)
        .Font.StrikeThrough = True
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = ChrW(symExcl)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False
    
'
'
'

    'oligon, kentimata, gorgo, vareia, iso
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symBackslash) & ChrW(symA) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symCapV) & ChrW(symD7) & ChrW(symE) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapV) & ChrW(symBackslash) & ChrW(symA)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapV) & ChrW(symA)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapV)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symD7) & ChrW(symE)
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7) & ChrW(symE) & ChrW(symBackslash) & ChrW(symA)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7) & ChrW(symE) & ChrW(symA)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE)
        .Font.StrikeThrough = True
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = ChrW(sym1)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(sym1)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7) & ChrW(sym1) & ChrW(symBackslash) & ChrW(symA)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7) & ChrW(sym1) & ChrW(symA)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Spacing = -2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym1)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.Position = 5
            .Font.Spacing = 2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False


'
' The following 92 lines of code align a parestigmeno gorgon that is above
'   kentemata that are above an oxeia.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symCapA) & ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & _
            ChrW(symCapL) & ChrW(symColon) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symExcl)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapA) & ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & _
            ChrW(symCapL) & ChrW(symColon) & "]" & ChrW(symExcl)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Engrave = True
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symExcl)
        .Font.Engrave = True
        With .Replacement
            .Text = "^&"
            .Font.Engrave = False
            .Font.Spacing = -4
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    With Selection.Font
        .Emboss = False
        .Engrave = False
    End With

'
' The following 10 lines of code shift a gorgon to the right
'  when placed beneath an oxeia.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symCapX) & ChrW(symCapE) & ChrW(symCapR) & "]"
        With .Replacement
            .Font.Emboss = True
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symS) & ChrW(symCapE) & ChrW(symCapR) & "]"
        With .Replacement
            .Font.Emboss = True
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapX) & ChrW(symS) & "]" & "[" & ChrW(symCapE) & ChrW(symCapR) & "]"
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Palaia"
            .Text = ChrW(symS) & ChrW(sym5)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
' The following 40 lines of code shift a gorgon down that is above an oxeia with a kentema on
'   top (i.e., a jump of three)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symF) & ChrW(symM) & ChrW(symR)
        .Replacement.Text = ChrW(symF) & ChrW(symR) & ChrW(symM)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symF) & ChrW(symM) & ChrW(symE)
        .Replacement.Text = ChrW(symF) & ChrW(symR) & ChrW(symM)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symF) & ChrW(symE)
        .Replacement.Text = ChrW(symF) & ChrW(symR)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symF) & ChrW(symR)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symR)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Position = -3
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following 46 lines of code shift a gorgon to its proper position when placed
' on an oxeia that has an ypsele and kentemata above it (a jump of 4+1)
'
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symZ) & ChrW(symE)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symZ)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 4
            .Font.Position = 4
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False

End Sub




Private Sub BZ_Polish_PalaiaKentimataOmalo()
'
' The following lines of code move the kentemata to the left and lower the omalon when they collide
' beneath an oxeia.
'
    'first rearrange the notes
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symU) & ChrW(symE) & ChrW(symW) & ChrW(symCapW) & ChrW(symLT) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symC) & ChrW(symD) & ChrW(symE) & ChrW(symW) & ChrW(symLT) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symC) & ChrW(symU) & ChrW(symLT)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symC) & ChrW(symLT) & ChrW(symU)
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD) & ChrW(symU) & ChrW(symLT)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symD) & ChrW(symLT) & ChrW(symU)
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symC) & ChrW(symE) & ChrW(symLT)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symC) & ChrW(symLT) & ChrW(symE)
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symC) & ChrW(symW) & ChrW(symLT)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symC) & ChrW(symLT) & ChrW(symW)
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symC) & ChrW(symCapW) & ChrW(symLT)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symC) & ChrW(symLT) & ChrW(symCapW)
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symE) & ChrW(symW) & ChrW(symCapW) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Font.Name = "BZ Palaia"
            .Text = "^&"
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symU)
        .Font.StrikeThrough = True
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = "^&"
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
            
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symD) & ChrW(symC) & ChrW(symLT) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Font.Name = "BZ Palaia"
            .Text = "^&"
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False

    
    'then, reposition the notes
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symC) & ChrW(symLT)
        With .Replacement
            .Text = ChrW(symCE) & ChrW(symLT)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symD) & ChrW(symCE) & "]" & ChrW(symLT)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symLT)
        .Font.Emboss = True
        With .Replacement
             .Text = "^&"
             .Font.Emboss = False
             .Font.Position = -2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following lines of text shift an omalon (omalon on the middle of two notes)
' down when it collides with a kentema or kentemata that are beneath an oxeia.
'
    'first bring the omalon before gorgon etc.
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symE) & ChrW(symComma)
        .Replacement.Text = ChrW(symComma) & ChrW(symE)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symComma)
        With .Replacement
            .Text = ChrW(symComma)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symE)
        With .Replacement
            .Text = ChrW(symE)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(symE)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
        .Font.Name = "BZ Palaia"
            .Text = ChrW(symComma)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = ChrW(symE)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symComma)
        With .Replacement
            .Font.Name = "BZ Loipa"
            .Text = ChrW(symComma)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symGrave) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & _
            ChrW(sym5) & ChrW(sym6) & ChrW(sym7) & ChrW(sym8) & ChrW(sym9) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symGrave) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(symGrave)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym1) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym1)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym2) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym2)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym3) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym3)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym4) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym4)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym5) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym5)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym6) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym6)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym7) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym7)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym8) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym8)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym9) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symComma) & ChrW(sym9)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Palaia"
            .Text = ChrW(symComma)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    
    
    'then fix it
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symC) & ChrW(symCE) & ChrW(symComma) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symA) & ChrW(symComma) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symC) & ChrW(symA) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
             .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
             
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symC)
        .Font.StrikeThrough = True
        With .Replacement
             .Text = ChrW(symCE)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
             
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
             
             
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symD) & ChrW(symCE) & "]" & ChrW(symA) & ChrW(symComma)
        .Font.Emboss = True
        With .Replacement
             .Text = "^&"
             .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symComma)
        .Font.StrikeThrough = True
        With .Replacement
             .Text = "^&"
             .Font.Position = -1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False
    
End Sub




Private Sub BZ_Polish_PalaiaTzakismaAples()
'
' The following 14 lines of code fix an orthographical error when the user puts a tzakisma beneath
'   a jump of four.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symG) & ChrW(symCapI)
        .Replacement.Text = ChrW(symG) & ChrW(symCapU)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symG)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symCapI)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symG) & ChrW(symCapI)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symG) & ChrW(symCapU)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symG)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapU)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Palaia"
            .Text = "^&"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False

'
' The following 45 lines of code shift a tzakisma to the right when
' it is to the right of an ypsele above an oligon (a jump of five
' held for two beats) so that they don't collide
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symS)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symU) & ChrW(symI) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symS) & "[" & ChrW(symU) & ChrW(symI) & "]"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symS)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = False
            .Font.Emboss = False
            .Font.Spacing = 2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symU) & ChrW(symI) & "]"
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symU)
            .Font.StrikeThrough = False
            .Font.Emboss = False
            .Font.Spacing = -2
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

End Sub





Private Sub BZ_Polish_PalaiaSyndesmos()
'
' The following 61 lines of code shift the syndesmos to the right when preceded by an oligon
'   with kentemata and a gorgon.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symCapV)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symQuestion)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapV) & ChrW(symQuestion)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symQuestion)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symRCuBr)
            .Font.StrikeThrough = False
            .Font.Name = "BZ Loipa"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False

'
' The following 65 lines of code replace a syndesmos followed by a psefiston
'  with special characters that replace these two symbols
'
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symSlash)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symQuestion)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash) & ChrW(symQuestion)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symQuestion) & ChrW(symSlash)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symQuestion) & ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symQuestion)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symLowLine)
            .Font.StrikeThrough = False
            .Font.Name = "BZ Palaia"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSlash)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(symMinus)
            .Font.StrikeThrough = False
            .Font.Name = "BZ Palaia"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False

'
' The following 30 lines of code shift the kentemata to the left when they
'      collide with a psefeston beneath an oligon.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symU)
        With .Replacement
            .Font.Name = "BZ Palaia"
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symC) & ChrW(symE) & ChrW(symSlash) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symC) & ChrW(symU) & ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symC) & ChrW(symSlash) & ChrW(symU)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symC) & ChrW(symE) & ChrW(symSlash)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symC) & ChrW(symSlash) & ChrW(symE)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symU)
        .Font.Emboss = True
        With .Replacement
            .Font.Name = "BZ Byzantina"
            .Text = "^&"
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symC) & ChrW(symU) & ChrW(symSlash)
        With .Replacement
            .Text = ChrW(symC) & ChrW(symSlash) & ChrW(symU)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symC) & ChrW(symSlash)
        With .Replacement
            .Text = ChrW(symCE) & ChrW(symSlash)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False


'
' The next lines of code shift the tzakisma beneath a petaste to its proper
'   position (more to the right)
'
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & _
          ChrW(symCapG) & ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & _
           ChrW(symDQuotes) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symCapI)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & _
          ChrW(symCapG) & ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & _
           ChrW(symDQuotes) & "]" & ChrW(symCapI)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapI)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym7)
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False
    
 '
 '
 '
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symCapI)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
         ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & _
         ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & ChrW(symCapC) & ChrW(symCapV) & _
         ChrW(symCapB) & ChrW(symCapN) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
         ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & _
         ChrW(symDQuotes) & ChrW(symCapZ) & ChrW(symCapX) & ChrW(symCapC) & ChrW(symCapV) & _
         ChrW(symCapB) & ChrW(symCapN) & "]" & ChrW(symCapI)
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapI)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ChrW(sym7)
            .Font.StrikeThrough = False
            .Font.Emboss = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.Emboss = False
    Selection.Font.StrikeThrough = False
    
End Sub




Private Sub BZ_Polish_RepositionCompinations1()
'
' The following lines of code reset the position of components of combinations.
' These positions would be lost if you ran PolishNotes after MakeNotesRed,
' therefore I reset them.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6) & ChrW(symExcl)
        .Font.Name = "BZ Loipa"
        With .Replacement
            .Text = ChrW(symD6) & ChrW(symExcl)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -15
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symExcl)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 15
            .Font.Position = 1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oligon, yporoi, digorgo-stigmi aristera, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6) & ChrW(symSharp)
        .Font.Name = "BZ Loipa"
        With .Replacement
            .Text = ChrW(symD6) & ChrW(symSharp)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -16
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSharp)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 16
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oligon, yporroi, kentimata, digorgo-stigmi deksia
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6) & ChrW(symPercent)
        .Font.Name = "BZ Loipa"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symPercent)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -17
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symPercent)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 17
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oligon, yporroi, kentimata, trigorgo-stigmi aristera
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symD6) & ChrW(symAmber)
        With .Replacement
            .Text = ChrW(symD6) & ChrW(symAmber)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -18
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symAmber)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 18
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oligon, yporroi, kentimata, trigorgo-stigmi deksia
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symD6) & ChrW(symLPar)
        With .Replacement
            .Text = ChrW(symD6) & ChrW(symLPar)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -18
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symLPar)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 18
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub




Private Sub BZ_Polish_RepositionCompinations2()
'
' The following lines of code reset the position of components of combinations.
' These positions would be lost if you ran PolishNotes after MakeNotesRed,
' therefore I reset them.
'
    'oxeia, kentimata, gorgo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7) & ChrW(symE)
        .Font.Name = "BZ Palaia"
        With .Replacement
            .Text = ChrW(symD7) & ChrW(symE)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 1
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oxeia, kentimata, digorgo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7) & ChrW(symCapT)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD7) & ChrW(symCapT)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -8
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapT)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 8
        .Font.Position = -1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oxeia, yporroi, gorgo, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6) & ChrW(symE)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symE)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -8
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 8
        .Font.Position = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oxeia, yporroi, digorgo, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6) & ChrW(symT)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symT)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -10
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symT)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 10
        .Font.Position = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oxeia, yporroi, trigorgo, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6) & ChrW(symY)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symY)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -12
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symY)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 12
        .Font.Position = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oxeia, yporroi, kentimata, digorgo-stigmi aristera
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6) & ChrW(symD9)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symD9)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -11
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD9)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = ChrW(sym3)
        .Font.Emboss = False
        .Font.Spacing = 11
        .Font.Position = 5
        .Font.Name = "BZ Loipa"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oxeia, yporroi, kentimata, trigorgo-stigmi aristera
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6) & ChrW(symDA)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symDA)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -13
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symDA)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = ChrW(sym7)
        .Font.Emboss = False
        .Font.Spacing = 13
        .Font.Position = 5
        .Font.Name = "BZ Loipa"
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oxeia, yporroi, gorgo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symQuote) & ChrW(symE)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symQuote) & ChrW(symE)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symQuote)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 1
        .Font.Position = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub
    



Private Sub BZ_Justify1()
    
' Justify Macro
' Macro written by Stefanos Souldatos
'
' The following macro inserts spaces in the BZ font only where necessary
' Then, it replaces spaces in the BZ font with spaces using the Tahoma font
' with the font size set at "1", and then it justifies the spacing.
' (It is necessary to change the font name before justification is possible)
    
    'add one space after every symbol
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "?"
        With .Replacement
            .Text = "^&" & ChrW(symSpace)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Fthores"
        .Text = "?"
        With .Replacement
            .Text = "^&" & ChrW(symSpace)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = "?"
        With .Replacement
            .Text = "^&" & ChrW(symSpace)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "?"
        With .Replacement
            .Text = "^&" & ChrW(symSpace)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "?"
        With .Replacement
            .Text = "^&" & ChrW(symSpace)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
'
'delete spaces before backtracking characters (BZ Byzantina)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symTilde) & ChrW(symExcl) & ChrW(symAt) & ChrW(symSharp) & _
            ChrW(symDollar) & ChrW(symPercent) & ChrW(symCircum) & ChrW(symAmber) & ChrW(symStar) & _
            ChrW(symLPar) & ChrW(symRPar) & ChrW(symVertical) & _
            ChrW(symGrave) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & ChrW(sym5) & _
            ChrW(sym6) & ChrW(sym7) & ChrW(sym8) & ChrW(sym9) & ChrW(sym0) & _
            ChrW(symCapW) & ChrW(symCapE) & ChrW(symCapR) & ChrW(symCapT) & ChrW(symCapY) & _
            ChrW(symCapU) & ChrW(symCapI) & ChrW(symRCuBr) & _
            ChrW(symW) & ChrW(symE) & ChrW(symR) & ChrW(symT) & ChrW(symY) & ChrW(symU) & _
            ChrW(symI) & ChrW(symRSqBr) & _
            ChrW(symColon) & ChrW(symQuote) & _
            ChrW(symCapC) & ChrW(symCapB) & ChrW(symCapN) & ChrW(symCapM) & ChrW(symLT) & _
            ChrW(symGT) & ChrW(symQuestion) & _
            ChrW(symX) & ChrW(symB) & ChrW(symN) & ChrW(symM) & ChrW(symComma) & ChrW(symFull) & _
            ChrW(symSlash) & ChrW(symCopyright) & _
            ChrW(sym91) & ChrW(symA5) & ChrW(symA6) & ChrW(symA7) & ChrW(symD0) & ChrW(symE4) & _
            ChrW(symD8) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?"
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
            .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False
    
    
'
'delete spaces after forward tracking characters (BZ Byzantina)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symVertical) & ChrW(symRSqBr) & ChrW(symRCuBr) & ChrW(symBackslash) & _
            ChrW(symQ) & ChrW(symCapQ) & ChrW(symO) & ChrW(symCapO) & ChrW(symP) & ChrW(symCapP) & _
            ChrW(symLSqBr) & ChrW(symLCuBr) & ChrW(symA5) & ChrW(symA6) & ChrW(symA7) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "?" & ChrW(symSpace)
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
            .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False
    
'
'backtracking characters with two symbols (eteron)
'
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symQuestion)
        With .Replacement
            .Text = ChrW(symFF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?" & ChrW(symFF)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFF)
        With .Replacement
            .Text = ChrW(symQuestion)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    
    
'
'backtracking characters with two symbols (omalon)
'
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symComma)
        With .Replacement
            .Text = ChrW(symFF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?" & ChrW(symFF)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFF)
        With .Replacement
            .Text = ChrW(symComma)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    
    
    
    
'
'delete spaces before backtracking characters (BZ Fthores)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Fthores"
        .Text = "[!" & ChrW(symAmber) & ChrW(sym7) & ChrW(symCapY) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?"
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
            .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False
    
    
'
'delete spaces after forward tracking characters (BZ Fthores)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Fthores"
        .Text = "[" & ChrW(symPercent) & ChrW(symCircum) & ChrW(sym5) & ChrW(sym6) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "?" & ChrW(symSpace)
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
            .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False
    
End Sub




Private Sub BZ_Justify2()
'
'delete spaces before backtracking characters (BZ Ison)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = "?"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?"
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
            .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False
    
    
'
'backtracking characters with two symbols (yfen1)
'
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symZ)
        With .Replacement
            .Text = ChrW(symFF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?" & ChrW(symFF)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFF)
        With .Replacement
            .Text = ChrW(symZ)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    
'
'backtracking characters with two symbols (yfen2)
'
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapZ)
        With .Replacement
            .Text = ChrW(symFF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?" & ChrW(symFF)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFF)
        With .Replacement
            .Text = ChrW(symCapZ)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    
'
'backtracking characters with two symbols (yfen3)
'
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symX)
        With .Replacement
            .Text = ChrW(symFF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?" & ChrW(symFF)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFF)
        With .Replacement
            .Text = ChrW(symX)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False

'
'backtracking characters with two symbols (yfen4)
'
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = ChrW(symCapX)
        With .Replacement
            .Text = ChrW(symFF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?" & ChrW(symFF)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFF)
        With .Replacement
            .Text = ChrW(symCapX)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False

    
    
'
'delete spaces before backtracking characters (BZ Loipa)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symTilde) & ChrW(symExcl) & ChrW(symAt) & ChrW(symSharp) & _
            ChrW(symDollar) & ChrW(symPercent) & ChrW(symCircum) & ChrW(symAmber) & ChrW(symStar) & _
            ChrW(symLPar) & ChrW(symVertical) & _
            ChrW(symGrave) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & ChrW(sym5) & _
            ChrW(sym6) & ChrW(sym7) & ChrW(sym8) & ChrW(sym9) & _
            ChrW(symCapQ) & ChrW(symRCuBr) & _
            ChrW(symQ) & ChrW(symRSqBr) & _
            ChrW(symCapM) & ChrW(symLT) & ChrW(symGT) & _
            ChrW(symZ) & _
            ChrW(symA1) & ChrW(symA2) & ChrW(symA3) & ChrW(symA5) & ChrW(symA6) & ChrW(symA7) & _
            ChrW(symA8) & ChrW(symAA) & ChrW(symAB) & ChrW(symAC) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?"
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
            .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False
    
    
'
'delete spaces after forward tracking characters (BZ Loipa)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symSlash)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "?" & ChrW(symSpace)
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
            .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False

End Sub




Private Sub BZ_Justify3()
'
'backtracking characters with two symbols (eteron - BZ Loipa)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symRCuBr)
        With .Replacement
            .Text = ChrW(symFF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?" & ChrW(symFF)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFF)
        With .Replacement
            .Text = ChrW(symRCuBr)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    
    
'
'backtracking characters with two symbols (omalon - BZ Loipa)
'
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symRSqBr)
        With .Replacement
            .Text = ChrW(symFF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?" & ChrW(symFF)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFF)
        With .Replacement
            .Text = ChrW(symRSqBr)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False



    
'
'delete spaces before backtracking characters (BZ Palaia)
'
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symDollar) & ChrW(symStar) & ChrW(symLPar) & ChrW(symRPar) & _
            ChrW(symLowLine) & ChrW(symPlus) & _
            ChrW(sym4) & ChrW(sym5) & ChrW(sym7) & ChrW(sym8) & ChrW(sym9) & ChrW(sym0) & _
            ChrW(symMinus) & ChrW(symEq) & _
            ChrW(symCapQ) & ChrW(symCapW) & ChrW(symCapE) & ChrW(symCapR) & ChrW(symCapT) & _
            ChrW(symCapY) & ChrW(symCapU) & ChrW(symCapI) & _
            ChrW(symW) & ChrW(symE) & ChrW(symR) & ChrW(symT) & ChrW(symY) & ChrW(symU) & _
            ChrW(symI) & _
            ChrW(symCapM) & ChrW(symLT) & ChrW(symGT) & _
            ChrW(symX) & ChrW(symM) & ChrW(symComma) & ChrW(symFull) & ChrW(symSlash) & _
            ChrW(sym91) & ChrW(symD0) & ChrW(symE4) & ChrW(symD8) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?"
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
            .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False
    
    
'
'delete spaces after forward tracking characters (BZ Palaia)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symQ) & ChrW(symCapC) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "?" & ChrW(symSpace)
            .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
            .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False
    
'
'backtracking characters with two symbols (omalon - BZ Palaia)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symComma)
        With .Replacement
            .Text = ChrW(symFF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?" & ChrW(symFF)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFF)
        With .Replacement
            .Text = ChrW(symComma)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False
    
    
'
'backtracking characters with two symbols (eteron me psifisto - BZ Loipa)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = ChrW(symLowLine)
        With .Replacement
            .Text = ChrW(symFF)
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace) & "?" & ChrW(symFF)
        With .Replacement
            .Text = "^&"
            .Font.StrikeThrough = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.StrikeThrough = True
        With .Replacement
            .Text = ""
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symFF)
        With .Replacement
            .Text = ChrW(symLowLine)
            .Font.StrikeThrough = False
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.WholeStory
    Selection.Font.StrikeThrough = False
    Selection.Font.Emboss = False

'
'kobei to keno prin apo apostrofo me gorgo i synexes elafron
'

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSpace) & ChrW(symJ) & "[" & ChrW(symR) & ChrW(symCapR) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSpace) & "[" & ChrW(symH) & ChrW(symCapH) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSpace) & "[" & ChrW(symCapO) & ChrW(symCapP) & ChrW(symLCuBr) & "]" & _
          "[" & ChrW(symH) & ChrW(symCapH) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = ChrW(symSpace) & ChrW(symCapP) & "[" & ChrW(symA5) & ChrW(symA6) & ChrW(symA7) & "]" & _
          "[" & ChrW(symH) & ChrW(symCapH) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.Emboss = True
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

'
'kobei to keno anamesa se petasti-klasma kai apostrofos-psifisto-gorgo
'

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(sym91) & ChrW(symSpace) & ChrW(symJ) & ChrW(symSlash) & ChrW(symR)
        With .Replacement
            .Text = "^&"
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        .Font.Emboss = True
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Emboss = False

' The following lines replace spaces in the BZ font with spaces using the Tahoma font
'   with the font size set at "1", and then it justifies the spacing. (It is necessary to change
'   the font name before justification is possible.
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSpace)
        With .Replacement
            .Text = " "
            .Font.Size = 1
            .Font.Name = "Tahoma"
            .Font.Spacing = 0
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify

End Sub




Sub BZ_MakeNotesRed()
    BZ_Initialize_Symbol_Codes
    BZ_MakeAllBlack
    BZ_MakeNotesRed1
    BZ_MakeNotesRed2
End Sub




Private Sub BZ_MakeNotesRed1()

' MakeNotesRed Macro
' This macro makes all the appropriate notes red. In particular it changes every instance of the
'     gorgon, digorgon, trigorgon, fthores, elxeis, tempo marks, martyries, isokratema,
'     and all the older Byzantine music symbols, such as the isaki, tromikon, lygisma, etc.
'
' The following 90 lines of code make all the aforementioned characters red, except for the
'     gorgon, the digorgon, and the trigorgon.
'
    
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
        .Replacement.Text = "^&"
        .Replacement.Font.Color = redColor
    End With



'BZ Byzantina
Selection.Find.Font.Name = "BZ Byzantina"

    'martyries
    Selection.Find.Text = "[" & ChrW(symTilde) & ChrW(symGrave) & ChrW(symExcl) & ChrW(symAt) & _
     ChrW(symSharp) & ChrW(symDollar) & ChrW(symPercent) & ChrW(symCircum) & _
     ChrW(symAmber) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & ChrW(sym5) & _
     ChrW(sym6) & ChrW(sym7) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'dieseis-yfeseis
    Selection.Find.Text = "[" & ChrW(symT) & ChrW(symY) & ChrW(symB) & ChrW(symN) & _
     ChrW(symCapT) & ChrW(symCapY) & ChrW(symCapB) & ChrW(symCapN) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'eteron, tromikon-ekstrepton, korona
    Selection.Find.Text = "[" & ChrW(symQuestion) & ChrW(symGT) & ChrW(symFull) & ChrW(symCopyright) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll

    'isaki
    Selection.Find.Text = "[" & ChrW(symQ) & ChrW(symCapQ) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll

    'metra-diastoles
    Selection.Find.Text = "[" & ChrW(symO) & ChrW(symP) & ChrW(symLSqBr) & ChrW(symRSqBr) & ChrW(symVertical) & _
     ChrW(symCapO) & ChrW(symCapP) & ChrW(symLCuBr) & ChrW(symRCuBr) & ChrW(symA5) & ChrW(symA6) & ChrW(symA7) & _
     ChrW(symA8) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll

    'korona
    Selection.Find.Text = ChrW(symCopyright)
    Selection.Find.Execute Replace:=wdReplaceAll


'BZ Fthores
Selection.Find.Font.Name = "BZ Fthores"
    
    'ola ektos apo tis anapnoes
    Selection.Find.Text = "[!" & ChrW(symQuote) & ChrW(symDQuotes) & ChrW(symCopyright) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll



'BZ Ison
Selection.Find.Font.Name = "BZ Ison"

    'ola ektos apo ta yfen
    Selection.Find.Text = "[!" & ChrW(symZ) & ChrW(symX) & ChrW(symCapZ) & ChrW(symCapX) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll


'BZ Loipa
Selection.Find.Font.Name = "BZ Loipa"

    'eteron
    Selection.Find.Text = ChrW(symRCuBr)
    Selection.Find.Execute Replace:=wdReplaceAll

    'korones
    Selection.Find.Text = "[" & ChrW(symCapM) & ChrW(symLT) & ChrW(symGT) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll


'BZ Palaia
Selection.Find.Font.Name = "BZ Palaia"

    'xroniki agori
    Selection.Find.Text = "[" & ChrW(symTilde) & ChrW(symExcl) & ChrW(symAt) & ChrW(symSharp) & _
     ChrW(symGrave) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'palia simadia
    Selection.Find.Text = "[" & ChrW(symRPar) & ChrW(sym0) & ChrW(symLowLine) & ChrW(symPlus) & _
     ChrW(symEq) & ChrW(symFull) & ChrW(symGT) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll
    

' The following lines of code split compound characters containing a gorgon, digorgon, or a
'    trigorgon into two separate characters, so that the gorgon part of it can latter be made red.

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

'BZ Byzantina
Selection.Find.Font.Name = "BZ Byzantina"

    'oligon, kentimata, gorgo
    Selection.Find.Text = ChrW(symCapV)
    Selection.Find.Replacement.Text = ChrW(symD7) & ChrW(symD8)
    Selection.Find.Execute Replace:=wdReplaceAll

    'yporroi, gorgo
    Selection.Find.Text = ChrW(symColon)
    Selection.Find.Replacement.Text = ChrW(symQuote) & ChrW(symD0)
    Selection.Find.Execute Replace:=wdReplaceAll
    
    

'BZ Loipa
Selection.Find.Font.Name = "BZ Loipa"

    'yporroi, gorgo-stigmi aristera
    Selection.Find.Text = ChrW(symW)
    Selection.Find.Replacement.Text = ChrW(symA4) & ChrW(symAA)
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'yporroi, gorgo-stigmi deksia
    Selection.Find.Text = ChrW(symCapW)
    Selection.Find.Replacement.Text = ChrW(symA4) & ChrW(symAC)
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'yporroi, digorgo
    Selection.Find.Text = ChrW(symE)
    Selection.Find.Replacement.Text = ChrW(symA4) & ChrW(symA5)
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'yporroi, digorgo-stigmi aristera
    Selection.Find.Text = ChrW(symCapE)
    Selection.Find.Replacement.Text = ChrW(symA4) & ChrW(symA7)
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'yporroi, trigorgo
    Selection.Find.Text = ChrW(symR)
    Selection.Find.Replacement.Text = ChrW(symA4) & ChrW(symA8)
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'yporroi, trigorgo-stigmi aristera
    Selection.Find.Text = ChrW(symCapR)
    Selection.Find.Replacement.Text = ChrW(symA4) & ChrW(symA6)
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    'oligon, kentimata, digorgo
    Selection.Find.Text = ChrW(symSlash)
    Selection.Find.Replacement.Text = ChrW(symD7) & ChrW(symE4)
    Selection.Find.Replacement.Font.Name = "BZ Byzantina"
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Font.Name = "BZ Loipa"
    
    
    'oligon, yporoi, gorgo, kentimata
    Selection.Find.Text = ChrW(symCapT)
    Selection.Find.Replacement.Text = ChrW(symT) & ChrW(symAB)
    Selection.Find.Execute Replace:=wdReplaceAll
    
    'oligon, yporoi, gorgo-stigmi aristera, kentimata
    Selection.Find.Text = ChrW(symU)
    Selection.Find.Replacement.Text = ChrW(symT) & ChrW(symA1)
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    'oligon, yporoi, gorgo-stigmi deksia, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapU)
        .Font.Name = "BZ Loipa"
        With .Replacement
            .Text = ChrW(symD6) & ChrW(symExcl)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -15
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symExcl)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 15
            .Font.Position = 1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    'oligon, yporoi, digorgo, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symY)
        .Replacement.Text = ChrW(symD6) & ChrW(symA3)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    'oligon, yporoi, digorgo-stigmi aristera, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symI)
        .Font.Name = "BZ Loipa"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symSharp)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -16
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symSharp)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 16
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'oligon, yporroi, kentimata, digorgo-stigmi deksia
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapI)
        .Font.Name = "BZ Loipa"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symPercent)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -17
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symPercent)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 17
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    'oligon, yporoi, trigorgo, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symCapY)
        .Replacement.Text = ChrW(symD6) & ChrW(symA2)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'oligon, yporroi, kentimata, trigorgo-stigmi aristera
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = ChrW(symO)
        With .Replacement
            .Text = ChrW(symD6) & ChrW(symAmber)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -18
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symAmber)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 18
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'oligon, yporroi, kentimata, trigorgo-stigmi deksia
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapO)
        .Font.Name = "BZ Loipa"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symLPar)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -18
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symLPar)
        .Font.Name = "BZ Loipa"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 18
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub




Private Sub BZ_MakeNotesRed2()

' MakeNotesRed Macro
' This macro makes all the appropriate notes red. In particular it changes every instance of the
'     gorgon, digorgon, trigorgon, fthores, elxeis, tempo marks, martyries, isokratema,
'     and all the older Byzantine music symbols, such as the isaki, tromikon, lygisma, etc.
'
' The following 90 lines of code make all the aforementioned characters red, except for the
'     gorgon, the digorgon, and the trigorgon.
'

'BZ Palaia

    'oxeia, kentimata, gorgo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapV)
        .Font.Name = "BZ Palaia"
        With .Replacement
            .Text = ChrW(symD7) & ChrW(symE)
            .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = -1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
            .Text = "^&"
            .Font.Emboss = False
            .Font.Spacing = 1
            .Font.Position = 3
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
'
'
    'oxeia, kentimata, digorgo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapC)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD7) & ChrW(symCapT)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD7)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -8
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapT)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 8
        .Font.Position = -1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
'
'
    'oxeia, yporroi, gorgo, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapO)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symE)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -8
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 8
        .Font.Position = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
'
'
    'oxeia, yporroi, digorgo, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symP)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symT)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -10
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symT)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 10
        .Font.Position = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    
   
    'oxeia, yporroi, trigorgo, kentimata
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symLSqBr)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symY)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -12
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symY)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 12
        .Font.Position = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
'
'
    'oxeia, yporroi, kentimata, digorgo-stigmi aristera
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symCapP)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symD9)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -11
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD9)
        .Font.Emboss = True
        With .Replacement
            .Text = ChrW(symD9)
            .Font.Emboss = False
            .Font.Spacing = 11
            .Font.Position = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


'
'
'
    'oxeia, yporroi, kentimata, trigorgo-stigmi aristera
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symLCuBr)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symD6) & ChrW(symDA)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symD6)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -13
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symDA)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = ChrW(symDA)
        .Font.Emboss = False
        .Font.Spacing = 13
        .Font.Position = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
  
    'oxeia, yporroi, gorgo
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symDQuotes)
        .Font.Name = "BZ Palaia"
        With .Replacement
        .Text = ChrW(symQuote) & ChrW(symE)
        .Font.Emboss = True
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symQuote)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = -1
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'''continues
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(symE)
        .Font.Name = "BZ Palaia"
        .Font.Emboss = True
        With .Replacement
        .Text = "^&"
        .Font.Emboss = False
        .Font.Spacing = 1
        .Font.Position = 5
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll




' The following 86 lines of code make all gorgons, digorgons, and trigorgons red.
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symCapW) & ChrW(symW) & ChrW(symCapE) & ChrW(symE) & _
             ChrW(symCapR) & ChrW(symR) & ChrW(symD0) & ChrW(symE4) & ChrW(symD8) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Color = redColor
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Loipa"
        .Text = "[" & ChrW(symGrave) & ChrW(symTilde) & ChrW(symQ) & ChrW(symCapQ) & ChrW(symExcl) & _
         ChrW(symAt) & ChrW(symSharp) & ChrW(symDollar) & ChrW(symPercent) & ChrW(symCircum) & _
         ChrW(symAmber) & ChrW(symStar) & ChrW(symLPar) & ChrW(sym1) & ChrW(sym2) & _
         ChrW(sym3) & ChrW(sym4) & ChrW(sym5) & ChrW(sym6) & ChrW(sym7) & ChrW(sym8) & ChrW(sym9) & _
         ChrW(symA1) & ChrW(symA2) & ChrW(symA3) & ChrW(symA5) & ChrW(symA6) & ChrW(symA7) & _
         ChrW(symA8) & ChrW(symAA) & ChrW(symAB) & ChrW(symAC) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Color = redColor
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Palaia"
        .Text = "[" & ChrW(symDollar) & ChrW(sym4) & ChrW(sym5) & ChrW(symW) & ChrW(symE) & _
        ChrW(symR) & ChrW(symT) & ChrW(symY) & ChrW(symCapW) & ChrW(symCapE) & _
        ChrW(symCapR) & ChrW(symCapT) & ChrW(symCapY) & ChrW(symD0) & ChrW(symE4) & ChrW(symD8) & _
        ChrW(symD9) & ChrW(symDA) & "]"
        With .Replacement
            .Text = "^&"
            .Font.Color = redColor
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
        .MatchCase = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub




Sub BZ_MakeMartyriesRed()
'
' MakeMartyriesRed Macro
'
' This little macro makes all martyriessymbols red.
'
    
    BZ_Initialize_Symbol_Codes
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        
        
        .Font.Name = "BZ Byzantina"
        .Text = "[" & ChrW(symTilde) & ChrW(symGrave) & ChrW(symExcl) & ChrW(symAt) & _
         ChrW(symSharp) & ChrW(symDollar) & ChrW(symPercent) & ChrW(symCircum) & _
         ChrW(symAmber) & ChrW(sym1) & ChrW(sym2) & ChrW(sym3) & ChrW(sym4) & ChrW(sym5) & _
         ChrW(sym6) & ChrW(sym7) & "]"
        
        With .Replacement
        .Text = "^&"
        .Font.Color = redColor
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


'BZ Byzantina
Selection.Find.Font.Name = "BZ Fthores"

    'martyries
    Selection.Find.Text = "[" & ChrW(symVertical) & ChrW(symBackslash) & ChrW(symA) & ChrW(symS) & _
     ChrW(symZ) & ChrW(symX) & ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapZ) & ChrW(symCapX) & "]"
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub




Sub BZ_MakeIsonRed()
'
' MakeIsonRed Macro
'
' This little macro makes all isokratema symbols red.
'
    
    BZ_Initialize_Symbol_Codes
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = "[" & ChrW(symA) & ChrW(symS) & ChrW(symD) & ChrW(symF) & ChrW(symG) & _
         ChrW(symH) & ChrW(symJ) & ChrW(symK) & ChrW(symL) & ChrW(symSemi) & ChrW(symQuote) & _
         ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
         ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & ChrW(symDQuotes) & _
         ChrW(symE) & ChrW(symR) & ChrW(symT) & ChrW(symY) & ChrW(symU) & ChrW(symI) & ChrW(symO) & _
         ChrW(symCapE) & ChrW(symCapR) & ChrW(symCapT) & ChrW(symCapY) & ChrW(symCapU) & ChrW(symCapI) & ChrW(symCapO) & "]"
        
        With .Replacement
        .Text = "^&"
        .Font.Color = redColor
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub




Sub BZ_MakeIsonBlue()
'
' MakeIsonBlue Macro
' Macro recorded 3/25/2005 by Father Ephraim
'
' This little macro makes all isokratema symbols blue.
'
    
    BZ_Initialize_Symbol_Codes
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = "[" & ChrW(symA) & ChrW(symS) & ChrW(symD) & ChrW(symF) & ChrW(symG) & _
         ChrW(symH) & ChrW(symJ) & ChrW(symK) & ChrW(symL) & ChrW(symSemi) & ChrW(symQuote) & _
         ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
         ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & ChrW(symDQuotes) & _
         ChrW(symE) & ChrW(symR) & ChrW(symT) & ChrW(symY) & ChrW(symU) & ChrW(symI) & ChrW(symO) & _
         ChrW(symCapE) & ChrW(symCapR) & ChrW(symCapT) & ChrW(symCapY) & ChrW(symCapU) & ChrW(symCapI) & ChrW(symCapO) & "]"
        
        With .Replacement
        .Text = "^&"
        .Font.Color = 16729600
'        .Font.Color = wdColorBlue
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub




Sub BZ_MakeIsonGreen()
'
' MakeIsonGreen Macro
' Macro recorded 3/25/2005 by Father Ephraim
'
' This little macro makes all isokratema symbols green.
'
    BZ_Initialize_Symbol_Codes
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Name = "BZ Ison"
        .Text = "[" & ChrW(symA) & ChrW(symS) & ChrW(symD) & ChrW(symF) & ChrW(symG) & _
         ChrW(symH) & ChrW(symJ) & ChrW(symK) & ChrW(symL) & ChrW(symSemi) & ChrW(symQuote) & _
         ChrW(symCapA) & ChrW(symCapS) & ChrW(symCapD) & ChrW(symCapF) & ChrW(symCapG) & _
         ChrW(symCapH) & ChrW(symCapJ) & ChrW(symCapK) & ChrW(symCapL) & ChrW(symColon) & ChrW(symDQuotes) & _
         ChrW(symE) & ChrW(symR) & ChrW(symT) & ChrW(symY) & ChrW(symU) & ChrW(symI) & ChrW(symO) & _
         ChrW(symCapE) & ChrW(symCapR) & ChrW(symCapT) & ChrW(symCapY) & ChrW(symCapU) & ChrW(symCapI) & ChrW(symCapO) & "]"
        With .Replacement
        .Text = "^&"
        .Font.Color = wdColorGreen
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub




Sub BZ_MakeAllBlack()
'
' make_all_black Macro
' Macro recorded 3/8/2006 by Stefanos Souldatos
'
    Selection.WholeStory
    Selection.Font.Color = wdColorBlack
End Sub




Sub BZ_ExpandLine()
'
' ExpandLine Macro
' Macro recorded 2/2/2005 by Father Ephraim
'
' Each time the following little macro is run, it will increase the font size of every small
'  character in the line of text where the cursor is by a half point. This is useful after
'  running the "Justify" macro for a file with Byzantine notation, because the "Justify"
'  macro increases the spacing between notes on all the lines except for the last
'  line. By running this macro once or twice on that last line, you can make its spacing
'  look similar to that of the other lines. This macro is also useful for increasing the
'  spacing on lines that have syllables with many letters associated with notes that
'  do not take up a lot of space horizontally.
'
Dim y
    
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend

    For Each y In Selection.Characters
        If y.Font.Size < 10 Then
            y.Font.Size = y.Font.Size + 0.5
        End If
    Next
End Sub




Sub BZ_CompressLine()
' CompressLine Macro
' Macro recorded 2/2/2005 by Father Ephraim
'
' This little macro undoes what the "ExpandLine" macro does. In other words, it shrinks by a half
'   point every blank space which had been expanded by that macro.
'
Dim y
    
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend

    For Each y In Selection.Characters
        If y.Font.Size < 11 And y.Font.Size > 1 Then
            y.Font.Size = y.Font.Size - 0.5
        End If
    Next
End Sub




Sub BZ_MoveUp()
'
' MoveUp Macro
' Macro recorded 1/3/2005 by Father Ephraim
'
Dim y
   
    For Each y In Selection.Characters
        y.Font.Position = y.Font.Position + 1
    Next

End Sub




Sub BZ_MoveDown()
'
' MoveDown Macro
' Macro recorded 1/3/2005 by Father Ephraim
'
Dim y
    
    For Each y In Selection.Characters
        y.Font.Position = y.Font.Position - 1
    Next

End Sub




Sub BZ_MoveLeft()
'
' MoveLeft Macro
' Macro recorded 1/3/2005 by Father Ephraim
'
Dim y

    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
    For Each y In Selection.Characters
        y.Font.Spacing = y.Font.Spacing - 1
    Next
    
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
    For Each y In Selection.Characters
        y.Font.Spacing = y.Font.Spacing + 1
    Next
    
End Sub




Sub BZ_MoveRight()
'
' MoveRight Macro
' Macro recorded 1/3/2005 by Father Ephraim
'
Dim y

    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
    For Each y In Selection.Characters
        y.Font.Spacing = y.Font.Spacing + 1
    Next
    
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
    For Each y In Selection.Characters
        y.Font.Spacing = y.Font.Spacing - 1
    Next
    
End Sub




Sub BZ_FormatTextbox()
'
' textbox Macro
' Macro recorded 9/3/2006 by Stefanos Souldatos
'
    
    Selection.Font.Name = "Palatino Linotype"
    Selection.Font.Size = 12
    Selection.Font.Bold = True
    
    With Selection.ParagraphFormat
        .LeftIndent = InchesToPoints(0)
        .RightIndent = InchesToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 60
        .Alignment = wdAlignParagraphLeft
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = InchesToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
    End With
    
    Selection.WholeStory
    
    With Selection.ShapeRange
        .Fill.Visible = False 'msoFalse
        .Line.Visible = msoFalse
        .LockAspectRatio = msoFalse
        
        .TextFrame.MarginLeft = 0#
        .TextFrame.MarginRight = 0#
        .TextFrame.MarginTop = 0#
        .TextFrame.MarginBottom = 0#
        
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .Top = CentimetersToPoints(1.9)
        .Height = 730
        .Width = 470
        .Left = -5
        
        .LockAnchor = False
        .WrapFormat.AllowOverlap = True
        .WrapFormat.Side = wdWrapBoth
        .WrapFormat.DistanceTop = CentimetersToPoints(0)
        .WrapFormat.DistanceBottom = CentimetersToPoints(0)
        .WrapFormat.DistanceLeft = CentimetersToPoints(0) '(0.32)
        .WrapFormat.DistanceRight = CentimetersToPoints(0) '(0.32)
        .WrapFormat.Type = 3
        
        .ZOrder 4
        .TextFrame.AutoSize = False
        .TextFrame.WordWrap = True
    End With
        
End Sub




Sub BZ_MakeSelectionRed()
'
' BZ_MakeSelectionRed Macro
' Macro created by Stefanos Souldatos
'
' This little macro makes the selected text red (used for the arxigramma or other text)
'
    BZ_Initialize_Global_Variables
    Selection.Font.Color = redColor

End Sub
