+ Ответить в теме
Страница 1 из 5
1 2 3 4 5 ПоследняяПоследняя
Показано с 1 по 10 из 46

Тема: Макрос для для замены слов в файле word из файла-словаря Excel

  1. #1
    dummy Михаил_П is on a distinguished road
    Регистрация
    08.05.2014
    Сообщений
    7
    Вес репутации
    0

    По умолчанию Макрос для для замены слов в файле word из файла-словаря Excel

    Здравствуйте уважаемые форумчане!
    Столкнулся со следующей проблемой на работе: Есть огромная куча буклетов, которые нужно переводить с английского на русский, но в которых используется масса профессиональных терминов и сокращений. Буклетов под сотню штук, в каждом заменять одни и те же сокращения займет уйму времени.

    Хотел бы спросить Вас, уважаемые форумчане, как можно решить эту проблему? Я плохо разбираюсь в VBA и написании макросов. Хочу реализовать следующим образом: Один файл - словарь терминов, которые нужно заменять (файл эксель), который может пополняться. А для word нужен макрос, который открывал бы этот словарь и в файле буклета менял сокращение на нужный термин.

    Например есть вордовский файл, в тексте есть фраза "функция TDN".
    В экселевском файле-словаре в одном столбце указано значение TDN, во втором - значение на которое нужно этот TDN поменять, например: Режим день/ночь (True Day/Night)
    В итоге при запуске макроса в вордовском файле буклета, он заменяет TDN на Режим день/ночь (True Day/Night) как указано в экселевском словаре.

    Большое спасибо, если сможете подсказать/помочь.

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    829
    Вес репутации
    16

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Может быть вместо того, чтобы 100 раз вручную открывать вордовские документы и запускать там макрос, имеет смысл, открыть словарь-замены, проще говоря XL файл и один раз выполнить макрос замены ?

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

  4. #3

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Для начала разбил бы Вашу задачу на части:
    1 Заменить в тексте Word одно слово на другое (TDN на Режим день/ночь)
    2 Составить цикл по словарю замен (организовать сам словарь)
    3 Получить словарь из файла Excel (тут бы сразу отказался в пользу простого текстового файла)
    4 Организовать добавление и редактирование словаря (если это происходит 1 раз или оч. редко, то пункт лишний)
    А теперь вопрос Вам - что из пунктов вызывает затруднения?

    Для начала совет по пункту 1 - запишите макрос Ваших действий по замене слова в тексте (Найти - Заменить).
    В макросе всё необходимое будет обычно с мусором. Мусор почистите вручную.

  5. #4
    dummy Михаил_П is on a distinguished road
    Регистрация
    08.05.2014
    Сообщений
    7
    Вес репутации
    0

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Цитата Сообщение от pashulka Посмотреть сообщение
    Может быть вместо того, чтобы 100 раз вручную открывать вордовские документы и запускать там макрос, имеет смысл, открыть словарь-замены, проще говоря XL файл и один раз выполнить макрос замены ?

    Разумеется, все необходимые .DOC лучше собрать в одной папке и, наверное, тестировать лучше на копиях.
    Да, это бы сошло за отличный вариант. Вы можете подсказать, как это осуществить?

  6. #5
    dummy Михаил_П is on a distinguished road
    Регистрация
    08.05.2014
    Сообщений
    7
    Вес репутации
    0

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Цитата Сообщение от Дмит Посмотреть сообщение
    Для начала разбил бы Вашу задачу на части:
    1 Заменить в тексте Word одно слово на другое (TDN на Режим день/ночь)
    2 Составить цикл по словарю замен (организовать сам словарь)
    3 Получить словарь из файла Excel (тут бы сразу отказался в пользу простого текстового файла)
    4 Организовать добавление и редактирование словаря (если это происходит 1 раз или оч. редко, то пункт лишний)
    А теперь вопрос Вам - что из пунктов вызывает затруднения?

    Для начала совет по пункту 1 - запишите макрос Ваших действий по замене слова в тексте (Найти - Заменить).
    В макросе всё необходимое будет обычно с мусором. Мусор почистите вручную.
    Макрос для замены слов в ворде у меня сделать получилось. А вот как подтягивать такой словарь подтянуть из внешнего файла не понимаю. Словарь будет часто редактироваться. Спасибо за любые советы!

  7. #6
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    829
    Вес репутации
    16

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Цитата Сообщение от Михаил_П Посмотреть сообщение
    Да, это бы сошло за отличный вариант. Вы можете подсказать, как это осуществить?
    Можете протестировать такой вариант (см. аттач)
    Вложения

  8. #7
    dummy Михаил_П is on a distinguished road
    Регистрация
    08.05.2014
    Сообщений
    7
    Вес репутации
    0

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Цитата Сообщение от pashulka Посмотреть сообщение
    Можете протестировать такой вариант (см. аттач)
    Святой вы человек!!! Да, это именно то, что надо!

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

    Ещё раз спасибо!

  9. #8
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    829
    Вес репутации
    16

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Если речь идёт о Microsoft Office XP (или старше), то можно воспользоваться этим советом и замутить, что-то вроде :

    Код :
    1. With Application.FileDialog(msoFileDialogFolderPicker)
    2.      If .Show = True Then
    3.         iPath = .SelectedItems(1)
    4.         iPath = IIf(Right(iPath, 1) = "\", iPath, iPath & "\")        
    5.      Else
    6.         MsgBox "Выберите нужную папку", vbCritical, ""
    7.         Exit Sub
    8.      End If
    9. End With

  10. #9
    dummy Михаил_П is on a distinguished road
    Регистрация
    08.05.2014
    Сообщений
    7
    Вес репутации
    0

    Red face Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Ещё раз спасибо! Прикрутил! Макрос даже стал почему-то работать быстрее
    Спасибо за помощь, я думаю вопрос закрыт!

  11. #10
    dummy Михаил_П is on a distinguished road
    Регистрация
    08.05.2014
    Сообщений
    7
    Вес репутации
    0

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Цитата Сообщение от pashulka Посмотреть сообщение
    Если речь идёт о Microsoft Office XP (или старше), то можно воспользоваться этим советом и замутить, что-то вроде :

    Код :
    1. With Application.FileDialog(msoFileDialogFolderPicker)
    2.      If .Show = True Then
    3.         iPath = .SelectedItems(1)
    4.         iPath = IIf(Right(iPath, 1) = "\", iPath, iPath & "\")        
    5.      Else
    6.         MsgBox "Выберите нужную папку", vbCritical, ""
    7.         Exit Sub
    8.      End If
    9. End With
    Заметил, что почему-то макрос не обрабатывает содержимое колонтитулов. Не подскажете как с этим справиться?

+ Ответить в теме
Страница 1 из 5
1 2 3 4 5 ПоследняяПоследняя

Похожие темы

  1. Подсчет слов и пробелов в текстовом файле
    Здание подсчитать слова и пробелы в текстовом файле. { FILE *file; char *fname = "ReadMe.txt"; char result_string= "none"; int word=1;...
    от fyzyz в разделе C и C++
  2. Макрос для word
    Добрый день, уважемые форумчане... Вообщем такая проблема, не могли бы подсказать, как правильно написать скрипт на VBA, работать должен вот...
    от КИС в разделе MS Office и VB(A).
  3. Макрос конветации excel файла в .txt
    Спасибо Всем
    от chiiv в разделе MS Office и VB(A).
  4. Поиск фраз и слов палиндромов в файле-словаре
    Помогите пожалуйста с решением следующей задачи: Дан файл, содержащий большой словарь русских слов и выражений. Составить программу, которая...
    от Anastasija2203 в разделе задачи на Паскале и Delphi
  5. Макрос для Microsoft Excel Worksheet в документе Microsoft Word
    Как, используя макросы в Microsoft Word: 1) Установить заданное число строк и столбцов для Microsoft Excel WorkSheet? 2) Присвоить значения...
    от AleksP в разделе MS Office и VB(A).

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения