Πώς μπορώ να δημιουργήσω ένα Macro εγγράφου του Word σε VB 6.0

; Μια μακροεντολή είναι ένα εργαλείο που χρησιμοποιείται για την αυτοματοποίηση κουραστική και επαναλαμβανόμενες εργασίες , έτσι ώστε να μην χρειάζεται να οδηγείτε τον εαυτό σας τρελός να κάνει τον εαυτό τους . Είναι ακολουθίες από εντολές που μπορείτε να συσταθεί για να τρέξει όποτε τα χρειάζεστε . Το Microsoft Office περιέχει πολλές μακροεντολές που δεν θα συνειδητοποιούν καν ότι υπάρχουν , αλλά δεδομένου ότι είναι εκεί για να εξοικονομήσει πολύτιμο χρόνο και να διευκολυνθεί η πλήξη αυτών μονότονη θέσεις εργασίας , μπορεί να θέλετε να προσθέσετε μερικές από τις δικές σας, που είναι προσωπικά σε εσάς . Χρήση της Visual Basic ( VB ) να κάνει μια μακροεντολή που μπορεί να εφαρμοστεί κατά το χρόνο εκτέλεσης του υπολογιστή σας . Οδηγίες
Δημιουργήστε ένα αρχείο του Word που περιέχει ένα Macro
Η 1

Εκκίνηση του Microsoft Office Word . 2

Κάντε κλικ στο κουμπί "Microsoft Office" και , στη συνέχεια, επιλέξτε " New . "
εικόνων 3

Πατήστε το " Alt " και " F11 " μαζί στο πληκτρολόγιό σας για την εκκίνηση της Visual Basic.
Η

4 Κάντε κλικ στην καρτέλα "Εισαγωγή" , στη συνέχεια " . Ενότητα "
5

Επισημάνετε την ακόλουθη μακροεντολή δείγμα κώδικα και πατήστε το πλήκτρο " Ctrl " και "C " για να αντιγράψετε :

» Προβολή ένα πλαίσιο μηνύματος που εμφανίζει την εφαρμογή όνομα .

Public Sub DoKbTest ( )

MsgBox " Γεια σας από το" & Application.Name

End Sub

» Προβολή ένα πλαίσιο μηνύματος με το κορδόνι πέρασε από τον πελάτη

« Αυτοματισμού .

Public Sub DoKbTestWithParameter ( SMSG Όπως String )

MsgBox SMSG

End Sub
Η 6

Κάντε κλικ στη νέα λειτουργική μονάδα και, στη συνέχεια κρατήστε πατημένο το πλήκτρο " Ctrl " και πατήστε το πλήκτρο " P " για να επικολλήσετε τον κώδικα μακροεντολής .
Η 7

Exit Visual Basic.
8

Κάντε κλικ στο κουμπί "Microsoft Office" , και στη συνέχεια στο " Αποθήκευση".
Η 9

Βρείτε και επιλέξτε μια θέση για να αποθηκεύσετε το έγγραφο του Word , επιλέξτε "Αποθήκευση" και , στη συνέχεια, κλείστε το Word .

Η Κάνετε το πρόγραμμα-πελάτης Αυτοματισμού VB
Η 10

Εκτελέστε το Microsoft Visual Studio . NET .
Η 11

Κάντε κλικ στο "Αρχείο , " τότε " Νέα ", ακολουθούμενο από το " Έργο ". Επιλέξτε " Εφαρμογή των Windows " από τους τύπους έργων . Αυτό θα δημιουργήσει Φόρμα1 .
Η 12

Κάντε κλικ στο μενού "Έργο" , στη συνέχεια, επιλέξτε " Add Reference ".
Η 13

Βρείτε και επιλέξτε " Microsoft Word 10.0 Object Library " ή " Microsoft Word 11.0 Object Library " από την COM .
Η 14

Κάντε κλικ στο " OK " και στη συνέχεια επιλέξτε "Ναι " , εάν σας ζητηθεί να το πράξουν .
Η 15

Κάντε κλικ στο " Προβολή "και στη συνέχεια στο" Toolbox ", και στη συνέχεια εισαγάγετε ένα κουμπί και ένα σύνθετο πλαίσιο σε Φόρμα1 . Επιλέξτε " Button1 ".

16

Αντιγράψτε το ακόλουθο δείγμα κώδικα :

Select Case ComboBox1.SelectedItem

υπόθεση "Πρόσβαση "

Dim oAccess Όπως Access.ApplicationClass

« Ξεκινήστε την Access και ανοίξτε τη βάση δεδομένων .

oAccess = CreateObject ( " Access.Application " )

oAccess.Visible = True

