Come creare MS Word in formato testo mediante VBA per Excel

January 21

Se hai iniziato a utilizzare Visual Basic, Applications Edition (VBA) per Excel, avete già visto come VBA può trasformare un buon foglio di calcolo in un grande. macro registrate possono automatizzare le attività, ma il vero potere di VBA è in Visual Basic Editor, in cui è possibile scrivere le procedure che estendono le funzionalità di Excel. È inoltre possibile utilizzare VBA per raggiungere al di fuori di Excel, in un'altra applicazione di Office come Word. Dal momento che entrambe le applicazioni utilizzano il linguaggio di programmazione VBA, è possibile scrivere codice in Excel per avviare Word e inserire il testo in un documento. Eseguire il codice di esempio, e quindi utilizzare le vostre abilità di VBA per modificare il codice fino a che non si adatta alle vostre esigenze.

istruzione

1 Avviare Word e aprire un nuovo documento. Salvare il documento con un nuovo nome, ad esempio "C: \ Testdoc.doc." Annotare il nome scelto, come si prevede di utilizzare nel codice VBA. Chiudere il documento e uscire da Word.

2 Aprire Excel.

3 Avviare l'editor di Visual Basic. Fare clic sulla scheda "Sheet1" nella parte inferiore dello schermo. Selezionare "Visualizza codice."

4 Aggiungere la libreria di oggetti che contiene oggetti, proprietà e metodi per Word. Selezionare "Strumenti" seguito da "Riferimenti" dal menu. Scorrere l'elenco fino a trovare "Microsoft Word xx.x Object Library" (xx.x rappresenta la versione,., Per esempio, se si utilizza Office 2007, cercare la libreria di oggetti di Microsoft Word 12.0) Selezionare la casella di controllo, e poi cliccare su "OK".

5 Inserire un modulo per tenere il vostro codice selezionando "Insert", seguito da "modulo" dal menu.

6 Iniziare una sottoprocedura. Digitare quanto segue nel nuovo modulo:

Sub Word_Text ()

Premere Invio." Excel genera automaticamente una dichiarazione "End Sub".

7 Dichiarare variabili. Digitare il seguente codice tra il "Sub" e le dichiarazioni "End Sub":

Dim wdApp come oggetto, wdDoc come oggetto

Dim WordFile come stringa, enterstring As String

8 Impostare il valore della variabile "WordFile", specificando il documento di prova si è creato in Word. Se poi si desidera utilizzare un documento di Word diverso, cambiare il nome del file in questa riga di codice. Digitare quanto segue:

WordFile = "c: \ Testdoc.doc"

9 Impostare il valore della "enterstring" variabile per il testo che si desidera aggiungere alla parte superiore del documento di Word. Digitare quanto segue:

enterstring = "Aggiungi questo testo per il file."

10 Aggiungere una routine di gestione degli errori per verificare se Word è già in esecuzione. In caso contrario, aprire una nuova istanza di Word. Digitare quanto segue:

On Error Resume Next

Set wdApp = GetObject ( "Word.Application")

Se wdApp è niente allora

Set wdApp = CreateObject ( "Word.Application")

Finisci se

On Error GoTo 0

11 Aggiungere il codice per aprire il documento di Word. Digitare quanto segue:

Set wdDoc = GetObject (WordFile)

12 Aggiungere codice per rendere l'applicazione Word visibile, e quindi spostare il punto di inserimento all'inizio del documento. Digitare quanto segue:

con wdApp

.Visible = True

.Selection.HomeKey Unità: = wdStory, Extend: = wdMove

End With

13 Aggiungere codice per scrivere il testo di esempio in "enterstring" al documento di Word seguito da un ritorno a capo. Digitare quanto segue:

con wdDoc.Content

.InsertAfter enterstring

.InsertParagraphAfter

End With

14 Aggiungere codice per svuotare le variabili oggetto per liberare la memoria utilizzata dall'applicazione. Digitare quanto segue:

Set wdDoc = Nothing

Set wdApp = Nothing

Lasciare l'affermazione "End Sub" a posto.

15 Eseguire il codice. Selezionare "Esegui" seguito da "Esegui Sub / UserForm" dal menu.

16 Visualizza il documento Word di esempio creato nel passaggio 1. Nella parte superiore del documento, si dovrebbe vedere una riga con "Aggiungi questo testo per il file."

Consigli e avvertenze

  • Se si riceve un messaggio di errore, cercare gli errori di immissione di testo nel codice, come ad esempio virgolette aggiuntive o omesso, gli spazi e periodi.
  • Una lettura messaggio di errore, "Nome del file o il nome della classe non trovato durante il funzionamento Automation" significa che c'è stato un problema trovare il documento di Word prova. Controllare il valore assegnato a "WordFile", tra cui il nome del file e il percorso.
  • Se non si vede il testo di esempio da un documento di Word, o si verifica un altro errore, provare a fare un passo attraverso il codice. Posizionare il cursore all'inizio del modulo. Premere il tasto "F8" ripetutamente per eseguire una riga di codice alla volta, osservando i risultati.

Articoli Correlati