Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / о замене последовательностей / 18 сообщений из 18, страница 1 из 1
15.07.2011, 07:34
    #37352811
oxidan
oxidan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
в документе Word встретились такие последовательности:
ουσία
и никак не могу перевести их в символы.
Если ли выход ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2011, 07:37
    #37352812
oxidan
oxidan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
редактор форума перевёл.
вот последовательность:
& # 959 ;
& # 965 ;
& # 963 ;
& # 943 ;
& # 945 ;
эти символы должны быть без пробелов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2011, 16:28
    #37353837
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
oxidan, приложите файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.07.2011, 11:58
    #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, 12:37
    #37354966
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
oxidan,
Тема обсуждалась здесь:
http://www.planetaexcel.ru/forum.php?thread_id=26894
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2011, 06:19
    #37355349
oxidan
oxidan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
kuklp,
как я понял, по ссылке нужно выполнить некий скрипт, иметь среду выполнения (VBA),
а как преобразовать существующий файл .doc ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2011, 06:27
    #37355351
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
Точно так же - в комплекте Офиса имеется один VBA на всех. И Alt+F11 действует в любом приложении MS Office...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2011, 10:27
    #37355537
oxidan
oxidan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
AndreTM, спасибо.
пробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2011, 12:59
    #37355801
oxidan
oxidan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
похоже, задача не решается, т.е. заменить последовательности & # XXX на символы в файле .doc невозможно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2011, 13:38
    #37355871
kuklp
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
oxidan, Вы покажите, как делали в виде файла, глядишь поможем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2011, 14:32
    #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
| Ответить | Цитировать | Написать  
19.07.2011, 19:46
    #37358365
oxidan
oxidan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
с Вашей помощью не съест. спасибо.
а как " Процедуру - в любой модуль _обрабатываемого_ документа " ?
вот открыл я .doc редактором ms Office Word 2003, и дальше ?
(только сильно не ругайтесь)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.07.2011, 20:46
    #37358418
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
oxidan,
а как "Процедуру - в любой модуль _обрабатываемого_ документа"
надо перспосить или пробуйте в ТизДокумент можно
Там в редакторе будет
Проект и имя файла и в нём ТизДокумент
Если нельзя тогда провой клавишей миши жмём - Инсерт и модуль
Дробавляется модуль
Так, что нечего было файл "зажимать" :))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2011, 06:20
    #37358633
oxidan
oxidan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
Ципихович Эндрю,
да не зажимаю я файл.
если не возражаете, давайте я Вам отправлю этот файл по адресу почты.
Мне просто не хотелось напрягать другого человека.
Да и самому хотелось научиться.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2011, 11:50
    #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, 12:53
    #37359207
oxidan
oxidan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
получилось.
а радости сколько. вот уж точно: кому - скукотища , а кому наоборот.
ну, спасибо, друг.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2011, 17:02
    #37359701
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
oxidan,
а что мое сообшение от вчера, 20:46 оличается от сообщения Скукотищи??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2011, 18:06
    #37359864
oxidan
oxidan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
о замене последовательностей
Ципихович Эндрю,
Ваше сообщение было для знающих, а я в то время был незнайкой.
слова "надо перспосить или пробуйте в ТизДокумент можно ..." были мне непонятны.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / о замене последовательностей / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 584ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176672]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 269ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 66ms
get tp. blocked users:
 2ms
others: 200ms
total:  584ms
x
x
Закрыть


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