Сообщения

Мало ли кому-то будет интересно, чем закончилось и какой вариант рабочий

Код Выделить Развернуть

Set myWord = CreateObject("Word.Application")
....
myWord.Documents("Паспорт " & "Опоры.docx").Close SaveChanges:=wdSaveChanges
При таком варианте файл благополучно закрылся, но само приложение Word осталось открытым. Его закрывать нужно в случае необходимости отдельной командой {переменная с объектом "Word.Application"}.Quit

Вероятно, где-то в коде стоит директива пропуска ошибок On Error Resume next. И строка, которую я в цитате выделил пропускается.

В программе такой директивы (пропуска ошибки) нет. А за ссылку - спасибо!

Добрый день!
Есть следующая задача. В Excel таблица с данными, которые нужно по закладкам вносить в шаблонный Word-файл. Открыть файл и внести в него изменения - благополучно закрытый вопрос, все работает. Даже сохранить файл с новым именем по правильному пути (выбор пути через стандартное диалоговое окно) удалось реализовать, но закрыть отредактированный файл с использованием имени файла в команде на на закрытие не получается.

Код Выделить Развернуть

myDocument.SaveAs2 (mypath & "\" & "Паспорт " & "Опоры.docx")
Documents("Паспорт " & "Опоры.docx").Close SaveChanges:=wdSaveChanges
Код немного упростил код в части имени файла
Не могу понять, почему не закрывает файл с указанным именем

Проверил, работает. Это то, что и требовалось! Спасибо!

Добрый день!
У меня есть переменная строковая, содержащая выражение "=5*2+4*10". Можно ли вычистить это выражение, чтобы сцепить результат с другой строкой, без использования ячеек Excel (Cell(x,y).Formula...?
Другими словами:
"=5*2+4*10" -> =5*2+4*10 -> 50
"Длина кабеля " & 50 & " м" -> "Длина кабеля 50 м"

Пересоздал все поля и все равно в том же месте останавливается с той же ошибкой! Даже имя другое пол присвоил...

Попробовал с & "r" - тоже самое. Изначально он из формы считывает значение как строку и в сплывающей подсказке значения тоже строка. Но в остальные поля программа принимает значения без проблем! Попробую пересоздать поле и повторить эксперимент

Программа работает корректно, пока не доходит до поля Field3.value и все данные меняются в соответствии с программой.
Закомментировать строку с ошибкой - программа работает дальше нормально. Почему из шаблона программа работает без ошибки, а при повторном использовании ранее заполненного шаблона выпадает ошибка?

В коде нет ничего, что могло бы выглядеть не так. Значение поля формы считывается корректно - текстовое поле со значением "12.2024"

При попытке внести изменения в этот же заполненный шаблон данными другого оборудования возникает ошибка

В программе выбираем из базы нужное оборудование и вносим значение в шаблон шильды - все заполняется корректно без проблем.

Я для наглядности сделал несколько картинок для описания проблемы в хронологическом порядке.
Открываем шаблон - его поля заполнены типовыми значениями.

Заменил файл с самой программой - один баг убрал

Спасибо за отклик на мой вопрос! Уже начал терять надежду, что хоть кто-то посмотрит.

"AcroExch.App". Она идет вместе с программой Adobe Acrobat. При этом Adobe Acrobat должна быть установлена на ПК(не Reader, а именно Adobe Acrobat).

Именно Adobe Acrobat DC установлен на компьютере (домашнем), на работе Adobe Acrobat Pro. Подключил библиотеки (см. файл вложения). На рабочем компьютере подключена только "Acrobat". Попытка подключить обе библиотеки на домашнем компе приводит к конфликту с существующим модулем, проектом или библиотекой (так и пишет в сообщении).

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

Выпадает в ошибку в строке
field3.Value = .TextBox16.Value
примерно 122 строка программы. Всплывающая подсказка значения .TextBox16.Value показывает правильные данные. Что интересно, даже при замене .TextBox16.Value на .TextBox17.Value (строчкой выше также корректно вносит значения в другое поле) вылазит та же ошибка типов данных.

Всех с Новым Годом и Рождеством!
Столкнула меня жизнь с необходимостью автоматизировать печать шильд для электрошкафов. Технология в двух словах такая. Есть реестр шкафов, изготовленных в рамках заказа, каждый должен получить заводской номер (его присваивает моя программа - принцип: сквозная нумерация, последний присвоенный номер +1). В реестре есть несколько полей, которые используются для заполнения полей шильда и заполнения некоторых других документов (паспорта, протоколы - это другие программы делают). При создании нового шильда (нажатие кнопки на листе) открывается форма, в которой пользователь выбирает проект и короткое название шкафа. Дальше программа вытягивает данные из реестра и вносит в поля формы - вроде просмотра того, что будет внесено в шильд. Подключена библиотека "Acrobat".
Кнопка "Заполнить" вносит данные в шаблон, открытый в Adobe Acrobat Pro. Вот тут и начинается самое интересное.
Шаблон заполняется без проблем с исходного состояния до любого выбранного шкафа. Однако при выборе другого "шкафа", его данные не удается внести в шильд - возникает, на мой взгляд, странная ошибка "Type mismatch" в момент внесения данных из текстового поля с данными типа Date. Использование CStr не помогает. Если закоментить эту строку, то все работает. Это проблема на компе на работе.
Дома имею ошибку "Run-time error '48': Error in loading DLL" на строке
Set AcroApp = CreateObject("AcroExch.App")
при попытке внести данные в шаблон. Библиотека "Acrobat" не подключена, но подключена "Adobe Acrobat 10.0 Type Library". Переключить библиотеки не получается - переключает обратно: "Acrobat" отключает и подключает "Adobe Acrobat 10.0 Type Library".
Прошу подсказать, что у меня не так с программой на рабочем и на домашнем компе.
Вложил файлы с программой, шаблон шильды не проходит по размеру, чтобы можно было его вложить (0,7 Мб, можно только 0,3 Мб).

Понимаю, что вопрос немного не по теме, но куда его еще пришить не понял. Похожие темы мелькали, но ответа на свои вопросы не нашел.