? Ett makro är ett verktyg som används för att automatisera tråkiga och repetitiva uppgifter , så du behöver inte köra själv galen gör dem själv . De är sekvenser av kommandon som du kan ställa in att köra när du behöver dem . Microsoft Office innehåller många makron som du inte ens kommer att inse är där , men eftersom de är där för att spara värdefull tid och lindra tristess av dessa monotona jobb , kanske du vill lägga till några av dina egna som är personliga för dig . Använd Visual Basic ( VB ) för att göra ett makro som kan genomföras på datorns körtid . Instruktioner Review, Skapa en Word- fil som innehåller en Makro
1
Launch Microsoft Office Word .
2
Klicka på " Microsoft Office " -knappen och välj sedan " Ny ". Addera 3
Tryck " Alt " och " F11 " tillsammans på tangentbordet för att starta Visual Basic Editor .
4
Klicka på " Infoga "-fliken , därefter på " . Module "
5
Markera följande kod makro provet och tryck på " Ctrl " och " C " för att kopiera den :
'Visa en meddelanderuta som visar programmet namn .
Public Sub DoKbTest ( ) katalog
MsgBox " Hello from " & Application.Name
End Sub
'Visa en meddelanderuta med strängen gått från
" Automation klient .
Public Sub DoKbTestWithParameter ( SMSG As String ) katalog
MsgBox SMSG
End Sub
6
Klicka på den nya modulen , och sedan hålla ned " Ctrl " och tryck på " P " för att klistra makrokoden .
7
Avsluta Visual Basic Editor .
8
Klicka på " Microsoft Office " -knappen , och sedan på " Spara ".
9
Hitta och välja en plats att spara Word- dokumentet , välj " Spara " och sedan avsluta Word .
Gör VB Automation klient
10
Run Microsoft Visual Studio . NET .
11
Klicka på " File" och sedan " Ny ", följt med " Projekt . " Välj " Windows Application " från projekttyper . Detta kommer att skapa Form1 .
12
Klicka på " Project " -menyn , välj sedan " Add Reference ".
13
Hitta och välj " Microsoft Word 10.0 Object Library " eller " Microsoft Word 11.0 Object Library " från COM .
14
Klicka på " OK " och sedan välja "Ja " om du uppmanas att göra så .
15
Klicka på " Visa "och sedan på " Toolbox " och sedan infoga en knapp och en kombinationsruta i Form1 . Välj " Button1 . "
16
Kopiera följande exempelkod :
Select Case ComboBox1.SelectedItem
Case " Åtkomst "
Dim oAccess som Access.ApplicationClass
" Starta Access och öppna databasen .
oAccess = CreateObject ( " Access.Application " ) katalog
oAccess.Visible = Sant
oAccess.OpenCurrentDatabase ( " c : \\ db1.mdb " , False ) katalog
" Kör makron
oAccess.Run ( " DoKbTest " ) katalog
oAccess.Run . ( " DoKbTestWithParameter " , " . Hej från VB NET klient " ) katalog
" Clean - up : . . avsluta Access utan att spara ändringarna i databasen
oAccess.DoCmd ( ) Quit ( Access. AcQuitOption.acQuitSaveNone ) katalog
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oAccess ) katalog
oAccess = Nothing
Case " Excel "
Dim oExcel Som Excel.ApplicationClass
Dim oBook Som Excel.WorkbookClass
Dim oBooks As Excel.Workbooks
" Starta Excel och öppna arbetsboken .
oExcel = CreateObject ( " Excel.Application " ) katalog
oExcel.Visible = true
oBooks = oExcel.Workbooks
oBook = oBooks.Open ( " c : \\ Book1.xls " )
" Kör makron .
oExcel.Run ( " DoKbTest " ) katalog
oExcel.Run ( " DoKbTestWithParameter " , " Hej från VB . NET klient " )
" Clean - up : . Stäng arbetsboken och avsluta Excel Review
oBook.Close ( False ) katalog
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBook ) katalog
oBook = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBooks ) katalog
oBooks = Nothing
oExcel.Quit ( ) katalog
System . Runtime.InteropServices.Marshal.ReleaseComObject ( oExcel ) katalog
oExcel = Nothing
Case " PowerPoint "
Dim OPP Som PowerPoint.ApplicationClass
Dim oPresSet som PowerPoint.Presentations
Dim oPres som PowerPoint.PresentationClass
" Starta PowerPoint och öppna presentationen .
opp = CreateObject ( " PowerPoint.Application " ) katalog
oPP.Visible = Sant
oPresSet = oPP.Presentations
oPres = oPresSet.Open ( " c : \\ pres1.ppt " , , , Sant ) katalog
" kör makron .
oPP.Run ( " ' pres1.ppt ' ! DoKbTest " ) katalog
oPP.Run ( " ' pres1.ppt ' ! DoKbTestWithParameter " , " Hej från VB . NET klient " ) katalog
" Clean - up : . Stäng presentationen och avsluta PowerPoint
oPres.Close ( ) katalog
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPres )
oPres = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPresSet ) katalog
oPresSet = Nothing
oPP.Quit ( ) katalog
System.Runtime.InteropServices.Marshal.ReleaseComObject ( OPP ) katalog
opp = Nothing
Case " Word "
Dim oWord Som Word.ApplicationClass
' Starta Word och öppna dokumentet .
oWord = CreateObject ( " Word.Application " ) katalog
oWord.Visible = Sant
oWord.Documents.Open ( " C : \\ Doc1.doc " . ) katalog
" Kör makron
oWord.Run ( " DoKbTest " ) katalog
oWord.Run ( " DoKbTestWithParameter " , " Hej från VB . NET klient " ) katalog
" Avsluta Word .
oWord.Quit ( ) katalog
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oWord ) katalog
oWord = Nothing
End Välj
GC.Collect ( )
17
Klistra in den kopierade koden i " Button1_Click Procedure . "
18
Klicka på " Visa " och sedan " Designer ", och välj sedan
19
Kopiera följande kod " Form1 . " :
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Dim a As String ( ) = { " Åtkomst " , " Excel " , " PowerPoint " , " Word " }
ComboBox1.Items.AddRange ( a ) katalog
ComboBox1 . SelectedIndex = 0
20
Klistra in koden i
21
Kopiera koden som följer " Form1_Load arbetsordning. " :
Imports Access = Microsoft . Office.Interop.Access
Import Excel = Microsoft.Office.Interop.Excel
Import Word = Microsoft.Office.Interop.Word
Import PowerPoint = Microsoft.Office . Interop.PowerPoint
22
Klistra in koden på toppen av " Form1.vb . "
23
Hit " F5 " på tangentbordet för att starta programmet .
Addera ditt
