Список проголосовавших за комментарий "<a class="imgpreview" href="/uploads/2022/images/05/70/34/2022/05/26/245303.png"><img src="/uploads/2022/images/05/70/34/2022/05/26/16d7da.webp"/></a><br/> <br/> Макрос Word заменяет буквы русские на похожие буквы импортные <br/> что затрудняет интернет поиск на форумах и др.… разработка 1999г.<br/> ещё при старом режиме <br/> <br/> <br/> Sub IMPORTNYE()<br/> '<br/> Dim N(17), y(17) As Variant<br/> <br/> N(1) = «у»: y(1) = «y»<br/> N(2) = «е»: y(2) = «e»<br/> N(3) = «Н»: y(3) = «H»<br/> N(4) = «х»: y(4) = «x»<br/> N(5) = «а»: y(5) = «a»<br/> N(6) = «р»: y(6) = «p»<br/> N(7) = «о»: y(7) = «o»<br/> N(8) = «с»: y(8) = «c»<br/> N(9) = «Е»: y(9) = «E»<br/> N(10) = «Х»: y(10) = «X»<br/> N(11) = «В»: y(11) = «B»<br/> N(12) = «А»: y(12) = «A»<br/> N(13) = «Р»: y(13) = «P»<br/> N(14) = «О»: y(14) = «O»<br/> N(15) = «С»: y(15) = «C»<br/> N(16) = «М»: y(16) = «M»<br/> N(17) = «Т»: y(17) = «T»<br/> <br/> Selection.HomeKey Unit:=wdStory<br/> ActiveWindow.View.Type = wdNormalView<br/> ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit<br/> <br/> For i = 1 To 17<br/> Selection.Find.ClearFormatting<br/> Selection.Find.Replacement.ClearFormatting<br/> With Selection.Find<br/> .Text = N(i)<br/> .Replacement.Text = y(i)<br/> .Forward = True<br/> .Wrap = wdFindContinue<br/> .Format = False<br/> .MatchCase = True<br/> .MatchWholeWord = False<br/> .MatchWildcards = False<br/> .MatchSoundsLike = False<br/> .MatchAllWordForms = False<br/> End With<br/> Selection.Find.Execute Replace:=wdReplaceAll<br/> Next i<br/> <br/> Selection.EndKey Unit:=wdStory<br/> ActiveWindow.View.Type = wdPageView<br/> ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit<br/> End Sub<br/> <br/> <br/> "