Макрос Word форматирует текст для озвучивания 

BALABOLKA = субтитры Youtube для озвучивания 

LITERATURA = текст с номерами и пунктами 

ANEKDOT = комментарии 

HABR = комментарии 

SIGN = знаки 

Digital = цифры удаляет 

YazRU = русские буквы удаляет 

YazIn = латинские буквы удаляет 

TransRuLat = буквы русские в латинские транслит 

TransLatRu = буквы латинские в русские транслит 

Secret = буквы русские некоторые в латинские транслит 

Sub BALABOLKA()
'
Dim n(130), y(130) As Variant

N(1) = "[музыка]": y(1) = " "
N(2) = "[аплодисменты]": y(2) = " "
N(3) = "[смех]": y(3) = ""
N(4) = "[ __ ]": y(4) = " "
N(5) = ChrW(13): y(5) = " " 'ChrW(13) '"^p"
n(6) = " само": y(6) = " само "
n(7) = " где ": y(7) = ". где "
n(8) = " когда ": y(8) = ". когда "
n(9) = "само й": y(9) = "самой"
N(10) = " как. ": y(10) = " как "
N(11) = " так. ": y(11) = " так "
N(12) = " и ": y(12) = ". и "
N(13) = " но ": y(13) = ". но "
N(14) = " а ": y(14) = ". а "
N(15) = ",": y(15) = " "
N(16) = " .": y(16) = ". "
N(17) = "_": y(17) = " "
N(18) = "/": y(18) = " "
N(19) = ";": y(19) = ". "
N(20) = "*": y(20) = " "
N(21) = "…": y(21) = ". "
N(22) = "—": y(22) = " "
N(23) = "---": y(23) = "-"
N(24) = "--": y(24) = "-"
N(25) = ".. ": y(25) = ". "
N(26) = "   ": y(26) = " "
N(27) = "  ": y(27) = " "

