макрос замены слова в excel не работает

Я пытаюсь ввести результаты Excel в документ, подготовленный в Word. Я хочу использовать макрос для этого. Я довольно новичок в написании кода, но я понимаю основы. Я пытался копировать с разных курсов, но никто из них не работает.

Этот простой макрос должен изменить «x1» на «все», но все, что он делает для меня, – это открыть документ и выбрать x1 в документе.

Кто-нибудь знает, где я ошибаюсь?

Private Sub CommandButton1_Click() Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True Set wrdDoc = wrdApp.Documents.Open("C:\Users\mycomputer\Documents\PremadeDocument.docx") wrdApp.Selection.Find.ClearFormatting wrdApp.Selection.Find.Replacement.ClearFormatting With wrdApp.Selection.Find .Text = "x1" .Replacement.Text = "anything" ' .Forward = True .Wrap = wdFindContinue ' .Format = False ' .MatchCase = False ' .MatchWholeWord = False ' .MatchWildcards = False ' .MatchSoundsLike = False ' .MatchAllWordForms = False End With wrdApp.Selection.Find.Execute Replace:=wdReplaceAll Set wrdDoc = Nothing Set wrdApp = Nothing End Sub 

Добавить значение переменной Word Word для wdReplaceAll

 Const wdReplaceAll = 2 

После определения макроса

 Private Sub CommandButton1_Click() Const wdReplaceAll = 2 
  • Редактирование, а затем Максимизировать встроенный Excel в Word Doc
  • Ссылка на форму слова для Excel
  • Конвертировать документ Word в PDF с использованием кода Excel VBA
  • Преобразование таблиц Word в массив Excel
  • Есть ли способ инициировать «изменения трека» через VBA в Excel?
  • vba в слове / excel, возвращающем неправильный набор charchter
  • Выделенный текст в Word
  • Экспорт данных из Excel в Word, пока функция
  • Добавление таблицы в документ Word через Excel 2010 VBA
  • Как вызвать один из нескольких листов Excel в книге для экспорта значений в Word?
  • Новое в VBA, извлечение выделенных слов из слова в excel
  • Interesting Posts

    Код VBA для clearcontents в excel

    Скопировать на следующую доступную строку на листе

    Программно изменить класс на пользовательский класс

    Как получить имя папки в excel?

    Переключение между листами Excel в Apache POI

    Проблема импорта Excel Java, Недопустимая подпись заголовка?

    Код в PHP для функции потолка

    Назначение обработчиков событий для элементов управления в пользовательской форме, созданных динамически в VBA, в подпункте

    Как отобразить лист excel через c # без использования interop

    Как настроить запуск макроса каждый раз, когда сообщение электронной почты поступает в определенную подпапку в Outlook 2007?

    Выполнить поиск на скрытых ячейках

    Средние значения Excel, просмотрев столбец для критериев

    Как я могу поместить данные Excel в поле выбора?

    Как я могу получить более 50 результатов для отображения в excel с помощью mysql?

    Скрипт Powershell перестает работать при запуске планировщика задач

    Давайте будем гением компьютера.