Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come passare i dati tra documenti di Word utilizzando VBA

Microsoft Office Word è un programma di elaborazione testi inclusi nella suite Microsoft Office . Microsoft Visual Basic , Applications Edition, o VBA , è un linguaggio di programmazione comunemente usato per automatizzare le attività di routine . Imparare come passare i dati tra i documenti di Word utilizzando VBA è utile quando si ha bisogno di fondere continuamente i documenti di Word manualmente . In pochi passi si può imparare a scrivere codice VBA per aprire due documenti di Word e di trasferire i dati tra di loro . Istruzioni
1

Aprire Microsoft Office Word , digitare " questi dati sono in firstDoc " e salvare in " C : \\ " come " . FirstDoc.doc " Chiudere il documento . Aggiungi un nuovo documento , tipo "Questi dati sono in secondDoc " e salvare in " C : \\ " come " . SecondDoc.doc " Chiudere il documento.
2

Aprire Microsoft Office Word , selezionare la scheda "Sviluppatore " e cliccare su " Visual Basic ". Fai clic sul menu "Inserisci" e selezionare "Modulo ". Copiare e incollare il seguente codice nel tuo modulo di scambiare testo tra " firstDoc.doc " e " secondDoc.doc . "
3

passDataBetweenWordDocs Private Sub () Dim

wrd1App Come Word.Application

Dim wrd2App Come Word.Application

wrd1App = CreateObject ( " Word.Application " ) per

wrd2App = CreateObject ( " Word.Application " ) per

wrd1App.Visible = True

wrd2App.Visible = True

wordFirstDoc = wrd1App.Documents.Open ( " C : \\ firstDoc.doc " ) per

wordSecondDoc = wrd2App.Documents.Open ( " C : \\ secondDoc.doc " ) per

wrd1App.Selection.Expand wdLine

sTextDoc1 = wrd1App.Selection.Text

wrd2App.Selection.Expand wdLine

sTextDoc2 = wrd2App.Selection.Text

wrd1App.Selection.TypeParagraph

wrd1App.Selection.TypeText text : = " Questo testo è stato passato da secondDoc : " & Text : = " Questo testo è stato approvato da firstDoc : " & sTextDoc1

wrd2App.Selection.TypeParagraph

End Sub
4

Run si sottoprogramma con il tasto " F5 . "

 

Programmazione © www.354353.com