vb código de solicitud entrada de texto PALABRA

' Parámetro de entrada; Insert_String es el carácter a insertar

' función; insertar caracteres en el documento de Word: si el documento está cerrado, se producirá un error. de lo contrario, se puede insertar de forma continua.

Función pública InsertString(ByVal Insert_String As String) como booleano

En caso de error, Ir a ONERROR

objApplication.Selection.TypeText Text. :=Insert_String

objApplication.Visible = True 'Hacer visible el programa

InsertString = True

Salir de la función

ONERROR:

Si Número de error <> 0 Entonces

Seleccione Caso Err.Number

Caso contrario

MsgBox "Código de error:" & Err. Número y "Descripción del error:" y Err.Descripción

InsertString = False

Finalizar selección

Finalizar si

Finalizar función

Antes de insertar, debe crear un objeto de documento de Word.

Finalizar si

Finalizar función