Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

Ejemplos de cuadros de diálogo en WordBasic

Este artículo se publicó anteriormente con el número E10299
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.
Resumen
En este artículo se describen dos ejemplos de cuadro de diálogo. En el primer ejemplo se hace un cuadro de diálogo con valores por defecto, y en el segundo ejemplo, el cuadro de diálogo recupera unos datos que luego se insertan en un documento o plantilla.
Más información
EJEMPLO 1

Este ejemplo sirve para la creación de un cuadro de diálogo en el que aparecen unos valores por defecto, de tal manera que el usuario pueda aceptarlos o sustituirlos por otros.

El cuadro de diálogo se puede realizar utilizando el editor de diálogos, o introduciendo directamente el código en la macro.

La sintaxis de la macro es la siguiente:
   Sub MAIN      On Error Goto fin      Begin Dialog DiálogoUsuario 320, 144, "Microsoft Word"         Text 34, 38, 21, 13, "Fax:",.Texto1         TextBox 128, 34, 160, 18,.pp$         OKButton 32, 99, 108, 21         CancelButton 162, 98, 125, 21      End Dialog      Dim dlg As DiálogoUsuario      dlg.pp$ = "93-1234567"      Dialog(dlg)      fin:   End Sub


Descripción de la macro
  1. On Error Goto fin

    Esta línea sirve para que en caso de error vaya a la etiqueta fin: y finalice la ejecución, es necesaria para poder cancelar el cuadro de diálogo.
          Begin Dialog DiálogoUsuario 320, 144, "Microsoft Word"         Text 34, 38, 21, 13, "Fax:",.Texto1         TextBox 128, 34, 160, 18,.pp$         OKButton 32, 99, 108, 21         CancelButton 162, 98, 125, 21      End Dialog
    Estas líneas sirven para definir el cuadro de diálogo del usuario, se obtienen al copiar y pegar el cuadro de diálogo desde el editor de diálogo.
  2. Dim dlg As DiálogoUsuario

    Define la variable dlg para el cuadro de diálogo de usuario.
    dlg.pp$ = "93-1234567"
    Asignamos a la variable dlg.pp$ un valor determinado, esta variable corresponde al campo fax del cuadro de diálogo.
  3. Dialog(dlg)

    Con esta sentencia mostramos el cuadro de diálogo.
  4. fin:

    Definimos la etiqueta fin.
Al ejecutar esta macro resultará el siguiente cuadro de diálogo:



EJEMPLO 2

Este ejemplo describe como definir un cuadro de diálogo y como recuperar un valor del cuadro de diálogo para insertarlo en un documento. Previamente a ejecutar esta macro se debe crear un documento e insertar un marcador en el lugar donde queramos que se recupere el valor del cuadro de diálogo. En el ejemplo el marcador debe llamarse marca. La sintaxis de la macro es la siguiente:
   Sub MAIN      Begin Dialog DiálogoUsuario 320, 144, "Microsoft Word"         Text 15, 36, 109, 14, "Escriba algo",.Texto1         TextBox 128, 34, 160, 18,.pp$         OKButton 32, 99, 108, 21         CancelButton 162, 98, 125, 21      End Dialog      Dim dlg As DiálogoUsuario      Dialog(dlg)      EdiciónIrA "marca"      Insertar dlg.pp$   End Sub


Descripción de la macro

   Begin Dialog DiálogoUsuario 320, 144, "Microsoft Word"      Text 15, 36, 109, 14, "Escriba algo",.Texto1      TextBox 128, 34, 160, 18,.pp$      OKButton 32, 99, 108, 21      CancelButton 162, 98, 125, 21   End Dialog   Estas líneas sirven para definir el cuadro de diálogo del usuario,    se obtienen al copiar y pegar el cuadro de diálogo desde el editor    de diálogo.
  1. Dim dlg As DiálogoUsuario

    Define la variable dlg para el cuadro de diálogo de usuario.
  2. Dialog(dlg)

    Con esta sentencia mostramos el cuadro de diálogo.
  3. EdiciónIrA "marca"

    Dirigimos el punto de inserción al marcador con el nombre "marca".
  4. Insertar dlg.pp$

    Insertamos la variable dlg.pp$ del cuadro de diálogo en el documento.


PRECAUCIÓN: CUALQUIER UTILIZACIÓN POR SU PARTE DEL CÓDIGO O MACROINCLUIDO EN ESTE ARTÍCULO SE HARÁ A SU CUENTA Y RIESGO. Microsoftfacilita este código o macro "tal cual" sin garantía de ningún tipo, yasea explícita o implícita, incluyendo expresamente en tal exención deresponsabilidad y, a efectos meramente enunciativos y no limitativos,las garantías legales mercantiles implícitas y/o la adecuación a unpropósito o finalidad en particular.
Propiedades

Id. de artículo: 550298 - Última revisión: 03/16/2004 23:00:33 - Revisión: 2.0

  • Microsoft Word 6.0c
  • Microsoft Word 6.0 Standard Edition
  • Microsoft Word 6.0a
  • cuadro diálogo ejemplo word KB550298
Comentarios
src="https://c.microsoft.com/ms.js" '="">