¿Cómo se crea un documento de Word Macro de VB 6.0

¿ Una macro es una herramienta que se utiliza para automatizar tareas tediosas y repetitivas , por lo que no tiene que conducir de vuelta loco haciendo a ti mismo. Son secuencias de comandos que se pueden configurar para que se ejecute cada vez que los necesite. Microsoft Office contiene muchas macros que no se dan cuenta es allí, pero ya que están ahí para ahorrar tiempo y aliviar el aburrimiento de esos trabajos monótonos , es posible que desee añadir un poco de lo propio que son personales para usted. Utilice Visual Basic ( VB ) para hacer una macro que se puede implementar en tiempo de ejecución de su ordenador. Instrucciones
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
 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 )
 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 " )
 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 ' 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 )
 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 .