Πώς να συγχωνεύσει τα έγγραφα του Word σε VBA

Συγχώνευση έγγραφα του Microsoft Word χρησιμοποιώντας τη Visual Basic for Applications ( VBA ) μπορεί να σας εξοικονομήσει χρόνο όταν ασχολούνται με διάφορα έγγραφα . Το Microsoft Word είναι μια εφαρμογή επεξεργασίας κειμένου που έρχεται με το Microsoft Office ( MS Office ) suite . VBA χρησιμοποιείται , όταν χρειάζεται να αυτοματοποιήσουν εργασίες ρουτίνας για να δημιουργήσετε ένα αποτέλεσμα . VBA μπορεί να χρησιμοποιηθεί σε οποιαδήποτε από τις εφαρμογές του MS Office . Μπορείτε να χρησιμοποιήσετε έναν κωδικό για να αντιγράψετε κείμενο από πολλά έγγραφα σε ένα . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Word 2007 . Επιλέξτε την καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic ". Κάντε δεξί κλικ στο " αντικείμενα του Microsoft Word , κάντε" κλικ "Εισαγωγή" και επιλέξτε 2

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο sub " Ενότητα ". :

Sub mergeTwoDocs ( )

Press " . Enter"
εικόνων 3

Πληκτρολογήστε τα ακόλουθα για να δημιουργήσετε μεταβλητές που χρησιμοποιούνται για την αποθήκευση των δεδομένων :

Dim wDoc Όπως Word.Document

Dim paragraphText Όπως String Dim

paragraphRange Όπως Word.Range

Dim paragraphCount Όπως Long
Η 4

Πληκτρολογήστε το παρακάτω, για να καθορίσει το " wordApplication " μεταβλητή :

Ορισμός wordApplication = CreateObject ( " Word.Application " )

Πληκτρολογήστε το παρακάτω, για να ανοίξει το " πρώτο " έγγραφο για τη συγχώνευση :

Set wDoc = wordApplication.Documents.Open ( " C : \\ Αυτό είναι το κείμενο από την πρώτη document.doc " )

Πληκτρολογήστε το παρακάτω, για να καλέσετε τον " readDocument "sub και να στείλει το " πρώτο "αντικείμενο του εγγράφου ως παράμετρο :

καλέστε readDocument ( wDoc )
5

Πληκτρολογήστε τα ακόλουθα για να ανοίξετε την "δεύτερη " έγγραφο για τη συγχώνευση :

Set wDoc = wordApplication.Documents.Open ( " C : \\ Αυτό είναι το κείμενο από το δεύτερη document.doc " )

Πληκτρολογήστε το παρακάτω, για να καλέσετε τον " readDocument "sub και στείλτε την" δεύτερη "αντικείμενο του εγγράφου ως παράμετρο :

καλέστε readDocument ( wDoc )

6

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει το " readDocument " sub που θα διαβάσει οποιοδήποτε αντικείμενο έγγραφο του Word που ψηφίστηκε το και προσθέστε τα περιεχόμενα του τρέχοντος εγγράφου :

Private Sub readDocument ( wrdDoc As Object )

Με wrdDoc

Για paragraphCount = 1 Για να Paragraphs.Count

Set paragraphRange = Range ( Έναρξη : . . . . = παράγραφοι ( paragraphCount ) Range.Start , _

End : . = παράγραφοι ( paragraphCount ) Range.End )

paragraphText = paragraphRange.Text

Selection.TypeText Κείμενο : . = paragraphText

Selection.TypeParagraph

Επόμενο paragraphCount

. Κλείσιμο

End With

End Sub
Η
εικόνων