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 operazioni , ma il vero potere di VBA è in Visual Basic Editor , in cui è possibile scrivere 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 tue esigenze . Istruzioni
1

lancio Word e aprire un nuovo documento . Salvare il documento con un nuovo nome , ad esempio " C : \\. TestDoc.doc " Prendere nota del 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. Fai clic destro sulla scheda " Foglio1 " nella parte inferiore dello schermo . Selezionare " Visualizza codice ".
4

Aggiungi la libreria di oggetti contenenti oggetti, proprietà e metodi per Word . Selezionare "Strumenti" seguito da "Riferimenti " dal menu . Scorrere l'elenco fino a trovare "Library Microsoft Word xx, x Object" ( xx, x sta per la versione , . , Per esempio , se si utilizza Office 2007 , guarda per il 12,0 Libreria oggetti di Microsoft Word ) Controllare la casella di controllo , e quindi fare clic su "OK".
5

inserire un modulo per contenere il codice selezionando "Inserisci" seguito da " Module " dal menu .
6

Iniziare un subprocedure . Digitare quanto segue nel nuovo modulo : " . Inserire"

Sub Word_Text ( ) per

Press Excel genera automaticamente una dichiarazione di "End Sub " .
7

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

Dim wdApp come oggetto, wdDoc come oggetto

Dim wordfile As String , enterstring As String
8

Impostare il valore della variabile " wordfile ", specificando il documento di test creato in Word . Se in seguito si desidera utilizzare un documento di Word diverso , cambiare il nome del file in questa riga di codice . Digitare quanto segue :

DIZIONARIO = "c : \\ testdoc.doc "
9

Impostare il valore della variabile " enterstring " per il testo che si desidera aggiungere in cima il documento di Word . Digitare quanto segue :

enterstring = " Aggiungi questo testo nel file . "
10

Aggiungi 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

wdApp = GetObject ( " Word.Application " ) per

wdApp è niente allora

wdApp = CreateObject ( " Word.Application " ) per

End If

On Error GoTo 0
11

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

wdDoc = GetObject ( wordfile ) economici 12

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

wdApp

Visible = True

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

End With
Pagina 13

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

WdDoc.Content

InsertAfter enterstring

InsertParagraphAfter

End With
14

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

wdDoc = Nothing Set

wdApp = Nothing

lasciare il " Sub End" dichiarazione in luogo
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 linea di lettura , " Aggiungi questo testo nel file . "