Ощущается как +15

741мм

Новая тема

Вы не можете создавать новые темы.
Т.к. вы неавторизованы на сайте. Пожалуйста назовите себя или зарегистрируйтесь.

Список тем

А есть ли такая программа?

С друзьями на NN.RU

У вас пока нет друзей на NN.RU, поэтому ссылка на тему не может быть отправлена.

Воспользуйтесь поиском, чтобы найти новых друзей.

В социальных сетях

Hazy-Lazy

19.10.2006

Которая бы на лету меняла русское название файла в транслит например при сохранении оного файла из ворда например?

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

SvSh

19.10.2006

Теоретически, это можно сделать из самого ворда, макросом. Надо подумать. :)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Сейчас читают

Тема Просмотров

Заплатит ли Израиль высокую цену за удар по Тегерану? 3205

[Верные] ОТВЕТЫ по Информатике ОГЭ 2025 [16 июня] на Ваш Регион 55

Посоветуйте средство для стирки белья. 797

[ПРОВЕРЕННЫЕ] ОТВЕТЫ на ОГЭ 2025 Биология (16 июня) 65

Израиль официально заявляет, что одна из его целей - уничтожение физиков-ядерщиков в Иране 1170

Иранобесие 1345

diamant

19.10.2006

у меня есть программка, которая висит в трее, и по щелчку на её иконке текст в буфере обмена транслитеруется

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Atom

19.10.2006

Punto Switcher транслит делает.
Да еще и автоматом раскладку переключает. К тому же бесплатная.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Hazy-Lazy

19.10.2006

да не думаю что Пунто тут поможет... просто административными мерами народ никак не внушается.. а на маках файлы с именами в русской кодировке не приветствуются..

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Atom

19.10.2006

А... понятно, что Вы имели в виду.
Таких программ я не встречал. Может копать в сторону скриптов, работающих по расписанию?

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Atom

19.10.2006

дубль

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Чеширский

20.10.2006

Курение мануалов помогает. Класть файлы с русскими именами стоит на сетевой ресурс. В форточках - всё по дефолту, в никсах надо правильно настроить самбу, а на маках - DAVE.
Или маки русифицировать религия не позволяет?
:)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

diamant

19.10.2006

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

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Hazy-Lazy

19.10.2006

К сожалению каждый документ имеет уникальное имя... не нумеровать же их просто Document 1...2. Хотя мысль интересная. спасибо.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

GPRSnik!!

20.10.2006

в personal положи вот это, и создай новую кнопку на макрос newsave
Private Const strTranslitLower As String = "a b v g d e zhz i j k l m n o p r s t u f h c chshsh i ejuya"
Private Const strTranslitUpper As String = "A B V G D E ZhZ I J K L M N O P R S T U F H C ChShSh I EJuYa"

Private Function Transliterate(ByRef lWhat As String) As String
Dim i As Long
Dim strResult As String
For i = 1 To Len(lWhat)
Select Case Asc(Mid(lWhat, i, 1))
Case 224 To 255: strResult = strResult & Trim(Mid(strTranslitLower, (Asc(Mid(lWhat, i, 1)) - 223) * 2 - 1, 2))
Case 192 To 223: strResult = strResult & Trim(Mid(strTranslitUpper, (Asc(Mid(lWhat, i, 1)) - 191) * 2 - 1, 2))
Case 184: strResult = strResult & "e"
Case 168: strResult = strResult & "E"
Case Else: strResult = strResult & Mid(lWhat, i, 1)
End Select
Next i
Transliterate = strResult
End Function

Sub newsave()
'сохраняет в текущую папку
'ActiveWorkbook.SaveCopyAs Transliterate( http://ActiveWorkbook.name )
'сохраняет куда скажешь
Application.Dialogs(xlDialogSaveAs).Show Transliterate( http://ActiveWorkbook.name )
End Sub

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Новая тема

Список тем

Последние темы форумов

Форум Тема (Автор) Последний ответ Ответов

Техно-форум Плейлист для IP-TV Player - Deathmaker 15.06.2025 в 23:05:13 18

Объявления на НН.РУ - Техника

Добавить объявление

Принтер лазерный HEWLETT PACKARD HP-6L

Принтер лазерный HEWLETT PACKARD HP-6L Отправка в регионы после оплаты. 3штуки БУ. Внешний вид из магазина простояли на складе...
Цена: 4 500 руб.

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9 Отправка в регионы после оплаты. Продаются сразу обе. Цена за обе 2000 руб....
Цена: 1 000 руб.

Сетевой фильтр APC Surge Arrest

Сетевой фильтр APC Surge Arrest для радиолюбителя.и не только Отправка в регионы после оплаты. ЦЕНА 3000 руб. В рабочем состоянии....
Цена: 3 000 руб.

Материнские платы на запчасти и не только

Материнские платы на запчасти и не только Материнские платы и другие комплектующие Отправка в регионы после оплаты. Транспортной...
Цена: 3 000 руб.