|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur att skicka 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 en dator programmeringsspråk som vanligen används för att automatisera rutinuppgifter . Att lära sig att skicka data mellan Word dokument med VBA är användbart när du behöver för att kontinuerligt sammanfoga Word-dokument manuellt . I några steg du kan lära dig att skriva VBA-kod för att öppna två Word-dokument och överföra data mellan dem . Instruktioner
    1

    Öppna Microsoft Office Word , typ " dessa data är i firstDoc " och spara i " C : \\ " som " . FirstDoc.doc " Stäng dokumentet . Lägg till ett nytt dokument , typ " 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 " Modul . " 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 ( ) katalog

    Dim wrd1App Som Word.Application

    Dim wrd2App Som Word.Application

    Set wrd1App = CreateObject ( " Word.Application " ) katalog

    Set wrd2App = CreateObject ( " Word.Application " ) katalog

    wrd1App.Visible = Sant

    wrd2App.Visible = Sant

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

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

    wrd1App.Selection.Expand wdLine

    sTextDoc1 = wrd1App.Selection.Text
    < p > wrd2App.Selection.Expand wdLine

    sTextDoc2 = wrd2App.Selection.Text

    wrd1App.Selection.TypeParagraph

    wrd1App.Selection.TypeText text : = " Denna text var gått från secondDoc : " & Text : = " Denna text har gått från firstDoc : " & sTextDoc1

    wrd2App.Selection.TypeParagraph

    End Sub
    4

    Kör du subrutinen genom att trycka " F5 . " Addera

    Tidigare:

    nästa:
    relaterade artiklar
    ·Så lägger du ett Combo i DataGrid i VB6
    ·Hur man beräknar antal veckor mellan två datum
    ·Hur Läs & Skriv till RichTextBox i VB6
    ·Komma åt Seriella & Parallella portar med hjälp av Vi…
    ·Hur man upptäcker ljudnivåer Från Produktionen i Vis…
    ·Hur man läser delar av en fil till en array
    ·SolidWorks API Verktyg
    ·Hur göra en proxy webbläsare som använder Visual Bas…
    ·Lägga getDate till Vb.NET Script byta namn på filen
    ·Hur Loop för att hitta dubbletter i en slumpmässig fi…
    Utvalda artiklarna
    ·Konvertera datum till String i VB
    ·Hur ta bort från en MySQL databas
    ·Handledning för Programmeringsteknik
    ·Hur man skapar en kalender med PHP
    ·Hur bli av Error.Jsp
    ·Hur man genomför en brevlåda Använda Java
    ·Hur Frys bakgrunden i SMF
    ·Hur man skickar HTML- e-post med VB.NET
    ·Hur man fångar en lokal datorns namn med VBS
    ·Lägga till en textruta Inom en rad i PHP
    Copyright © Dator Kunskap http://www.dator.xyz