Código de etimología de operación Vb

Atenúe xDocu como una palabra nueva. "Aplicación" define un subcomando privado de objeto de documento de Word 1_Click(). Sentencia a ejecutar cuando se hace clic en el botón

Xdoc. elegir. rango de formas. Efectos de texto. presettexteffect = int(Rnd(1)* 30)' Establece el estilo del word art seleccionado en el documento de Word actual en un número, que se genera mediante la función de número aleatorio Rnd.

XDocu. elegir. Formalange. Efectos de texto. Fontname = "宋体"'Establezca la fuente de esta palabra art en. "宋体"

XDocu. "Select.Copy" copia la selección al portapapeles.

Yo. Imagen = Portapapeles. ' GetData 'Pone el contenido del portapapeles en el cuadro de imagen de la página actual.

Fin del código SubPrivate Sub Form_Load() que se ejecuta cuando se carga el formulario.

XDocu. Cargue el objeto del documento de Word.

xdoc. documento activo. formas agregar efecto de texto (0, "WordArt", "Songti", 32#, -1, 0, 10, 10). Seleccione "Agregar Word Art al documento de Word actualmente activo". El contenido del Word Art es "Word Art", la fuente es Song Dynasty y el tamaño de fuente es 32 puntos.

Conector final

Este es el código declarado por VBA. Utilice VBA para operar Word. La documentación de ayuda se puede encontrar en Word -> Macros -> VB Editor -> Ayuda -> Ayuda de Microsoft Visual Basic.