Страница 1 из 1
Макрос в WORD.
Добавлено: Вт янв 10, 2006 13:51
Kart_01
Есть кто с макросами умеет работать?
Как сделать в Word'e макрос, чтоб переводил румынские последовательности (ţ) в латинские буквы?
Добавлено: Вт янв 10, 2006 14:29
Weekers
Kart_01,
Есть такая штука, VBA называется. Ею можно.
Добавлено: Вт янв 10, 2006 14:31
Kart_01
Weekers,
Можно подробней если знаешь?
Добавлено: Вт янв 10, 2006 15:19
Weekers
Kart_01,
Так в хелпе всё подробно написано.
Я этим не занимался, но, думаю, ничего сложного нет.
Добавлено: Чт янв 12, 2006 02:36
dmn
Код: Выделить всё
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
Добавлено: Чт янв 12, 2006 10:36
Weekers
dmn,
Можно ещё проще. Используя встроенную функцию REPLACE.
Добавлено: Пн янв 23, 2006 09:00
Kart_01
dmn,
спасибо, разобрался