Crear o utilizar un documento de WORD??

[TrashAmbishion]

Hola amigos(as), veran necesito crear un documento de WORD con una tabla y una serie de valores, navegando encontre un buen codigo que me permite esto, pero necesito cambiar la orientacion del documento, centrar todo el contenido entre otras cosas a continuacion el codigo...

Tiene que agregar una referencia a Microsoft Word y en el General poner la siguiente declaración

Código (vb.net) [Seleccionar] Expandir



Imports Word = Microsoft.Office.Interop.Word



Código (vb.net) [Seleccionar] Expandir



Private Sub cmboton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdboton.Click

' Create Word Application
Dim oWord As Word.Application = CreateObject("Word.Application")
' Create new word document
Dim oDoc As Word.Document = oWord.Documents.Add()
oWord.Visible = False

'Creando la tabla
'lst1.items.count+1[/i] es la cantidad de filas a crear y el parametro de al lado son las columnas.

Dim oTable As Word.Table = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, lst1.Items.Count + 1, 6)
oTable.Range.ParagraphFormat.SpaceAfter = 3

''Creo las columnas
oTable.Cell(1, 1).Range.Text = "Primera"
oTable.Cell(1, 2).Range.Text = "Segunda"
oTable.Cell(1, 3).Range.Text = "Tercera"
oTable.Cell(1, 4).Range.Text = "Cuarta"
oTable.Cell(1, 5).Range.Text = "Quinta"
oTable.Cell(1, 6).Range.Text = "Sexta"

'Esto es para que comienza a partir de la 2da fila.
Dim cell As Integer = 2

For i As Integer = 0 To lst1.Items.Count - 1
If InStr(lst1.Items(i), "Segunda").ToString <> 0 Then
oTable.Cell(cell, 2).Range.Text = NameFile(lst1.Items(i).ToString)
ElseIf InStr(lst1.Items(i), "Tercera") <> 0 Then
oTable.Cell(cell, 3).Range.Text = NameFile(lst1.Items(i).ToString)
ElseIf InStr(lst1.Items(i), "Cuarta") <> 0 Then
oTable.Cell(cell, 4).Range.Text = lst1.Items(i).ToString
ElseIf InStr(lst1.Items(i), "Quinta") <> 0 Then
oTable.Cell(cell, 5).Range.Text = lst1.Items(i).ToString
ElseIf InStr(lst1.Items(i), "Sexta") <> 0 Then
oTable.Cell(cell, 6).Range.Text = lst1.Items(i).ToString
End If
oTable.Cell(cell, 1).Range.Text = "BlaBla"
cell = cell + 1
Next

'make the first row bold and italic
oTable.Rows.Item(1).Range.Font.Bold = True
oTable.Rows.Item(1).Range.Font.Italic = True

'Save this word document
oDoc.SaveAs("D:\Prueba.doc", True)
oDoc.Close()
oWord.Application.Quit()



- Podria abrir una plantilla que ya tengo creada y modificar la tabla que ya trae ella?