Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
При выводе в Word изменять форматирование таблицы
 
Добрый день! Есть код, который перегоняет некую таблицу из эксель в таблицу в ворд:
Код
Sub CreateTable()
Set appWD = CreateObject("Word.Application")
    Range("A1:D63").Rows.AutoFit
    Range("A1:D63").Rows.WrapText = True
    Range("A1:D63").Copy
    appWD.Documents.Add
    appWD.ActiveDocument.Range.PasteSpecial , , wdPasteOLEObject
    appWD.Visible = True
End Sub

вопрос такой, можно ли его как-то допилить, чтобы  при выводе в ворд изменялось форматирование самой таблицы?!
к примеру, задать вручную свою толщину внешних (или внутренних) границ для этой таблицы, менять свойства текста в ней (междустрочные интервалы, отступы, и др..)  
написание макроса для формирования описей в файл форд, данные берутся из разных листов в книге excel
 
Добрый день! Работа была выполнена качественно и в срок. Большое Спасибо за помощь в решении задачи!
написание макроса для формирования описей в файл форд, данные берутся из разных листов в книге excel
 
Цитата
Андрей_26 написал:
обрый день!А почему обязательно в Word формировать, а ни в Excel?
т.к. в ворде потом проще подправить (по необходимости - другому сотруднику), да и подогнать под нужные размеры при печати..
а так сформировал в ворд, просмотрел что все норм (с границами и полями например), в печать, нарезать, и на стену
написание макроса для формирования описей в файл форд, данные берутся из разных листов в книге excel
 
добрый день
Необходимо выполнить задачу:
1. есть файл со всем оборудованием в здании (книга excel),
2. книга разбита на листы (АРМ, принтеры, прочее, сотрудники), в каждом листе свои данные
3. между листами таблицы на некоторые ячейки прописаны связи в виде формул с забором и расчетом данных из других листов


Необходимо написать макрос, который бы формировал один документ ворд (можно по готовому шаблону), в котором бы создавал уже готовые описи для кабинетов с исходными данными (инвентарные номера оборудования) по таблицам. Также при выводе некоторых позиций необходимо сравнивать значения ячеек сразу в нескольких листах и если есть нужные совпадения, то забирать для вывода значения из конкретных ячеек в строках с разных листов.

Рассмотрю любые варианты реализации данной задачи, оплата в разумных пределах (бюджет до 2000 руб.)
формирование шаблона описей в ворде, формирование и вывод шаблона с описями по кабинетам из excel в word
 
Добрый день!
Помогите реализовать формирование описей по шаблону из эксель в ворд.

Есть книга с оборудованием, в которой несколько листов (АРМ, принтеры, прочее, сотрудники), необходимо из листа сотрудники брать из конкретной ячейки номер кабинета и вставлять его в заголовок, а в саму опись (делать проверку) если значения № каб. в столбцах в нужных листах совпадают с заголовком, то брать из строк нужные значения и вставлять их в опись. Как это можно реализовать, в макросах не шарю, реализовал только вывод шаблона пока?!
Код
Sub opis()
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application")
    Range("A1:A8").Rows.AutoFit
    Range("A1:A8").Rows.WrapText = True
    Range("A1:A8").Copy
    appWD.Documents.Add
    appWD.ActiveDocument.Range.PasteSpecial , , wdPasteOLEObject
    appWD.Visible = True
End Sub
Изменено: Андрей Назаров - 15.12.2020 16:08:26
Страницы: 1
Наверх