n(28) = "вс-таки": y(28) = "всё-таки"
n(29) = " вс ": y(29) = " всё "
n(30) = " ещ ": y(30) = " ещё "
n(31) = "шел ": y(31) = "шёл"
n(32) = " всм ": y(32) = " всём "
n(33) = " ребн": y(33) = " ребён"
n(34) = " шл ": y(34) = " шёл "
n(35) = " пошл ": y(35) = " пошёл "
n(36) = " сошл ": y(36) = " сошёл "
n(37) = "эээ": y(37) = " "
n(38) = "э-э-э": y(38) = " "
n(39) = " ээ ": y(39) = " "
n(40) = "э-э": y(40) = " "
n(41) = " э ": y(41) = " "
n(42) = "ммм": y(42) = " "
n(43) = "м-м-м": y(43) = " "
n(44) = " м-м ": y(44) = " "
n(45) = " м ": y(45) = " "
n(46) = " да ": y(46) = ". Да "
n(47) = "санатор": y(47) = "сана тор"
n(48) = "соглас": y(48) = "со глас"
n(49) = "соб": y(49) = "со б"
n(50) = "созда": y(50) = "соз да"
n(51) = "современ": y(51) = "со времен"
n(52) = "сохран": y(52) = "со хран"
n(53) = "сосредото": y(53) = "со средо то"
n(54) = "со бствен": y(54) = "соб ствен"
n(55) = "совеща": y(55) = "со веща"
n(56) = "согла": y(56) = "со гла"
n(57) = "соедин": y(57) = "со един"
n(58) = "соскоч": y(58) = "со скоч"
n(59) = "тана": y(59) = " тана"
n(60) = "super": y(60) = "super "
n(61) = " и пр.": y(61) = " и прочее"
n(62) = "потом": y(62) = "по том"
n(63) = "псевдо": y(63) = "псевдо "
n(64) = "квази": y(64) = "квази "
n(65) = "анти": y(65) = "анти "
n(66) = "ультра": y(66) = "ультра "
n(67) = "супер": y(67) = "супер "
n(68) = "гипер": y(68) = "гипер "
n(69) = "высоко": y(69) = "высоко "
n(70) = "низко": y(70) = "низко "
n(71) = "о й ": y(71) = "ой "
n(72) = "о е ": y(72) = "ое "
n(73) = "–^p": y(73) = "^p"
n(74) = "– ^p": y(74) = "^p"
n(75) = "-^p": y(75) = "^p"
n(76) = "- ^p": y(76) = "^p"
n(77) = " не ": y(77) = " не^s"
n(78) = ", как будто": y(78) = " как будто"
n(79) = " что ": y(79) = ". что "
n(80) = " если ": y(80) = ". если "
n(81) = "на само м деле": y(81) = " "
n(82) = " блин ": y(82) = " "
n(83) = " вперд": y(83) = " вперёд"
n(84) = " это ": y(84) = " "
n(85) = "здравствуйте": y(85) = " "
n(86) = "уважаемые": y(86) = " "
n(87) = "до свидания": y(87) = " "
n(88) = "всего доброго ": y(88) = " "
n(89) = "дорогие ": y(89) = " "
n(90) = "подписчик": y(90) = " "
n(91) = "спасибо": y(91) = " "
n(92) = "благодарю": y(92) = " "
n(93) = "до встречи": y(93) = " "
n(94) = "мой канал": y(94) = " "
n(95) = "сейчас": y(95) = " "
n(96) = "сечас": y(96) = " "
n(97) = "пока ": y(97) = " "
n(98) = "итак": y(98) = " "
n(99) = "пожалуйста": y(99) = " "
n(100) = "пожалуста": y(100) = " "
n(101) = "доброе утро": y(101) = " "
n(102) = "добрый день": y(102) = " "
n(103) = "добрый вечер": y(103) = " "
n(104) = "меня зовут ": y(104) = " "
n(105) = " чао ": y(105) = " "
n(106) = "приветствую": y(106) = " "
n(107) = "приветствуем": y(107) = " "
n(108) = "привет": y(108) = " "
n(109) = "на моём канале": y(109) = " "
n(110) = "на моем канале": y(110) = " "
n(111) = "на нашем канале ": y(111) = " "
n(112) = "подписывайтесь ": y(112) = " "
n(113) = "смотри": y(113) = " "
n(114) = "слушай": y(114) = " "
n(115) = " те ": y(115) = " "
n(116) = " я я ": y(116) = " "
n(117) = " да да ": y(117) = " "
n(118) = " нет нет ": y(118) = " "
n(119) = " ну ну ": y(119) = " "
n(120) = " но но ": y(120) = " "
n(121) = "чуть чуть": y(121) = " "
n(122) = " вот вот ": y(122) = " "
n(123) = " тут тут ": y(123) = " "
n(124) = " там там ": y(124) = " "
n(125) = " как как": y(125) = " "
n(126) = " так так": y(126) = " "
n(127) = "- ну ": y(127) = " "
n(128) = "  .": y(128) = ". "
n(129) = " .": y(129) = ". "
n(130) = "  ": y(130) = " "

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 130
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub LITERATURA()
'
Dim n(178), y(178) As Variant

