Crear tablas e ingresar texto usando VB.NET Word

'Primero, cree una "biblioteca de tipos" VB.NET, seleccione Microsoft.Word?14.0? "Biblioteca de tipos", seleccione Microsoft.Word?14.0?Object?Library (correspondiente a la versión de Office 2010), copie y pegue el siguiente código en el formulario Form1, reemplazando el código original.

'PD: El siguiente código solo crea una tabla, fusiona la primera fila, la columna 2 con la columna 4 y agrega 1 texto. Analice el resto usted mismo.

Importar Microsoft.Office.Interop

¿Importaciones?Sub?Form1_Load(remitente?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Dim?DWrd?As?New?Word.Application,?DDoc?As?Word.Document ?'Definir objetos de Word y documentos

DDoc?=?DWrd.Documents.Add?'Agregar nuevos documentos

Dim?DTbl?As?Word.Table?'Definir objeto de tabla

DTbl?=?DDoc.Tables.Add(DDoc.Range, ? 7,?4)?Add Tabla

DTbl.Style?=?"Grid Style"?Establece el estilo de la tabla

DTbl.Cell(1,?2).Select()?Selecciona la celda inicial como Fila 1/Columna 2

DWrd.Selection.MoveRight(,?2,?SelectionMode.MultiExtended)?Extender dos celdas hacia la derecha (es decir, seleccionar las columnas 2 a 4 de la fila 1 Columna)

DWrd.Selection().Cells.Merge()?Cell merge

DTbl.Cell(1,?1).Range.Text?=?1?' primera celda

DWrd.Visible?=?True?'¿Mostrar final de palabra?