|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - построение таблицы в Worde, которая в цикле |
|
VBS/WSH/JS - построение таблицы в Worde, которая в цикле
|
Новый участник Сообщения: 2 |
Построение таблицы происходит в цикле , так как зависит от циклических параметров.
Надо чтобы при каждом новом i таблица строилась после предыдущей, а не в уже созданной, то есть каждая новая таблица в новом месте. Вот так строю aRows = Doc.RealPayrollRows("MPOT") for i = 1 to aRows With Doc.PayrollRow(i, "MPOT") Sel.TypeText Data10 & vbCrLf set chain = .Agent.chainobj("DRCT") Sel.Font.Size = 14 Sel.Font.Bold = wdToggle Sel.typeText .Agent.name & vbCrLf dim dRows if (chain.Count\3)= 0 then dRows = (chain.Count/3)*4 else dRows = (chain.Count/3 +1)*4 end if Set Tbl = Docword.Tables.Add(Sel.Range, dRows, 3, wdWord9TableBehavior, wdAutoFitContent) 'Sel.typeText vbCrLf 'While Tbl.MoveNext 'Wend for k=1 To 3 for l=1 to t step 4 Sel.Font.Size = 12 Sel.Font.Bold = wdToggle Tbl.Cell(l,k).Range.Text = ".........." next for g=3 to t step 4 Sel.Font.Size = 12 Sel.Font.Bold = wdToggle Tbl.Cell(g,k).Range.Text = "Director" next next 'идем по связи и записываем все в проводку For j = 1 to chain.Count Sel.Font.Size = 14 Sel.Font.Bold = wdToggle 'Tbl.Value=chain.Item(j).Name for q=2 to dRows step 4 Tbl.Cell(q,j).Range.Text = chain.Item(j).Name next Next end with next Подскажите пожалуйста как можно это исправить. Спасибо! |
|
Отправлено: 14:34, 01-11-2013 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать klyblg, из приведённого кода сложно что-либо понять. Для начала приведите полный код, достаточный для воспроизведения, вместе с документом.
|
Отправлено: 15:50, 01-11-2013 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Удаление записей таблицы по данным другой таблицы | xNiSSaNx | Вебмастеру | 4 | 02-08-2013 21:58 | |
Delphi - Как взять данные с Delphi и этими же данными заполнить форму в Worde? | GoodsmaK | Программирование и базы данных | 13 | 14-07-2011 08:06 | |
MSFT SQL Server - создание таблицы точнее проблемма с созданием таблицы | GAROD | Программирование и базы данных | 4 | 02-12-2010 00:58 | |
При работе в worde в тексте вываливаются такие наборы "еуыееуыееуыееуые... | A_kitten | Лечение систем от вредоносных программ | 4 | 22-10-2010 06:06 | |
[решено] Отключить макросы на Excel и Worde через групповой политику | dosim | Microsoft Windows NT/2000/2003 | 8 | 07-08-2006 17:11 |
|