n(1) = "^#.^#.": y(1) = " "
n(2) = "вс-таки": y(2) = "всё-таки"
n(3) = " вс ": y(3) = " всё "
n(4) = " ещ ": y(4) = " ещё "
n(5) = "шел ": y(5) = "шёл "
n(6) = "эээ": y(6) = " "
n(7) = "э-э-э": y(7) = " "
n(8) = " ээ ": y(8) = " "
n(9) = "э-э": y(9) = " "
n(10) = " э ": y(10) = " "
n(11) = "ммм": y(11) = " "
n(12) = "м-м-м": y(12) = " "
n(13) = " м-м ": y(13) = " "
n(14) = " м ": y(14) = " "
n(15) = "само": y(15) = "само "
n(16) = " ребн": y(16) = " ребён"
n(17) = "санатор": y(17) = "сана тор"
n(18) = "соглас": y(18) = "со глас"
n(19) = "соблюд": y(19) = "со блюд"
n(20) = "созда": y(20) = "со з да"
n(21) = "современ": y(21) = "со времен"
n(22) = "сохран": y(22) = "со хран"
n(23) = "тана": y(23) = " тана"
n(24) = "super": y(24) = "super "
n(25) = "соб": y(25) = "со б"
n(26) = "совеща": y(26) = "со веща"
n(27) = " и пр.": y(27) = " и прочее"
n(28) = "сосредото": y(28) = "со средото"
n(29) = "согла": y(29) = "со гла"
n(30) = "соедин": y(30) = "со един"
n(31) = "соскоч": y(31) = "со скоч"
n(32) = "сухоп": y(32) = "сухо п"
n(33) = "^$.^$. ": y(33) = " "
n(34) = "^$. ^$. ": y(34) = " "
n(35) = " ^$.^$.": y(35) = " "
n(36) = " ^$. ^$.": y(36) = " "
n(37) = " ^$.": y(37) = " "
n(38) = ". ^$.": y(38) = " "
n(39) = "* * *": y(39) = " "
n(40) = "***": y(40) = " "
n(41) = "–": y(41) = "-"
n(42) = "!": y(42) = "."
n(43) = "  .": y(43) = "."
n(44) = "…": y(44) = "."
n(45) = "...": y(45) = "."
n(46) = "..": y(46) = "."
n(47) = " —^p": y(47) = "."
n(48) = ". . ": y(48) = ". "
n(49) = ". . ": y(49) = ". "
n(50) = ", , ": y(50) = ", "
n(51) = "<неи": y(51) = "^p"
n(52) = "^t": y(52) = " "
n(53) = "()": y(53) = " "
n(54) = "( )": y(54) = " "
n(55) = "(-)": y(55) = " "
n(56) = "( - )": y(56) = " "
n(57) = "(.)": y(57) = " "
n(58) = "(, )": y(58) = " "
n(59) = "(. )": y(59) = " "
n(60) = "( ": y(60) = "("
n(61) = " )": y(61) = ")"
n(62) = "потом": y(62) = "по том"
n(63) = "пошло": y(63) = "по шло"
n(64) = "на само м деле": y(64) = " "
n(65) = "псевдо": y(65) = "псевдо "
n(66) = ", котор": y(66) = " котор"
n(67) = "анти": y(67) = "анти "
n(68) = "ультра": y(68) = "ультра "
n(69) = "супер": y(69) = "супер "
n(70) = "гипер": y(70) = "гипер "
n(71) = "высоко": y(71) = "высоко "
n(72) = "низко": y(72) = "низко "
n(73) = " января": y(73) = " "
n(74) = " февраля": y(74) = " "
n(75) = " марта": y(75) = " "
n(76) = " апреля": y(76) = " "
n(77) = " мая": y(77) = " "
n(78) = " июня": y(78) = " "
n(79) = " июля": y(79) = " "
n(80) = " августа": y(80) = " "
n(81) = " сентября": y(81) = " "
n(82) = " октября": y(82) = " "
n(83) = " ноября": y(83) = " "
n(84) = " декабря": y(84) = " "
n(85) = " лет ": y(85) = " "
n(86) = " лет.": y(86) = "."
n(87) = "лет,": y(87) = ","
n(88) = "-го": y(88) = " "
n(89) = "-й": y(89) = " "
n(90) = "-е": y(90) = " "
n(91) = "-м": y(91) = " "
n(92) = "-х": y(92) = " "
n(93) = "-ти ": y(93) = " "
n(94) = "-м": y(94) = " "
n(95) = "возраст ": y(95) = " "
n(96) = " ы^$ ": y(96) = " "
n(97) = "( г.)": y(97) = " "
n(98) = " г.": y(98) = " "
n(99) = "гг.": y(99) = " "
n(100) = " годах": y(100) = " "
n(101) = " годы": y(101) = " "
n(102) = " года": y(102) = " "
n(103) = " году": y(103) = " "
n(104) = " годы": y(104) = " "
n(105) = " дня ": y(105) = " "
n(106) = " дней ": y(106) = " "
n(107) = " недель ": y(107) = " "
n(108) = " месяцев ": y(108) = " "
n(109) = "   ": y(109) = " "
n(110) = "  ": y(110) = " "
n(111) = " .": y(111) = ". "
n(112) = " ,": y(112) = ", "
n(113) = "": y(113) = " "
n(114) = " ^#^#^#. ": y(114) = " "
n(115) = " ^#^#. ": y(115) = " "
n(116) = " ^#. ": y(116) = " "
n(117) = " часа назад": y(117) = " "
n(118) = " часов назад": y(118) = " "
n(119) = " дня назад": y(119) = " "
n(120) = " дней назад": y(120) = " "
n(121) = " сегодня в ": y(121) = " "
n(122) = " вчера в ": y(122) = " "
n(123) = "• ": y(123) = " "
n(124) = "дорогой": y(124) = "доро гой"
n(125) = "о й ": y(125) = "ой "
n(126) = "о е ": y(126) = "ое "
n(127) = "^p^#": y(127) = "^p"
n(128) = "^p^#.": y(128) = "^p"
n(129) = "^p^#)": y(129) = "^p"
n(130) = "^p... ": y(130) = "^p"
n(131) = "^p.. ": y(131) = "^p"
n(132) = "^p. ": y(132) = "^p"
n(133) = "-^p": y(133) = "^p"
n(134) = "^p ": y(134) = "^p"
n(135) = "^p ^p": y(135) = "^p^p"
n(136) = "^p^p^p": y(136) = "^p^p"
n(137) = "^p*": y(137) = "^p"
n(138) = "^p ": y(138) = "^p^p"
n(139) = "^p.^p": y(139) = "^p^p"
n(140) = "^p^p^p": y(140) = "^p"
n(141) = "^p^$)": y(141) = "^p"
n(142) = "^p^$.": y(142) = "^p"
n(143) = "^p ": y(143) = "^p"
n(144) = "^p.": y(144) = "^p"
n(145) = "^p)": y(145) = "^p"
n(146) = "–^p": y(146) = "^p"
n(147) = "– ^p": y(147) = "^p"
n(148) = "-^p": y(148) = "^p"
n(149) = "- ^p": y(149) = "^p"
n(150) = "_": y(150) = " "
n(151) = " не ": y(151) = " не^s"
n(152) = "^p ,^p": y(152) = "^p^p"
n(153) = "^p,^p": y(153) = "^p^p"
n(154) = ", как будто": y(154) = "как будто"
n(155) = " блин ": y(155) = " "
n(156) = "здравствуйте": y(156) = " "
n(157) = "привет": y(157) = " "
n(158) = "до свидания": y(158) = " "
n(159) = "прощай": y(159) = " "
n(160) = "сейчас": y(160) = " "
n(161) = "сечас": y(161) = " "
n(162) = ". пока ": y(162) = " "
n(163) = ". итак": y(163) = " "
n(164) = "пожалуйста": y(164) = " "
n(165) = "пожалуста": y(165) = " "
n(166) = " чао ": y(166) = " "
n(167) = "подписывайтесь ": y(167) = " "
n(168) = "смотри ": y(168) = " "
n(169) = "слушай ": y(169) = " "
n(170) = " это ": y(170) = " "
n(171) = ", что ": y(171) = ". что "
n(172) = ", если ": y(172) = ". если "
n(173) = " шл ": y(173) = " шёл "
n(174) = " пошл ": y(174) = " пошёл "
n(175) = "- ну ": y(175) = " "
n(176) = "  ": y(176) = " "
n(177) = "  ": y(177) = " "
n(178) = "  ": y(178) = " "

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 178
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub ANEKDOT()
'
Dim n(40), y(40) As Variant

