Aiuto Tabelle Word

venerdì 13 aprile 2012 - 11.26
Tag Elenco Tags  VB.NET  |  .NET 3.5  |  Windows XP  |  Visual Studio 2008  |  Office 2003

ladrone Profilo | Newbie

Salve a tutti!
Vi chiedo un aiuto su come creare tabelle in word dal mio programmino in .net.
Le tabelle sono tante (circa 200) e, per come l'ho scritto, l'operazione risulta oltremodo lenta.
Ho usato ,sicuramente sbagliando, questo codice :
(Grazie fin da ora)

Dim oWord As Word.Application
Dim oDoc As Word.Document

Dim oTable As Word.Table = Nothing

oWord = CreateObject("Word.Application")
oWord.Visible = True

For num_tab = 1 To 200
Dim r As Integer, c As Integer
oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 5, 10)

With oTable
.Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
.Rows.Height = 3
.Range.Font.Size = 8
.Rows.Item(1).Range.Font.Size = 9
.Rows.Item(1).Range.Font.Bold = True
oTable.Rows.Item(1).Range.Font.Color = Word.WdColor.wdColorRed
oTable.Rows.Item(1).Range.Shading.BackgroundPatternColor = Word.WdColor.wdColorGray05
.Rows.Item(1).Alignment = Word.WdRowAlignment.wdAlignRowCenter

.Cell(1, 1).Merge(oTable.Cell(1, 2))
.Cell(1, 2).Merge(oTable.Cell(1, 3))
.Cell(1, 3).Merge(oTable.Cell(1, 4))
.Cell(1, 4).Merge(oTable.Cell(1, 5))
.Cell(1, 5).Merge(oTable.Cell(1, 6))

For r = 2 To 5
For c = 1 To 10
.Cell(r, c).Range.Text = "Miao"
Next
Next
oDoc.Range.InsertParagraphAfter()
End With
Next

Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5