Ошибка 5152 в макросе копирования из Excel в Word

@kukana · Регистрация: 23.10.2015

Студворк — интернет-сервис помощи студентам

День добрый.

Есть макрос сделанный для того, чтоб из таблицы Excel выгрузить данные в Word по шаблону. Тормозит конечно, но это решаемо и сейчас не об этом. В конце надо результат сохранить.
Предпоследняя строка кода такая:

Visual Basic
1
app.ActiveDocument.SaveAs2 PathWord, FileFormat:=wdFormatDocumentDefault  'сохраняем созданный документ по заданному пути PathWord

Значение переменной PathWord: D:\ДОКУМЕНТЫ\!2021\+КАБЖУР\Отчёты\678267 61-Б0104-0000-СТВН.024.КЖ.docx.
Всё работает без проблем. Отдаю файл с макросом в работу.
Что делает пользователь: Ctrl+C, Ctrl+V в ячейки с данными, выводимыми в шаблон. Больше НИЧЕГО, проверено.
Запускаю макрос. Документ Word формируется от начала до конца без помарок, но есть НО. При попытке сохранения в той самой предпоследней строке выскакивает ошибка 5152 "Неверное имя файла". Строка та же, PathWord та же.
Можете подсказать, что не так?

shanemac51 · 17.02.2022, 13:35

Сообщение от kukana

Шапка нужна на всех листах, и это просто свойство строк в таблице шаблона - повторять как заголовок на каждой странице.

неверно посмотрела шаблон - в нем 2 шапки
1- для строк данных
2- для итогов с новой страницы

@KoGG · 17.02.2022, 14:58

Нужно еще очищать имя файла от других недопустимых символов:

Visual Basic
1
2
3
4
tmpStr = Replace(tmpStr, vbCr, "") 
tmpStr = Replace(tmpStr, vbLf, "") 
tmpStr = Replace(tmpStr, vbTab, "") 
tmpStr = Replace(tmpStr, Chr(7), "")  'Удаление символа конца ячейки Word

По поводу "The remote server machine does not exist or is unavailable"
при запуске одного приложения из другого нужно дать время приложению загрузиться, помогает:

Visual Basic
1
For i=1 to 5000: DoEvents: Next

@kukana · 17.02.2022, 15:22 **[ТС]**

Сообщение от shanemac51

неверно посмотрела шаблон - в нем 2 шапки

Точно так.

Сообщение от KoGG

Нужно еще очищать имя файла от других недопустимых символов

В общем случае да, но я чищу только от тех, что могут появиться в шифре документа.

Сообщение от KoGG

при запуске одного приложения из другого нужно дать время приложению загрузиться

Таки да, но в моём случае ошибка возникает тогда, когда приложение уже давно открыто и в него внесена половина данных.

@KoGG · 17.02.2022, 16:08

При копировании Ctrl+V как раз и могут эти символы появится, особенно если копировать и Word, или из Excel, из того места куда ранее скопировали из Word.

@kukana · 18.02.2022, 08:09 **[ТС]**

Сообщение от KoGG

При копировании Ctrl+V как раз и могут эти символы появится, особенно если копировать и Word, или из Excel, из того места куда ранее скопировали из Word.

Не исключено, но как я писал выше - изменения по СонтролВэ вносятся только в данные о кабелях и не затрагивают ячейку, из которой формируется имя файла.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@KoGG 5730 / 1633 / 419 Регистрация: 23.12.2010 Сообщений: 2,455 Записей в блоге: 1
	17.02.2022, 16:08
	При копировании Ctrl+V как раз и могут эти символы появится, особенно если копировать и Word, или из Excel, из того места куда ранее скопировали из Word. 0