Una macro è uno strumento utilizzato per automatizzare le operazioni ripetitive e noiose, in modo da non dover guidare te stesso pazzo a fare 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 rendo conto che ci sono, ma dal momento che sono lì per risparmiare tempo prezioso e facilitare la noia di quei lavori monotoni, si consiglia di aggiungere un paio di tuo proprio che sono personali. Utilizzare Visual Basic (VB) per fare una macro che può essere implementata in fase di esecuzione del computer.

istruzione

Creazione di un file di Word contenente una macro

1 Avviare Microsoft Office Word.

2 Fare clic sul pulsante "Microsoft Office" e quindi scegliere "Nuovo".

3 Premere il tasto "Alt" e "F11" insieme sulla tastiera per avvio editor di Visual Basic.

4 Fare clic sulla scheda "Inserisci", poi su "Modulo".

5 Evidenziare il seguente codice di esempio macro e premere il tasto "Ctrl" e "C" per copiare:

'Visualizzare una finestra di messaggio che visualizza il nome dell'applicazione.

Public Sub DoKbTest ()

MsgBox "Ciao da" & Application.Name

End Sub

'Visualizzare una finestra di messaggio con la stringa passata dal

'Client di automazione.

Public Sub DoKbTestWithParameter (sMsg As String)

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 Uscire da Visual Basic Editor.

8 Fare clic sul pulsante "Microsoft Office", e poi su "Salva".

9 Trovare e selezionare un percorso in cui memorizzare il documento di Word, scegliere "Salva" e quindi uscire da Word.

Rendere il client VB Automation

10 Eseguire Microsoft Visual Studio .NET.

11 Clicca su "File", quindi "Nuovo", seguito da "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 "Microsoft Word 10.0 Object Library" o "Microsoft Word 11.0 Object Library" da COM.

14 Fai clic su "OK", quindi selezionare "Sì" se richiesto di farlo.

15 Fare clic su "Visualizza", quindi su "Strumenti", quindi inserire un pulsante e una casella combinata in Form1. Selezionare "Button1".

16 Copiare il seguente codice di esempio:

Select Case ComboBox1.SelectedItem

Case "Access"

Dim oAccess Come Access.ApplicationClass

'Avviare Access e aprire il database.

oAccess = CreateObject ( "Access.Application")

oAccess.Visible = True

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

'Eseguire le macro.

oAccess.Run ( "DoKbTest")

oAccess.Run ( "DoKbTestWithParameter", "Ciao da VB .NET Client")

'Pulizia: Chiudere Access senza salvare le modifiche al database.

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

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

oAccess = Nothing

Caso "Excel"

Dim oExcel Come Excel.ApplicationClass

Dim oBook Come Excel.WorkbookClass

oBooks fiochi come Excel.Workbooks

'Avviare Excel e aprire la cartella di lavoro.

oExcel = CreateObject ( "Excel.Application")

oExcel.Visible = True

oBooks = oExcel.Workbooks

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

'Eseguire le macro.

oExcel.Run ( "DoKbTest")

oExcel.Run ( "DoKbTestWithParameter", "Ciao da VB .NET Client")

'Pulizia: Chiudere la cartella di lavoro e uscire da Excel.

oBook.Close (Falso)

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

oBook = Nothing

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

oBooks = Nothing

oExcel.Quit ()

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

oExcel = Nothing

Caso "PowerPoint"

Dim opp come PowerPoint.ApplicationClass

Dim oPresSet Come PowerPoint.Presentations

oPres fiochi come PowerPoint.PresentationClass

'Avviare PowerPoint e aprire la presentazione.

OPP = CreateObject ( "PowerPoint.Application")

oPP.Visible = True

oPresSet = oPP.Presentations

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

'Eseguire le macro.

oPP.Run ( " 'Pres1.ppt'! DoKbTest")

oPP.Run ( " 'Pres1.ppt'! DoKbTestWithParameter", "Ciao da VB .NET Client")

'Pulizia: Chiudere la presentazione e chiudere PowerPoint.

oPres.Close ()

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

oPres = Nothing

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

oPresSet = Nothing

oPP.Quit ()

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

Opp = Nothing

Caso "Parola"

Dim oWord Come Word.ApplicationClass

'Avviare Word e aprire il documento.

oWord = CreateObject ( "Word.Application")

oWord.Visible = True

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

'Eseguire le macro.

oWord.Run ( "DoKbTest")

oWord.Run ( "DoKbTestWithParameter", "Ciao da VB .NET Client")

'Chiudere Word.

oWord.Quit ()

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

oWord = Nothing

End Select

GC.Collect ()

17 Incollare il codice copiato nella "Procedura Button1_Click."

18 Fai clic su "Visualizza", quindi "Designer", quindi selezionare "Form1".

19 Copiare il codice seguente:

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

Dim a As String() = {"Access", "Excel", "PowerPoint", "Word"}

ComboBox1.Items.AddRange (a)

ComboBox1.SelectedIndex = 0

20 Incollare il codice nel "Procedura Form1_Load."

21 Copiare il codice che segue:

Le importazioni di accesso = Microsoft.Office.Interop.Access

Le importazioni Excel = Microsoft.Office.Interop.Excel

Le importazioni Word = Microsoft.Office.Interop.Word

Le importazioni di PowerPoint = Microsoft.Office.Interop.PowerPoint

22 Incolla questo codice nella parte superiore di "Form1.vb".

23 Hit "F5" sulla tastiera per avviare l'applicazione.