Во-первых, упомянутый здесь ISO 9 (ГОСТ 7.79-2000) - это один из, как минимум, трех официальных стандартов в РФ.
Есть еще ГОСТ 16876-71 и СЭВ 1362-78. Каким пользоваться автору для решения его проблемы - прочтение русского текста на компьютере без кириллицы - дело малопринципиальное.
Странно, что у многих возникла проблема создания макроса в Word.
Вот один из вариантов:
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 08.05.2008 gerasimovav
Selection.HomeKey Unit:=wdLine
Application.Keyboard (1033)
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
While ((Selection.End + 1) <> Selection.StoryLength)
Select Case Selection
Case "A"
Selection.TypeText Text:="А"
Case "Б"
Selection.TypeText Text:="B"
Case "В"
Selection.TypeText Text:="V"
Case "Г"
Selection.TypeText Text:="G"
Case "Д"
Selection.TypeText Text:="D"
Case "Е"
Selection.TypeText Text:="E"
Case "Ё"
Selection.TypeText Text:="Yo"
Case "Ж"
Selection.TypeText Text:="Zh"
Case "З"
Selection.TypeText Text:="Z"
Case "И"
Selection.TypeText Text:="I"
Case "Й"
Selection.TypeText Text:="J"
Case "К"
Selection.TypeText Text:="K"
Case "Л"
Selection.TypeText Text:="L"
Case "М"
Selection.TypeText Text:="M"
Case "Н"
Selection.TypeText Text:="N"
Case "О"
Selection.TypeText Text:="O"
Case "П"
Selection.TypeText Text:="P"
Case "Р"
Selection.TypeText Text:="R"
Case "С"
Selection.TypeText Text:="S"
Case "Т"
Selection.TypeText Text:="T"
Case "У"
Selection.TypeText Text:="U"
Case "Ф"
Selection.TypeText Text:="F"
Case "Х"
Selection.TypeText Text:="H"
Case "Ц"
Selection.TypeText Text:="C"
Case "Ч"
Selection.TypeText Text:="Ch"
Case "Ш"
Selection.TypeText Text:="Sh"
Case "Щ"
Selection.TypeText Text:="Shh"
Case "Ь"
Selection.TypeText Text:="'"
Case "Ы"
Selection.TypeText Text:="Y"
Case "Ъ"
Selection.TypeText Text:="''"
Case "Э"
Selection.TypeText Text:="E"
Case "Ю"
Selection.TypeText Text:="Yu"
Case "Я"
Selection.TypeText Text:="Ya"
Case "а"
Selection.TypeText Text:="a"
Case "б"
Selection.TypeText Text:="b"
Case "в"
Selection.TypeText Text:="v"
Case "г"
Selection.TypeText Text:="g"
Case "д"
Selection.TypeText Text:="d"
Case "е"
Selection.TypeText Text:="e"
Case "ё"
Selection.TypeText Text:="yo"
Case "ж"
Selection.TypeText Text:="zh"
Case "з"
Selection.TypeText Text:="z"
Case "и"
Selection.TypeText Text:="i"
Case "й"
Selection.TypeText Text:="j"
Case "к"
Selection.TypeText Text:="k"
Case "л"
Selection.TypeText Text:="l"
Case "м"
Selection.TypeText Text:="m"
Case "н"
Selection.TypeText Text:="n"
Case "о"
Selection.TypeText Text:="o"
Case "п"
Selection.TypeText Text:="p"
Case "р"
Selection.TypeText Text:="r"
Case "с"
Selection.TypeText Text:="s"
Case "т"
Selection.TypeText Text:="t"
Case "у"
Selection.TypeText Text:="u"
Case "ф"
Selection.TypeText Text:="f"
Case "х"
Selection.TypeText Text:="h"
Case "ц"
Selection.TypeText Text:="c"
Case "ч"
Selection.TypeText Text:="ch"
Case "ш"
Selection.TypeText Text:="sh"
Case "щ"
Selection.TypeText Text:="shh"
Case "ь"
Selection.TypeText Text:="'"
Case "ы"
Selection.TypeText Text:="y"
Case "ъ"
Selection.TypeText Text:="''"
Case "э"
Selection.TypeText Text:="e"
Case "ю"
Selection.TypeText Text:="yu"
Case "я"
Selection.TypeText Text:="ya"
Case Else
Selection.TypeText Text:=Selection
End Select
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Wend
End Sub
|