Ξεκινήστε το 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
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα