Слушай ты гений!!!!!!!!!!
Классно.
Зря я все переписывала сама
вот раз и готово, можно еще одну переделать?

только сюда она не прикрепиться она весит много. можно тебе на мыло скинуть?

по этому поводу могу поспорить с вами, точнее доказать, что так оно и есть, но ...
ЭТО УЖЕ СОВСЕМ ДРУГАЯ ТЕМА

Ха, Ха, Ха! Кто-то в это может ещё верит, но только не здесь. Здесь не проходит. Читайте архивы.

не спорь с ним, все равно не поверит.
http://quench.chat.ru/lub.gif
http://bn.hotbox.ru/009558.html

Тааак.... идёшь сюды http://www.artlebedev.ru/tools/decoder/ копируеш всё в поле для ввода жмёш на "расшифровать" и возможно тебе повезёт
http://www.CTAPT.de
http://COOLSITES.CTAPT.de

да я тоже это понимаю, вот только промолчать не могу
но попробую просто проигнорировать

Умница! Слушай, скажи честно, неужели еще кто- то на эту чушь ловится?
Но ведь до чего эти Амвейщики, Гербалайфщики и т.д. насобачились рекламу свою делать!
"Ой мальчики! Ой помогите! Ой замкнуло что-то в компьютере и циферки с буковками поменялись Ой, помогите, ежели кто умный тут есть..."
А мальчики и рады стараться, грудь выпятили, проблему решили... почитали- проплевались, а одного вырвало...
Молодец девочка! Сама придумала- или это новая фишка у Амвея такая?

Милый, речь шла не о фирме, а о документе.
Не счет фирмы я бы обратилась в другой форум.
Но я давно уже не делаю так.
Тлько лично разговариваю с людьми.
Поэтому и тут не собираюсь о деле говорить..
Мне помог молодой человек, за что ему и спасибо.
Тема закрыта!

Да ладно, чо ты!
Свои люди!
Это ж типа"лучше пусть дочь проститутка будет, чем Амвеем торгует"(с)Это же только дураки так говорят!
Ты вон, какая симпапуля, могла бы по другому денюжки зарабатывать
Стояла бы где-нито на углу, ногой столб подпирала, пузыри из жвачки надувала, "мужчина, предложите девушке сигарету..." А за одним бы Амвеем приторговывала...
А ты вместо того, что бы договора заключать, лохов искать, компьютер купила... мучаешься теперь...

можно конечно многое себе позволить, но хамство, тем более по отношение к девушке, поведение недостойное.
или тебя как лоха кинули и ты теперь пыжишься?
тоже мне крутой рэйнджер, с женщиной воевать
здесь могла бы быть моя автоподпись

Парень, когда тебе пытаешься помочь, ты грубишь и говоришь "Вот так и задавай вопросы тут, это же геройство!!!" Ну так что же ты развопился? Герой... Что флудишь и наезжаешь? Мне абсолютно нет разницы, что там написано? Я это не читаю
Папуас папуасу друг, товарищ и корм.

Кидай мне на мыло, я тебе его в личку брошу
Папуас папуасу друг, товарищ и корм.

Ах, благородный Игорь..Я понимаю, что тобой движет- и вполне разделяю твое стремление ей понравиться- очков набрать...
Да только я не с женщиной воюю- а против явления, как такового!
Женщина, как раз, вполне приличная...
Поэтому все эти пускания пузырей и благородный гнев- не ко мне... я люблю женщин...
Но ты бы ей много больше понравился, если бы Авейчику купил у нее

А в принципе ты можешь сама всё сделать, зато какое удовлетворение будет Вставь текст огранниченный точками в макрос и всё. Единственная проблема, что и английский текст проконверируется, но его то уж намного меньше , а DM можно заменить с помощью функции Ersetzen
..........
Sub Translit()
Dim oSld As Slide
Dim oShp As Shape
Dim oTxtRng As TextRange
Dim oTmpRng As TextRange
Dim cSld, iSld, i, j, l As Integer
en$ = "qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:ZXCVBNM<>"
ru$ = "йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЯЧСМИТЬБЮ"
cSld = Application.ActivePresentation.Slides.Count
For iSld = 1 To cSld
Set oSld = Application.ActivePresentation.Slides(iSld)
For Each oShp In oSld.Shapes
If oShp.TextFrame.HasText Then
Set oTxtRng = oShp.TextFrame.TextRange
i = oShp.TextFrame.TextRange.Length
For j = 1 To i
l = InStr(en$, oTxtRng.Characters(j))
If l > 0 Then
enLetter = Mid$(en$, l, 1)
ruLetter = Mid$(ru$, l, 1)
Set oTmpRng = oTxtRng.Replace(FindWhat:=enLetter, _
Replacewhat:=ruLetter, MatchCase:=True)
Do While Not oTmpRng Is Nothing
Set oTmpRng = oTxtRng.Replace(FindWhat:=enLetter, _
Replacewhat:=ruLetter, MatchCase:=True)
Loop
End If
Next j
End If
Next oShp
Next iSld
End Sub
..........
Папуас папуасу друг, товарищ и корм.

Нет уж лучше я скину тебе, а ты сделаешь, я чесно говоря не поняла
Да еще и начиталась тут высказывания некого "любителя женщин" и Амвея
Что тем более трудно сообразить.
Получается я вам не проблему как таковую предложила решить, а почитать, что там написано....дело в том, что там вообще обрывок....и потом зачем мне посылать в ТАКОМ ВИДЕ то, что я, якобы, хочу предложить людям. Глупо.
Если хотела бы, то пошла бы в Дискуссионный клуб, там я была уже год назад и поняла, что бесполезно разговаривать с людьми , котрорых это просто не интересует. Я не люблю и не собираюсь навязывать свое мнение другим. Каждый сам решает, что он хочет от этой жизни. Я выбрала это.
Спасибо тем, кто заступился.
Не перевелись еще приличные мужчины (пусть примут за комплемент те, кто это заслуживает)
Нас по-моему скоро перенесут в другой форум....человек завел тему в другое русло.

Скажи как это ты с помщью PuntoSwitcher сделал вс╦ это?

Сначала, с помощью макроса (подзабыл, как писать, решил вспомнить ), потом DM и US с помощью Ersetzen, потом с помощью PuntoSwitcher выделял английские или немецкие слова и Schift+Break. Так он принудительно транслитерирует .
Папуас папуасу друг, товарищ и корм.

Забирай Там всё в норме было, проблема где то у тебя
Папуас папуасу друг, товарищ и корм.