Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Irbis_evs
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 След.
управление документом ВОРД из Excel в разных версиях, Проблема закрытия Ворд как приложения одним файлом в разных версиях офиса
 
#
25.09.2025 07:53:27
Спасибо, буду разбираться
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
управление документом ВОРД из Excel в разных версиях, Проблема закрытия Ворд как приложения одним файлом в разных версиях офиса
 
#
23.09.2025 21:31:35
да, видел другой вариант одной строкой, но и такой вариант меет место, как уточнение, макрос ошибок не выдает, и завершение ворда иногда (примерно 25-30%) проходит корректно. причины такого хаоса я не могу определить.
Цитата
Раннее связывание приложения Word

Создание нового экземпляра Word.Application и присвоение ссылки на него переменной myWord:

'Создание экземпляра приложения Word
'с ранней привязкой одной строкой
Dim myWord As New Word.Application
'Создание экземпляра приложения Word
'с ранней привязкой двумя строками
Dim myWord As Word.Application
Set myWord = New Word.Application

Для раннего связывания переменной с объектом Word.Application необходимо подключить в редакторе VBA Excel ссылку на библиотеку Microsoft Word Object Library, если она не подключена. Подключается ссылка в окне «References VBAproject», перейти в которое можно через главное меню редактора: Tools–>References…

Раннее связывание позволяет при написании кода использовать лист подсказок для выбора и вставки свойств и методов привязанных объектов (Auto List Members). Если проект VBA Excel создается на заказ, то, после его завершения, раннее связывание следует заменить на позднее, так как на компьютере пользователя может не оказаться нужной библиотеки, и код работать не будет.

Позднее связывание приложения Word

Создание нового экземпляра Word.Application с помощью функции CreateObject и присвоение ссылки на него переменной myWord:

Dim myWord As Object
Set myWord = CreateObject("Word.Application")

Присвоение переменной myWord ссылки на открытый экземпляр приложения Word с помощью функции GetObject:

Dim myWord As Object
Set myWord = GetObject(, "Word.Application")

Если открытого приложения Word нет, выполнение функции GetObject приведет к ошибке. Чтобы ее избежать, следует предусмотреть создание нового экземпляра Word.Application с помощью функции CreateObject, если открытое приложение не будет найдено (смотрите пример 3).

Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
управление документом ВОРД из Excel в разных версиях, Проблема закрытия Ворд как приложения одним файлом в разных версиях офиса
 
#
23.09.2025 21:15:17
Добрый день, имеется файл (просто большой и не для всех) который лист книги переносит в документ ворд, а именно создает НОВЫЙ документ, вставляет данные и закрывает его с сохранением по параметрам. вот кусок макроса на создание и закрытие документа из книги:
Код
Sub perenos()
Dim Word As Object
Dim list As Document
Dim ta As Table
Dim ta2 As Table
Set sp = ThisWorkbook.Sheets("Справка")
Set Word = CreateObject("word.application")
Set list = Word.Documents.Add
'If secstr = "" Then MsgBox "Не все данные загружены, запустите полный цикл создания справки"
list.PageSetup.Orientation = wdOrientPortrait
    With list.PageSetup
........
........ далее всякого рода форматирование и упорядочивание
.........
    End If
End If
list.Close (wdDoNotSaveChanges)
Word.Quit
ThisWorkbook.Sheets("11111").Activate
    
    If ThisWorkbook.Sheets("11111").Cells(85, 1) <> "" Then MsgBox "Справка создана"

End Sub
Исходно: офис 2013, не активированный, далее модернизация файла уже в офисе 2016, также не активированном. проверка работы в 2019 активированном.
В результате работы конкретно строк по закрытию документа и приложения столкнулся с проблемой, что ворд как application не закрывается корректно.
В 2019-ом, в диспетчере процессов все хорошо, приложение как процесс закрывается корректно, но в ранних версиях, процесс ворда не завершается, то есть их может быть ооочень много запущено, видно только через диспетчер задач, в дальнейшем макрос просто отказывается работать, пока все процессы ворда в ручную не убьешь или ком не ребутнешь.
В чем может быть проблема? заранее спасибо.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Работа макроса из Excel в Word. Редактирование текста., Нужна помощь в создании макроса в эксель, который будет редактировать документ вода по чётко у алгоритму.
 
