Aiuto Tabelle Word

venerdì 13 aprile 2012 - 11.26

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags VB.NET | .NET 3.5 | Windows XP | Visual Studio 2008 | Office 2003

ladrone Profilo | Newbie

13 messaggi | Data Invio: ven 13 apr 2012 - 11:26

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

Torna su

Stanze Forum

Elenco Threads

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 !