Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come impostare un riferimento a un oggetto di Word Utilizzo di Excel VBA

Sapere come fare riferimento a un oggetto di Word consente di risparmiare tempo durante la programmazione in Visual Basic, Applications Edition (VBA ) . Microsoft Word è un programma di elaborazione testi inclusi nella suite Microsoft Office . VBA è un linguaggio di programmazione comunemente usato nei programmi di Microsoft Office per automatizzare le attività di routine . È necessario fare riferimento a un oggetto di Word prima di scrivere il codice VBA per leggere un documento Word. In pochi passi si può scrivere alcune subroutine di leggere un documento Word. Istruzioni
1

Aprire Microsoft Excel 2007 e fare clic sulla scheda " Sviluppo ", quindi selezionare " Visual Basic ".

Fare clic sul menu " Strumenti " e selezionare "Riferimenti ... " . Seleziona la casella accanto a " 12.0 Libreria oggetti di Microsoft Word " e selezionare " OK ".
2

Digitare quanto segue per creare un nuovo sottoprogramma :

Wordreference Sub ( ) per

Premere " Invio".
3

Digitare il seguente per fare riferimento a un oggetto di Word :

Dim WordDoc Come Word.Document

wordApplication = CreateObject ( " Word.Application " ) per

WordDoc = wordApplication.Documents.Open ( " C : \\ WordDoc.doc " ) per

È possibile modificare "C : \\ WordDoc.doc " e immettere un percorso per il documento di Word si desidera fare riferimento
4

digitare quanto segue per chiamare il " ReadWord " subroutine : .

chiama ReadWord ( WordDoc ) per
5

digitare quanto segue per creare il sottoprogramma " ReadWord " e visualizzare una finestra di messaggio con il testo letto dal documento di Word :

private Sub ReadWord ( wrdDoc As Object ) per

Dim Prange Come Word.Range

Dim PCNT As Long

wrdDoc

PCNT = 1 To . Paragraphs.Count

Prange = . Range ( Inizio: . . = paragrafi ( PCNT ) Range.Start , _

Fine : . . = paragrafi ( PCNT ) Range.End ) per

MsgBox ( pRange.Text ) per

Avanti PCNT

. Chiudi

End With End Sub


6

Premere " F5 " per eseguire la subroutine " Wordreference " .

 

software © www.354353.com