Nwlapcug.com


Come passare i dati tra documenti di Word utilizzando VBA

Come passare i dati tra documenti di Word utilizzando VBA


Microsoft Office Word è un'applicazione di elaborazione testi inclusa nella suite Microsoft Office. Microsoft Visual Basic per applicazioni o VBA, è un linguaggio di programmazione comunemente utilizzato per automatizzare operazioni di routine. Imparare a passare dati tra documenti di Word utilizzando VBA è utile quando è necessario continuamente unire manualmente i documenti Word. In pochi passi si può imparare a scrivere codice VBA per aprire due documenti di Word e trasferire dati tra di loro.

Istruzioni

1

Aprire Microsoft Office Word, digitare "i dati sono in firstDoc" e salvare in "C:\" come "firstDoc.doc." Chiudere il documento. Aggiungere un nuovo documento, digitare "i dati sono nella secondDoc" e salvare in "C:\" come "secondDoc.doc." Chiudere il documento.

2

Aprire Microsoft Office Word, selezionare la scheda "Sviluppo" e fare clic su "Visual Basic". Fare clic sul menu "Inserisci" quindi selezionare "Modulo". Copiare e incollare il codice riportato di seguito il modulo per lo scambio di testo tra "firstDoc.doc" e "secondDoc.doc."

3

Private Sub passDataBetweenWordDocs()

Dim wrd1App As Word. Application

Dim wrd2App As Word. Application

Set wrd1App = CreateObject

Set wrd2App = CreateObject

wrd1App.Visible = True

wrd2App.Visible = True

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

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

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:" & sTextDoc2

wrd1App.Selection.TypeParagraph

wrd2App.Selection.TypeParagraph

wrd2App.Selection.TypeText Text: = "questo testo è stato passato da firstDoc:" & sTextDoc1

wrd2App.Selection.TypeParagraph

End Sub

4

Si esegue la subroutine premendo "F5".