Foro de elhacker.net

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

 
Imports Word = Microsoft.Office.Interop.Word
 
 

 
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?