Sub PolyMono() ' ' This macro changes polytonic unicode Greek to monotonic Greek ' Macro recorded 12/7/2006 by Father Ephraim ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7936) & ChrW(7937) & ChrW(8064) & ChrW(8065) & _ ChrW(8115) & "]" .Replacement.text = ChrW(945) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8049) & ChrW(8048) & ChrW(7940) & ChrW(7938) & _ ChrW(7941) & ChrW(7939) & ChrW(7942) & ChrW(7943) & ChrW(8116) & _ ChrW(8114) & ChrW(8068) & ChrW(8066) & ChrW(8069) & ChrW(8067) & _ ChrW(8070) & ChrW(8071) & ChrW(8118) & ChrW(8119) & "]" .Replacement.text = ChrW(940) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7952) & ChrW(7953) & "]" .Replacement.text = ChrW(949) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8051) & ChrW(8050) & ChrW(7956) & ChrW(7954) & _ ChrW(7957) & ChrW(7955) & "]" .Replacement.text = ChrW(941) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7968) & ChrW(7969) & ChrW(8080) & ChrW(8081) & _ ChrW(8131) & "]" .Replacement.text = ChrW(951) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7972) & ChrW(7970) & ChrW(7973) & ChrW(7971) & _ ChrW(8132) & ChrW(8130) & ChrW(8084) & ChrW(8082) & ChrW(8085) & _ ChrW(8083) & ChrW(8053) & ChrW(8052) & ChrW(7974) & ChrW(7975) & _ ChrW(8086) & ChrW(8087) & ChrW(8134) & ChrW(8135) & "]" .Replacement.text = ChrW(942) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7984) & ChrW(7985) & "]" .Replacement.text = ChrW(953) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7988) & ChrW(7986) & ChrW(7989) & ChrW(7987) & _ ChrW(8055) & ChrW(8054) & ChrW(7990) & ChrW(7991) & ChrW(8150) & "]" .Replacement.text = ChrW(943) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8000) & ChrW(8001) & "]" .Replacement.text = ChrW(959) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8057) & ChrW(8056) & ChrW(8004) & ChrW(8002) & _ ChrW(8005) & ChrW(8003) & "]" .Replacement.text = ChrW(972) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8016) & ChrW(8017) & "]" .Replacement.text = ChrW(965) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8059) & ChrW(8058) & ChrW(8021) & ChrW(8019) & _ ChrW(8023) & ChrW(8166) & ChrW(8020) & ChrW(8018) & ChrW(8022) & "]" .Replacement.text = ChrW(973) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8032) & ChrW(8033) & ChrW(8096) & ChrW(8097) & _ ChrW(8179) & "]" .Replacement.text = ChrW(969) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8061) & ChrW(8060) & ChrW(8036) & ChrW(8034) & _ ChrW(8037) & ChrW(8035) & ChrW(8038) & ChrW(8039) & ChrW(8180) & _ ChrW(8178) & ChrW(8100) & ChrW(8098) & ChrW(8101) & ChrW(8099) & _ ChrW(8102) & ChrW(8103) & ChrW(8182) & ChrW(8183) & "]" .Replacement.text = ChrW(974) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7944) & ChrW(7945) & ChrW(8072) & ChrW(8073) & _ ChrW(8124) & "]" .Replacement.text = ChrW(913) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7948) & ChrW(7946) & ChrW(7949) & ChrW(7947) & _ ChrW(7950) & ChrW(7951) & ChrW(8076) & ChrW(8074) & ChrW(8077) & _ ChrW(8075) & ChrW(8078) & ChrW(8079) & ChrW(8123) & ChrW(8122) & "]" .Replacement.text = ChrW(902) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7960) & ChrW(7961) & "]" .Replacement.text = ChrW(917) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7964) & ChrW(7962) & ChrW(7965) & ChrW(7963) & _ ChrW(8137) & ChrW(8136) & "]" .Replacement.text = ChrW(904) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7976) & ChrW(7977) & ChrW(8088) & ChrW(8089) & _ ChrW(8140) & "]" .Replacement.text = ChrW(919) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7980) & ChrW(7978) & ChrW(7981) & ChrW(7979) & _ ChrW(7982) & ChrW(7983) & ChrW(8092) & ChrW(8090) & ChrW(8093) & _ ChrW(8091) & ChrW(8094) & ChrW(8095) & ChrW(8139) & ChrW(8138) & "]" .Replacement.text = ChrW(905) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7992) & ChrW(7993) & "]" .Replacement.text = ChrW(921) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(7996) & ChrW(7994) & ChrW(7997) & ChrW(7995) & _ ChrW(7998) & ChrW(7999) & ChrW(8155) & ChrW(8154) & "]" .Replacement.text = ChrW(906) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8008) & ChrW(8009) & "]" .Replacement.text = ChrW(927) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8012) & ChrW(8010) & ChrW(8013) & ChrW(8011) & _ ChrW(8185) & ChrW(8184) & "]" .Replacement.text = ChrW(908) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(8025) .Replacement.text = ChrW(933) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8029) & ChrW(8027) & ChrW(8031) & ChrW(8171) & _ ChrW(8170) & "]" .Replacement.text = ChrW(910) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8040) & ChrW(8041) & ChrW(8104) & ChrW(8105) & _ ChrW(8188) & "]" .Replacement.text = ChrW(937) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8044) & ChrW(8042) & ChrW(8045) & ChrW(8043) & _ ChrW(8046) & ChrW(8047) & ChrW(8108) & ChrW(8106) & ChrW(8109) & _ ChrW(8107) & ChrW(8110) & ChrW(8111) & ChrW(8186) & ChrW(8187) & "]" .Replacement.text = ChrW(911) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8162) & ChrW(8163) & "]" .Replacement.text = ChrW(944) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8147) & ChrW(8146) & "]" .Replacement.text = ChrW(912) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "[" & ChrW(8165) & ChrW(8164) & "]" .Replacement.text = ChrW(961) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(8172) .Replacement.text = ChrW(929) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(8151) .Replacement.text = ChrW(970) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(8167) .Replacement.text = ChrW(971) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(8125) .Replacement.text = ChrW(900) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ' The rest of this macro removes the monotonic accent from monosyllabic words ' Macro recorded 12/7/2006 by Father Ephraim ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = ChrW(964) & ChrW(959) & ChrW(973) .Replacement.text = ChrW(964) & ChrW(959) & ChrW(965) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(964) & ChrW(972) & ChrW(957) .Replacement.text = ChrW(964) & ChrW(959) & ChrW(957) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(964) & ChrW(974) & ChrW(957) .Replacement.text = ChrW(964) & ChrW(969) & ChrW(957) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(964) & ChrW(959) & ChrW(973) & ChrW(962) .Replacement.text = ChrW(964) & ChrW(959) & ChrW(965) & ChrW(962) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(964) & ChrW(942) & ChrW(962) .Replacement.text = ChrW(964) & ChrW(951) & ChrW(962) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(964) & ChrW(942) .Replacement.text = ChrW(964) & ChrW(951) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(964) & ChrW(972) .Replacement.text = ChrW(964) & ChrW(959) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(964) & ChrW(940) .Replacement.text = ChrW(964) & ChrW(945) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(963) & ChrW(964) & ChrW(972) & ChrW(957) .Replacement.text = ChrW(963) & ChrW(964) & ChrW(959) & ChrW(957) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(963) & ChrW(964) & ChrW(959) & ChrW(973) & ChrW(962) .Replacement.text = ChrW(963) & ChrW(964) & ChrW(959) & ChrW(965) & _ ChrW(962) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(963) & ChrW(964) & ChrW(942) & ChrW(957) .Replacement.text = ChrW(963) & ChrW(964) & ChrW(951) & ChrW(957) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(963) & ChrW(964) & ChrW(942) .Replacement.text = ChrW(963) & ChrW(964) & ChrW(951) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(963) & ChrW(964) & ChrW(943) & ChrW(962) .Replacement.text = ChrW(963) & ChrW(964) & ChrW(953) & ChrW(962) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(963) & ChrW(964) & ChrW(972) .Replacement.text = ChrW(963) & ChrW(964) & ChrW(959) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(963) & ChrW(964) & ChrW(940) .Replacement.text = ChrW(963) & ChrW(964) & ChrW(945) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(947) & ChrW(953) & ChrW(940) .Replacement.text = ChrW(947) & ChrW(953) & ChrW(945) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(956) & ChrW(941) .Replacement.text = ChrW(956) & ChrW(949) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(963) & ChrW(941) .Replacement.text = ChrW(963) & ChrW(949) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(960) & ChrW(961) & ChrW(972) & ChrW(962) .Replacement.text = ChrW(960) & ChrW(961) & ChrW(959) & ChrW(962) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(957) & ChrW(940) .Replacement.text = ChrW(957) & ChrW(945) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(960) & ChrW(959) & ChrW(973) .Replacement.text = ChrW(960) & ChrW(959) & ChrW(965) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(940) & ChrW(957) .Replacement.text = ChrW(945) & ChrW(957) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(954) & ChrW(945) & ChrW(943) .Replacement.text = ChrW(954) & ChrW(945) & ChrW(953) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(956) & ChrW(953) & ChrW(940) .Replacement.text = ChrW(956) & ChrW(953) & ChrW(945) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(956) & ChrW(953) & ChrW(940) & ChrW(962) .Replacement.text = ChrW(956) & ChrW(953) & ChrW(945) & ChrW(962) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(948) & ChrW(941) & ChrW(957) .Replacement.text = ChrW(948) & ChrW(949) & ChrW(957) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(952) & ChrW(940) .Replacement.text = ChrW(952) & ChrW(945) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(964) & ChrW(943) & ChrW(962) .Replacement.text = ChrW(964) & ChrW(953) & ChrW(962) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(964) & ChrW(942) & ChrW(957) .Replacement.text = ChrW(964) & ChrW(951) & ChrW(957) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .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(894) .Replacement.text = ";" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.WholeStory Selection.Copy End Sub