#
30.07.2023 09:36:35
Спасибо, почитаю, осталось разобраться в параграфа, конвертация как то заработала, сам ещё не понял как
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Работа макроса из Excel в Word. Редактирование текста., Нужна помощь в создании макроса в эксель, который будет редактировать документ вода по чётко у алгоритму.
 
#
30.07.2023 05:48:21
Спасибо. Вставляется таблица правильно. У меня не получается преобразовать в текст, ошибка при конвертации. Не получается найти нормального примера команды converttotext из под экселя.  
Изменено: Irbis_evs - 30.07.2023 05:52:44
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Работа макроса из Excel в Word. Редактирование текста., Нужна помощь в создании макроса в эксель, который будет редактировать документ вода по чётко у алгоритму.
 
#
29.07.2023 20:04:52
Всем снова добрый день.
Кто может пояснить, почему после вставки таблицы в воде макросов векселя (. Selection. pasteexceltable false, false, false)

Команда конвертации в текст по знаку абзаца выдаёт ошибку (Selection. Rows. Converttotext separate.....)

И как решить вопрос?  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
автоскрытие строк в таблице при условии заданной 1ой пустой колонке, Вопрос по автоскрытию строк.
 
#
29.07.2023 19:59:23
На днях пробовал решить подобный вопрос, пришёл в выводу, что постоянный опрос содержимого почти вешает эксель, или по таймеру, или по изменению данных, или просто по кнопке. Меня устроила кнопка.  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Работа макроса из Excel в Word. Редактирование текста., Нужна помощь в создании макроса в эксель, который будет редактировать документ вода по чётко у алгоритму.
 
#
26.07.2023 13:21:22
Можно, но я в командировке в нашей епаной столице, и у меня ни...я нет кроме телефона, и то категорично не у компа. Ладно, проехали. Спасибо.  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Работа макроса из Excel в Word. Редактирование текста., Нужна помощь в создании макроса в эксель, который будет редактировать документ вода по чётко у алгоритму.
 
#
26.07.2023 11:36:29
Спасибо, я реально работаю в мо на режимом компе. Вся загвоздка, в том, что после вставки таблицы я не могу её преобразовать в текст, рекордер не помогает, эксель даёт ошибку на команде converttotext
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Работа макроса из Excel в Word. Редактирование текста., Нужна помощь в создании макроса в эксель, который будет редактировать документ вода по чётко у алгоритму.
 
#
25.07.2023 18:56:27
Не получается с телефона добавить фото, документ имеет структуру в экселе:
Ширина 4 столбца, первые две строки будут всегда.

Далее некоторое число строк, далее таблица не менее 3 строк на 4 столбца.

И завершает ещё одна строка, при наличии таблицы.

Это типовая структура в которой меняется только число строк.

Заранее спасибо.  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Работа макроса из Excel в Word. Редактирование текста., Нужна помощь в создании макроса в эксель, который будет редактировать документ вода по чётко у алгоритму.
 
#
25.07.2023 18:34:45
Добрый день, не получается собрать макрос который будет делать следующее:1. Вставлять все содержимое конкретного листа из книги, есть чёткая структура документа, меняется только количество строк, текст в ячейках форматирование, имеет жирный шрифт, хотелось бы сохранить.

2. Из выставленный таблицы частично преобразовать в текст, с разделением по табу. Или дополнять по мере преобразования таблицы из экселя.

3. Все полученное обрамить границами абзаца.

Файлы выложить не могу, пишу с тлф, работа на режимом компе.

