¡¡¡Necesito documentacion de funciones de word para visual basic!!!!!!
Necesito documentacion sobre funciones de manejo de archivos word de visual basic, necesito desde como grabar un archivo .doc desde visual basic, como interactuarcon con word y como abrir un archivo existente de word, todo desde visual basic, a quien me pueda ayudar muchas gracias.
'declarar la referencia microsoft word 10.0 o la que tengas... en menu project / references...
'funcion para abrir un ainstancia de word
Sub AbreWord()
On Error Resume Next
Set XlWapp = GetObject("word.Application")
If Err.Number <> 0 Then
Set XlWapp = CreateObject("word.Application")
Err.Clear ' Clear Err object in case error occurred.
End If
End Sub
' para abrir un archivo existente
sub command1_click()
'utilizamos la funcion para generar una instancia de word
AbreWord
' abrimos el archivo existente
Set XlDoc = XlWapp.Documents.open(Trim(app.path+"docuemnto1.doc"))
'activamos o hacemos visible word.
XlWapp.Visible = True
end sub
'para imprimir un archi vo existente
Private Sub Command1_Click()
AbreWord
Set XlDoc = XlWapp.Documents.open(App.Path + "documento1.doc")
XlDoc.PrintOut
XlDoc.Close False 'si deseas grabar el archivo seria true
' elimnar/blanquear las variables de memoria
Set XlDoc = Nothing
Set XlWapp = Nothing
End Sub
Espero que con esto te ayude con tus dudas... Suerte
'funcion para abrir un ainstancia de word
Sub AbreWord()
On Error Resume Next
Set XlWapp = GetObject("word.Application")
If Err.Number <> 0 Then
Set XlWapp = CreateObject("word.Application")
Err.Clear ' Clear Err object in case error occurred.
End If
End Sub
' para abrir un archivo existente
sub command1_click()
'utilizamos la funcion para generar una instancia de word
AbreWord
' abrimos el archivo existente
Set XlDoc = XlWapp.Documents.open(Trim(app.path+"docuemnto1.doc"))
'activamos o hacemos visible word.
XlWapp.Visible = True
end sub
'para imprimir un archi vo existente
Private Sub Command1_Click()
AbreWord
Set XlDoc = XlWapp.Documents.open(App.Path + "documento1.doc")
XlDoc.PrintOut
XlDoc.Close False 'si deseas grabar el archivo seria true
' elimnar/blanquear las variables de memoria
Set XlDoc = Nothing
Set XlWapp = Nothing
End Sub
Espero que con esto te ayude con tus dudas... Suerte