Добрый день! подскажите, пожалуйста, как правильно прописать код заполнения форм в шаблоне word из excel простая замена не проходит, т.к. в шаблоне на листе сгруппированные поля (фигуры) пробовал вот так, но ошибка "Компонент с указанным именем не найден" номера полей брал из кода word
Код
Sub OpenDoсument()
Dim objWrdApp As Object, objWrdDoc As Object
Set objWrdApp = CreateObject("Word.Application")
Set objWrdDoc = objWrdApp.documents.Add(ThisWorkbook.Path & "\Шаблон.docx")
objWrdDoc.Shapes.Range(Array("Group 386")).Select
objWrdDoc.Shapes.Range(Array("Rectangle 18")).Select
Selection.TypeText Text:="Ivanov"
Лист 3. исходный диапазон как умную сделал. чтобы в строку сделать: Конструктор - макет отчета - показать в табличной форме. тут же (рядом) Промежуточные итоги - не показывать промежуточные итоги
а макрос точно нужен? Вам никто сейчас процедуры писать не будет через заполнения если они у Вас полностью совпадать будут, то пишите во второй таблице формулы
Код
=specifikaciya[@[Дата заполнения]]
или просто (без умной таблицы)
Код
='1'!A2
можете "посидеть" и защитить себя от ошибки "ССЫЛКА" (удаления строк) через функцию ДВВСЫЛ прописать формулы со ссылками на ячейки другого листа книги.
тема: формирование (дублирование) данных на основе другого листа книги (может так)?
если без макросов, то быстро можно вот так (если не огромный массив): - скопировать в Word - обратно скопировать и снять объединение ячеек (появятся пустые строки) - а потом заполнение пустот
правила читать конечно же сложно. но вбить в строку поиска "объединить", а потом добавить "текст" ну и контрольный выстрел "excel" и первая же ссылка на примеры с Планеты... но ведь не интересно, нужна уже готовая формула (решение) объединение текста из разных ячеек excel
может как вариант: сначала подсчитать количество уникальных уникальные с пустотами а ниже поставить нумерацию с учетом количества уникальных и в соответствии с нумерацией НАИМЕНЬШИЙ, где вторым аргументов ссылка на нумерацию