Tecnología

Inicio

Cómo crear un botón con MS Word mediante Visual Basic

July 19

Microsoft Word es una de las principales aplicaciones de procesador de textos en el mundo. La funcionalidad incluida dentro del producto permite que las tareas más comunes que deben realizarse. El lenguaje de programación Visual Basic de Microsoft proporciona extensibilidad para extender el producto Word para realizar avanzada, la costumbre y funciones complejas. Pequeñas aplicaciones que involucran el procesamiento de textos se pueden construir utilizando Palabra y Visual Basic. La automatización de funciones en una oficina puede ser manejado usando el poder de Visual Basic en Word, ahorrando tiempo y dinero.

Instrucciones

1 Abra la aplicación Microsoft Word y cree un nuevo documento utilizando la plantilla en blanco.

2 Abra el editor de Visual Basic utilizando las teclas de "F11", "Alt" y.

3 Seleccionar "Herramientas" en la barra de menú, a continuación, haga clic en el elemento "de referencia". Desplazarse a través de las referencias disponibles a la entrada "Microsoft Visual Basic para aplicaciones de extensibilidad." Después de seleccionar el elemento, haga clic en el botón "OK".

4 Seleccione la opción "Insertar" de la barra de menú y haga clic en la opción "Módulo".

5 Inserte el siguiente código para crear un botón que cuando se hace clic se mostrará un mensaje de texto:

Sub Test ()

'Add a command button to a new document
Dim doc As Word.Document
Dim shp As Word.InlineShape
Set doc = Documents.Add

Establecer env = doc.Content.InlineShapes.AddOLEControl (ClassType: = "Forms.CommandButton.1")
shp.OLEFormat.Object.Caption = "Haga clic aquí"

'Añadir un procedimiento para el evento click del InlineShape
'** Nota: El evento click reside en el módulo de este documento
Dim como secuencia sCode
sCode = "Private Sub" & amp; shp.OLEFormat.Object.Name & amp; "_CLICK ()" & Amp; vbCrLf & amp; _
"MsgBox" "Que ha hecho clic en el CommandButton" "" & amp; vbCrLf & amp; _
"End Sub"
doc.VBProject.VBComponents ( "ThisDocument"). CodeModule.AddFromString sCode

End Sub

6 Ejecutar el código usando la tecla "F5". Seleccione la macro "Test" de la lista del menú y haga clic en "Ejecutar".

7 Haga clic en el botón "Click Aquí" en el nuevo documento de Word que se muestra en la pantalla. Un cuadro de mensaje aparecerá con el texto "que ha hecho clic en el CommandButton."

Consejos y advertencias

  • El simple ejecución de un mensaje de texto en este ejemplo se puede reemplazar con diferente funcionalidad disponible de la lengua Visual Basic.