1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.

Задача для Word

Тема в разделе "Софт", создана пользователем a-res, 13.04.10.

  1. a-res

    a-res Генератор

    21.346
    0
    В общем, вот что мне нужно: чтобы ворд автоматически выделял другим цветом в тексте слова, которые находятся в другом текстовом файле. Ну то есть я составляю список слов в файле, скажем, .txt, указываю ворду на него путь и дальше в любом открытом документе ворд автоматом находит эти слова и делает их, к примеру, красными.

    Возможно ли это реализовать?
    Я подозреваю, что надо будет написать макрос, если так, кто поможет? В качестве благодарности могу кинуть на телефон рублей 100...
     
  2. panda-34

    panda-34 Активный участник

    1.589
    2
    словарь - c:\Temp\MarkWrds.dic, в нижнем регистре, одно слово на строку
     
  3. a-res

    a-res Генератор

    21.346
    0
    чем править такой формат?

    ---------- Сообщение добавлено 13.04.2010 13:18 ----------

    и нельзя ли инструкцию для чайников? )) куда вставлять этот кусок кода?
     
  4. panda-34

    panda-34 Активный участник

    1.589
    2
    Обычный текстовый файл. Можно назвать как угодно. Про последнюю строку не забываем.

    Кусок кода вставлять в редактор VBA. Alt+F8, ввести в имя "ЩаКакРаскрашу", нажать Создать, все нафиг удалить, вставить кусок кода, закрыть. Потом для выполнения нажимать Alt+F8 и выбирать MarkWords

    P.S. Все нафиг удалить - это если там других макросов нету. Если есть, то кусок кода просто скопировать в конец.
     
  5. qwertEHOK

    qwertEHOK Активный участник

    3.093
    57
    panda-34, а можно вопрос по экселю

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

    ЗЫ если все будет работать - готов скинуть денежку на телефон
     
  6. panda-34

    panda-34 Активный участник

    1.589
    2
    Array повторять для каждого столбца (их, конечно, лучше циклом формировать, но такую команду зато можно выполнить напрямую без собственно макроса)
     
  7. qwertEHOK

    qwertEHOK Активный участник

    3.093
    57
    panda-34,
    а можно вместо Workbooks.OpenText FileName := "c:\Temp\1.TXT" - что бы был диалог открытия файла
    и столбцы лучше циклом, потому как хз сколько их будет

    а для макроса это я сделаю отдельную кнопку.

    ЗЫ точно кодировку спрашивать не будет?

    [​IMG]
     
  8. panda-34

    panda-34 Активный участник

    1.589
    2
    На 30 столбцов хватит? Если нет, увеличишь константу
     
  9. a-res

    a-res Генератор

    21.346
    0
    спасибо, всё работает. телефон напиши в личку, кину денег
     
  10. qwertEHOK

    qwertEHOK Активный участник

    3.093
    57
    panda-34, все работает
    огромное спасибо :bis:
    скинь телефончик и аськаномер
     
  11. panda-34

    panda-34 Активный участник

    1.589
    2
    a-res,
    еще раз напомню на всякий случай про последнюю строку в файле, которая должна быть строкой (заканчиваться переводом строки). А то некоторые ... не скажу кто ... заканчивают файл на последней букве и потом удивляются, почему где-то что-то не работает.
     
  12. panda-34

    panda-34 Активный участник

    1.589
    2
    qwertEHOK, обработка всех файлов из папки: