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

Тема в разделе "Visual Basic", создана пользователем klyblg, 1 ноя 2013.

  1. klyblg

    klyblg New Member

    Регистрация:
    1 ноя 2013
    Сообщения:
    2
    Симпатии:
    0
    Построение таблицы происходит в цикле , так как зависит от циклических параметров.
    Надо чтобы при каждом новом 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
     

    Вложения:

Загрузка...
Похожие Темы - Построение Таблицы Ворде
  1. yyyuuu
    Ответов:
    2
    Просмотров:
    1.054
  2. Gargon
    Ответов:
    5
    Просмотров:
    857
  3. Dragon108
    Ответов:
    2
    Просмотров:
    935
  4. dannyblinov
    Ответов:
    0
    Просмотров:
    1.236
  5. skeydee
    Ответов:
    8
    Просмотров:
    4.260

Поделиться этой страницей