n(1) = "ответить": y(1) = " "
n(2) = "скрыто": y(2) = " "
n(3) = "Сегодня в": y(3) = " "
n(4) = "Вчера в": y(4) = " "
n(5) = " Еще^p": y(5) = "^p"
n(6) = "avatar": y(6) = " "
n(7) = "1": y(7) = " "
n(8) = "2": y(8) = " "
n(9) = "3": y(9) = " "
n(10) = "4": y(10) = " "
n(11) = "5": y(11) = " "
n(12) = "6": y(12) = " "
n(13) = "7": y(13) = " "
n(14) = "8": y(14) = " "
n(15) = "9": y(15) = " "
n(16) = "0": y(16) = " "
n(17) = "+": y(17) = " "
n(18) = "+- –": y(18) = " "
n(19) = "–": y(19) = " "
n(20) = ":": y(20) = " "
n(21) = "/": y(21) = " "
n(22) = "_": y(22) = " "
n(23) = "•": y(23) = " "
n(24) = "@": y(24) = " "
n(25) = "  ": y(25) = " "
n(26) = ">": y(26) = " "
n(27) = "=": y(27) = " "
n(28) = "^p ^p": y(28) = "^p^p"
n(29) = "^p^p^p": y(29) = "^p^p"
n(30) = ".  . ": y(30) = " "
n(31) = " .": y(31) = ". "
n(32) = ",": y(32) = " "
n(33) = "со": y(33) = "со "
n(34) = "%": y(34) = " "
n(35) = "^p - ^p": y(35) = "^p"
n(36) = "^p в ^p": y(36) = "^p"
n(37) = ". . ": y(37) = ". "
n(38) = "..": y(38) = "."
n(39) = "   ": y(39) = " "
n(40) = "  ": y(40) = " "

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 40
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub HABR()
'
Dim n(33), y(33) As Variant

