Hvordan oppretter jeg et Word-dokument Macro i VB 6.0?
En makro er et verktøy som brukes til å automatisere kjedelige og repeterende oppgaver, slik at du ikke trenger å kjøre selv gal gjøre dem selv. De er sekvenser av kommandoer som du kan sette opp for å 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 disse ensformige jobber, kan det være lurt å legge til noen av dine egne som er personlig for deg. Bruk Visual Basic (VB) for å lage en makro som kan implementeres på datamaskinens kjøretid.
Bruksanvisning
Lag en Word-fil som inneholder en makro
1 Start Microsoft Office Word.
2 Klikk på "Microsoft Office" -knappen og velg deretter "Ny".
3 Trykk "Alt" og "F11" sammen på tastaturet for å starte opp Visual Basic Editor.
4 Klikk på "Sett inn" fanen, deretter på "Module".
5 Marker følgende makro eksempelkode og trykk "Ctrl" og "C" for å kopiere det:
'Vis en meldingsboks som viser programnavnet.
Public Sub DoKbTest ()
MsgBox "Hello from" & Application.Name
End Sub
'Vis en meldingsboks med strengen sendes fra
'Automation klient.
Public Sub DoKbTestWithParameter (sMsg As String)
MsgBox sMsg
End Sub
6 Klikk på den nye modulen, deretter holde nede "Ctrl" og trykk "P" for å lime inn 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 Kjør 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".
1. 3 Finn og velg "Microsoft Word 10,0 Object Library" eller "Microsoft Word 11.0 Object Library" fra COM.
14 Klikk "OK" og deretter velge "Ja" hvis du blir bedt om å gjøre det.
15 Klikk på "Vis" og deretter på "Toolbox", og setter deretter en knapp og en kombinasjonsboks i Form1. Velg "Button1."
16 Kopier følgende eksempelkode:
Velg Sak ComboBox1.SelectedItem
Case "Access"
Dim oAccess Som Access.ApplicationClass
«Start Access og åpne databasen.
oAccess = Create ( "Access.Application")
oAccess.Visible = True
oAccess.OpenCurrentDatabase ( "c: \ db1.mdb", False)
«Kjør makroer.
oAccess.Run ( "DoKbTest")
oAccess.Run ( "DoKbTestWithParameter", "Hello from VB .NET Client")
"Clean-up: Avslutt tilgang uten å lagre endringer 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 Som Excel.Workbooks
Start Excel og åpne arbeidsboken.
oExcel = Create ( "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 arbeidsbok og avslutter Excel.
oBook.Close (usann)
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 = Ingenting
Case "PowerPoint"
Dim OPP Som PowerPoint.ApplicationClass
Dim oPresSet Som PowerPoint.Presentations
Dim oPres Som PowerPoint.PresentationClass
«Start PowerPoint, og åpne presentasjonen.
OPP = Create ( "PowerPoint.Application")
oPP.Visible = True
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 presentasjon og avslutte 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
Case "Word"
Dim oWord Som Word.ApplicationClass
«Start Word og åpne dokumentet.
oWord = Create ( "Word.Application")
oWord.Visible = True
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)
oWord = Nothing
End Select
GC.Collect ()
17 Lim inn den kopierte koden inn i "button1_click Procedure".
18 Klikk på "Vis" og deretter "Designer", og velg deretter "Form1."
19 Kopier følgende kode:
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Dim a As String() = {"Access", "Excel", "PowerPoint", "Word"}
ComboBox1.Items.AddRange (a)
ComboBox1.SelectedIndex = 0
20 Lim koden inn i "Form1_Load Procedure".
21 Kopier koden som følger:
Importen Access = Microsoft.Office.Interop.Access
Import Excel = Microsoft.Office.Interop.Excel
Importen Word = Microsoft.Office.Interop.Word
Importen PowerPoint = Microsoft.Office.Interop.PowerPoint
22 Lim inn denne koden på toppen av "Form1.vb."
23 Hit "F5" på tastaturet for å starte applikasjonen.