Ako môžem vytvoriť makrá Word dokumentu vo VB 6.0

? Makro je nástroj používaný pre automatizáciu nudné a opakujúce sa úlohy , takže sa nemusíte riadiť sami šialený robiť sami . Sú to sekvencie príkazov , ktoré môžete nastaviť na spustenie kedykoľvek ich budete potrebovať . Microsoft Office obsahuje mnoho makrá , ktorá sa ani neuvedomujú , sú tam , ale pretože sú tam ušetriť cenný čas a zmierniť nudu týchto monotónna práca , možno budete chcieť pridať pár vlastných , ktoré sú osobné pre vás . Pomocou jazyka Visual Basic ( VB ) , aby sa makro , ktoré môžu byť realizované v dobe behu počítača . Pokyny
Vytvoriť Word súbor , ktorý obsahuje makro foto 1

Spustite program Microsoft Office Word .
2

Kliknite na tlačidlo " Microsoft Office " a potom zvoľte " Nový . "
3

Stlačte tlačidlo " Alt " a " F11 " spoločne na klávesnici spustiť Editor jazyka Visual Basic .
4

Kliknite na záložku " Vložiť " , potom na " . module "
5

Zvýraznite nasledujúci kód makra vzorky a stlačte " Ctrl " a " C " kopírovať to :

" zobrazí okno so správou , ktoré sa zobrazia aplikácie názov .

Public Sub DoKbTest ( )

MsgBox " Hello from " & Application.Name

End Sub

" Zobraziť okno s reťazcami prešiel od klienta

" automatizácie .

Public Sub DoKbTestWithParameter ( sMsg As String )

MsgBox sMsg

End Sub
6

Kliknite na novom module , podržte " Ctrl " a stlačte tlačidlo " P " vložte kód makra .
7

Ukončite Editor jazyka Visual Basic .
8

Kliknite na tlačidlo " Microsoft Office " a potom na " uložiť " .
9

Nájdite a vyberte umiestnenie , kam chcete uložiť dokument programu Word , vyberte " uložiť " a potom ukončite program Word .

Uistite sa , že Klient VB automatizácie
10

Spustiť Microsoft Visual Studio . NET .
11

Kliknite na " Súbor " a potom " Nový " , nasledoval o " projekte " . Zvoľte " Aplikácia Windows " z typov projektov . Tým sa vytvorí Form1 .
12

Kliknite na menu " Projekt " na , potom zvoľte " Pridať odkaz " .
13

Nájdite a vyberte " Microsoft Word 10.0 Object Library " alebo " Microsoft Word 11.0 Object Library" z COM .
14

Kliknite na tlačidlo " OK " , potom vyberte " Áno " , ak k tomu budete vyzvaní .
15

Kliknite na " zobraziť " , potom na " Toolbox " , a potom vložiť tlačidlo a pole so zoznamom do Form1 . Vyberte " Button1 " .
16

Skopírujte nasledujúci kód vzorky :

Select Case ComboBox1.SelectedItem

Prípad " Prístup "

Dim oAccess ako Access.ApplicationClass

" spustite program Access a otvorte databázu .

oAccess = CreateObject ( " Access.Application " )

oAccess.Visible = TRUE

oAccess.OpenCurrentDatabase ( " c : \\ db1.mdb " , False )

" Spustenie makra

oAccess.Run ( " DoKbTest " )

oAccess.Run . ( " DoKbTestWithParameter " , " . Dobrý deň , z VB NET Client " )

" Clean - up : .. Ukončite program Access bez uloženia zmien do databázy klipart

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

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

oAccess = Nothing

Case " Excel "

Dim oExcel ako Excel.ApplicationClass

Dim oBook Ako Excel.WorkbookClass

Dim oBooks Ako Excel.Workbooks

" spustite program Excel a otvorte zošit .

oExcel = CreateObject ( " Excel.Application " )

oExcel.Visible = TRUE

oBooks = oExcel.Workbooks

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

" Spustenie makra .

oExcel.Run ( " DoKbTest " )

oExcel.Run ( " DoKbTestWithParameter " , " Dobrý deň , z VB . NET Client " )

" Clean - up : . Zatvorte zošit a ukončite program Excel

oBook.Close ( False )

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

oBook = Nothing

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

oBooks = Nothing

oExcel.Quit ( )

systém . Runtime.InteropServices.Marshal.ReleaseComObject ( oExcel )

oExcel = Nothing

Case " PowerPoint "

Dim OPP Ako PowerPoint.ApplicationClass

Dim oPresSet ako PowerPoint.Presentations

Dim oPres ako PowerPoint.PresentationClass

" spustite aplikáciu PowerPoint a otvorte prezentáciu .

OPP = CreateObject ( " PowerPoint.Application " )

oPP.Visible = TRUE

oPresSet = oPP.Presentations

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

" spustenie makra .

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

oPP.Run ( " " pres1.ppt ' DoKbTestWithParameter ! " , " Dobrý deň , z VB . NET klient " )

" Clean - up : . Zatvorte prezentáciu a ukončenie aplikácie 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 " slovo "

Dim oWord Ako Word.ApplicationClass

' spustite program Word a otvorte dokument .

oWord = CreateObject ( " Word.Application " )

oWord.Visible = TRUE

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

" Spustenie makra klipart

oWord.Run ( . " DoKbTest " )

oWord.Run ( " DoKbTestWithParameter " , " Dobrý deň , od VB . NET Client " )

" Ukončite program Word .

oWord.Quit )

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

End Select klipart

GC.Collect ( )
17

Vložte skopírovaný kód do " Button1_Click poriadok . "
" . Form1 " 18

Kliknite na " Zobraziť " , potom " Designer " , a potom vyberte
19

skopírujte nasledujúci kód :

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

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

ComboBox1.Items.AddRange ( a )

ComboBox1 . SelectedIndex = 0
20

Vložte kód do " Form1_Load poriadok . "
21

skopírujte kód , ktorý nasleduje :

Dovoz Access = Microsoft . Office.Interop.Access

Dovoz Excel = Microsoft.Office.Interop.Excel

Dovoz slovo = Microsoft.Office.Interop.Word

Dovoz PowerPoint = Microsoft.Office . Interop.PowerPoint
22

Vložte tento kód v hornej časti " Form1.vb . "
23

Hit " F5 " na vašej klávesnici spustiť aplikáciu .

• Predchádzajúca strana: SQL VBA Tutorial 
• Ďalšia strana: Ako získať odozvu od MessageBox