Просто тут bacСамое простое:
1. Сделать строку "абвгде ...." в которой номер позиции буквы будет совпадать с требуемым чилсом
2. Взять функцию instr для поиска позиции нужной буквы в строке
3. Вот собственно и все
Если же кодировка более сложная, то нужен еще одим массив со значениями кодов. И далее меняется п.3.
3. Взять число из массива с кодами
4. Вот и все в этом варианте.
Самое лучшее сделать: перейти на топик с макросом, который это в ворде делает
На самом деле не самое лучшее:
1) То что в том документе сделано делается проще
1.
2.
3.
4.
5.
6.
Sub Макрос2()
Dim j As Long, s As Long
For j = 1 To ActiveDocument.Characters.Count - 1
s = s + (Asc(Characters(j)) - 223 )
Next
MsgBox s
End Sub
2) Во вторых не совсем удачное решение, т.к. ограничено сильно
3) Лучше действительно определить для себя свой массив, в котором по-порядку будут символы, например
1.
2.
3.
4.
5.
6.
7.
8.
Sub Макрос3()
Dim j As Long, s As Long
Dim str1 As String
str1 = "абвгде***"
For j = 1 To ActiveDocument.Characters.Count - 1
s = s + InStr( 1 , str1, Characters(j))
Next
MsgBox s
End Sub
