Linguist1979
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Добрый день! Я не программист, но методом проб и ошибок, интенсивным поиском в Интернете удалось создать макрос для замены текста в диаграммах, которые являются частью документов Microsoft Word. Данные диаграммы, насколько я понимаю, являются документами Microsoft Excel. Если неправ, поправьте. Макрос запускается из Microsoft Word, просматривает документ Microsoft Word, находит диаграммы, открывает их в программе Microsoft Excel, ищет и заменяет нужные слова, но перед автоматическим закрытием документа Microsoft Excel появляется сообщение "Приложению Microsoft Excel не удалось найти данные для замены. Проверьте правильность указания условий поиска и параметров форматирования...". Мне приходится после каждого вызова подпрограммы замены нажимать ОК. Задаю вопрос в ветке по Excel VBA, так как код, выполняемый в Word, по-видимому делает всё как надо. Подскажите, где копать. Какой такой параметр функции поиска и замены я упустил? Как можно запретить всплывающие окна на время выполнения подпрограммы замены? Код: Sub DoFindReplaceE(FindText, ReplaceText) Cells.Replace What:=FindText, Replacement:=ReplaceText, _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _ False, ReplaceFormat:=False End Sub Sub ShowWorkbook_Word() Dim objShape As InlineShape For Each objShape In ActiveDocument.InlineShapes If objShape.HasChart Then objShape.Chart.ChartData.Activate Call DoFindReplaceE("МТЗ", "MTZ") Call DoFindReplaceE("РБ", "RB") 'И так далее, Множество подобных строк, где отличаются только документы. objShape.Chart.ChartData.Workbook.Application.Quit End If Next End Sub |
|