И простое линкование не прокатит, как и использование библиотек ворда, или нужно их автоматическое подключение.  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
23.05.2022 06:50:54
_Boroda_,  спасибо, в итоге взял Ваш вариант решения.  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
19.05.2022 12:15:04
V, может быть я так и не разобрался в коде до конца, нашел еще небольшую ошибку, при создании ведомости ВКПО в графе Носки летн. в итогах к количеству добавляется дополнительная цифра "2", с чем это связано? в остальных такого нет, только в этой графе.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
19.05.2022 09:28:00
_Boroda_,  может, причем легко, также в варианте от V столкнулся с тем, что при большом количестве строк вылетала ошибка в строке
Код
m = m & "; " & sd.Item(K) * Split(K, "/")(0) & Mid(K, 2, 99)
пришлось изменить ее на
Код
m = m & "; " & sd.Item(K) * Split(K, "/")(0) & Mid(K, 2, 9999)
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
18.05.2022 17:11:36
_Boroda_,  спс, попробую.
Пытливый,  спс.
всем спс, я отошел, пока остановился на варианте V, надо листинг еще внимательно почитать, может разберусь что к чему.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
18.05.2022 17:02:38
V, Спасибо.
Спасибо за помощь, двое суток ломал над этим голову.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
18.05.2022 16:59:40
Пытливый,  в продолжение вопрос, вместо D7 чтобы вставлял в следующую после последней занятой, подскажете?
Заранее спасибо
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
18.05.2022 16:55:14
Пытливый, Да, спасибо
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
18.05.2022 16:52:54
сумма, мой вариант отрабатывает только если все значения в столбце одинаковы
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
18.05.2022 16:44:21
V, , Спасибо, то что надо.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
18.05.2022 16:40:57
Пытливый, спасибо работает, для полного счастья, выгруженный массив по столбцам в одну ячейку загнать отдельным макросом. или при выгрузке проще сцепить?
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
#
18.05.2022 15:26:14
Добрый день, столкнулся с очередной проблемой, есть сводная ведомость, с данными конкретной структуры (количество/дата). Необходимо подсчитать итог по столбцам, но:
- если все даты (после "/") равны, то суммируется количество (работает);
- если есть расхождения по датам, то необходимо суммировать каждую дату, и тут проблема, если отличная дата одна и не повторятся, то считает правильно, если отличных дат несколько или они повторяются, то получается ерунда.
помогите с решением проблемы,
заранее спасибо, и да, знаю что опять не угадал с названием темы, приму любое название какое предложите.
Изменено: Irbis_evs - 18.05.2022 15:38:15
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Сохранить как средствами VBA убивает файл, При выполнении СОХРАНИТЬ КАК сохраненный файл оказывается пустым, почему???????
 
#
15.04.2022 10:30:52
Разобрался, спс.
Теперь другой вопрос,  как изменить данные на листе файла открытого через getobject?  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Сохранить как средствами VBA убивает файл, При выполнении СОХРАНИТЬ КАК сохраненный файл оказывается пустым, почему???????
 
#
15.04.2022 06:26:38
Спасибо, а как заставить чтобы сразу отображал?  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Расчет рабочих дней с датой оформления
 
#
14.04.2022 21:18:20
ну начните просто с табеля, далее откинуть выходные и получить результат, а если совсем серьезно, покажите свой фал пример. иначе модераторы вас начнут пресовать
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Сохранить как средствами VBA убивает файл, При выполнении СОХРАНИТЬ КАК сохраненный файл оказывается пустым, почему???????
 
#
14.04.2022 21:00:09
Добрый день, суть задачи, открыть файл из открытой рабочей книги, проверить содержимое (сейчас не актуально) и сохранить открытый файл с новым именем, файл сохраняется, НО  НЕВАЖНО какие листы и что на них, ФАЙЛ сохраняется ПУСТЫМ, хотя в редакторе VBA листы есть.
Вопрос, где косяк, почему листы не видны???
заранее спасибо
И ДА, ЗАРАНЕЕ СОРИ ЧТО НЕ УГАДАЛ С НАЗВАНИЕМ ТЕМЫ      :-)))
ps: файл 123456 исполнительный, файл НАРЯД ПДТ исполняемый пересохраняемый, название типовое, изменяемая только дата, (макрос ее изменяет)
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Не получается назначить макрос кнопке
 
#
31.03.2022 20:24:31
я не гуру,но проверь на соответствие название МАКРОСА и МОДУЛЯ, если совпадают, измени. была как то подобная ошибка.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Макрос для печати с изменением значения ячейки., Вопрос про макрос для печати.
 
#
31.03.2022 20:12:02
клевая наклейка будет, но я бы попробовал чутка другую, например А2 :D  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
ComboBox с динамическим списком, динамический список в комбо без умной таблицы
 
#
22.03.2022 21:39:36
спасибо, то что нужно
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
ComboBox с динамическим списком, динамический список в комбо без умной таблицы
 
#
22.03.2022 21:09:45
Добрый день, есть список, который подставляется в комбо, количество строк списка меняется, переводить в умную таблицу пока не желательно, не могу понять куда надо вставить поиск последней строки в столбце.
Видимо корона влияет негативно.
в общем нужно чтобы в форме выпадающий список был только из заполненных строк и изменялся в зависимости от списка на листе Личное
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 След.
Наверх