• 
  

  hur de kan förmedla data mellan Word-dokument med VBA

  
  

Microsoft Office Word är ett ordbehandlingsprogram som ingår i Microsoft Office-paketet . Microsoft Visual Basic for Applications eller VBA är ett programmeringsspråk som ofta används för att automatisera rutinuppgifter . Att lära sig att skicka data mellan Word-dokument med hjälp av VBA är användbar när du behöver kontinuerligt sammanfoga Word-dokument manuellt . I några få steg kan du lära dig hur man skriver VBA- kod för att öppna två Word-dokument och överföra data mellan dem
1
Öppna Microsoft Office Word , skriv " dessa data i firstDoc " och spara i " C: \ " som " firstDoc. doc . " Stäng dokumentet . Lägg till ett nytt dokument , skriv " Dessa data är i secondDoc " och spara i " C: \ " som " secondDoc. doc . " Stäng dokumentet .
2 .
Öppna Microsoft Office Word , välj " Utvecklare "-fliken och klicka på " Visual Basic . " Klicka på " Infoga " -menyn och välj sedan " Module ". Kopiera och klistra in följande kod på din modul för att utbyta text mellan " firstDoc. doc " och " secondDoc . doc ".
3 .
Private Sub passDataBetweenWordDocs ( )



Dim wrd1App Som Word. Application

Dim wrd2App Som Word. Application



Set wrd1App=CreateObject ( " Word. Application " )

Set wrd2App=CreateObject ( " Word . Application " )

wrd1App. Visible=Sant

wrd2App. Visible=Sant



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

Set 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 :="Denna text gått från secondDoc : " sTextDoc2

wrd1App. Selection. TypeParagraph



wrd2App. Selection. TypeParagraph

wrd2App. Selection . TypeText Text :="Denna text gått från firstDoc : " sTextDoc1

wrd2App . Selection. TypeParagraph



End Sub
4 .
Kör du subrutinen genom att trycka på " F5 ".

Previous：nothing Next：hur du importerar Excel-data till Word med Visual Basic

Relaterade artiklar