опять Традос...

[Kate-I]

['More]

2 Brains
Это Вы о чём? Что-то не очень понял. Какое отношение имеет транслит к переводу?
Как Вы переведете вот такое предложение? Не, ну можно и пальцАми, но скушно как-то...
Ранее были зарегистрированы выпуски ценных бумаг обществ, созданных в результате реорганизации ОАО "Калугаэнерго", ОАО "Брянскэнерго", ОАО "Белгородэнерго", ОАО "Воронежэнерго", ОАО "Чувашэнерго", ОАО "Владимирэнерго", ОАО "Мариэнерго", ОАО "Пензаэнерго", ОАО "Удмуртэнерго", ОАО "Карелэнерго", ОАО "Рязаньэнерго", ОАО "Костромаэнерго", ОАО "Ивэнерго", ОАО "Ярэнерго", ОАО "Ростовэнерго", ОАО "Тверьэнерго", ОАО "Челябэнерго", ОАО "Мордовэнерго", ОАО "Курскэнерго", ОАО "Нижновэнерго", ОАО "Смоленскэнерго", ОАО "Тамбовэнерго", ОАО "Астраханьэнерго", ОАО "Волгоградэнерго", ОАО "Липецкэнерго", ОАО "Мосэнерго", ОАО "Тулэнерго", ОАО "Свердловэнерго", ОАО "Новгородэнерго", ОАО "Ставропольэнерго", ОАО "Орелэнерго", ОАО "Пермэнерго", ОАО "Томскэнерго", ОАО "Дагэнерго", ОАО "Архэнерго", ОАО "Кировэнерго", ОАО "Хакасэнерго", ОАО "Оренбургэнерго", ОАО "Тюменьэнерго", ОАО "Омскэнерго", ОАО "Вологдаэнерго", ОАО "Дагэнерго", ОАО "Колэнерго", ОАО "Красноярскэнерго".
Заметьте, пример из реального текста... :)
И что ещё?
Ну, такой прямолинейный пример - пардон, программировать не обучен.
Sub DoFigures()
'
' 'Macro recorded 01.07.2004
'
'Selection.Find.ClearFormatting
'Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([0-9]),([0-9])"
.Replacement.Text = "\1.\2"
.Forward = True
.Wrap = 0 ' wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "([0-9])^s([0-9])"
.Replacement.Text = "\1,\2"
.Forward = True
.Wrap = 0 ' wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "([0-9]) ([0-9])"
.Replacement.Text = "\1,\2"
.Forward = True
.Wrap = 0 ' wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "(RUB) ([0-9])"
.Replacement.Text = "\1\2"
.Forward = True
.Wrap = 0 ' wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "(USD) ([0-9])"
.Replacement.Text = "\1\2"
.Forward = True
.Wrap = 0 ' wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Зачем это, думаю, Вам понятно...

[Brains]

Ах, вот Вы о чём! Нет, ну с таким страшилищем и впрямь впервые встречаюсь. Бог пока миловал… Впрочем, не знаю, я бы всё равно вряд ли доверил бы даже такие материи макрокомандам и предпочёл бы транслитить вручную, загоняя результат в глоссарий накопителя. Трудно судить, не имея опыта работы с такими little shops of horrors.
А этот листинг — это какая-то нормализация текста, что ли? Вот охота смеяться над убогим, я в последний раз макрос писал лет пять назад. Нет бы словами сказать… Есть у меня готовые инструменты для этого, но объём такой правки у меня обычно настолько невелик (или сама правка всякий раз настолько уникальна), что, однажды попробовав, больше к ним не прибегал.
Однако Trados, учитывая его природу, ничему такому мешать бы не должен. Про DV и этого сказать не могу по упомянутым выше причинам: даже не смотрел.
Кроме разве что одного: как критерии выбора накопителя эти требования несколько странны.

[SH2]

Brains
Так это как раз плюс секретным исследованиям ;-) Раз я буду относительно свободен и настроен на освоение всяких котов и кошек, всё сразу и познается, ощутится, испытается, сравнится.. Завтра, правда, ещё работа. Ну ладно, прорвёмся как-нибудь. А ещё хочу 13-е.