Есть кто с макросами умеет работать?
Как сделать в Word'e макрос, чтоб переводил румынские последовательности (ţ) в латинские буквы?
Макрос в WORD.
Модератор: Злобный
Код: Выделить всё
Sub Replace()
For i = 1 To ActiveDocument.Characters.Count
Select Case Asc(ActiveDocument.Characters(i))
Case 84
ActiveDocument.Characters(i) = "T"
Case 116
ActiveDocument.Characters(i) = "t"
End Select
Next i
End Sub