| Pregunta: | 56467 - INSERTAR TEXTO EN WORD DESDE VISUAL BASIC |
| Autor: | alex diaz |
| Buenas, tengo una duda, tengo un boton en un formulario, que al darle me abre un archivo de word con datos introducidos desde el visual basic, aqui el codigo Dim Documento As New Word.Application With Documento .Application.Documents.Open dire.Text & nombrecarta.Text '.Application.Selection.TypeParagraph If Text16.Text = "si" Then .Application.Selection.InlineShapes.AddPicture Filename:= & "simbolo.jpg", LinkToFile:=False, SaveWithDocument:=True 'codigo para insertar una imagen .Application.Selection.TypeText text1.text 'codigo para insertar el text1.text en el documento 'aki sigue el codigo pero es para cerrar el documento I mi pregunta, es, como puedo hacer que el visual basic inserte el contenido del text1.text al final del documento? es que tengo el .application.selection.typetext text1.text pero me lo inserta seguido de la imagen Muchas gracias | |
| Respuesta: | Saul garay |
| Buenas Noches alex con el siguiente codigo como ejemplo, la pequeña aplicacion lo que hace es ingresar el texto al portapapeles y luego con la tecla SHIFT + INSERT lo pega donde desees, usa un poquito la creatividad y ayudate con este codigo podria ser una vez ejecutada la aplicacion de word buscar la combinacion de estas teclas y desplegarlas, sobre la ubicacion al final no tengo idea pero creo que ya puedes tener con este ejemplo algo bastante adelantado ______________________________________________ Private Declare Function ShellExecute Lib "shell32.dll" _______________________________________________ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Dim res As Long direccion = Data1.Recordset("link") MsgBox ("A continuacion ingresara al Portal del Seniat, asegurece de que tenga conexion a Internet; la informacion del RIF del proveedor se encuentra almacenada en el portapapeles por lo que puede hacer uso con las teclas SHIFT+INS o el boton contrario del Mouse y posteriormente usar la Opcion PEGAR") res = ShellExecute(Me.hwnd, "Open", direccion, "", "", 1) Clipboard.Clear Clipboard.SetText (Text1) link_seniat.Hide End Sub Private Sub Form_load() Text1 = proveedores.rif End Sub SALUDOS | |