Escribir En Word Desde Visual
Página 1 de 5
hola espero y me puedas ayudar. quisiera saber si me puedes decir un codigo de visual basic en el cual abra una aplicacion y luego darle una instruccion al programa. por ejemplo quiero hacer un programa que tenga un boton, al hacer click en dicho boton se abra microsoft word y escriba dentro de word la palabra "prueba" sin yo teclearnada.gracias por tu ayuda.
04/05/2004 Checa el siguiente código a ver si te sirve: Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim i As Integer, j As Integer Dim NewResult As String On Error GoTo ErrHandler ReDim UsedVariables(0) Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open(App.Path & "\contratos" & strFile) ' WordApp.Visible = True Select CaseiQueContrato Case 1 ' Se Trata de Contratos de Colaboración Mutua For i = 1 To rs.Fields.Count - 2 If WordDoc.Fields(i).Type = wdFieldDocVariable Then If Not IsNull(rs.Fields(i - 1)) Then WordDoc.Fields(i).Result.Text = rs.Fields(i - 1) End If End If Next ' se inserta la fecha de emisión del contrato ' día WordDoc.Fields(26).Result.Text = Day(Date) ' mes WordDoc.Fields(27).Result.Text =Transforma_Mes(Month(Date)) ' año WordDoc.Fields(28).Result.Text = Year(Date) ' objeto social WordDoc.Fields(29).Result.Text = rs.Fields("proveedor") ' WordDoc.Fields(29).Result.Text = rs.Fields("objSocial") ' la firma del organizador WordDoc.Fields(30).Result.Text = rs.Fields("Apoderado") ' WordDoc.Fields(30).Result.Text = rs.Fields("proveedor") ' la firma del autorizador WordDoc.Fields(31).Result.Text =cboAutoriza.Text
Experto
' tercera hoja ' objeto social WordDoc.Fields(32).Result.Text = rs.Fields("proveedor") ' WordDoc.Fields(32).Result.Text = rs.Fields("objSocial")
http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/... 07/05/2009
Visual Basic - codigo de visual
Página 2 de 5
' representante WordDoc.Fields(33).Result.Text =rs.Fields("Apoderado") ' visa WordDoc.Fields(34).Result.Text = cboAutoriza.Text Case 3 ' Se Trata de Contratos de Patrocinio For i = 1 To rs.Fields.Count - 2 If WordDoc.Fields(i).Type = wdFieldDocVariable Then If Not IsNull(rs.Fields(i - 1)) Then WordDoc.Fields(i).Result.Text = rs.Fields(i - 1) End If End If Next ' se inserta la fecha de emisión del contrato ' día WordDoc.Fields(26).Result.Text = Day(Date) ' mesWordDoc.Fields(27).Result.Text = Transforma_Mes(Month(Date)) ' año WordDoc.Fields(28).Result.Text = Year(Date) ' objeto social WordDoc.Fields(29).Result.Text = rs.Fields("proveedor") ' WordDoc.Fields(29).Result.Text = rs.Fields("objSocial") ' la firma del organizador WordDoc.Fields(30).Result.Text = rs.Fields("Apoderado") ' WordDoc.Fields(30).Result.Text = rs.Fields("proveedor") ' la firma delautorizador WordDoc.Fields(31).Result.Text = cboAutoriza.Text
' tercera hoja ' objeto social WordDoc.Fields(32).Result.Text = rs.Fields("proveedor") ' WordDoc.Fields(32).Result.Text = rs.Fields("objSocial") ' representante WordDoc.Fields(33).Result.Text = rs.Fields("Apoderado") ' visa WordDoc.Fields(34).Result.Text = cboAutoriza.Text Case 4 ' Se Trata de Contratos de Publicidad Masiva For i = 1 Tors.Fields.Count - 2 If WordDoc.Fields(i).Type = wdFieldDocVariable Then If Not IsNull(rs.Fields(i - 1)) Then WordDoc.Fields(i).Result.Text = rs.Fields(i - 1) End If End If Next ' se inserta la fecha de emisión del contrato ' día WordDoc.Fields(26).Result.Text = Day(Date) ' mes WordDoc.Fields(27).Result.Text = Transforma_Mes(Month(Date)) ' año WordDoc.Fields(28).Result.Text = Year(Date)http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/... 07/05/2009
Visual Basic - codigo de visual
Página 3 de 5
' objeto social WordDoc.Fields(29).Result.Text = rs.Fields("proveedor") ' WordDoc.Fields(29).Result.Text = rs.Fields("objSocial") ' la firma del organizador WordDoc.Fields(30).Result.Text = rs.Fields("Apoderado") ' WordDoc.Fields(30).Result.Text =...
Regístrate para leer el documento completo.