oAccess.OpenCurrentDatabase ( "c : \\ db1.mdb " , False )

« Τρέξτε τις μακροεντολές

oAccess.Run ( " DoKbTest " )

oAccess.Run . ( " DoKbTestWithParameter ", " . Hello from VB NET Πελάτης» )

« Clean-up : . . Έξοδος Έξοδος από την Access χωρίς αποθήκευση των αλλαγών στη βάση δεδομένων

oAccess.DoCmd ( ) ( Access. AcQuitOption.acQuitSaveNone )

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oAccess )

oAccess = Τίποτα

υπόθεση " Excel "

Dim oExcel Όπως Excel.ApplicationClass

Dim oBook Όπως Excel.WorkbookClass

Dim oBooks Όπως Excel.Workbooks

« Ξεκινήστε το Excel και ανοίξτε το βιβλίο εργασίας .

oExcel = CreateObject ( " Excel.Application " )

oExcel.Visible = True

oBooks = oExcel.Workbooks

oBook = oBooks.Open ( "c : \\ Book1.xls " )

« Τρέξτε τις μακροεντολές.

oExcel.Run ( " DoKbTest " )

oExcel.Run ( " DoKbTestWithParameter " , " Hello from VB . NET Πελάτης » )

« Clean-up : . Κλείστε το βιβλίο εργασίας και κλείστε το Excel

oBook.Close ( Ψευδές)

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBook )

oBook = Τίποτα

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBooks )

oBooks = Τίποτα

oExcel.Quit ( )

Σύστημα . Runtime.InteropServices.Marshal.ReleaseComObject ( oExcel )

oExcel = Τίποτα

υπόθεση " PowerPoint "

Dim OPP Όπως PowerPoint.ApplicationClass

Dim oPresSet Όπως PowerPoint.Presentations

Dim oPres Όπως PowerPoint.PresentationClass

« Ξεκινήστε το PowerPoint και να ανοίξει την παρουσίαση .

OPP = CreateObject ( " PowerPoint.Application " )

oPP.Visible = True

oPresSet = oPP.Presentations

oPres = oPresSet.Open ( "c : \\ pres1.ppt " , , , True )

» Εκτελέστε τις μακροεντολές .

oPP.Run ( « « pres1.ppt » ! DoKbTest " )

oPP.Run ( « « pres1.ppt » ! DoKbTestWithParameter " , " Hello from VB . NET πελάτης " )

« Clean-up : . Κλείστε την παρουσίαση και την έξοδο από το PowerPoint

oPres.Close ( )

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPres )

oPres = Τίποτα

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPresSet )

oPresSet = Τίποτα

oPP.Quit ( )

System.Runtime.InteropServices.Marshal.ReleaseComObject ( OPP )

OPP = Τίποτα

υπόθεση «Λόγος»

Dim oWord Όπως Word.ApplicationClass

« Ξεκινήστε το Word και ανοίξτε το έγγραφο .

oWord = CreateObject ( " Word.Application " )

oWord.Visible = True

oWord.Documents.Open ( " C : \\ Doc1.doc " )

« Τρέξτε τις μακροεντολές

oWord.Run ( . " DoKbTest » )

oWord.Run ( " DoKbTestWithParameter " , " Γεια σας από VB . NET Πελάτης » )

« Κλείστε το Word .

oWord.Quit ( )

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oWord )

oWord = Τίποτα

End Select

GC.Collect ( )
Η 17

Επικολλήστε τον κώδικα αντιγράφονται στο " Button1_Click διαδικασίας . "
Η " . Φόρμα1 " 18

Κάντε κλικ στο " Προβολή " και στη συνέχεια " Designer " και στη συνέχεια επιλέξτε

19

Αντιγράψτε τον ακόλουθο κώδικα :

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

Dim έναν Όπως String ( ) = { " πρόσβαση " , " Excel " , " PowerPoint " , " Λόγος " }

ComboBox1.Items.AddRange ( α)

ComboBox1 . SelectedIndex = 0
20

Επικολλήστε τον κώδικα στην " Form1_Load διαδικασίας".

21

Αντιγράψτε τον κώδικα που ακολουθεί :

Εισαγωγές Access = Microsoft . Office.Interop.Access

Εισαγωγές Excel = Microsoft.Office.Interop.Excel

Εισαγωγές Λόγος = Microsoft.Office.Interop.Word

Εισαγωγές PowerPoint = Microsoft.Office . Interop.PowerPoint
Η 22

Επικολλήστε αυτόν τον κώδικα στην κορυφή του " Form1.vb . "
Η 23

Hit " F5 " στο πληκτρολόγιό σας για να ξεκινήσετε την εφαρμογή σας .


Η