Sub MonotonicGreekToGreekBraille() ' ' This macro converts a text in monotonic Greek to Greek Braille in ASCII format ' so that it can be printed by a braille printer that accepts .txt files in ASCII format. ' It presents the changes in the font SimBraille font, which simulates braille on the ' screen. One should probably change the font to something like Courier before sending ' the file to be embossed by a braille printer. ' Because of its size, it has been separated into three separate macros. ' MonotonicGreekToGreekBraille1 MonotonicGreekToGreekBraille2 MonotonicGreekToGreekBraille3 End Sub Sub MonotonicGreekToGreekBraille1() ' ' MonotonicGreekToGreekBraille1 Macro ' Macro recorded 6/16/2010 by Father Ephraim ' Selection.HomeKey Unit:=wdStory ' temporarily inserts a space in the beginning Selection.TypeText text:=" " Selection.WholeStory Selection.font.Name = "Palatino Linotype" Selection.MoveLeft Unit:=wdCharacter, Count:=1 '''''''''''''''''''''''' ' Accented Capital Diphthongs ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(913) & ChrW(943) ' Diphthong of capitalized & accented Alpha-iota With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(60) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(917) & ChrW(943) ' Diphthong of capitalized & accented Epsilon-iota With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(37) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(927) & ChrW(943) ' Diphthong of capitalized & accented Omicron-iota With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(933) & ChrW(943) ' Diphthong of capitalized & accented Ypsilon-iota With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(93) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(913) & ChrW(973) ' Diphthong of capitalized & accented Alpha-ypsilon With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(42) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(917) & ChrW(973) ' Diphthong of capitalized & accented Epsilon-ypsilon With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(58) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(919) & ChrW(973) ' Diphthong of capitalized & accented Eta-ypsilon With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(92) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(927) & ChrW(973) ' Diphthong of capitalized & accented Omicron-ypsilon With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(85) .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''' ' Unaccented All Caps Diphthongs ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(919) & ChrW(933) ' Diphthong of all caps Eta-upsilon With .Replacement .text = ChrW(46) & "\" .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(933) & ChrW(921) ' Diphthong of all caps Upsilon-iota With .Replacement .text = ChrW(46) & "]" .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(927) & ChrW(921) ' Diphthong of all caps Omicron-iota With .Replacement .text = ChrW(46) & "[" .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(917) & ChrW(933) ' Diphthong of all caps Epsilon-upsilon With .Replacement .text = ChrW(46) & ":" .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(917) & ChrW(921) ' Diphthong of all caps Epsilon-iota With .Replacement .text = ChrW(46) & "%" .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(927) & ChrW(933) ' Diphthong of all caps Omicron-upsilon With .Replacement .text = ChrW(46) & "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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(913) & ChrW(921) ' Diphthong of all caps Alpha-iota With .Replacement .text = ChrW(46) & "<" .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(913) & ChrW(933) ' Diphthong of all caps Alpha-upsilon With .Replacement .text = ChrW(46) & "*" .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''' ' Unaccented Capital Diphthongs ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(913) & ChrW(953) ' Diphthong of capitalized & unaccented Alpha-iota With .Replacement .text = ChrW(46) & ChrW(60) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(917) & ChrW(953) ' Diphthong of capitalized & unaccented Epsilon-iota With .Replacement .text = ChrW(46) & ChrW(37) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(927) & ChrW(953) ' Diphthong of capitalized & unaccented Omicron-iota With .Replacement .text = ChrW(46) & ChrW(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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(933) & ChrW(953) ' Diphthong of capitalized & unaccented Ypsilon-iota With .Replacement .text = ChrW(46) & ChrW(93) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(913) & ChrW(965) ' Diphthong of capitalized & unaccented Alpha-ypsilon With .Replacement .text = ChrW(46) & ChrW(42) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(917) & ChrW(965) ' Diphthong of capitalized & unaccented Epsilon-ypsilon With .Replacement .text = ChrW(46) & ChrW(58) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(919) & ChrW(965) ' Diphthong of capitalized & unaccented Eta-ypsilon With .Replacement .text = ChrW(46) & ChrW(92) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(927) & ChrW(965) ' Diphthong of capitalized & unaccented Omicron-ypsilon With .Replacement .text = ChrW(46) & ChrW(85) .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''' ' Accented Capital Vowels ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(902) ' Capitalized & accented Alpha With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(65) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(904) ' Capitalized & accented Epsilon With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(69) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(905) ' Capitalized & accented Eta With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(62) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(906) ' Capitalized & accented Iota With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(73) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(908) ' Capitalized & accented Omicron With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(79) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(910) ' Capitalized & accented Ypsilon With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(89) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(911) ' Capitalized & accented Omega With .Replacement .text = ChrW(46) & ChrW(34) & ChrW(74) .font.Name = "SimBraille" .font.Outline = True End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''' ' Unaccented Capital Letters ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(913) ' Capitalized & unaccented Alpha With .Replacement .text = ChrW(46) & ChrW(65) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(914) ' Capitalized & unaccented Beta With .Replacement .text = ChrW(46) & ChrW(66) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(915) ' Capitalized & unaccented Gamma With .Replacement .text = ChrW(46) & ChrW(71) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(916) ' Capitalized & unaccented Delta With .Replacement .text = ChrW(46) & ChrW(68) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(917) ' Capitalized & unaccented Epsilon With .Replacement .text = ChrW(46) & ChrW(69) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(918) ' Capitalized & unaccented Zeta With .Replacement .text = ChrW(46) & ChrW(90) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(919) ' Capitalized & unaccented Eta With .Replacement .text = ChrW(46) & ChrW(62) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(920) ' Capitalized & unaccented Theta With .Replacement .text = ChrW(46) & ChrW(63) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(921) ' Capitalized & unaccented Iota With .Replacement .text = ChrW(46) & ChrW(73) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(922) ' Capitalized & unaccented Kappa With .Replacement .text = ChrW(46) & ChrW(75) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(923) ' Capitalized & unaccented Lambda With .Replacement .text = ChrW(46) & ChrW(76) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(924) ' Capitalized & unaccented Mu With .Replacement .text = ChrW(46) & ChrW(77) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(925) ' Capitalized & unaccented Nu With .Replacement .text = ChrW(46) & ChrW(78) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(926) ' Capitalized & unaccented Xi With .Replacement .text = ChrW(46) & ChrW(88) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(927) ' Capitalized & unaccented Omicron With .Replacement .text = ChrW(46) & ChrW(79) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(928) ' Capitalized & unaccented Pi With .Replacement .text = ChrW(46) & ChrW(80) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(929) ' Capitalized & unaccented Rho With .Replacement .text = ChrW(46) & ChrW(82) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(931) ' Capitalized & unaccented Sigma With .Replacement .text = ChrW(46) & ChrW(83) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(932) ' Capitalized & unaccented Tau With .Replacement .text = ChrW(46) & ChrW(84) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(933) ' Capitalized & unaccented Ypsilon With .Replacement .text = ChrW(46) & ChrW(89) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(934) ' Capitalized & unaccented Phi With .Replacement .text = ChrW(46) & ChrW(70) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(935) ' Capitalized & unaccented Chi With .Replacement .text = ChrW(46) & ChrW(72) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(936) ' Capitalized & unaccented Psi With .Replacement .text = ChrW(46) & ChrW(38) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(937) ' Capitalized & unaccented Omega With .Replacement .text = ChrW(46) & ChrW(74) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(938) ' Capitalized & unaccented Iota with diairesis With .Replacement .text = ChrW(46) & ChrW(73) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(939) ' Capitalized & unaccented Ypsilon with diairesis With .Replacement .text = ChrW(46) & ChrW(89) .font.Name = "SimBraille" .font.Outline = True End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ''''''''''''''''''''''''''' ' Accented Lowercase Diphtongs ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(945) & ChrW(943) ' Diphthong of lowercase & accented alpha-iota With .Replacement .text = ChrW(34) & ChrW(60) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(949) & ChrW(943) ' Diphthong of lowercase & accented epsilon-iota With .Replacement .text = ChrW(34) & ChrW(37) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(959) & ChrW(943) ' Diphthong of lowercase & accented omicron-iota With .Replacement .text = ChrW(34) & ChrW(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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(965) & ChrW(943) ' Diphthong of lowercase & accented ypsilon-iota With .Replacement .text = ChrW(34) & ChrW(93) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(945) & ChrW(973) ' Diphthong of lowercase & accented alpha-ypsilon With .Replacement .text = ChrW(34) & ChrW(42) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(949) & ChrW(973) ' Diphthong of lowercase & accented epsilon-ypsilon With .Replacement .text = ChrW(34) & ChrW(58) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(951) & ChrW(973) ' Diphthong of lowercase & accented eta-ypsilon With .Replacement .text = ChrW(34) & ChrW(92) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(959) & ChrW(973) ' Diphthong of lowercase & accented omicron-ypsilon With .Replacement .text = ChrW(34) & ChrW(85) .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''' ' Accented Lowercase Vowels ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(940) ' lowercase & accented alpha With .Replacement .text = ChrW(34) & ChrW(65) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(941) ' lowercase & accented epsilon With .Replacement .text = ChrW(34) & ChrW(69) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(942) ' lowercase & accented eta With .Replacement .text = ChrW(34) & ChrW(62) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(943) ' lowercase & accented iota With .Replacement .text = ChrW(34) & ChrW(73) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(972) ' lowercase & accented omicron With .Replacement .text = ChrW(34) & ChrW(79) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(973) ' lowercase & accented ypsilon With .Replacement .text = ChrW(34) & ChrW(89) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(974) ' lowercase & accented omega With .Replacement .text = ChrW(34) & ChrW(74) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(912) ' lowercase & accented iota with diairesis With .Replacement .text = ChrW(34) & ChrW(73) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(944) ' lowercase & accented ypsilon with diairesis With .Replacement .text = ChrW(34) & ChrW(89) .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ''''''''''''''''''''''''''' ' Accented Lowercase Diphtongs ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(945) & ChrW(953) ' Diphthong of lowercase & unaccented alpha-iota 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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(949) & ChrW(953) ' Diphthong of lowercase & unaccented epsilon-iota 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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(959) & ChrW(953) ' Diphthong of lowercase & unaccented omicron-iota 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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(965) & ChrW(953) ' Diphthong of lowercase & unaccented ypsilon-iota 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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(945) & ChrW(965) ' Diphthong of lowercase & unaccented alpha-ypsilon 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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(949) & ChrW(965) ' Diphthong of lowercase & unaccented epsilon-ypsilon 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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(951) & ChrW(965) ' Diphthong of lowercase & unaccented eta-ypsilon 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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(959) & ChrW(965) ' Diphthong of lowercase & unaccented omicron-ypsilon 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 '''''''''''''''''''''''''' ' Unaccented Lowercase Letters ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(945) ' lowercase & unaccented alpha With .Replacement .text = ChrW(65) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(946) ' lowercase & unaccented beta With .Replacement .text = ChrW(66) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(947) ' lowercase & unaccented gamma With .Replacement .text = ChrW(71) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(948) ' lowercase & unaccented delta With .Replacement .text = ChrW(68) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(949) ' lowercase & unaccented epsilon With .Replacement .text = ChrW(69) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(950) ' lowercase & unaccented zeta With .Replacement .text = ChrW(90) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(951) ' lowercase & unaccented eta With .Replacement .text = ChrW(62) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(952) ' lowercase & unaccented theta With .Replacement .text = ChrW(63) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(953) ' lowercase & unaccented iota With .Replacement .text = ChrW(73) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(954) ' lowercase & unaccented kappa With .Replacement .text = ChrW(75) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(955) ' lowercase & unaccented lambda With .Replacement .text = ChrW(76) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(956) ' lowercase & unaccented mu With .Replacement .text = ChrW(77) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(957) ' lowercase & unaccented nu With .Replacement .text = ChrW(78) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(958) ' lowercase & unaccented xi With .Replacement .text = ChrW(88) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(959) ' lowercase & unaccented omicron With .Replacement .text = ChrW(79) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(960) ' lowercase & unaccented pi With .Replacement .text = ChrW(80) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(961) ' lowercase & unaccented rho With .Replacement .text = ChrW(82) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(962) ' lowercase & unaccented teliko sigma With .Replacement .text = ChrW(83) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(963) ' lowercase & unaccented sigma With .Replacement .text = ChrW(83) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(964) ' lowercase & unaccented tau With .Replacement .text = ChrW(84) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(965) ' lowercase & unaccented ypsilon With .Replacement .text = ChrW(89) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(966) ' lowercase & unaccented phi With .Replacement .text = ChrW(70) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(967) ' lowercase & unaccented chi With .Replacement .text = ChrW(72) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(968) ' lowercase & unaccented psi With .Replacement .text = ChrW(38) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(969) ' lowercase & unaccented omega With .Replacement .text = ChrW(74) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(970) ' lowercase & unaccented iota with diairesis With .Replacement .text = ChrW(73) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(971) ' lowercase & unaccented ypsilon with diairesis With .Replacement .text = ChrW(89) .font.Name = "SimBraille" End 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 MonotonicGreekToGreekBraille2() ' ' Part 2 of the same macro '''''''''''''''''''''''''' ' Punctuation ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(40) ' left parenthesis With .Replacement .text = ChrW(55) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(41) ' right parenthesis With .Replacement .text = ChrW(55) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(123) ' curly left bracket With .Replacement .text = ChrW(40) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(125) ' curly right bracket With .Replacement .text = ChrW(41) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(91) ' left bracket With .Replacement .text = ChrW(38) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(93) ' right bracket With .Replacement .text = ChrW(89) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(46) ' period With .Replacement .text = ChrW(52) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(44) ' comma With .Replacement .text = ChrW(49) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(894) ' Greek question mark With .Replacement .text = ChrW(53) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(39) ' apostrophos With .Replacement .text = ChrW(39) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(171) ' Greek open double quote With .Replacement .text = ChrW(56) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(187) ' Greek close double quote With .Replacement .text = ChrW(48) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(58) ' colon With .Replacement .text = ChrW(51) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(903) ' Greek semicolon (ano teleia) With .Replacement .text = ChrW(50) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(8213) ' em-dash With .Replacement .text = ChrW(44) & ChrW(45) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(33) ' exclamation point With .Replacement .text = ChrW(54) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(8230) ' ellipsis With .Replacement .text = ChrW(39) & ChrW(39) & ChrW(39) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(45) ' hyphen With .Replacement .text = ChrW(45) .font.Name = "SimBraille" End 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 = "Palatino Linotype" ' .text = ChrW(769) ' ' oxeia ' With .Replacement ' .text = ChrW(34) ' .font.Name = "SimBraille" ' End 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 = "Palatino Linotype" .text = ChrW(167) ' paragraph mark With .Replacement .text = ChrW(57) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(42) ' asterisk With .Replacement .text = ChrW(57) & ChrW(57) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(63) ' English question mark With .Replacement .text = ChrW(56) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(64) ' at symbol With .Replacement .text = ChrW(64) & ChrW(65) & ChrW(84) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(8364) ' euro symbol With .Replacement .text = ChrW(64) & ChrW(69) .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''' ' Math and Other Symbols ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(61) ' equal sign With .Replacement .text = ChrW(88) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(43) ' plus sign With .Replacement .text = ChrW(33) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(47) ' slash With .Replacement .text = ChrW(47) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(60) ' less than sign With .Replacement .text = ChrW(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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(62) ' greater than sign With .Replacement .text = ChrW(79) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(37) ' percent sign With .Replacement .text = ChrW(35) & ChrW(74) & ChrW(48) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(188) ' one quarter symbol With .Replacement .text = ChrW(35) & ChrW(65) & ChrW(47) & ChrW(68) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(189) ' one half symbol With .Replacement .text = ChrW(35) & ChrW(65) & ChrW(47) & ChrW(66) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(190) ' three quarters symbol With .Replacement .text = ChrW(35) & ChrW(67) & ChrW(47) & ChrW(68) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(8532) ' two-thirds symbol With .Replacement .text = ChrW(35) & ChrW(66) & ChrW(47) & ChrW(67) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(8531) ' one-third symbol With .Replacement .text = ChrW(35) & ChrW(65) & ChrW(47) & ChrW(67) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(176) ' degree symbol With .Replacement .text = ChrW(48) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = " " & ChrW(34) ' open quote With .Replacement .text = " " & ChrW(56) .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = ChrW(34) ' close quote With .Replacement .text = ChrW(48) .font.Name = "SimBraille" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''' ' Cardinal Numbers ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(48) ' zero With .Replacement .text = ChrW(35) & ChrW(74) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(49) ' one With .Replacement .text = ChrW(35) & ChrW(65) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(50) ' two With .Replacement .text = ChrW(35) & ChrW(66) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(51) ' three With .Replacement .text = ChrW(35) & ChrW(67) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(52) ' four With .Replacement .text = ChrW(35) & ChrW(68) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(53) ' five With .Replacement .text = ChrW(35) & ChrW(69) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(54) ' six With .Replacement .text = ChrW(35) & ChrW(70) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(55) ' seven With .Replacement .text = ChrW(35) & ChrW(71) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(56) ' eight With .Replacement .text = ChrW(35) & ChrW(72) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = ChrW(57) ' nine With .Replacement .text = ChrW(35) & ChrW(73) .font.Name = "SimBraille" .font.Outline = True End 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 = "Palatino Linotype" .text = " " ' blank space 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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = "^l" ' line break With .Replacement .text = "^l" .font.Name = "SimBraille" End 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 = "Palatino Linotype" .text = "^p" ' paragraph break 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 38 lines of code remove the braille number sign for consecutive numbers ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "SimBraille" .font.Outline = True .text = "^?#" With .Replacement .text = "^&" .font.Shadow = True End 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 = "SimBraille" .font.Outline = True .font.Shadow = True .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 End Sub Sub MonotonicGreekToGreekBraille3() ' ' Part 2 of the same macro ' This part converts an English text found in Greek texts into Braille in ASCII format. '''''''''''''''''''''''' ' Capital Letters ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(65) ' Capital A With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(65) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(66) ' Capital B With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(66) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(67) ' Capital C With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(67) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(68) ' Capital D With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(68) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(69) ' Capital E With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(69) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(70) ' Capital F With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(70) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(71) ' Capital G With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(71) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(72) ' Capital H With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(72) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(73) ' Capital I With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(73) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(74) ' Capital J With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(74) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(75) ' Capital K With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(75) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(76) ' Capital L With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(76) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(77) ' Capital M With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(77) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(78) ' Capital N With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(78) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(79) ' Capital O With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(79) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(80) ' Capital P With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(80) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(81) ' Capital Q With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(81) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(82) ' Capital R With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(82) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(83) ' Capital S With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(83) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(84) ' Capital T With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(84) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(85) ' Capital U With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(85) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(86) ' Capital V With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(86) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(87) ' Capital W With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(87) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(88) ' Capital X With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(88) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(89) ' Capital Y With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(89) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(90) ' Capital Z With .Replacement .text = ChrW(59) & ChrW(44) & ChrW(90) .font.Name = "SimBraille" .font.Bold = True End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''' ' Lowercase Letters ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "Palatino Linotype" .text = ChrW(97) ' Lowercase A With .Replacement .text = ChrW(59) & ChrW(65) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(98) ' Lowercase B With .Replacement .text = ChrW(59) & ChrW(66) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(99) ' Lowercase C With .Replacement .text = ChrW(59) & ChrW(67) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(100) ' Lowercase D With .Replacement .text = ChrW(59) & ChrW(68) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(101) ' Lowercase E With .Replacement .text = ChrW(59) & ChrW(69) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(102) ' Lowercase F With .Replacement .text = ChrW(59) & ChrW(70) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(103) ' Lowercase G With .Replacement .text = ChrW(59) & ChrW(71) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(104) ' Lowercase H With .Replacement .text = ChrW(59) & ChrW(72) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(105) ' Lowercase I With .Replacement .text = ChrW(59) & ChrW(73) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(106) ' Lowercase J With .Replacement .text = ChrW(59) & ChrW(74) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(107) ' Lowercase K With .Replacement .text = ChrW(59) & ChrW(75) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(108) ' Lowercase L With .Replacement .text = ChrW(59) & ChrW(76) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(109) ' Lowercase M With .Replacement .text = ChrW(59) & ChrW(77) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(110) ' Lowercase N With .Replacement .text = ChrW(59) & ChrW(78) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(111) ' Lowercase O With .Replacement .text = ChrW(59) & ChrW(79) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(112) ' Lowercase P With .Replacement .text = ChrW(59) & ChrW(80) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(113) ' Lowercase Q With .Replacement .text = ChrW(59) & ChrW(81) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(114) ' Lowercase R With .Replacement .text = ChrW(59) & ChrW(82) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(115) ' Lowercase S With .Replacement .text = ChrW(59) & ChrW(83) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(116) ' Lowercase T With .Replacement .text = ChrW(59) & ChrW(84) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(117) ' Lowercase U With .Replacement .text = ChrW(59) & ChrW(85) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(118) ' Lowercase V With .Replacement .text = ChrW(59) & ChrW(86) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(119) ' Lowercase W With .Replacement .text = ChrW(59) & ChrW(87) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(120) ' Lowercase X With .Replacement .text = ChrW(59) & ChrW(88) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(121) ' Lowercase Y With .Replacement .text = ChrW(59) & ChrW(89) .font.Name = "SimBraille" .font.Bold = True End 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 = "Palatino Linotype" .text = ChrW(122) ' Lowercase Z With .Replacement .text = ChrW(59) & ChrW(90) .font.Name = "SimBraille" .font.Bold = True End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 53 lines of code temporarily insert a space after a paragraph break and ' a line break so that the macros won't miss a word with consecutive capitals at ' the beginning of a line. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "^l.^?." .font.Name = "SimBraille" With .Replacement .text = ChrW(9996) & "^&" End 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(9996) & "^l" 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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "^p.^?." .font.Name = "SimBraille" With .Replacement .text = ChrW(9997) & "^&" End 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(9997) & "^p" 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 ' ++++++++++++++++++ Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "^l;,^?;," .font.Name = "SimBraille" With .Replacement .text = ChrW(9994) & "^&" End 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(9994) & "^l" 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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "^p;,^?;," .font.Name = "SimBraille" With .Replacement .text = ChrW(9995) & "^&" End 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(9995) & "^p" 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 41 lines of code add a double capital braille sign before consecutive ' capital letters ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = " .^?." .font.Name = "SimBraille" With .Replacement .text = "p^&" .font.Name = "SimBraille" .font.Outline = True End 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 = "p " .font.Name = "SimBraille" .font.Outline = True With .Replacement .text = " ." .font.Name = "SimBraille" .font.Outline = False End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' The following 38 lines of code remove the capital braille sign for the letters within ' an all-caps word. ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "SimBraille" .font.Outline = True .text = "^?." With .Replacement .text = "^&" .font.Shadow = True End 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 = "SimBraille" .font.Outline = True .font.Shadow = True .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 ' ********************************************************* ' ' The following 123 lines of code remove the braille foreign language sign for ' consecutive CAPITAL characters in a foreign language (such as English) ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ";," .font.Bold = True .Replacement.text = "*" ' a temporary change to facilitate macro .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ' The following 41 lines of code add a double capital braille sign before consecutive ' capital letters ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = " *^?*" .font.Name = "SimBraille" With .Replacement .text = "p^&" .font.Name = "SimBraille" .font.Italic = True End 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 = "p *" .font.Name = "SimBraille" .font.Italic = True With .Replacement .text = " ;,," .font.Name = "SimBraille" .font.Italic = False End 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 = "SimBraille" .font.Bold = True .text = "^?*" With .Replacement .text = "^&" .font.Shadow = True End 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 = "SimBraille" .font.Bold = True .font.Shadow = True .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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "*" .font.Bold = True .Replacement.text = ";," ' changing things back to normal .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ' The following 38 lines of code remove the braille foreign language sign for ' consecutive LOWERCASE characters in a foreign language (such as English) ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .font.Name = "SimBraille" .font.Bold = True .text = "^?;" With .Replacement .text = "^&" .font.Shadow = True End 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 = "SimBraille" .font.Bold = True .font.Shadow = True .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 ' The following 34 lines of code remove those additional spaces and weird markers ' that were added to facilitate macro transformation of consecutive capital letters. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(9996) & "^l " With .Replacement .text = "^l" End 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(9997) & "^p " With .Replacement .text = "^p" End 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(9994) & "^l " With .Replacement .text = "^l" End 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(9995) & "^p " With .Replacement .text = "^p" End With .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' These final 6 lines of code remove the formatting used to mark consecutive symbols Selection.WholeStory With Selection.font .Outline = False .Shadow = False .Bold = False .Italic = False End With Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 ' deletes initial temporary space End Sub