n(1) = "Ответить Добавить в закладки Ещё": y(1) = " "
n(2) = "Показать предыдущий комментарий": y(2) = " "
n(3) = "НЛО прилетело и опубликовало эту надпись здесь": y(3) = " "
n(4) = "Скопировать ссылку на RSS": y(4) = " "
n(5) = "Комментарий был изменен": y(5) = " "
n(6) = "часа назад": y(6) = " "
n(7) = "часов назад": y(7) = " "
n(8) = "дня назад": y(8) = " "
n(9) = "дней назад": y(9) = " "
n(10) = "месяц назад": y(10) = " "
n(11) = "месяцев назад": y(11) = " "
n(12) = "лет назад": y(12) = " "
n(13) = "Всего голосов": y(13) = " "
n(14) = "вчера в": y(14) = " "
n(15) = "сегодня в": y(15) = " "
n(16) = " янв ": y(16) = " "
n(17) = " фев ": y(17) = " "
n(18) = " мар ": y(18) = " "
n(19) = " апр ": y(19) = " "
n(20) = " май ": y(20) = " "
n(21) = " июн ": y(21) = " "
n(22) = " июл ": y(22) = " "
n(23) = " авг ": y(23) = " "
n(24) = " сен ": y(24) = " "
n(25) = " окт ": y(25) = " "
n(26) = " ноя ": y(26) = " "
n(27) = " дек ": y(27) = " "
n(28) = "^p ^p": y(28) = "^p^p"
n(29) = "^p^p^p": y(29) = "^p^p"
n(30) = "   ": y(30) = " "
n(31) = "  ": y(31) = " "
n(32) = "   ": y(32) = " "
n(33) = "^p в ^p": y(33) = "^p^p"

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 33
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub SIGN()
'
Dim n(44), y(44) As Variant

n(1) = "!": y(1) = " "
n(2) = "@": y(2) = " "
n(3) = "#": y(3) = " "
n(4) = "$": y(4) = " "
n(5) = "%": y(5) = " "

n(6) = "^": y(6) = " "
n(7) = "&": y(7) = " "
n(8) = "*": y(8) = " "
n(9) = "(": y(9) = " "
n(10) = ")": y(10) = " "
n(11) = "_": y(11) = " "
n(12) = "=": y(12) = " "

n(13) = "?": y(13) = ". "
n(14) = "<": y(14) = " "
n(15) = ">": y(15) = " "

n(16) = "/": y(16) = " "
n(17) = "\": y(17) = " "
n(18) = "|": y(18) = " "
n(19) = "+": y(19) = " "

n(20) = "[": y(20) = " "
n(21) = "]": y(21) = " "
n(22) = "{": y(22) = " "
n(23) = "}": y(23) = " "
n(24) = "«": y(24) = " "
n(25) = "»": y(25) = " "
n(26) = "–": y(26) = " "
n(27) = "-": y(27) = " "

n(28) = "^t": y(28) = " "
n(29) = ":": y(29) = " "
n(30) = ";": y(30) = ". "
n(31) = "'": y(31) = " "
n(32) = ",": y(32) = " "

n(33) = "^$. ^$.": y(33) = " "
n(34) = "^$.^$.": y(34) = " "

n(35) = "..": y(35) = "."
n(36) = ". . ": y(36) = ". "
n(37) = " . ": y(37) = ". "

n(38) = " ": y(38) = " "
n(39) = "  ": y(39) = " "
n(40) = "  ": y(40) = " "

n(41) = " .": y(41) = ". "
n(42) = "  ": y(42) = " "
n(43) = "  ": y(43) = " "
n(44) = "  ": y(44) = " "

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 44
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub Digital()
'
Dim n(11), y(11) As Variant

n(1) = "^#": y(1) = " "
n(2) = ":": y(2) = " "
n(3) = "%": y(3) = " "
n(4) = "^p. ": y(4) = ChrW$(13)
n(5) = "/": y(5) = " "
n(6) = "$": y(6) = " "
n(7) = "#": y(7) = " "
n(8) = "№": y(8) = " "
n(9) = "руб.": y(9) = " "
n(10) = "рублей": y(10) = " "
n(11) = "/": y(11) = " "

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 11
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub YazRU()
'
Dim n(37), y(37) As Variant

