VBS/WSH/JS - построение таблицы в Worde, которая в цикле

[klyblg]

Построение таблицы происходит в цикле , так как зависит от циклических параметров.

Надо чтобы при каждом новом 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

Подскажите пожалуйста как можно это исправить. Спасибо!

[Iska]

klyblg, из приведённого кода сложно что-либо понять. Для начала приведите полный код, достаточный для воспроизведения, вместе с документом.