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.