Форум программистов, компьютерный форум, киберфорум
MS Office Word
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 11.06.2021
Сообщений: 1
1

Макрос в Word с функцией "Найти и заменить" (по типу ВПР) с внешнего источника

11.06.2021, 15:01. Показов 148. Ответов 0

Доброго дня, люди добрые.

Прошу помощи в реализации макроса для word.

Задача - Заменять одни данные на другие, к примеру заменить только "HFQ12-54" на только "Печь каменная".
Проблема состоит в том, что данных замену более 3000 шт.

В данный момент пользуюсь стандартным макросом (ниже) записанный через "Запись Макроса..."
Таких кусков для работы необходимо 3000шт. (Сами понимаете, что из этого выходит)

Код
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "HFQ12-54"
.Replacement.Text = "Печь каменная"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
End With
Можно ли сделать (похожее на ВПР), что бы word, по ссылке на внешний файл (ексель) берет из первого столбца "HFQ12-54" и меняет эти данные на "Печь каменная" которые находятся во втором столбце в той-же строке.

И еще, есть ли еще такие возможности?
1) Если в тексте несколько значений "HFQ12-54" заменять только одну в зависимости от настройки возможности №2.
2) Выбор с какой стороны начинать поиск и исправление (Сверху вниз или снизу вверх).

Честно не представляю сложно это или нет, и ничего похожего нигде не нашел.
В любом случае, всем заинтересованным заранее огромное спасибо!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2021, 15:01
Ответы с готовыми решениями:

Обновление источника данных и ошибка "Не удалось привести тип объекта "System.Data.DataView" к типу "System.Data.IDataReader"
Доброй ночи. При попытке обновления источника данных, выбрасывает следущую ошибку: "Не удалось...

Текстовый редактор с функциями "найти","заменить","удалить","выделить всё","время и дата","отменить"
Здравствуйте. Делаю Текстовый редактор,по типу Блокнота,помогите реализовать следующие...

Программа по типу "найти и заменить"
Суть программы: Вставляешь в неё текст, в каждой строчки которого первые символы "? ", а последние...

Обработка "null" в MS Access "Приведение типа "|DBNull" к типу "String" является недопустимым"
Здравствуйте. Работаю с базой MS Access Вывожу в DataGridView таблицу Проблема следующая, если у...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2021, 15:01

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Поиск в DGW вылетает с ошибкой "Приведение типа "|DBNull" к типу "String" является недопустимым."
В общем такой вопрос. Код рабочий. Только у меня не работает. For i = 0 To...

Ошибка "Приведение строки "explorer.exe" к типу "Double" является недопустимым" при записи в реестр
Помогите, хочу получить доступ к winlogon, что бы изменять любое другое значение shell на...

Ошибка при запуске .exe файла из debug: "Приведение строки "Июнь" к типу "Double" является недопустимым"
Если запускать из самого проекта(F5), то все нормально, а если скомпилированный запустить, то...

Выдает ошибку - "Не удалось привести тип объекта "TheMaze.FormLevel1" к типу "System.Windows.Forms.Label"."
Ругается вот на эту строчку: ((Label)sender).Visible = false; Вот код: using System; using...

Как исправить ошибку "Приведение строки "" к типу "Double" является недопустимым"?
Выдает ошибку в строке nasel(n).mat = Int(line(2)). Приведение строки "" к типу "Double" является...

Ошибка: "Не удалось привести типа объекта "System.Windows.Forms.TextBox" к типу "System.IConvertible".""
Программа выдает такой текст: "System.InvalidCastException: "Не удалось привести типа объекта...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.