Вариант отрисовки таблиц программно - не предлагать. Есть код, который выгружает на 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
Если задача стоит больше, ...
Другие открытые задания:
Разместить объявления на Авито и Юле1 500 р.
Бюджет: 1 500 р. Требуется размещать объявления на вашем аккаунте Авито и Юлы.
Размещение объявлений5 000 р.
Бюджет: 5 000 р. От вас просто размещение на вашем аккаунте. Занимаюсь перепродажей электроники и других вещей. Провисеть должны до продажи. Можно несколько объявлений и несколько а…
Помощь в продвижении артиста в соцсетях10 000 р.
Бюджет: 10 000 р. Ищу ассистента для артиста (музыкальный проект). Будем работать вместе над продвижением нового трека и набором аудитории слушателей. Сам трек приложен файлом. П…
поиск заданий