Tiene que agregar una referencia a Microsoft Word y en el General poner la siguiente declaración
Código
Imports Word = Microsoft.Office.Interop.Word
Código
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?