ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / о замене последовательностей
18 сообщений из 18, страница 1 из 1
о замене последовательностей
    #37352811
oxidan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oxidan
Гость
в документе Word встретились такие последовательности:
ουσία
и никак не могу перевести их в символы.
Если ли выход ?
...
Рейтинг: 0 / 0
15.07.2011, 07:34
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37352812
oxidan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oxidan
Гость
редактор форума перевёл.
вот последовательность:
& # 959 ;
& # 965 ;
& # 963 ;
& # 943 ;
& # 945 ;
эти символы должны быть без пробелов
...
Рейтинг: 0 / 0
15.07.2011, 07:37
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37353837
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
oxidan, приложите файл
...
Рейтинг: 0 / 0
15.07.2011, 16:28
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37354951
oxidan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oxidan
Гость
Ципихович Эндрю, прилагать весь файл, мне кажется, нет необходимости. Вот фрагмент текста:
"невозможно было спутать Y#949;Y#943;Y#957;Y#945;Y#953; (быть) и Y#964;Y#959; Y#948;Y#957; (сущее)".
Здесь символ & заменён символом Y, для запрета преобразований последовательности текущим редактором форума.
...
Рейтинг: 0 / 0
17.07.2011, 11:58
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37354966
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
oxidan,
Тема обсуждалась здесь:
http://www.planetaexcel.ru/forum.php?thread_id=26894
...
Рейтинг: 0 / 0
17.07.2011, 12:37
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37355349
oxidan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oxidan
Гость
kuklp,
как я понял, по ссылке нужно выполнить некий скрипт, иметь среду выполнения (VBA),
а как преобразовать существующий файл .doc ?
...
Рейтинг: 0 / 0
18.07.2011, 06:19
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37355351
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Точно так же - в комплекте Офиса имеется один VBA на всех. И Alt+F11 действует в любом приложении MS Office...
...
Рейтинг: 0 / 0
18.07.2011, 06:27
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37355537
oxidan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oxidan
Гость
AndreTM, спасибо.
пробую
...
Рейтинг: 0 / 0
18.07.2011, 10:27
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37355801
oxidan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oxidan
Гость
похоже, задача не решается, т.е. заменить последовательности & # XXX на символы в файле .doc невозможно.
...
Рейтинг: 0 / 0
18.07.2011, 12:59
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37355871
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
oxidan, Вы покажите, как делали в виде файла, глядишь поможем.
...
Рейтинг: 0 / 0
18.07.2011, 13:38
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37355976
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
oxidan...и никак не могу перевести их в символы.
Если ли выход ?
Даже если Вас съел лев, у вас есть целых два выхода! (с) Х.З.кто...

Процедуру - в любой модуль _обрабатываемого_ документа
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub code_to_symbol()
Dim sWhatFind$
Dim s$

sWhatFind = "[1-9][0-9][0-9];"

With ThisDocument.Content.Find
    .Text = sWhatFind
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = True
    Do While .Execute
        With .Parent
        s = Mid$(.Text,  3 )
        s = Left(s, Len(s) -  1 )
        s = ChrW(CLng(s))
        .Text = s
        End With
    Loop
End With
End Sub
...
Рейтинг: 0 / 0
18.07.2011, 14:32
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37358365
oxidan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oxidan
Гость
с Вашей помощью не съест. спасибо.
а как " Процедуру - в любой модуль _обрабатываемого_ документа " ?
вот открыл я .doc редактором ms Office Word 2003, и дальше ?
(только сильно не ругайтесь)
...
Рейтинг: 0 / 0
19.07.2011, 19:46
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37358418
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
oxidan,
а как "Процедуру - в любой модуль _обрабатываемого_ документа"
надо перспосить или пробуйте в ТизДокумент можно
Там в редакторе будет
Проект и имя файла и в нём ТизДокумент
Если нельзя тогда провой клавишей миши жмём - Инсерт и модуль
Дробавляется модуль
Так, что нечего было файл "зажимать" :))
...
Рейтинг: 0 / 0
19.07.2011, 20:46
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37358633
oxidan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oxidan
Гость
Ципихович Эндрю,
да не зажимаю я файл.
если не возражаете, давайте я Вам отправлю этот файл по адресу почты.
Мне просто не хотелось напрягать другого человека.
Да и самому хотелось научиться.
...
Рейтинг: 0 / 0
20.07.2011, 06:20
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37359083
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
oxidanс Вашей помощью не съест. спасибо.
а как " Процедуру - в любой модуль _обрабатываемого_ документа " ?
вот открыл я .doc редактором ms Office Word 2003, и дальше ?
(только сильно не ругайтесь)1. открыли в WORD документ, требующий обработки
2. нажали аккорд Alt+F11 - открылся редактор Visual Basic, слева в нём обозреватель проектов (Project Explorer)
3. в обозревателе проектов в ветке Project (надвание Вашего документа) есть лист 'ThisDocument'.
Двойнойной клик мышом по нему - в редакторе (справа) откроется этот модуль, пока пустой.
Смело пишете туда Option Explicit, нажимаете Enter, копируете из 10989573 код процедуры и вставляете в модуль.
4. запустили процедуру на выполнение, проверили результаты.
5. если результаты удовлетворяют - удалили весь текст из модуля ThisDocument, сохранили документ;
если результатыт неутешительны - закрыли документ без сохранения, создали новое сообщение в этом топике.

ЗЫ: да, можно использовать данный прототип для редактирования пакета файлов.
...
Рейтинг: 0 / 0
20.07.2011, 11:50
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37359207
oxidan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oxidan
Гость
получилось.
а радости сколько. вот уж точно: кому - скукотища , а кому наоборот.
ну, спасибо, друг.
...
Рейтинг: 0 / 0
20.07.2011, 12:53
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37359701
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
oxidan,
а что мое сообшение от вчера, 20:46 оличается от сообщения Скукотищи??
...
Рейтинг: 0 / 0
20.07.2011, 17:02
| Ответить | Цитировать | Написать  
о замене последовательностей
    #37359864
oxidan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oxidan
Гость
Ципихович Эндрю,
Ваше сообщение было для знающих, а я в то время был незнайкой.
слова "надо перспосить или пробуйте в ТизДокумент можно ..." были мне непонятны.
...
Рейтинг: 0 / 0
20.07.2011, 18:06
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / о замене последовательностей
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37355537&tid=2176672]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 177ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 237ms
total:  498ms
созд. / загр.: 498ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]