Lancering Microsoft Office Word 1 . Kopen van 2

Klik op de " Microsoft Office " knop en kies " Nieuw. "

Press 3 " Alt " en " F11 " samen op uw toetsenbord op te starten Visual Basic Editor .
4

Klik op het tabblad "Invoegen " , vervolgens op " . Module "
5

Markeer de volgende macro voorbeeldcode en druk op " Ctrl " en " C " om het te kopiëren :

'Display
een bericht dat de applicatie toont naam .

Public Sub DoKbTest ( ) op

MsgBox
" Hello from " & Application.Name

End Sub

' Toon een message box met de string doorgegeven van de

' Automation client .

Public Sub DoKbTestWithParameter
( sMsg As String ) op Twitter

MsgBox sMsg

End Sub
6

Klik in de nieuwe module , houdt u vervolgens " Ctrl " en druk op " P " om de macro- code te plakken .

Uitgang Visual Basic Editor 7 .
8

Klik op de " Microsoft Office "-knop , en vervolgens op 'Opslaan'.
9

Zoek en selecteer een locatie om de Word- document op te slaan , kiest u "Save " en sluit Word af .

Maak de VB Automatisering Klant

Run Microsoft Visual Studio 10 . NET .
11

Klik op " File " en vervolgens " Nieuw ", gevolgd door ' Project . " Kies " Windows Application " van het type project . Dit zal leiden tot Form1 .
12

Klik op het menu " Project " , kies dan " Add Reference . "
13

Zoek en selecteer " Microsoft Word 10.0 Object Library " of " Microsoft Word 11.0 Object Library " van COM .
14

Klik op ' OK ' en vervolgens selecteert u "Ja " als u wordt gevraagd om dit te doen
15

Klik op . " bekijken , " dan op " Toolbox ", en steek vervolgens een knop en een keuzelijst in Form1 . Selecteer " Button1 . "

Copy 16 de volgende voorbeeldcode :

Select Case ComboBox1.SelectedItem

Case " Access "

Dim oAccess
zoals Access.ApplicationClass

' Start Access en open de database .

oAccess = CreateObject ( " Access.Application " ) op Twitter

oAccess.Visible = True

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

' Voer de macro

oAccess.Run
( " DoKbTest " )

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

'Clean - up : . . Quit Toegang zonder de wijzigingen in de database

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

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

oAccess
= Nothing

Case
" Excel "

Dim oExcel
als Excel.ApplicationClass

Dim oBook
Zoals Excel.WorkbookClass

Dim oBooks
Zoals

' Start Excel Excel.Workbooks en open de werkmap .

oExcel = CreateObject ( " Excel.Application " ) op Twitter

oExcel.Visible = True

oBooks
= oExcel.Workbooks

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

' Voer de macro's .

oExcel.Run
( " DoKbTest " )

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

' Clean - up : . Sluit de werkmap en sluit Excel

oBook.Close
( False )

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

oBook = Niets

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

oBooks = Nothing

oExcel.Quit ( ) op

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

oExcel = Nothing

Case
" PowerPoint "

Dim opp Zoals PowerPoint.ApplicationClass

Dim oPresSet
zoals PowerPoint.Presentations

Dim oPres
zoals PowerPoint.PresentationClass

' Start PowerPoint en open de presentatie .

Opp = CreateObject ( " PowerPoint.Application " ) op

= True

oPresSet = oPP.Presentations

oPres
= oPresSet.Open oPP.Visible ( " c: \\ pres1.ppt " , , , True ) op Twitter

' Voer de macro's .

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

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

'Clean - up : . Sluit de presentatie en sluit PowerPoint

oPres.Close ( ) op

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 Zoals Word.ApplicationClass

'Start Word en open het document .

oWord = CreateObject ( " Word.Application " )

oWord.Visible = True

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

' Voer de macro

oWord.Run
( " DoKbTest " )

oWord.Run
( " DoKbTestWithParameter " , " Hello from

' Sluit Word VB . NET Client " ) .

oWord.Quit ( )

System.Runtime.InteropServices.Marshal.ReleaseComObject ( oWord ) op

oWord = Nothing

End of Selecteer

GC.Collect ( )
17

Plak de gekopieerde code in het " Button1_Click procedure . "
18

Klik op "Bekijk " en vervolgens " Ontwerper , " en selecteer vervolgens
19

Kopieer de volgende code " Form1 . " :

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList < br >

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

ComboBox1.Items.AddRange
( a ) op

ComboBox1 . SelectedIndex = 0
20

Plak de code in de

Copy 21 de code die volgt " Form1_Load Procedure . " :

Imports Access
= Microsoft . Office.Interop.Access

invoer Excel = Microsoft.Office.Interop.Excel

Imports Word
= Microsoft.Office.Interop.Word

Imports PowerPoint = Microsoft.Office . Interop.PowerPoint
22

Plak deze code op de top van " Form1.vb . "
23

Hit " F5 " op uw toetsenbord om uw aanvraag te starten . < br >