? En makro er et værktøj bruges til at automatisere kedelige og repetitive opgaver , så du ikke behøver at køre selv gal at gøre dem selv . De er sekvenser af kommandoer, som du kan indstille op til at køre , når du har brug for dem. Microsoft Office indeholder mange makroer , som du ikke engang vil indse er der, men da de er der for at spare værdifuld tid og lette kedsomhed af disse ensformige job, kan du ønsker at tilføje et par af dine egne, der er personlige for dig. Brug Visual Basic ( VB) til at lave en makro, der kan gennemføres på computerens driftstid . Instruktioner
Opret en Word-fil Indeholder en makro
1

Launch Microsoft Office Word.
2

Klik på " Microsoft Office"-knappen , og vælg derefter " Ny".
3

Tryk på " Alt" og " F11 " sammen på dit tastatur for at starte Visual Basic Editor.
4

Klik på "Indsæt " fanen, derefter på " . Module"
5

fremhæve følgende makro eksempelkode og tryk på " Ctrl" og "C" for at kopiere den : Hej

'Vis en besked boks , der viser anvendelsen navn.

Public Sub DoKbTest ()

MsgBox " Hello from " & Application.Name

End Sub

'Vise en besked boks med strengen gik fra

' Automation klient.

Public Sub DoKbTestWithParameter ( smsg As String )

MsgBox smsg

End Sub
6

Klik på det nye modul , derefter holde "Ctrl" og tryk på " p" for at indsætte makroen koden.
7

Exit Visual Basic Editor.
8 < p > Klik på " Microsoft Office"-knappen , og derefter på " Gem".
9

Find og vælg et sted at gemme Word-dokumentet , skal du vælge "Gem " og derefter afslutte Word.

Gør VB Automation Client
10

Run Microsoft Visual Studio. NET .
11

Klik på " Filer" og derefter "Ny " efterfulgt med " projekt". Vælg "Windows Application " fra projekttyper. Dette vil skabe Form1 .
12

Klik på "Projekt "-menuen , vælg derefter " Tilføj kommissorium. "
13

Find og vælg " Microsoft Word 10,0 Object Library" eller " Microsoft Word 11,0 Object Library " fra COM.
14

Klik på " OK" og derefter vælge "Ja ", hvis du bliver bedt om at gøre det.
15

Klik på " Vis "og derefter på " Toolbox "og derefter indsætte en knap og en kombinationsboks i Form1 . Vælg " Button1 ".
16

Kopier nedenstående kodeeksempel : Hej

Select Case ComboBox1.SelectedItem

Case "Adgang "

Dim oAccess som Access.ApplicationClass

'Start Access , og åbn databasen.

oAccess = CreateObject ( " Access.Application " )

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

'Kør makroer

oAccess.Run ( " DoKbTest " )

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

' Clean -up: . . afslutte Access uden at gemme ændringer i databasen

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

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

oAccess = Nothing

Case " Excel "

Dim oExcel Som Excel.ApplicationClass

Dim oBook Som Excel.WorkbookClass

Dim oBooks As Excel.Workbooks

'Start Excel og åbn projektmappen.

oExcel = CreateObject ( " Excel.Application " )

oExcel.Visible = Ægte

oBooks = oExcel.Workbooks

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

' Kør makroer.

oExcel.Run ( " DoKbTest " )

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

' Clean -up: . Luk projektmappen og afslut Excel

oBook.Close ( False )

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

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

oBooks = Nothing

oExcel.Quit ()

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

oExcel = Nothing

Case " PowerPoint "

Dim OPP Som PowerPoint.ApplicationClass

Dim oPresSet som PowerPoint.Presentations

Dim oPres som PowerPoint.PresentationClass

'Start PowerPoint , og åbn præsentationen .

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

oPresSet = oPP.Presentations

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

' Kør makroer.

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

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

' Clean -up: . Luk præsentationen , og afslut PowerPoint

oPres.Close ()

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

oPres = Nothing

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

oPresSet = Nothing

oPP.Quit ()

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

OPP = Nothing

Case " Word "

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

oWord = CreateObject ( " Word.Application " )

oWord.Visible = Sand

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

'Kør makroer

oWord.Run ( " DoKbTest " )

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

' Afslut Word .

oWord.Quit ()

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

End Vælg

GC.Collect ()
17

Indsæt den kopierede kode i " Button1_Click Procedure ".
18

Klik på " Vis " og derefter " Designer ", og vælg derefter
19

Kopier følgende kode " Form1 ". : Hej

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList < br >

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

ComboBox1.Items.AddRange ( a)

ComboBox1 . SelectedIndex = 0
20

Indsæt koden i
21

Kopier den kode, der følger " Form1_Load Procedure ". : Hej

Import Adgang = Microsoft . Office.Interop.Access

Import Excel = Microsoft.Office.Interop.Excel

Import Word = Microsoft.Office.Interop.Word

Import PowerPoint = Microsoft.Office . Interop.PowerPoint
22

Indsæt denne kode i toppen af ​​" Form1.vb ".
23

Hit " F5 " på dit tastatur for at starte din ansøgning. < br >