3 Declarar el siguiente espacio de nombres mediante la adición como la primera línea de código en el módulo.
Importaciones
Microsoft.Office.Interop Página 4
Crear las variables de objeto de Word con el código siguiente :
wordApp Dim As New Word.Application
wordDoc Dim As New Word.Document
newPrgrh As Word.Paragraph
5
Definir la ruta y el nombre del archivo y abrirlo
wordDoc = wordApp.Documents.Open ("C : \\. WordText.doc " )
wordApp.WindowState = Word.WdWindowState.wdWindowStateNormal
wordApp.Visible = True
6
Añadir un nuevo párrafo en el archivo añadiendo la siguiente línea de código:
wordDoc.Paragraphs.Add ()
newPrgrh = wordDoc.Content.Paragraphs.Add
newPrgrh.Range.Text = " Nuevo párrafo "
newPrgrh.Range.Font.Bold = True
newPrgrh.Format.SpaceAfter = 26
newPrgrh.Range.InsertParagraphAfter ()
7
salir de Word cuando haya terminado la programación y soltar el objeto " wordApp " de la memoria del ordenador .
wordApp.Quit ()
wordApp = Nothing
8
Press "F5 " para ejecutar el programa . Esto abrirá el archivo definido en el Paso 4 .