Come aprire i file in .Doc Vb.Net

November 26

Come aprire i file in .Doc Vb.Net


In molti casi, quando si lavora con Visual Basic.NET si sono tenuti ad aprire i file ".doc" e scrivere a loro per una migliore leggibilità degli utenti. Un file ".doc" è l'estensione del file utilizzato in documenti di Microsoft Word. In VB, è possibile utilizzare la Libreria oggetti di Microsoft Word per accedere agli oggetti di Microsoft Word e aprire i tipi di file. Questa libreria è molto utile quando si ha bisogno di esportare il testo dall'applicazione VB in diverse occasioni per lo stesso file ".doc".

istruzione

1 Avviare Microsoft Visual Basic Express e fare clic su "Nuovo progetto" nella scheda "Pagina iniziale". Fai clic su "Visual Basic" al di sotto "Modelli installati" e fare doppio clic su "Applicazione Console" per creare un nuovo progetto di console.

2 Fare clic sul menu "Progetto" e cliccare su "Add Reference" per avviare la finestra Aggiungi riferimento. Fare clic sulla scheda "COM" e fare doppio clic su "Microsoft Word <numero di versione> Object Library" per aggiungerlo come un riferimento. Fai clic su "OK".

3 Dichiarare la seguente spazio aggiungendolo come la prima riga di codice nel modulo.

Le importazioni Microsoft.Office.Interop

4 Creare le variabili oggetto di Word aggiungendo il seguente codice:

Dim WordApp come nuovo Word.Application

Dim wordDoc As New Word.Document

Dim newPrgrh Come Word.Paragraph

5 Definire il percorso e il nome del file e aprirlo.

wordDoc = wordApp.Documents.Open("C:\WordText.doc")

wordApp.WindowState = Word.WdWindowState.wdWindowStateNormal

wordApp.Visible = True

6 Aggiungere un nuovo paragrafo al file aggiungendo la seguente riga di codice:

wordDoc.Paragraphs.Add()

newPrgrh = wordDoc.Content.Paragraphs.Add

newPrgrh.Range.Text = "Nuovo paragrafo"

newPrgrh.Range.Font.Bold = True

newPrgrh.Format.SpaceAfter = 26

newPrgrh.Range.InsertParagraphAfter ()

7 Chiudere Word quando hai finito di programmare e rilasciare l'oggetto "WordApp" dalla memoria del computer.

wordApp.Quit()

WordApp = Nothing

8 Premere il tasto "F5" per eseguire il programma. Questo aprirà il file definito al punto 4.