evo
Code:
Set otable = oDoc.Tables.Add(oDoc.Paragraphs(10).Range, ListView1.ListItems.Count, 3, wdWord9TableBehavior, wdAutoFitWindow)
gde ti je paragraphs(10) pozicija kada kursorom brojis koliko redova imas, e znaci od 10og ce da krene da ti puni tabelu
Code:
oDoc.Tables(1).Rows(1).Height = 5
oDoc.Tables(1).Columns(1).Width = 90
oDoc.Tables(1).Columns(2).Width = 290
oDoc.Tables(1).Columns(3).Width = 113
ovde si definisao sirinu tabela a ovde dole imena
Code:
otable.Rows(1).Cells(1).Range.Text = "Datum"
otable.Rows(1).Cells(2).Range.Text = "Trošak"
otable.Rows(1).Cells(3).Range.Text = "Iznos"
sto znaci nekako ovako
Code:
Set otable = oDoc.Tables.Add(oDoc.Paragraphs(10).Range, ListView1.ListItems.Count, 5, wdWord9TableBehavior, wdAutoFitWindow)
'otable.Rows.HorizontalPosition = 0 'In points
'otable.Rows.VerticalPosition = 80
oDoc.Tables(1).Rows(1).Height = 5
oDoc.Tables(1).Columns(1).Width = 30
oDoc.Tables(1).Columns(2).Width = 290
oDoc.Tables(1).Columns(3).Width = 90
oDoc.Tables(1).Columns(4).Width = 50
oDoc.Tables(1).Columns(5).Width = 30
otable.Rows(1).Cells(1).Range.Text = "Datum"
otable.Rows(1).Cells(2).Range.Text = "Obaljeni posao"
otable.Rows(1).Cells(3).Range.Text = "DAtum opet"
otable.Rows(1).Cells(4).Range.Text = "Sati"
otable.Rows(1).Cells(5).Range.Text = "Iznos"
For i = 1 To ListView1.ListItems.Count
otable.Columns(1).Cells(i + 1).Range.Text = ListView1.ListItems(i).SubItems(1)
otable.Columns(2).Cells(i + 1).Range.Text = ListView1.ListItems(i).SubItems(9)
otable.Columns(3).Cells(i + 1).Range.Text = ListView1.ListItems(i).SubItems(11)
otable.Columns(4).Cells(i + 1).Range.Text = ListView1.ListItems(i).SubItems(6)
otable.Columns(5).Cells(i + 1).Range.Text = ListView1.ListItems(i).SubItems(7)
otable.Columns(1).Cells(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
otable.Columns(2).Cells(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
otable.Columns(3).Cells(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
otable.Columns(4).Cells(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
otable.Columns(6).Cells(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next
otable.Rows(1).Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
otable.Rows(1).Cells(2).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
otable.Rows(1).Cells(3).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
otable.Rows(1).Cells(4).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
otable.Rows(1).Cells(5).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
End With