n(1) = "а": y(1) = " "
n(2) = "б": y(2) = " "
n(3) = "в": y(3) = " "
n(4) = "г": y(4) = " "
n(5) = "д": y(5) = " "
n(6) = "е": y(6) = " "
n(7) = "ё": y(7) = " "
n(8) = "ж": y(8) = " "
n(9) = "з": y(9) = " "
n(10) = "и": y(10) = " "
n(11) = "й": y(11) = " "
n(12) = "к": y(12) = " "
n(13) = "л": y(13) = " "
n(14) = "м": y(14) = " "
n(15) = "н": y(15) = " "
n(16) = "о": y(16) = " "
n(17) = "п": y(17) = " "
n(18) = "р": y(18) = " "
n(19) = "с": y(19) = " "
n(20) = "т": y(20) = " "
n(21) = "у": y(21) = " "
n(22) = "ф": y(22) = " "
n(23) = "х": y(23) = " "
n(24) = "ц": y(24) = " "
n(25) = "ч": y(25) = " "
n(26) = "ш": y(26) = " "
n(27) = "щ": y(27) = " "
n(28) = "ъ": y(28) = " "
n(29) = "ы": y(29) = " "
n(30) = "ь": y(30) = " "
n(31) = "э": y(31) = " "
n(32) = "ю": y(32) = " "
n(33) = "я": y(33) = " "

n(34) = "   ": y(34) = " "
n(35) = "   ": y(35) = " "
n(36) = "  ": y(36) = " "
n(37) = "  ": y(37) = " "

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 37
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub YazIn()
'
Dim n(30), y(30) As Variant

n(1) = "a": y(1) = " "
n(2) = "b": y(2) = " "
n(3) = "c": y(3) = " "
n(4) = "d": y(4) = " "
n(5) = "e": y(5) = " "
n(6) = "f": y(6) = " "
n(7) = "g": y(7) = " "
n(8) = "h": y(8) = " "
n(9) = "i": y(9) = " "
n(10) = "j": y(10) = " "
n(11) = "k": y(11) = " "
n(12) = "l": y(12) = " "
n(13) = "m": y(13) = " "
n(14) = "n": y(14) = " "
n(15) = "o": y(15) = " "
n(16) = "p": y(16) = " "
n(17) = "q": y(17) = " "
n(18) = "r": y(18) = " "
n(19) = "s": y(19) = " "
n(20) = "t": y(20) = " "
n(21) = "u": y(21) = " "
n(22) = "v": y(22) = " "
n(23) = "w": y(23) = " "
n(24) = "x": y(24) = " "
n(25) = "y": y(25) = " "
n(26) = "z": y(26) = " "
n(27) = "@": y(27) = " "
n(28) = "   ": y(28) = " "
n(29) = "  ": y(29) = " "
n(30) = "  ": y(30) = " "

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 30
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub TransRuLat()
'
Dim n(66), y(66) As Variant

n(1) = "а": y(1) = "a"
n(2) = "б": y(2) = "b"
n(3) = "в": y(3) = "v"
n(4) = "г": y(4) = "g"
n(5) = "д": y(5) = "d"
n(6) = "е": y(6) = "e"
n(7) = "ё": y(7) = "yo"
n(8) = "ж": y(8) = "zh"
n(9) = "з": y(9) = "z"
n(10) = "и": y(10) = "i"
n(11) = "й": y(11) = "j"
n(12) = "к": y(12) = "k"
n(13) = "л": y(13) = "l"
n(14) = "м": y(14) = "m"
n(15) = "н": y(15) = "n"
n(16) = "о": y(16) = "o"
n(17) = "п": y(17) = "p"
n(18) = "р": y(18) = "r"
n(19) = "с": y(19) = "s"
n(20) = "т": y(20) = "t"
n(21) = "у": y(21) = "u"
n(22) = "ф": y(22) = "f"
n(23) = "х": y(23) = "h"
n(24) = "ц": y(24) = "c"
n(25) = "ч": y(25) = "ch"
n(26) = "ш": y(26) = "sch"
n(27) = "щ": y(27) = "sch"
n(28) = "ъ": y(28) = "'"
n(29) = "ы": y(29) = "y"
n(30) = "ь": y(30) = "'"
n(31) = "э": y(31) = "je"
n(32) = "ю": y(32) = "yu"
n(33) = "я": y(33) = "ya"
n(34) = "А": y(34) = "A"
n(35) = "Б": y(35) = "B"
n(36) = "В": y(36) = "V"
n(37) = "Г": y(37) = "G"
n(38) = "Д": y(38) = "D"
n(39) = "Е": y(39) = "E"
n(40) = "Ё": y(40) = "YO"
n(41) = "Ж": y(41) = "ZH"
n(42) = "З": y(42) = "Z"
n(43) = "И": y(43) = "I"
n(44) = "Й": y(44) = "J"
n(45) = "К": y(45) = "K"
n(46) = "Л": y(46) = "L"
n(47) = "М": y(47) = "M"
n(48) = "Н": y(48) = "N"
n(49) = "О": y(49) = "O"
n(50) = "П": y(50) = "P"
n(51) = "Р": y(51) = "R"
n(52) = "С": y(52) = "S"
n(53) = "Т": y(53) = "T"
n(54) = "У": y(54) = "U"
n(55) = "Ф": y(55) = "F"
n(56) = "Х": y(56) = "H"
n(57) = "Ц": y(57) = "C"
n(58) = "Ч": y(58) = "CH"
n(59) = "Ш": y(59) = "SCH"
n(60) = "Щ": y(60) = "SCH"
n(61) = "Ъ": y(61) = "'"
n(62) = "Ы": y(62) = "Y"
n(63) = "Ь": y(63) = "'"
n(64) = "Э": y(64) = "JE"
n(65) = "Ю": y(65) = "YU"
n(66) = "Я": y(66) = "YA"

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 66
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub TransLatRu()
'
Dim n(42), y(42) As Variant

