Object Library " för att lägga till den som en referens . Klicka på " OK . " Addera 3 Deklarera följande namespace genom att lägga det som första kodrad i din modul .
Import Microsoft.Office.Interop
4
Skapa variablerna Word objektet genom att lägga till följande kod :
Dim wordApp som ny Word.Application
Dim wordDoc som Ny Word.Document
Dim newPrgrh Som Word.Paragraph
5
Definiera sökvägen och namnet på filen och öppna den
wordDoc = wordApp.Documents.Open ( " C : . \\ WordText.doc " ) katalog
wordApp.WindowState = Word.WdWindowState.wdWindowStateNormal
wordApp.Visible = Sant
6
Lägg till ett nytt stycke till filen genom att lägga till följande rad kod :
wordDoc.Paragraphs.Add ( ) katalog
newPrgrh = wordDoc.Content.Paragraphs.Add
newPrgrh.Range.Text = " Nytt stycke "
newPrgrh.Range.Font.Bold = Sant
newPrgrh.Format.SpaceAfter = 26
newPrgrh.Range.InsertParagraphAfter ( )
7
Avsluta Word när du är klar programmering och släpp " wordApp " objekt från datorns minne .
wordApp.Quit ( ) katalog
wordApp = Nothing
8
Tryck " F5 " för att köra programmet . Detta kommer att öppna filen som definieras i steg 4 .