Автоматическая замена букв (слов) при открытии документа

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Автоматическая замена букв (слов) при открытии документа (Word)

Werewolf1971

Дата: Четверг, 11.12.2014, 02:12 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Добрый день!
Возникла вот такая задача:
Требуется, чтобы при открытии документа word в нем происходила автоматическая замена букв или их сочетаний на другие. Причем данная замена должна все делать автоматически, то есть открыл документ и в нем без участия человека произошла эта процедура. Например стоит задача в 100 документах заменить символ табуляции на точку с запятой. Можно это все делать ручками, а можно все автоматизировать. Я слышал что подобное можно решить используя шаблоны документа. И vba. Может кто подскажет где копать или есть готовое решение.
По замене есть три условия (разные группы документов. Общее количество около 3000
1. Замена кокретных букв и слов на другие буквы и слова. То есть знаем что на что меняем.
2. Замена произвольных букв и сочетаний букв (максимум три буквы) или произвольных слов на кокретные буквы или слова.
3. И замена произвольных букв (слов) на произвольные буквы или слова.

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

Ответить

RAN

Дата: Четверг, 11.12.2014, 02:42 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата Werewolf1971, 11.12.2014 в 02:12, в сообщении № 1

при открытии документа word в нем происходила автоматическая замена

Цитата Werewolf1971, 11.12.2014 в 02:12, в сообщении № 1

замена произвольных букв (слов) на произвольные буквы или слова

Быть или не быть, вот в чем загвоздка!

Ответить

Werewolf1971

Дата: Четверг, 11.12.2014, 04:03 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Ран если не можешь что то подсказать лучшп уж промолчи.
У меня стоит задача обработки порядка 5000 файлов в трех папках.

Я знаю что решить ее можно в течении дня. На основе шаблона нормал дот.

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

Ответить

ShAM

Дата: Четверг, 11.12.2014, 04:47 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Цитата Werewolf1971, 11.12.2014 в 04:03, в сообщении № 3

Ран если не можешь что то подсказать лучшп уж промолчи.

Почитайте Правила. Не надо тыкать незнакомым людям. Да, и ник не стоит коверкать.

Цитата Werewolf1971, 11.12.2014 в 04:03, в сообщении № 3

Я знаю что решить ее можно в течении дня. На основе шаблона нормал дот.

Решайте, кто же Вам мешает.

Цитата Werewolf1971, 11.12.2014 в 04:03, в сообщении № 3

Знаю что решается путем програмировании в вба. Но проблема что с программированием не дружу.

Здесь не то, что с VBA на Word, но и с самим Word-ом не все дружат.

Цитата Werewolf1971, 11.12.2014 в 04:03, в сообщении № 3

Могу по четкой инструкции типа открыть там, зайти туда, поменять в такой то строке тсаое то значение... но нужна эта инструкцмя

Ищите форум по Word. Или сюда: http://www.excelworld.ru/forum/6
Удачи.

Сообщение отредактировал ShAM - Четверг, 11.12.2014, 04:48

Ответить

RAN

Дата: Четверг, 11.12.2014, 13:01 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата Werewolf1971, 11.12.2014 в 04:03, в сообщении № 3

Но проблема что с программированием не дружу.

Не с программированием, с головой.

На совершенно идиотскую постановку задачи можно только дурь написать. Заменяет в полном соответствии с п.3.
[vba]

Код

Sub дурь()
      For j = 1 To ActiveDocument.Words.Count
              Randomize
          k = Int((ActiveDocument.Words.Count) * Rnd + 1)
          Randomize
          i = Int((ActiveDocument.Words.Count) * Rnd + 1)
          ActiveDocument.Words(k) = ActiveDocument.Words(i)
      Next
End Sub

[/vba]

Будь здоров, не кашляй.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 11.12.2014, 13:09

Ответить

Страница 1 из 1
1