Cómo escribir palabras usando macro en vb

La operación de macro es registrar la operación después de abrir el documento de Word. Es decir, debe ejecutar la macro para abrir el documento de Word. Por lo tanto, si desea copiar la macro al entorno VB y ejecutarla, debe abrirla. el documento de Word en VB Consulte el siguiente código: (Primero demuestre la creación de un documento de Word vacío llamado test.doc en c; una vez completada la operación, encontrará que hay un archivo aa.doc en la unidad C. Después de abrir la macro, encontrará que se ha escrito una notificación)

Subcomando privado1_Click()

Atenuar MyWord como Word.Application

Atenuar. MiPalabraLibro Como Word.Aplicación

Atenuar MiPalabraLibro Como Word.Documento

Atenuar MiPalabrasLibro Como Word.DocumentoDocumento

Establecer MiPalabra = Nueva Palabra.Aplicación

Set MyWordBook = MyWord.Documents.Add("c:\test.doc ") 'Abrir documento de Word en blanco definido por el usuario test.doc

MyWordBook = MyWord.Document.Add("c:\ test.doc") '3.ParagraphFormat.Alignment = wdAlignParagraphCenter

Selection.TypeText Texto: =" Notificación"

Selection.Font.Color = wdColorRed

Selection.TypeParagraph

Selection.Font.Size = 22

Selection.TypeText Texto: =" (notificación) Selection.TypeText Texto: =" (La Trinidad de hoy)"

Unidad Selection.MoveLeft: = Unidad MoveRight: = wdCharacter, Count: = 2

Selection.TypeText Text:="("

Unidad Selection.MoveRight:=wdCharacter, Count:=2

Selection.TypeText Text:=" (La Trinidad de hoy) TypeText Text: "Todos los estudiantes de la clase irán al patio de recreo a las cuatro en punto para tomar el examen de educación física".

Selection.TypeParagraph

Selection.TypeText Text:="Todos los estudiantes de la clase irán al patio de recreo a las cuatro en punto para tomar el examen de educación física.

Selection.Font.Size = 22

Selection.MoveRight Unidad:=wdCharacter, Count:=1

Selection.TypeParagraph

Selection.Font.Size = 16

Selection.TypeText Text:=" "

Selection.Font.Color = wdColorRed

Finalizar con

'4.Quit

Establecer MyWordBook = Nada

Establecer MyWord = Nada

MsgBox "Operación completa", vbOKOnly, "Recordatorio"

descargarme

p>

Fin del subtítulo