samenvoegen van Microsoft Word- documenten met behulp van Visual Basic for Applications ( VBA ) kunt u tijd besparen bij het werken met verschillende documenten . Microsoft Word is een tekstverwerkingsprogramma dat wordt geleverd met het Microsoft Office ( MS Office ) suite. VBA wordt gebruikt wanneer u nodig hebt om routinetaken te automatiseren om een resultaat te creëren . VBA kan worden gebruikt in een van de MS Office -toepassingen . U kunt een code gebruiken om tekst uit meerdere documenten in een kopiëren . Instructies
Start Microsoft Word 2007 1 . Selecteer het tabblad " Developer " en klik op " Visual Basic . " Klik met de rechtermuisknop " Microsoft Word- objecten , " klik " Insert " en selecteer
Type 2 het volgende om een nieuwe sub creëren " Module . " :
Sub mergeTwoDocs ( ) < br Pers > ' Enter '.
Type 3 de volgende variabelen gebruikt voor het opslaan van gegevens te maken : Dim WDOC Zoals Word.Document
Dim paragraphText als Koord Dim paragraphRange
Zoals Word.Range Dim paragraphCount
As Long
Type 4 het volgende om uw variabele " wordApplication " te definiëren : < br Set wordApplication > = CreateObject ( " Word.Application " ) Type
het volgende aan de " eerste " document opent om te fuseren :
Set WDOC = wordApplication.Documents.Open ( " C : \\ Dit is de tekst van de eerste document.doc " ) Type
het volgende aan de bel " readDocument "sub en stuur de " eerste " document -object als parameter :
Bel readDocument ( WDOC )
5 Typ het volgende om de " tweede " document opent om te fuseren : Set
WDOC = wordApplication.Documents.Open ( " C : \\ Dit is de tekst van de tweede document.doc " ) Type
het volgende aan de bel " readDocument "sub en stuur de " tweede " document -object als parameter :
Bel readDocument ( WDOC ) op < br > Type 6 het volgende aan de " readDocument " sub die een woord document object doorgegeven in zullen lezen en voeg de inhoud van het huidige document : Private Sub readDocument ( wrdDoc As Object ) op Twitter Met wrdDoc
paragraphCount = 1 To Paragraphs.Count Set paragraphRange = Range
( Start : . . . = leden ( paragraphCount ) Range.Start , _
< . p > Einde : . . = leden ( paragraphCount ) Range.End ) paragraphText = paragraphRange.Text Selection.TypeText tekst
: = paragraphText Selection.TypeParagraph
< br > Volgende paragraphCount
. Sluiten Einde
Met End Sub
|