n(1) = "tsch": y(1) = "ч"
n(2) = "tch": y(2) = "ч"
n(3) = "sch": y(3) = "ш"
n(4) = "sh": y(4) = "ш"
n(5) = "ch": y(5) = "ч"
n(6) = "ck": y(6) = "к"
n(7) = "yj": y(7) = "ый"
n(8) = "ye": y(8) = "ые"
n(9) = "ya": y(9) = "я"
n(10) = "ye": y(10) = "э"
n(11) = "yo": y(11) = "ё"
n(12) = "yu": y(12) = "ю"
n(13) = "zh": y(13) = "ж"
n(14) = "je": y(14) = "э"
n(15) = "ju": y(15) = "ю"
n(16) = "a": y(16) = "а"
n(17) = "b": y(17) = "б"
n(18) = "c": y(18) = "ц"
n(19) = "d": y(19) = "д"
n(20) = "e": y(20) = "е"
n(21) = "f": y(21) = "ф"
n(22) = "g": y(22) = "г"
n(23) = "h": y(23) = "х"
n(24) = "i": y(24) = "и"
n(25) = "j": y(25) = "й"
n(26) = "k": y(26) = "к"
n(27) = "l": y(27) = "л"
n(28) = "m": y(28) = "м"
n(29) = "n": y(29) = "н"
n(30) = "o": y(30) = "о"
n(31) = "p": y(31) = "п"
n(32) = "q": y(32) = "к"
n(33) = "r": y(33) = "р"
n(34) = "s": y(34) = "с"
n(35) = "t": y(35) = "т"
n(36) = "u": y(36) = "у"
n(37) = "v": y(37) = "в"
n(38) = "w": y(38) = "в"
n(39) = "x": y(39) = "кс"
n(40) = "y": y(40) = "ы"
n(41) = "z": y(41) = "з"
n(42) = "'": y(42) = "ь"

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 42
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub SECRET()
'
Dim n(17), y(17) As Variant

n(1) = " у ": y(1) = " "
n(2) = " е ": y(2) = " "
n(3) = " Н ": y(3) = " "
n(4) = " х ": y(4) = " "
n(5) = " а ": y(5) = " "
n(6) = " р ": y(6) = " "
n(7) = " о ": y(7) = " "
n(8) = " с ": y(8) = " "
n(9) = " Е ": y(9) = " "
n(10) = " Х ": y(10) = " "
n(11) = " В ": y(11) = " "
n(12) = " А ": y(12) = " "
n(13) = " Р ": y(13) = " "
n(14) = " О ": y(14) = " "
n(15) = " С ": y(15) = " "
n(16) = " М ": y(16) = " "
n(17) = " Т ": y(17) = " "

   ActiveWindow.View.Type = wdWebView
   Selection.HomeKey Unit:=wdStory

For i = 1 To 17
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = n(i)
        .Replacement.Text = y(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i

    Selection.EndKey Unit:=wdStory
    ActiveWindow.View.Type = wdPageView
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub