? Una macro è uno strumento utilizzato per automatizzare compiti noiosi e ripetitivi , in modo da non dover guidare voi stessi impazzire facendo da soli. Essi sono sequenze di comandi che è possibile impostare per eseguire ogni volta che ne avete bisogno . Microsoft Office contiene molte macro che non sarà nemmeno conto ci sono , ma dal momento che ci sono per risparmiare tempo e facilitare la noia di quei lavori monotoni , si consiglia di aggiungere un paio di tuo che sono personali . Utilizzare Visual Basic ( VB) per fare una macro che può essere implementato in fase di esecuzione del computer.
Istruzioni Creazione di un file di Word contenente una macro
1
lancio di Microsoft Office Word .
2 Fare clic sul pulsante "Microsoft Office " e poi scegliere " Nuovo ".
3
Premere " Alt " e " F11 " insieme sulla tastiera per avviare Visual Basic Editor .
4
Fare clic sulla scheda "Inserisci" , poi su " . Modulo "
5
Evidenziare il seguente codice di esempio di macro e premere il tasto " Ctrl " e "C" per copiarlo :
display ' una finestra di messaggio che visualizza l'applicazione nome.
Public Sub DoKbTest ( ) per
MsgBox " Ciao da " & Application.Name
End Sub
' visualizzare una finestra di messaggio con la stringa passato dal client di automazione della
' .
pubblico DoKbTestWithParameter Sub ( sMsg As String ) per
MsgBox sMsg
End Sub
6
Fare clic nel nuovo modulo , quindi tenere premuto il tasto "Ctrl " e premere " P" per incollare il codice della macro .
7
Chiudere Visual Basic Editor .
8 < p > Fare clic sul pulsante " Microsoft Office " e poi su "Salva ".
9
Trovare e selezionare una posizione per salvare il documento di Word , scegliere " Salva " e quindi uscire da Word .
Fai il VB client Automation
10
Esegui Microsoft Visual Studio . NET .
11
Cliccate su "File ", quindi " Nuovo ", seguito dal "Progetto ". Scegliere " Applicazione Windows " dai tipi di progetto . Questo creerà Form1 .
12
Fare clic sul menu "Progetto" , quindi scegliere " Aggiungi riferimento ".
13
Trovare e selezionare " Libreria oggetti di Microsoft Word 10.0" o " libreria di Microsoft Word 11.0 Object" da COM .
14
fare clic su " OK", quindi selezionare "Sì ", se viene richiesto di farlo .
15
Clicca su " Visualizza ", quindi su" Strumenti ", quindi inserire un pulsante e una casella combinata in Form1 . Selezionare " Button1 ".
16
Copia il seguente codice di esempio :
Select Case ComboBox1.SelectedItem
Caso "Accesso"
Dim oAccess come Access.ApplicationClass
' avviare Access e aprire il database .
oAccess = CreateObject ( " Access.Application " ) per
oAccess.Visible = True
< p > oAccess.OpenCurrentDatabase ( "c: \\ db1.mdb " , False ) per
' eseguire le macro
oAccess.Run ( " DoKbTest " ) per
oAccess.Run . ( " DoKbTestWithParameter ", " . Ciao da VB NET client" ) per
' Clean-up : . . accesso uscire senza salvare le modifiche al database
oAccess.DoCmd ( ) Quit ( Access. AcQuitOption.acQuitSaveNone ) per
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oAccess ) per
oAccess = Nothing
caso "Excel"
Dim oExcel come Excel.ApplicationClass
Dim oBook Come Excel.WorkbookClass
Dim oBooks As Excel.Workbooks
' avviare Excel e aprire la cartella di lavoro.
oExcel = CreateObject ( " Excel.Application " ) per
oExcel.Visible = true
oBooks = oExcel.Workbooks
oBook = oBooks.Open ( "c : \\ Book1.xls " )
' eseguire le macro .
oExcel.Run ( " DoKbTest " ) per
oExcel.Run ( " DoKbTestWithParameter ", " Ciao da VB . NET cliente") < br
' > Clean-up : . Chiudere la cartella di lavoro e chiudere Excel
oBook.Close ( Falso ) per
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBook ) per < p > oBook = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBooks ) per
oBooks = Nothing
oExcel.Quit ( ) per
sistema . Runtime.InteropServices.Marshal.ReleaseComObject ( oExcel ) per
oExcel = Nothing
caso "PowerPoint "
Dim OPP Come PowerPoint.ApplicationClass
Dim oPresSet come PowerPoint.Presentations
Dim oPres As PowerPoint.PresentationClass
' avviare PowerPoint e aprire la presentazione .
OPP = CreateObject ( " PowerPoint.Application " ) per < p > oPP.Visible = True
oPresSet = oPP.Presentations
oPres = oPresSet.Open ( "c : \\ Pres1.ppt " , , , True)
' eseguire le macro .
oPP.Run ( "' Pres1.ppt ' ! DoKbTest " ) per
oPP.Run ( "' Pres1.ppt ' ! DoKbTestWithParameter ", " Ciao da VB . NET cliente " ) per
' Clean-up : . Chiudere la presentazione e uscire da PowerPoint
oPres.Close ( ) per
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPres )
oPres = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPresSet ) per
oPresSet = Nothing
oPP.Quit ( ) per
System.Runtime.InteropServices.Marshal.ReleaseComObject ( OPP ) per
OPP = Nothing
caso " Parola"
Dim oWord Come
Word.ApplicationClass < p > ' avviare Word e aprire il documento .
oWord = CreateObject ( " Word.Application " ) per
oWord.Visible = True
oWord.Documents.Open ( " C : \\ Doc1.doc " . ) per
' eseguire le macro
oWord.Run ( " DoKbTest " ) per
oWord.Run ( " DoKbTestWithParameter " , " Ciao da VB . NET Client " ) per
' Uscire da Word .
oWord.Quit ( ) per
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oWord ) per < p > oWord = Nothing End
Selezionare
GC.Collect ( ) economici 17
Incollare il codice copiato nella " Button1_Click procedura. "
18
Fare clic su " Visualizza ", quindi "Designer ", e quindi selezionare
19
Copia il seguente codice " Form1 ". :
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Dim a As String ( ) = { "Accesso" , " Excel " , " PowerPoint " , "Parola" }
ComboBox1.Items.AddRange (a ) per
ComboBox1 . SelectedIndex = 0
20
Incollare il codice in The Sims 21
Copia il codice che segue " Form1_Load interno." :
Importazioni di accesso = Microsoft . Office.Interop.Access
Imports Excel = Microsoft.Office.Interop.Excel
Imports Word = Microsoft.Office.Interop.Word
Importazioni PowerPoint = Microsoft.Office . Interop.PowerPoint
22
incolla il codice in alto " Form1.vb ".
23
Hit " F5 " sulla tastiera per avviare l'applicazione .
