Sub PsalticaToBraille() ' ' Macro recorded 7/17/2010 by Father Ephraim ' ' Last updated: 7/25/2010 ' ' This macro will convert more than 99% of the neumes in a document written with ' the "EZ Psaltica" font package into Braille Byzantine Music notation. There ' are a few extremely rare neumes that it does not convert (such as combos with ' a digorgon with a dot in the middle of it). The major imperfection of this ' macro is that it only converts the neumes into braille and not the lyrics. ' These must be converted manually. Another related major imperfection is that ' since it doesn't know where syllables end and begin, it doesn't know which ' neumes do need to be separated by spaces and which don't, so it inserts ' spaces between all of them, and then the user is expected to delete the extra ' ones. A minor imperfection of this macro is that it sometimes brailles fthoras ' and accidentals on the wrong side of a braille neume. A user must examine the ' output of this macro and correct any such inaccurate placements. Sorry! ' ' This macro is broken down into several separate parts because MS Visual Basic ' can't handle subroutines that have more than about 2,500 lines of code. ' The SwitchLeft function and ArrangeFthoras Sub are also utilized by these macros. ' Unsplit ' This rejoins compound neumes that have been split ' by the MakeNotesRed macro. PsalticaToBraille1 PsalticaToBraille2 PsalticaToBraille3 PsalticaToBraille4 End Sub Sub PsalticaToBraille1() Dim i, j j = 10 ' j is number of consecutive double-spaces to eliminate (set to 10 when done) ' The following 4 lines make all neumes black Selection.WholeStory Selection.font.Color = wdColorAutomatic Selection.font.size = 20 Selection.font.Position = 0 Selection.font.Spacing = 0 Selection.font.Scaling = 100 Selection.ParagraphFormat.Space1 Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.TypeText text:=" " ' The following 15 lines remove all isokratema Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-II" .text = "[" & ChrW(61566) & ChrW(61473) & ChrW(61536) & ChrW(61489) & _ ChrW(61530) & ChrW(61507) & ChrW(61526) & ChrW(61506) & ChrW(61518) _ & ChrW(61517) & ChrW(61500) & ChrW(61502) & ChrW(61503) & ChrW( _ 61539) & ChrW(61558) & ChrW(61538) & ChrW(61550) & ChrW(61549) & _ ChrW(61484) & ChrW(61486) & ChrW(61487) & "]" .Replacement.text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines remove vertical lines that mark measures Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Psaltica" .text = "[" & ChrW(61546) & ChrW(61514) & "]" .Replacement.text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines remove all little numbers for measures Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-II" .text = "[" & ChrW(61490) & ChrW(61491) & ChrW(61492) & ChrW(61493) & _ ChrW(61504) & ChrW(61475) & ChrW(61476) & ChrW(61477) & ChrW(61494) _ & ChrW(61495) & ChrW(61496) & "]" .Replacement.text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines rearrange a petaste with a psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61585) & ChrW(61473) & ChrW(61479) .Replacement.text = ChrW(61562) & ChrW(61479) & ChrW(61473) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ''''***''' This is no longer necessary since the ArrangeFthoras sub does it. ' The following 44 lines rearrange an apostrophos-gorgon-sharp into ' an apostrophos-sharp-gorgon ' ' Selection.Find.ClearFormatting ' Selection.Find.Replacement.ClearFormatting ' With Selection.Find ' .text = ChrW(61473) & ChrW(61523) & ChrW(61483) ' With .Replacement ' .text = ChrW(61473) & ChrW(61483) & ChrW(61523) ' .font.Emboss = True ' .font.Name = "EZ Psaltica" ' End With ' .Forward = True ' .Wrap = wdFindContinue ' .Format = True ' .MatchCase = True ' .MatchWholeWord = False ' .MatchWildcards = False ' .MatchSoundsLike = False ' .MatchAllWordForms = False ' End With ' Selection.Find.Execute Replace:=wdReplaceAll ' ' Selection.Find.ClearFormatting ' Selection.Find.Replacement.ClearFormatting ' With Selection.Find ' .text = ChrW(61483) ' .font.Emboss = True ' With .Replacement ' .font.NameOther = "EZ Fthora" ' .text = ChrW(61483) ' End With ' .Forward = True ' .Wrap = wdFindContinue ' .Format = True ' .MatchCase = True ' .MatchWholeWord = False ' .MatchWildcards = False ' .MatchSoundsLike = False ' .MatchAllWordForms = False ' End With ' Selection.Find.Execute Replace:=wdReplaceAll ' ' Selection.WholeStory ' With Selection.font ' .Emboss = False ' End With ' Selection.MoveLeft Unit:=wdCharacter, Count:=1 ' ' The following 44 lines rearrange an apostrophos-gorgon-sharp into ' an apostrophos-sharp-gorgon when the sharp has a crossbeam ' ' Selection.Find.ClearFormatting ' Selection.Find.Replacement.ClearFormatting ' With Selection.Find ' .text = ChrW(61473) & ChrW(61523) & ChrW(61565) ' With .Replacement ' .text = ChrW(61473) & ChrW(61565) & ChrW(61523) ' .font.Emboss = True ' .font.Name = "EZ Psaltica" ' End With ' .Forward = True ' .Wrap = wdFindContinue ' .Format = True ' .MatchCase = True ' .MatchWholeWord = False ' .MatchWildcards = False ' .MatchSoundsLike = False ' .MatchAllWordForms = False ' End With ' Selection.Find.Execute Replace:=wdReplaceAll ' ' Selection.Find.ClearFormatting ' Selection.Find.Replacement.ClearFormatting ' With Selection.Find ' .text = ChrW(61565) ' .font.Emboss = True ' With .Replacement ' .font.NameOther = "EZ Fthora" ' .text = ChrW(61565) ' End With ' .Forward = True ' .Wrap = wdFindContinue ' .Format = True ' .MatchCase = True ' .MatchWholeWord = False ' .MatchWildcards = False ' .MatchSoundsLike = False ' .MatchAllWordForms = False ' End With ' Selection.Find.Execute Replace:=wdReplaceAll ' ' Selection.WholeStory ' With Selection.font ' .Emboss = False ' End With ' Selection.MoveLeft Unit:=wdCharacter, Count:=1 ' The following 15 lines of code add a space after paragraph breaks Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "^p" .Replacement.text = "^& " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code remove manual line breaks Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "^l" .Replacement.text = " " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 30 lines of code are a little loop to remove multiple spaces For i = 1 To j Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = " " .Replacement.text = " " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61472) & ChrW(61472) .Replacement.text = ChrW(61472) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Next i ' The following 15 lines of code convert spaces to braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[ " & ChrW(61472) & "]" With .Replacement .text = " " .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change all ties to one kind Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-II" .text = "[" & ChrW(61499) & ChrW(61474) & ChrW(61479) & "]" .Replacement.text = ChrW(61498) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Call SwitchLeft(61498, "EZ Special-II") 'moves ties to the left ' The following 15 lines of code change all klasmas into one kind. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = "[" & ChrW(61505) & ChrW(61530) & ChrW(61562) & _ ChrW(61585) & ChrW(61537) & "]" With .Replacement .text = ChrW(61537) .font.Outline = True ' outlined as a prep for ArrangeFthoras End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change all gorgons to one kind Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = "[" & ChrW(61523) & ChrW(61528) & ChrW(61560) & _ ChrW(61555) & "]" With .Replacement .text = ChrW(61555) .font.Outline = True ' outlined as a prep for ArrangeFthoras End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' The following three martyrias must be taken care of before the fthoras ' The following 16 lines braille an martyria for ' a soft chromatic Ga Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61550) & ChrW(61522) With .Replacement .text = " _7G" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a soft chromatic High Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61539) & ChrW(61522) & ChrW(61487) With .Replacement .text = " ""7N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a cross Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61483) With .Replacement .text = "X" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code delete all little letters beside fthoras ' (a perfect macro would take these letters into consideration, but I'm ' ignoring them since 90% of the time this macro will convert them properly ' to braille without going through the hassle of examining them. The reason ' it's a hassle is because I would need to shift both the fthora and this ' little letter to the left. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Fthora" .text = "[" & ChrW(61539) & ChrW(61558) & ChrW(61538) & ChrW(61550) & _ ChrW(61549) & ChrW(61484) & ChrW(61486) & ChrW(61487) & ChrW(61507) _ & ChrW(61526) & ChrW(61506) & ChrW(61518) & ChrW(61517) & ChrW( _ 61500) & ChrW(61502) & ChrW(61503) & "]" .Replacement.text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Unifying all accidentals ' ' The following 124 lines unify all accidentals ' The following 16 lines of code unite all flats Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61535) .font.Name = "EZ Fthora" .Replacement.text = ChrW(61485) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all flats ' with one crossbeam Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61563) .font.Name = "EZ Fthora" .Replacement.text = ChrW(61531) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all flats ' with 2 crossbeams Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61474) .font.Name = "EZ Fthora" .Replacement.text = ChrW(61479) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''' ' The following 16 lines of code unite all sharps Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61483) .font.NameOther = "EZ Fthora" .Replacement.text = ChrW(61501) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all sharps ' with one crossbeam Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61565) .font.NameOther = "EZ Fthora" .Replacement.text = ChrW(61533) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all sharps ' with 2 crossbeams Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61498) .font.NameOther = "EZ Fthora" .Replacement.text = ChrW(61499) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ArrangeFthoras ' This subroutine arranges fthoras and accidentals ' so that they don't collide with gorgons and klasmas '''''''''''''''''''''''''''''''''''''' ' Fthoras ' The following 16 lines of code unite all diatonic ' fthoras for Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61530) & ChrW(61562) & ChrW(61508) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61540) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all diatonic ' fthoras for Pa Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61537) & ChrW(61505) & ChrW(61510) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61542) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all diatonic ' fthoras for Vou Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61511) .font.Name = "EZ Fthora" .Replacement.text = ChrW(61543) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all diatonic ' fthoras for Ga Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61512) .font.Name = "EZ Fthora" .Replacement.text = ChrW(61544) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all diatonic ' fthoras for Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61514) & ChrW(61523) & ChrW(61555) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61546) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all diatonic ' fthoras for Ke Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61515) & ChrW(61528) & ChrW(61560) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61547) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all diatonic ' fthoras for Zo Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61516) .font.Name = "EZ Fthora" .Replacement.text = ChrW(61548) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all diatonic ' fthoras for High Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61478) & ChrW(61525) & ChrW(61557) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61495) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all ' fthoras for a zygos Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61482) & ChrW(61513) & ChrW(61545) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61496) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all ' fthoras for a spathi Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61566) .font.Name = "EZ Fthora" .Replacement.text = ChrW(61536) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all ' fthoras for a kliton Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61480) & ChrW(61519) & ChrW(61551) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61497) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all ' permanent sharps Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61475) & ChrW(61509) & ChrW(61541) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61491) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all ' permanent flats Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61477) & ChrW(61524) & ChrW(61556) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61493) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all hard chromatic ' fthoras for Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61534) & ChrW(61529) & ChrW(61561) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61494) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all hard chromatic ' fthoras for Pa Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61473) & ChrW(61521) & ChrW(61553) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61489) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all soft chromatic ' fthoras for Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61504) & ChrW(61527) & ChrW(61559) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61490) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all soft chromatic ' fthoras for High Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61476) & ChrW(61522) & ChrW(61554) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61492) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code unite all enharmonic ' fthoras Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61481) & ChrW(61520) & ChrW(61552) & "]" .font.Name = "EZ Fthora" .Replacement.text = ChrW(61488) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ++++ '''''''''''''''''''''''''''''''''''''' ' Combos with oligon for support with psefiston ' The following 16 lines temporarily change an elaphron above an oligon ' into ChrW(1048) to distinguish it from the same character in EZ Psaltica Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61488) .font.NameOther = "EZ Special-II" With .Replacement .text = ChrW(1048) .font.Name = "Minion Pro" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron above an oligon with ' a klasma and a psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(1048) & ChrW(61479) & ChrW(61537) With .Replacement .text = "*,P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron above an oligon with ' a psefiston and a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(1048) & ChrW(61537) & ChrW(61479) With .Replacement .text = "*,P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos above an oligon with ' a klasma and a psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61513) & ChrW(61479) & ChrW(61537) With .Replacement .text = "*,R" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a hamele and kenemata above an ' oligon with a psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61522) & ChrW(61479) With .Replacement .text = "*,?#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 and kenemata above an ' oligon with a psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61524) & ChrW(61479) With .Replacement .text = "*,@$#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron and kenemata above an ' oligon with a psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61529) & ChrW(61479) With .Replacement .text = "*,$#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos and kenemata above an ' oligon with a psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61525) & ChrW(61479) With .Replacement .text = "*,\#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos above an ' oligon with a psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61513) & ChrW(61479) With .Replacement .text = "*,\" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison and kenemata above an ' oligon with a psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61520) & ChrW(61479) With .Replacement .text = "*,[#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon with kenemata above a ' psefiston followed by a kentema Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61519) & ChrW(61479) & ChrW(61566) With .Replacement .text = "],#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille kenemata above an ' oligon with a psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61519) & ChrW(61479) With .Replacement .text = ",:#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines reverse the order of a special syndesmos/psefiston Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-II" .text = ChrW(61487) & ChrW(61533) .Replacement.text = ChrW(61533) & ChrW(61487) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison and kenemata above an ' oligon with a psefiston AND a special syndesmos Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61520) & ChrW(61533) & ChrW(61487) With .Replacement .text = "C*,[#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines convert braille psefistons back into ' EZ so that the SwitchLeft function can move them to the left. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "SimBraille" .text = "," With .Replacement .text = ChrW(61479) .font.Name = "EZ Psaltica" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines change a klasma-psefiston to a ' psefiston-klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61537) & ChrW(61479) .Replacement.text = ChrW(61479) & ChrW(61537) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Call SwitchLeft(61479, "EZ Psaltica") ' The following 16 lines braille all psefistons Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Psaltica" .text = ChrW(61479) With .Replacement .text = "," .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines undo the damage done by the previous ' call in the event that a psefiston was switched with a space Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "SimBraille" .text = ", " .Replacement.text = " ," .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Call SwitchLeft(61485, "EZ Fthora") Call SwitchLeft(61531, "EZ Fthora") Call SwitchLeft(61479, "EZ Fthora") ' The following line of code shifts a flat ' with 3 crossbeams (or with a hook) Call SwitchLeft(61501, "EZ Special-II") Call SwitchLeft(61501, "EZ Fthora") Call SwitchLeft(61533, "EZ Fthora") Call SwitchLeft(61499, "EZ Fthora") ' The following line of code shifts a sharp ' with 3 crossbeams (or with a hook) Call SwitchLeft(61483, "EZ Special-II") ' The following 16 lines make all fthoras green (so that ' they stand out and are easier to check at the end.) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = "^?" With .Replacement .text = "^&" .font.Color = wdColorBrightGreen 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 '''''''''''''''''''''''''''''''''''''' ' Conversions of fthoras into braille ' The following 16 lines braille a diatonic fthora ' for Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61540) With .Replacement .text = "-Y" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a diatonic fthora ' for Pa Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61542) With .Replacement .text = "-Z" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a diatonic fthora ' for Vou Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61543) With .Replacement .text = "-&" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a diatonic fthora ' for Ga Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61544) With .Replacement .text = "-=" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a diatonic fthora ' for Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61546) With .Replacement .text = "-(" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a diatonic fthora ' for Ke Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61547) With .Replacement .text = "-!" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a diatonic fthora ' for Zo Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61548) With .Replacement .text = "-)" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a diatonic fthora ' for High Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61495) With .Replacement .text = "-N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a zygos Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61496) With .Replacement .text = "-T" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a spathi Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61536) With .Replacement .text = "-S" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kliton Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61497) With .Replacement .text = "-\" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a permanent sharp Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61491) With .Replacement .text = "-]" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a permanent flat Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61493) With .Replacement .text = "-[" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a hard chromatic fthora ' for Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61494) With .Replacement .text = "-R" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a hard chromatic fthora ' for Pa Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61489) With .Replacement .text = "-O" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a soft chromatic fthora ' for Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61490) With .Replacement .text = "-P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a soft chromatic fthora ' for High Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61492) With .Replacement .text = "-QN" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an enharmonic fthora Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61488) With .Replacement .text = "-W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Conversions of accidentals into braille ' The following 16 lines braille a flat Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61485) With .Replacement .text = "<" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a flat with one crossbeam Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61531) With .Replacement .text = "@<" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a flat with 2 crossbeams Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61479) With .Replacement .text = "^^<" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a flat with 3 crossbeams ' (or with a hook and a crossbeam) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-II" .text = ChrW(61501) With .Replacement .text = ";<" .font.Name = "SimBraille" .font.Color = wdColorBrightGreen End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ''''''''''''''' ' The following 16 lines braille a sharp Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61501) With .Replacement .text = "%" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a sharp with one crossbeam Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61533) With .Replacement .text = "@%" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a sharp with 2 crossbeams Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Fthora" .text = ChrW(61499) With .Replacement .text = "^^%" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a sharp with 3 crossbeams ' (or with a hook and a crossbeam) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-II" .text = ChrW(61483) With .Replacement .text = ";%" .font.Name = "SimBraille" .font.Color = wdColorBrightGreen End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Sub PsalticaToBraille2() ' The following 15 lines of code put a syndesmos before a gorgon that is ' above kentemata beside an ison above an oligon. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61520) & ChrW(61555) & ChrW(61533) .Replacement.text = ChrW(61520) & ChrW(61533) & ChrW(61555) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code put a syndesmos before a gorgon that is ' above kentemata beside an apostrophos above an oligon. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61525) & ChrW(61555) & ChrW(61533) .Replacement.text = ChrW(61525) & ChrW(61533) & ChrW(61555) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change close syndesmoses to far ones. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61532) .font.NameOther = "EZ Special-II" With .Replacement .text = ChrW(61533) .font.Name = "EZ Psaltica" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Call SwitchLeft(61533, "EZ Psaltica") 'moves syndesmoses to the left ' The following 15 lines of code change syndesmoses into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61533) .font.Name = "EZ Psaltica" With .Replacement .text = "C" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change all diples into one kind. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61515) .Replacement.text = ChrW(61547) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change all aples into one kind. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61498) .Replacement.text = ChrW(61499) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change all triples into one kind. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61498) .Replacement.text = ChrW(61499) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change all digorgons to one kind Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61508) .Replacement.text = ChrW(61540) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change all trigorgons to one kind Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61510) .Replacement.text = ChrW(61542) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code unify all right-dotted gorgons Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61512) .Replacement.text = ChrW(61544) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code unify all left-dotted gorgons Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61512) .Replacement.text = ChrW(61544) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code unify all antikenomas Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61565) .Replacement.text = ChrW(61474) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code unify all koronas Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = "[" & ChrW(61474) & ChrW(61516) & ChrW(61548) & "]" .Replacement.text = ChrW(61479) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines convert a medium-far omalon ' into a far-omalon ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-II" .text = ChrW(61565) With .Replacement .text = ChrW(61531) .font.Name = "EZ Psaltica" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code put far omalons before a gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61555) & ChrW(61531) .Replacement.text = ChrW(61531) & ChrW(61555) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll Call SwitchLeft(61531, "EZ Psaltica") ' moves far omalons to the left ' The following 15 lines of code put psefistons before a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61537) & ChrW(61479) .Replacement.text = ChrW(61479) & ChrW(61537) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code put klasmas before a close omalon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61563) & ChrW(61537) .Replacement.text = ChrW(61537) & ChrW(61563) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code put gorgons before antikenomas Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61474) & ChrW(61555) .Replacement.text = ChrW(61555) & ChrW(61474) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change the combo: ' aple-antikenoma to antikenoma-aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61499) & ChrW(61474) .Replacement.text = ChrW(61474) & ChrW(61499) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change the combo: ' antikenoma-aple-gorgon to gorgon-antikenoma-aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61474) & ChrW(61499) & ChrW(61555) .Replacement.text = ChrW(61555) & ChrW(61474) & ChrW(61499) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 15 lines of code change the combo: ' aple-gorgon-antikenoma to gorgon-antikenoma-aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61499) & ChrW(61555) & ChrW(61474) .Replacement.text = ChrW(61555) & ChrW(61474) & ChrW(61499) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' End of preparatory stage '''''''''''''''''''''''''''''''''''''' ' Initial Martyrias ' The following 16 lines of code change Echos symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61544) .font.NameOther = "EZ Special-II" With .Replacement .text = ">HOS" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change Barys word into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61557) .font.NameOther = "EZ Special-II" With .Replacement .text = "BARYS" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change Barys symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61509) .font.NameOther = "EZ Special-II" With .Replacement .text = "_0-)" '''''''''''''''''''''''''''''MISTAKE IN CHART: 8 instead of 0 .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change Soft Vou symbol into braille ' ' Selection.Find.ClearFormatting ' Selection.Find.Replacement.ClearFormatting ' With Selection.Find ' .text = ChrW(61511) ' .font.NameOther = "EZ Special-II" ' With .Replacement ' .text = " " ' .font.Name = "SimBraille" ' End With ' .Forward = True ' .Wrap = wdFindContinue ' .Format = True ' .MatchCase = True ' .MatchWholeWord = False ' .MatchWildcards = False ' .MatchSoundsLike = False ' .MatchAllWordForms = False ' End With ' Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change plagal symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61512) .font.NameOther = "EZ Special-II" With .Replacement .text = "PL4" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change angle-alpha symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61521) .font.NameOther = "EZ Special-II" With .Replacement .text = "_9-!" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change angle-delta symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61522) .font.NameOther = "EZ Special-II" With .Replacement .text = "_8-(" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code braille the compound angle-delta symbol Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61554) & ChrW(61524) .font.NameOther = "EZ Special-II" With .Replacement .text = "_8-(" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code braille the compound angle-alpha symbol Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61553) & ChrW(61524) .font.NameOther = "EZ Special-II" With .Replacement .text = "_9-!" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change second mode symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61527) .font.NameOther = "EZ Special-II" With .Replacement .text = "_6-P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change third mode symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61541) .font.NameOther = "EZ Special-II" With .Replacement .text = "_7-=" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code braille fancy third mode symbol Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61552) .font.NameOther = "EZ Special-II" With .Replacement .text = "_7-=" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change pl.2 mode symbol into braille ' ' Selection.Find.ClearFormatting ' Selection.Find.Replacement.ClearFormatting ' With Selection.Find ' .text = ChrW(61543) ' .font.NameOther = "EZ Special-II" ' With .Replacement ' .text = "" ' .font.Name = "SimBraille" ' End With ' .Forward = True ' .Wrap = wdFindContinue ' .Format = True ' .MatchCase = True ' .MatchWholeWord = False ' .MatchWildcards = False ' .MatchSoundsLike = False ' .MatchAllWordForms = False ' End With ' Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change Di-2nd mode symbol into braille ' ' Selection.Find.ClearFormatting ' Selection.Find.Replacement.ClearFormatting ' With Selection.Find ' .text = ChrW(61543) ' .font.NameOther = "EZ Special-II" ' With .Replacement ' .text = "" ' .font.Name = "SimBraille" ' End With ' .Forward = True ' .Wrap = wdFindContinue ' .Format = True ' .MatchCase = True ' .MatchWholeWord = False ' .MatchWildcards = False ' .MatchSoundsLike = False ' .MatchAllWordForms = False ' End With ' Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change second mode symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61559) .font.NameOther = "EZ Special-II" With .Replacement .text = "_5-O" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change delta symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61554) .font.NameOther = "EZ Special-II" With .Replacement .text = "_4-Y" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change alpha symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61553) .font.NameOther = "EZ Special-II" With .Replacement .text = "_5-Z" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change 1st mode symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61505) & ChrW(61537) & "]" .font.NameOther = "EZ Special-II" With .Replacement .text = "A4" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change 2nd mode symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61523) & ChrW(61555) & "]" .font.NameOther = "EZ Special-II" With .Replacement .text = "B4" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change 3rd mode symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61508) & ChrW(61540) & "]" .font.NameOther = "EZ Special-II" With .Replacement .text = "G4" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines of code change 4th mode symbol into braille Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61510) & ChrW(61542) & "]" .font.NameOther = "EZ Special-II" With .Replacement .text = "D4" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ''' +++++ '''''''''''''''''''''''''''''''''''''' ' Combos with triples and diples ' The following 58 lines change all triples to an EZ Psaltica diple ' followed by a braille dot 3 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Special-I" .text = ChrW(61499) With .Replacement .text = ChrW(1046) & "'" ' 1046 temp for 61547 .font.Name = "Minion Pro" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Minion Pro" .text = ChrW(1046) With .Replacement .text = ChrW(61547) .font.Name = "EZ Psaltica" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Minion Pro" .text = "'" With .Replacement .text = "'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61488) & ChrW(61547) With .Replacement .text = "!" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61547) & ChrW(61566) With .Replacement .text = "=" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61547) With .Replacement .text = "Z" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61504) & ChrW(61547) With .Replacement .text = "&" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61547) With .Replacement .text = "(" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61475) & ChrW(61547) With .Replacement .text = "@&" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a hamele with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61476) & ChrW(61547) With .Replacement .text = "Y" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61481) & ChrW(61547) With .Replacement .text = "+''" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe/gorgon with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61485) & ChrW(61547) With .Replacement .text = "/''" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +3 with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61491) & ChrW(61547) With .Replacement .text = "@=" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +4 with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61492) & ChrW(61547) With .Replacement .text = ")" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +5 with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61493) & ChrW(61547) With .Replacement .text = "@)" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +6 with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61494) & ChrW(61547) With .Replacement .text = "^^)" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +7 with a diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61495) & ChrW(61547) With .Replacement .text = "_)" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Ascending Jumps with klasmas ' The following 16 lines braille an ison with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61488) & ChrW(61537) With .Replacement .text = "S" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon with klasma and kentema Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61537) & ChrW(61566) With .Replacement .text = "Q" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61490) & ChrW(61537) With .Replacement .text = "Q" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +1 with klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61537) With .Replacement .text = "O" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +3 with klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61491) & ChrW(61537) With .Replacement .text = "@Q" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +4 with klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61492) & ChrW(61537) With .Replacement .text = "T" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +5 with klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61493) & ChrW(61537) With .Replacement .text = "@T" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +6 with klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61494) & ChrW(61537) With .Replacement .text = "^^T" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +7 with klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61495) & ChrW(61537) With .Replacement .text = "_T" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +8 with klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61496) & ChrW(61537) With .Replacement .text = """T" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Descending Jumps with klasmas ' The following 16 lines braille an apostrophos with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61537) With .Replacement .text = "R" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a syneches elaphron with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61535) & ChrW(61537) With .Replacement .text = "M'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61504) & ChrW(61537) With .Replacement .text = "P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61475) & ChrW(61537) With .Replacement .text = "@P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -4 with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61476) & ChrW(61537) With .Replacement .text = "N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -5 with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61477) & ChrW(61537) With .Replacement .text = "@N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -6 with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61534) & ChrW(61537) With .Replacement .text = "^^N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -7 with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61478) & ChrW(61537) With .Replacement .text = "_N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -8 with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61482) & ChrW(61537) With .Replacement .text = """N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Petaste combos with klasmas ' The following 16 lines braille a ison with a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61552) & ChrW(61537) With .Replacement .text = "8S" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61553) & ChrW(61537) With .Replacement .text = "U" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61559) & ChrW(61537) With .Replacement .text = "@U" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +3 with a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61541) & ChrW(61537) With .Replacement .text = "^^U" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +4 with a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61554) & ChrW(61537) With .Replacement .text = "_U" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +5 with a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61556) & ChrW(61537) With .Replacement .text = """U" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +6 with a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61561) & ChrW(61537) With .Replacement .text = ".U" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +7 with a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61557) & ChrW(61537) With .Replacement .text = ";U" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe-gorgon-petaste-klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61485) & ChrW(61537) & ChrW(61555) With .Replacement .text = "8/'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe-gorgon-petaste-klasma ' (same as previous but when gorgon and klasma are reversed) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61485) & ChrW(61555) & ChrW(61537) With .Replacement .text = "8/'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe-petaste-klasma ' (without a gorgon) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61485) & ChrW(61537) With .Replacement .text = "8+'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos with a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61521) & ChrW(61537) With .Replacement .text = "8R" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron with a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61527) & ChrW(61537) With .Replacement .text = "8P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 with a petaste & klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61509) & ChrW(61537) With .Replacement .text = "8@P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a syneches elaphron-petaste-klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61535) & ChrW(61537) With .Replacement .text = "8M'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Combos with Gorgons ' The following 16 lines braille an yporroe-gorgon-aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61485) & ChrW(61499) With .Replacement .text = "/'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe-aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61481) & ChrW(61499) With .Replacement .text = "+'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos-aple-gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61499) & ChrW(61555) With .Replacement .text = "H'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos-gorgon-aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61555) & ChrW(61499) With .Replacement .text = "H'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos-diple-gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61547) & ChrW(61555) With .Replacement .text = "H''" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos-gorgon-diple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61555) & ChrW(61547) With .Replacement .text = "H''" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison-gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61488) & ChrW(61555) With .Replacement .text = "I" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon-gorgon-kentema Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61555) & ChrW(61566) With .Replacement .text = "G" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon-gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61555) With .Replacement .text = "E" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61536) & ChrW(61555) With .Replacement .text = ">" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61490) & ChrW(61555) With .Replacement .text = "G" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with gorgon-antikenoma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61501) & ChrW(61555) With .Replacement .text = "G5" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61490) & ChrW(61555) With .Replacement .text = "G" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +3 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61491) & ChrW(61555) With .Replacement .text = "@G" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +4 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61492) & ChrW(61555) With .Replacement .text = "J" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +5 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61493) & ChrW(61555) With .Replacement .text = "@J" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +6 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61494) & ChrW(61555) With .Replacement .text = "^^J" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +7 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61495) & ChrW(61555) With .Replacement .text = "_J" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +8 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61496) & ChrW(61555) With .Replacement .text = """J" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Sub PsalticaToBraille3() ' The following 16 lines braille an apostrophos with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61555) With .Replacement .text = "H" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61485) With .Replacement .text = "/" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61504) & ChrW(61555) With .Replacement .text = "F" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61475) & ChrW(61555) With .Replacement .text = "@F" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a hamele with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61476) & ChrW(61555) With .Replacement .text = "D" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -5 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61477) & ChrW(61555) With .Replacement .text = "@D" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -6 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61534) & ChrW(61555) With .Replacement .text = "^^D" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -7 with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61478) & ChrW(61555) With .Replacement .text = "_D" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a yporroe-gorgon-petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61485) & ChrW(61555) With .Replacement .text = "8/" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Combos with Dotted Gorgons ' The following 16 lines braille a apostrophos with left-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61544) With .Replacement .text = "AH" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille kentemata with left-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61536) & ChrW(61544) With .Replacement .text = "A>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon with left-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61544) With .Replacement .text = "AE" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison with left-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61488) & ChrW(61544) With .Replacement .text = "AI" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a apostrophos with right-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61473) & ChrW(61544) With .Replacement .text = "HA" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille kentemata with right-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61536) & ChrW(61544) With .Replacement .text = ">A" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon with right-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61489) & ChrW(61544) With .Replacement .text = "EA" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison with right-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61488) & ChrW(61544) With .Replacement .text = "IA" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''' ' The following 16 lines braille an oligon beneath kentemata ' that have a left-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = "[" & ChrW(61519) & ChrW(61655) & "]" & ChrW(61544) With .Replacement .text = ":A>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison with kentemata ' with a left-dot gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61520) & ChrW(61544) With .Replacement .text = "*[A>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos with ' kentemata with a left-dot gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61525) & ChrW(61544) With .Replacement .text = "*\A>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron with ' kentemata with a left-dot gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61529) & ChrW(61544) With .Replacement .text = "*$A>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 with kentemata ' with a left-dot gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61524) & ChrW(61544) With .Replacement .text = "*@$A>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a hamele with kentemata ' with a left-dot gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61522) & ChrW(61544) With .Replacement .text = "*?A>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ''''$$$ ' The following 16 lines braille an oligon beneath kentemata ' that have a right-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(61519) & ChrW(61655) & "]" & ChrW(61544) With .Replacement .text = ":>A" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison with kentemata ' with a right-dot gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61520) & ChrW(61544) With .Replacement .text = "*[>A" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos with ' kentemata with a right-dot gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61525) & ChrW(61544) With .Replacement .text = "*\>A" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron with ' kentemata with a right-dot gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61529) & ChrW(61544) With .Replacement .text = "*$>A" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 with kentemata ' with a right-dot gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61524) & ChrW(61544) With .Replacement .text = "*@$>A" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a hamele with kentemata ' with a right-dot gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61522) & ChrW(61544) With .Replacement .text = "*?>A" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''' ' The following 16 lines braille an yporroe with ' a digorgon and aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61485) & ChrW(61499) With .Replacement .text = "2+'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe with ' a left-dot digorgon and aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61535) & ChrW(61499) With .Replacement .text = "A2+'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe with ' a trigorgon and aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61531) & ChrW(61499) With .Replacement .text = "3+'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe with ' a left-dot gorgon and aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61533) & ChrW(61499) With .Replacement .text = "A/'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe with ' a right-dot gorgon and aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61565) & ChrW(61499) With .Replacement .text = "/A'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''' ' The following 16 lines braille an yporroe with ' a digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61485) With .Replacement .text = "2+" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe with ' a left-dot digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61535) With .Replacement .text = "A2+" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe with ' a trigorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61531) With .Replacement .text = "3+" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe with ' a left-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61533) With .Replacement .text = "A/" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe with ' a right-dot gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61565) With .Replacement .text = "/A" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon beneath ' kentemata with a digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61516) With .Replacement .text = ":2#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Combos with Digorgons ' The following 16 lines braille an ison-digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61488) & ChrW(61540) With .Replacement .text = "2[" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon-digorgon-kentema Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61540) & ChrW(61566) With .Replacement .text = "2]" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon-digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61540) With .Replacement .text = "2:" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille kentemata-digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61536) & ChrW(61540) With .Replacement .text = "2#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with a digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61490) & ChrW(61540) With .Replacement .text = "2]" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +3 with a digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61491) & ChrW(61540) With .Replacement .text = "2@]" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +4 with a digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61492) & ChrW(61540) With .Replacement .text = "2W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos-digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61540) With .Replacement .text = "2\" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron-digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61504) & ChrW(61540) With .Replacement .text = "2$" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '+++ '''''''''''''''''''''''''''''''''''''' ' Combos with Trigorgons ' The following 16 lines braille an ison-trigorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61488) & ChrW(61542) With .Replacement .text = "3[" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon-trigorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61542) With .Replacement .text = "3:" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille kentemata-trigorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61536) & ChrW(61542) With .Replacement .text = "3#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with a trigorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61490) & ChrW(61542) With .Replacement .text = "3]" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +3 with a trigorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61491) & ChrW(61542) With .Replacement .text = "3@]" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +4 with a trigorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61492) & ChrW(61542) With .Replacement .text = "3W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos-trigorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61542) With .Replacement .text = "3\" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron-trigorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61504) & ChrW(61542) With .Replacement .text = "3$" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Combos with Oligons and Kentemata ' The following 16 lines braille an oligon-kentemata-gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61548) With .Replacement .text = ":>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon-gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61551) & ChrW(61555) With .Replacement .text = ">:" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon-kentemata Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61519) With .Replacement .text = ":#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon-argon-omalon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61551) & ChrW(61543) & ChrW(61563) With .Replacement .text = ">O6" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon-omalon-argon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61551) & ChrW(61563) & ChrW(61543) With .Replacement .text = ">O6" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an kentemata-oligon-argon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61551) & ChrW(61543) With .Replacement .text = ">O" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon-diargon-omalon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61551) & ChrW(61511) & ChrW(61563) With .Replacement .text = ">Z6" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon-omalon-diargon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61551) & ChrW(61563) & ChrW(61511) With .Replacement .text = ">Z6" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon-diargon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61551) & ChrW(61511) With .Replacement .text = ">Z" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon-triargon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61551) & ChrW(61514) With .Replacement .text = ">Z'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon-digorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61551) & ChrW(61540) With .Replacement .text = "2#:" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61551) With .Replacement .text = "#:" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with ' an antikenoma, aple, and gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61501) & ChrW(61555) With .Replacement .text = "G5'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon with ' an antikenoma, aple, and gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61551) & ChrW(61555) With .Replacement .text = ">:5'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with ' an antikenoma and aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61501) With .Replacement .text = "]5'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 with ' an antikenoma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Psaltica" .text = ChrW(61501) With .Replacement .text = "]5" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a kentemata-oligon with ' an antikenoma and aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61551) With .Replacement .text = "#:5'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an antikenoma-aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61474) & ChrW(61499) With .Replacement .text = "5'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an aple-antikenoma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61499) & ChrW(61474) With .Replacement .text = "5'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an antikenoma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61474) With .Replacement .text = "5" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Combos with Kentemata above an Oligon ' The following 16 lines braille an yporroe-gorgon ' beside kentemata all over an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61493) With .Replacement .text = "*/#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe-digorgon ' beside kentemata all over an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61496) With .Replacement .text = "*2+#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe beneath a ' dotted digorgon beside kentemata all over an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61497) With .Replacement .text = "A*2+#" 'Check with Manoli .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe beneath a ' trigorgon beside kentemata all over an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61524) With .Replacement .text = "*3+#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a syneches elaphron ' beside kentemata with a gorgon all over an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61561) & ChrW(61555) With .Replacement .text = "*M>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +4 with kentemata and ' a gorgon all over an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61557) & ChrW(61555) With .Replacement .text = "W>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +5 with kentemata and ' a gorgon all over an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61545) & ChrW(61555) With .Replacement .text = "@W>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a syneches elaphron ' beside kentemata all over an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61561) With .Replacement .text = "*M#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +4 with kentemata ' all over an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61557) With .Replacement .text = "W#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +5 with kentemata ' all over an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61545) With .Replacement .text = "@W#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Combos with a lowered Apostrophos ' The following 16 lines braille an apostrophos ' followed by a lowered apostrophos with an aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61519) & ChrW(61499) With .Replacement .text = "\R" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison ' followed by a lowered apostrophos with an aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61520) & ChrW(61499) With .Replacement .text = "[R" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a double apostrophos with gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61519) & ChrW(61555) With .Replacement .text = "\H" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos ' followed by a lowered apostrophos Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61519) With .Replacement .text = "\\" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison ' followed by a lowered apostrophos Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61520) With .Replacement .text = "[\" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Single-character ascending neumes ' (I stopped at jumps of +12, since any jumps larger than ' this are so rare I've never seen them in real hymns.) ' The following 16 lines braille an ison Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61488) With .Replacement .text = "[" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon-kentema Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) & ChrW(61566) With .Replacement .text = "]" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61489) With .Replacement .text = ":" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille kentemata Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61536) With .Replacement .text = "#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +2 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61490) With .Replacement .text = "]" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +3 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61491) With .Replacement .text = "@]" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +4 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61492) With .Replacement .text = "W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +5 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61493) With .Replacement .text = "@W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +6 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61494) With .Replacement .text = "^^W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +7 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61495) With .Replacement .text = "_W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +8 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61496) With .Replacement .text = """W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +9 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61497) With .Replacement .text = ".W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +10 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61488) With .Replacement .text = ";W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +11 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61489) With .Replacement .text = "@;W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +12 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61490) With .Replacement .text = "^^;W" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos with an aple Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) & ChrW(61499) With .Replacement .text = "\'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Sub PsalticaToBraille4() '''''''''''''''''''''''''''''''''''''' ' Single-character descending neumes ' (I stopped at jumps of -12, since any jumps larger than ' this are so rare I've never seen them in real hymns.) ' The following 16 lines braille an apostrophos Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61473) With .Replacement .text = "\" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a syneches elaphron Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61535) With .Replacement .text = "M" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61481) With .Replacement .text = "+" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe-gorgon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61485) With .Replacement .text = "/" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61504) With .Replacement .text = "$" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61475) With .Replacement .text = "@$" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a hamele Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61476) With .Replacement .text = "?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -5 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61477) With .Replacement .text = "@?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -6 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61534) With .Replacement .text = "^^?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -7 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61478) With .Replacement .text = "_?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -8 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61482) With .Replacement .text = """?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -9 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61480) With .Replacement .text = ".?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -10 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61481) With .Replacement .text = ";?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -11 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61473) With .Replacement .text = "@;?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -12 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61504) With .Replacement .text = "^^;?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Single-character ascending neumes with a petaste ' (I stopped at jumps of +12, since any jumps larger than ' this are so rare I've never seen them in real hymns.) ' The following 16 lines braille an ison-petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61552) With .Replacement .text = "8[" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61553) With .Replacement .text = "V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an oligon-petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61559) With .Replacement .text = "@V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +3 petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61541) With .Replacement .text = "^^V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +4 petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61554) With .Replacement .text = "_V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +5 petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61556) With .Replacement .text = """V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +6 petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61561) With .Replacement .text = ".V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +7 petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61557) With .Replacement .text = ";V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +8 petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61545) With .Replacement .text = "@;V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +9 petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61480) With .Replacement .text = "^^;V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +10 petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61552) With .Replacement .text = "_;V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +11 petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61553) With .Replacement .text = """;V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a +12 petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61559) With .Replacement .text = ".;V" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Single-character descending neumes with a petaste ' (I stopped at jumps of -9, since any jumps larger than ' this are so rare I've never seen them in real hymns.) ' The following 16 lines braille an apostrophos-petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61521) With .Replacement .text = "8\" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a syneches elaphron-petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-II" .text = ChrW(61535) With .Replacement .text = "8M" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an yporroe-petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Special-II" .text = ChrW(61485) With .Replacement .text = "8+" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron-petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61527) With .Replacement .text = "8$" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 & petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61509) With .Replacement .text = "8@$" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a hamele & petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Special-I" .text = ChrW(61521) With .Replacement .text = "8?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -5 & petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Special-I" .text = ChrW(61527) With .Replacement .text = "8@?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -6 & petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Special-I" .text = ChrW(61509) With .Replacement .text = "8^^?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -7 & petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Special-I" .text = ChrW(61522) With .Replacement .text = "8_?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -8 & petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Special-I" .text = ChrW(61477) With .Replacement .text = "8""?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -9 & petaste Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Special-I" .text = ChrW(61534) With .Replacement .text = "8.?" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Remaining combos with neumes above an oligon ' The following 16 lines braille a hamele beside ' kentemata with a gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61522) & ChrW(61555) With .Replacement .text = "*?>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 beside ' kentemata with a gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61524) & ChrW(61555) With .Replacement .text = "*@$>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron beside ' kentemata with a gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61529) & ChrW(61555) With .Replacement .text = "*$>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos beside ' kentemata with a gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61525) & ChrW(61555) With .Replacement .text = "*\>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison beside ' kentemata with a gorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61520) & ChrW(61555) With .Replacement .text = "*[>" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos beside ' kentemata with a digorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61525) & ChrW(61540) With .Replacement .text = "*\2#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison beside ' kentemata with a digorgon all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61520) & ChrW(61540) With .Replacement .text = "*[2#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a hamele beside ' kentemata all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61522) With .Replacement .text = "*?#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a -3 beside ' kentemata all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61524) With .Replacement .text = "*@$#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an elaphron beside ' kentemata all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61529) With .Replacement .text = "*$#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos beside ' kentemata all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61525) With .Replacement .text = "*\#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison beside ' kentemata all above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61520) With .Replacement .text = "*[#" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos above an oligon ' with a klasma Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61513) & ChrW(61537) With .Replacement .text = "*R" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an apostrophos ' above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61513) With .Replacement .text = "*\" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an ison ' above an oligon Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Special-II" .text = ChrW(61497) With .Replacement .text = "*[" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Combos for Martyrias ' The following 16 lines braille an martyria for ' a high diatonic Zo Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61486) & ChrW(61506) & ChrW(61487) With .Replacement .text = " ""Z0" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a high diatonic Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61539) & ChrW(61518) & ChrW(61487) With .Replacement .text = " ""N7" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a high diatonic Pa (above a script alpha) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61558) & ChrW(61526) & ChrW(61487) With .Replacement .text = " ""P5" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a high diatonic Pa (above a script delta) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61558) & ChrW(61500) & ChrW(61507) & ChrW(61487) With .Replacement .text = " ""P8" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a high enharmonic Zo Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61486) & ChrW(61518) & ChrW(61487) With .Replacement .text = " ""Z7" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a low diatonic Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61549) & ChrW(61517) With .Replacement .text = " ^^D8" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a low diatonic Ke Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61484) & ChrW(61500) With .Replacement .text = " ^^K9" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a low hard chromatic Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61549) & ChrW(61503) With .Replacement .text = " ^^5D" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a hard chromatic Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61539) & ChrW(61517) With .Replacement .text = " _8N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a hard chromatic Pa Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61558) & ChrW(61503) With .Replacement .text = " _5P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a hard chromatic high Pa Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61558) & ChrW(61517) & ChrW(61487) With .Replacement .text = " ""8P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a hard chromatic Pa with a Di lower part Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61558) & ChrW(61517) With .Replacement .text = " _8P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a hard chromatic Ga Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61550) & ChrW(61503) With .Replacement .text = " _5G" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a hard chromatic Ke Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61484) & ChrW(61503) With .Replacement .text = " _5K" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a hard chromatic high Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61539) & ChrW(61503) & ChrW(61487) With .Replacement .text = " ""5N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a hard chromatic Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61549) & ChrW(61517) With .Replacement .text = " _8D" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a soft chromatic Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61549) & ChrW(61500) & ChrW(61503) With .Replacement .text = " _6D" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a soft chromatic Vou Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61538) & ChrW(61500) & ChrW(61503) With .Replacement .text = " _6B" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a soft chromatic Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61539) & ChrW(61500) & ChrW(61503) With .Replacement .text = " _6N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a soft chromatic High Zo Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61486) & ChrW(61500) & ChrW(61503) & ChrW(61487) With .Replacement .text = " ""6Z" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille an martyria for ' a soft chromatic High Pa Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61558) & ChrW(61500) & ChrW(61503) & ChrW(61487) With .Replacement .text = " ""6P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Single-character symbols of Martyrias ' The following 16 lines braille a Nee Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61539) With .Replacement .text = " _N" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a Pa Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61558) With .Replacement .text = " _P" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a Vou Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61538) With .Replacement .text = " _B" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a Ga Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61550) With .Replacement .text = " _G" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a Di Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61549) With .Replacement .text = " _D" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a Ke Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61484) With .Replacement .text = " _K" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a Zo Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61486) With .Replacement .text = " _Z" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a script delta with 2 dots Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61500) & ChrW(61507) With .Replacement .text = "8" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a script delta without 2 dots Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61507) With .Replacement .text = "4" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a script alpha with 2 dots Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61500) & ChrW(61526) With .Replacement .text = "9" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a script alpha without 2 dots Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61526) With .Replacement .text = "5" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a "legetos" martyria Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61506) With .Replacement .text = "6" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a nana martyria Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61518) With .Replacement .text = "7" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a Varys martyria Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61502) With .Replacement .text = "0" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' When the foregoing martyrias were brailled with a space that ' was unnecessary, the following 10 lines of code remove it. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = " " .Replacement.text = " " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''' ' Rests and Tempo Neumes ' The following 16 lines braille a 3-beat rest Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61564) & ChrW(61546) & ChrW(61546) With .Replacement .text = "9C" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a 2-beat rest Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(61564) & ChrW(61546) With .Replacement .text = "9B" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a half-beat rest Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61564) & ChrW(61555) With .Replacement .text = "91" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a 1-beat rest Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61564) With .Replacement .text = "9'" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a vareia Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "EZ Psaltica" .text = ChrW(61532) With .Replacement .text = "9" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille very slow tempo symbols Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = "[" & ChrW(61505) & ChrW(61523) & "]" With .Replacement .text = "XC" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille medium tempo symbols Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = "[" & ChrW(61555) & ChrW(61562) & "]" With .Replacement .text = "XA" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille fast tempo symbols Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = "[" & ChrW(61530) & ChrW(61528) & "]" With .Replacement .text = "X2" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a medium slow tempo symbol Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61537) With .Replacement .text = "XB" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a fast tempo symbol Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61560) With .Replacement .text = "X1" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a tie (yphen) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-II" .text = ChrW(61498) With .Replacement .text = "@C" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 16 lines braille a korona Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.NameOther = "EZ Special-I" .text = ChrW(61479) With .Replacement .text = "