Crear un archivo de Word que contiene una macro
1
lanzamiento Microsoft Office Word.
2 Haga clic en el botón de "Microsoft Office " y luego elegir la opción " Nuevo".
3
Pulse " Alt" y " F11 " juntas en el teclado para iniciar Editor de Visual Basic .
4 Haga clic en la ficha "Insertar " , entonces " . Módulo "
5
Resalte el código de ejemplo siguiente macro y pulse la tecla "Ctrl " y " C" para copiarlo :
Display ' un cuadro de mensaje que muestra la aplicación nombre.
Public Sub DoKbTest ()
MsgBox " Hola desde " y Application.Name
End Sub
'Mostrar un cuadro de mensaje con la cadena pasado de cliente de automatización de la Red
.
Pública DoKbTestWithParameter Sub ( sMsg As String )
MsgBox sMsg
End Sub
6
Haga clic en el nuevo módulo, mantenga pulsada la tecla "Ctrl " y pulse "P " para pegar el código de macro.
7
Exit Editor de Visual Basic .
8
Haga clic en el botón de "Microsoft Office " y luego en " Guardar".
9
Busque y seleccione una ubicación para guardar el documento de Word , seleccione " Guardar" y, a continuación , salga de Word .
Hacer la VB Client Automation
10
Run Microsoft Visual Studio. NET .
11
Haga clic en " archivo", luego "Nuevo ", seguido por el "Proyecto ". Seleccione la opción " Aplicación para Windows " de los tipos de proyectos. Esto creará Form1 .
12
Haga clic en el menú "Proyecto" , a continuación, seleccione " Agregar referencia ".
13
Busque y seleccione " Word 10.0 Object Library Microsoft " o " Word 11.0 biblioteca de objetos de Microsoft " de COM .
14
haga clic en " Aceptar", luego seleccionar "Sí " si se le pide que lo haga.
15
clic en " Ver ", luego en " Herramientas "y, a continuación, insertar un botón y un cuadro combinado en Form1 . Seleccione " Button1 ".
16
Copia el siguiente código de ejemplo :
Select Case ComboBox1.SelectedItem
Case "Acceso"
oAccess Dim Como Access.ApplicationClass
' Inicie Access y abra la base de datos.
oAccess = CreateObject ( " Access.Application " )
oAccess.Visible = True
< p > oAccess.OpenCurrentDatabase ("c : \\ db1.mdb " , False )
' Ejecutar las macros
oAccess.Run ( " DoKbTest " )
oAccess.Run . ( " DoKbTestWithParameter ", " . Hola desde VB NET Client " )
'Clean -up: . . Acceso salir sin guardar los cambios en la base de datos
oAccess.DoCmd () Salir ( Access. AcQuitOption.acQuitSaveNone )
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oAccess )
oAccess = Nothing
Case "Excel"
oExcel As Excel.ApplicationClass
oBook As Excel.WorkbookClass
oBooks dévil como Excel.Workbooks
' Iniciar Excel y abra el libro .
oExcel = CreateObject ( " Excel.Application " )
oExcel.Visible = true
oBooks = oExcel.Workbooks
oBook = oBooks.Open ("c : \\ Book1.xls ")
'Ejecutar las macros.
oExcel.Run ( " DoKbTest " )
oExcel.Run ( " DoKbTestWithParameter ", " Hola desde VB . NET Client ")
'Clean -up: . Cierre el libro y salga de Excel
oBook.Close (Falso )
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 "
oPP As PowerPoint.ApplicationClass
Dim oPresSet Como PowerPoint.Presentations
oPres dévil como PowerPoint.PresentationClass
' Inicie PowerPoint y abra la presentación .
oPP = CreateObject ( " PowerPoint.Application " )
< p> oPP.Visible = True
oPresSet = oPP.Presentations
oPres = oPresSet.Open ("c : \\ Pres1.ppt " , , , True)
' Ejecutar las macros.
oPP.Run (" Pres1.ppt ' ! DoKbTest " )
oPP.Run (" Pres1.ppt ' ! DoKbTestWithParameter ", " Hola desde VB . NET Cliente ")
'Clean -up: . Cierre la presentación y salga de 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 "Palabra"
oWord Dim As
Word.ApplicationClass < p > ' Start Word y abra el documento .
oWord = CreateObject ( " Word.Application " )
oWord.Visible = True
oWord.Documents.Open ( " C: \\ Doc1.doc " . )
'Ejecutar las macros
oWord.Run ( " DoKbTest " )
oWord.Run ( " DoKbTestWithParameter "," Hola desde VB . NET Client " )
' Salir de Word .
oWord.Quit ()
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oWord )
< p > oWord = Nothing End
Seleccionar
GC.Collect ()
17
Pega el código copiado en el " procedimiento Button1_Click . "
18
Haga clic en " Ver " y luego " Diseñador ", y luego seleccione
19
Copia el siguiente código " Form1 ". :
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Dim a As String () = {" Access" , " Excel ", " PowerPoint ", " Palabra "}
ComboBox1.Items.AddRange ( a)
ComboBox1 . SelectedIndex = 0
20
Pega el código en el
21
Copia el código que sigue "Procedimiento Form1_Load . "
Importaciones acceso = Microsoft . Office.Interop.Access
Imports Excel = Microsoft.Office.Interop.Excel
Imports Word = Microsoft.Office.Interop.Word
Importaciones PowerPoint = Microsoft.Office . Interop.PowerPoint
22
pega este código en la parte superior de la " Form1.vb ".
23
Hit "F5 " en su teclado para iniciar la aplicación .