? En makro er et verktøy som brukes til å automatisere kjedelige og repetitive oppgaver , så du trenger ikke å kjøre selv gal gjøre dem selv . De er sekvenser av kommandoer som du kan sette opp til å kjøre når du trenger dem . Microsoft Office inneholder mange makroer som du ikke engang skjønner er der, men siden de er der for å spare verdifull tid og lette kjedsomhet av de monotone jobber, kan det være lurt å legge noen av dine egne som er personlig for deg . Bruk Visual Basic ( VB ) for å lage en makro som kan implementeres på datamaskinens kjøretid . Instruksjoner , Lag en Word-fil som inneholder en makro
en

Launch Microsoft Office Word .
2

Klikk på " Microsoft Office "-knappen og velg deretter " New".
3

Trykk " Alt" og " F11 " sammen på tastaturet for å starte opp Visual Basic Editor .
4

Klikk på "Insert "-kategorien , deretter på " . Module"
5

Marker følgende makro eksempelkode og trykk " Ctrl" og "C " for å kopiere det : en

'Vis en meldingsboks som viser programmet navn.

Public Sub DoKbTest ( )

MsgBox " Hello from " & Application.Name

End Sub

'Vis en meldingsboks med strengen gått fra

' Automation klient.

Public Sub DoKbTestWithParameter ( sMsg As String )

MsgBox sMsg

End Sub
6

Klikk i den nye modulen , deretter holder du nede "Ctrl " og trykk "P " for å lime makrokoden .
7

Avslutt Visual Basic Editor .
8

Klikk på " Microsoft Office "-knappen , og deretter på " Lagre".
9

Finn og velg et sted å lagre Word-dokumentet , velg " Lagre" og deretter avslutte Word.

Gjør VB Automation Client
10

Run Microsoft Visual Studio. NET .
11

Klikk på "File " og deretter " Ny", etterfulgt av "Project ". Velg "Windows Application " fra prosjekttyper . Dette vil skape Form1 .
12

Klikk på "Project "-menyen , velg deretter " Add Reference ".
13

Finn og velg "Microsoft Word 10,0 Object Library" eller " Microsoft Word 11.0 Object Library " fra COM .
14

Klikk " OK ", velg deretter "Ja" hvis du blir bedt om å gjøre det.
15

Klikk på " Vis "og deretter på" Toolbox ", og deretter sette inn en knapp og en kombinasjonsboks inn Form1 . Velg " Button1 . "
16

Kopier følgende eksempelkode : en

Select sak ComboBox1.SelectedItem

veske " tilgang"

Dim oAccess som Access.ApplicationClass

' start Access og åpne databasen .

oAccess = CreateObject ( " Access.Application ")

oAccess.Visible = sant
< p > oAccess.OpenCurrentDatabase ( "c : \\ db1.mdb " , False )

' Kjør makroer

oAccess.Run ( " DoKbTest ")

oAccess.Run . ( " DoKbTestWithParameter ", " . Hello from VB NET Client" )

' Clean -up: . . avslutte Access uten å lagre endringene til databasen

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

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

oAccess = Ingenting

veske " Excel "

Dim oExcel As Excel.ApplicationClass

Dim oBook Som Excel.WorkbookClass

Dim oBooks Som Excel.Workbooks

'Start Excel og åpne arbeidsboken .

oExcel = CreateObject ( " Excel.Application ")

oExcel.Visible = true

oBooks = oExcel.Workbooks

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

' Kjør makroer .

oExcel.Run ( " DoKbTest ")

oExcel.Run ( " DoKbTestWithParameter ", " Hello from VB. NET Client" )

' Clean -up: . Lukk arbeidsboken og avslutte Excel

oBook.Close ( False )

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBook )
< p> oBook = Ingenting

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

oBooks = Ingenting

oExcel.Quit ( )

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

oExcel = Ingenting

veske " PowerPoint "

Dim OPP Som PowerPoint.ApplicationClass

Dim oPresSet som PowerPoint.Presentations

Dim oPres som PowerPoint.PresentationClass

'Start PowerPoint , og åpne presentasjonen .

OPP = CreateObject ( " PowerPoint.Application ")
< p> oPP.Visible = sant

oPresSet = oPP.Presentations

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

' Kjør makroer .

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

oPP.Run ( " ' pres1.ppt ' ! DoKbTestWithParameter ", " Hello from VB. NET Client " )

' Clean -up: . Lukk presentasjonen og avslutte PowerPoint

oPres.Close ( )

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

oPres = Ingenting

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

oPresSet = Ingenting

oPP.Quit ( )

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

OPP = Ingenting

veske " Word "

Dim oWord Som Word.ApplicationClass
< p > 'Start Word og åpne dokumentet.

oWord = CreateObject ( " Word.Application ")

oWord.Visible = sant

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

' Kjør makroer

oWord.Run ( " DoKbTest ")

oWord.Run ( " DoKbTestWithParameter "," Hello from VB. NET Client " )

' Avslutt Word .

oWord.Quit ( )

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oWord )
< p > oWord = Ingenting

End Velg

GC.Collect ( )
17

Lim den kopierte koden inn i " button1_click Procedure ".
18

Klikk på " Vis " og deretter " designer ", og velg deretter
19

Kopier følgende kode " Form1 . " : en

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

Dim et As String ( ) = {" tilgang" , "Excel ", " PowerPoint ", " Word "}

ComboBox1.Items.AddRange ( a)

ComboBox1 . SelectedIndex = 0
20

Lim koden inn i
21

Kopier koden som følger " Form1_Load Prosedyre . " : en

Import Access = Microsoft . Office.Interop.Access

Import Excel = Microsoft.Office.Interop.Excel

Import Word = Microsoft.Office.Interop.Word

Importen PowerPoint = Microsoft.Office . Interop.PowerPoint
22

Lim denne koden på toppen av " Form1.vb . "
23

Hit " F5" på tastaturet for å starte programmet.