Вариант отрисовки таблиц программно - не предлагать. Есть код, который выгружает на vba-подобном языке данные в шаблон MS WORD через обмен полей. Допустим, в шаблоне есть строки таблицы, которые не всегда заполняются, т.е. после выгрузки, остаются с пустыми полями. Мне нужно управлять этим скрытием. Сделать хотя бы автоматическое скрытие строк, если поля пустые в них. Главное, что шаблон, может быть отрисован с максимальным числом строк и пустые из них, при выгрузке, надо скрывать.
Пример вызова: Set wObj = CreateObject("Word.Application") path=Detach(Environ("Temp"),Cstr(curdoc.FormName(0)+{\}+response)) wObj.Documents.Add(path) wObj.Application.WindowState = 1 Set worddoc = wObj.activedocument Dim field As String For i=1 To worddoc.Fields.Count field=worddoc.Fields(i).Code.Text worddoc.Fields(i).Result.Text=WordПоле(curdoc,field) worddoc.Fields(i).Locked = True Next
MS WORD: скрытие пустых строк при выгрузке.
Реклама
MS WORD: скрытие пустых строк при выгрузке.
Вариант отрисовки таблиц программно - не предлагать.
Есть код, который выгружает на vba-подобном языке данные в шаблон MS WORD через обмен полей.
Допустим, в шаблоне есть строки таблицы, которые не всегда заполняются, т.е. после выгрузки, остаются с пустыми полями.
Мне нужно управлять этим скрытием. Сделать хотя бы автоматическое скрытие строк, если поля пустые в них.
Главное, что шаблон, может быть отрисован с максимальным числом строк и пустые из них, при выгрузке, надо скрывать.
Пример вызова:
Set wObj = CreateObject("Word.Application")
path=Detach(Environ("Temp"),Cstr(curdoc.FormName(0)+{\}+response))
wObj.Documents.Add(path)
wObj.Application.WindowState = 1
Set worddoc = wObj.activedocument
Dim field As String
For i=1 To worddoc.Fields.Count
field=worddoc.Fields(i).Code.Text
worddoc.Fields(i).Result.Text=WordПоле(curdoc,field)
worddoc.Fields(i).Locked = True
Next
wObj.Application.WindowState = wdWindowStateMaximize
wObj.Visible = True
Если задача стоит больше, ...
Другие открытые задания:
Помощник руководителя отдела развития маркетплейсов и международных продаж.30 000 р.
Бюджет: 30 000 р. Требуемый опыт работы: 2–5 лет в маркетинге Занятость: примерно 4-5 ч в день, удаленная работа. В компании Blackcustoms для грамотных и ответственных специалис…
ПА 2.Реализовать функционал: Вывод средней цены за период3 500 р.
Бюджет: 3 500 р. Цель: Реализовать функцию calculate_and_display_average_price(data), которая вычисляет и выводит среднюю цену закрытия акций за заданный период. Реализация: Фу…
отзыв5 500 р.
Бюджет: 5 500 р. нужно писать отзывы строительных компаний. работы много. оплата за каждый отзыв. тут не сижу, пишите в тг ···
поиск заданий