Построение Таблицы В Ворде

  • Автор темы klyblg
  • Дата начала
K

klyblg

#1
Построение таблицы происходит в цикле , так как зависит от циклических параметров.
Надо чтобы при каждом новом 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
 

Вложения