|
|
|
Вставка записей таблицы в шаблон Word.
|
|||
|---|---|---|---|
|
#18+
Вопрос в том что шаблон применяется больше одного раза (формирование счет-фактур за день). Примитивно создавать шаблон в цикле, копировать, закрывать, вставлять в документ получается. Не знаю как сделать проще. Подскажите как можно использовать шаблон как один документ? Dim drc As DataRowCollection = ctx.getDataRows(ctx.Command("InvoiceForADay", Dim mwrd As New Word.ApplicationClass Dim mwdoc As Word.DocumentClass Dim rang As Word.Range Dim bk As Word.Bookmark 'mwdoc = mwrd.Documents.Add(Environment.CurrentDirectory & "\Templates\Invoice.dot") mwdoc1 = mwrd1.Documents.Add(Environment.CurrentDirectory & "\Templates\с.ф.dot") For i = 0 To drc.Count - 1 Dim A0All_NDS, A0AllCost As Double mwdoc = mwrd.Documents.Add(Environment.CurrentDirectory & "\Templates\Invoice.dot") For Each bk In mwdoc.Bookmarks Select Case bk.Name Case "A0All_NDS" bk.Range.Text = A0All_NDS bk.Delete() Case "A0AllCost" bk.Range.Text = A0AllCost ..... End Select Next Next mwrd.Visible = True ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.04.2006, 12:16 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=285&tid=2166073]: |
0ms |
get settings: |
7ms |
get forum list: |
17ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
84ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
25ms |
get tp. blocked users: |
2ms |
| others: | 245ms |
| total: | 402ms |

| 0 / 0 |
