Urgente!
necesito saber como podria abri un documento word desde visual vasic o visual basic.net.Este codigo no me funciona.alguien podria ayudarme?
archivo = "c:Maquinasplantilla.doc"
doc = CreateObject("Word.Application")
doc.Open(archivo)
gracias
archivo = "c:Maquinasplantilla.doc"
doc = CreateObject("Word.Application")
doc.Open(archivo)
gracias
Tengo como abrir un archivo de excel modificarlo y guardarlo; si te sirve escribeme
hoal aqui te mando un ejemplo espero te sirva...
'Abrimos un documento Word, seleccionamos todo el texto
'y lo pasamos a una Caja de Texto en nuestro formulario.
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim cTexto1 As String
Private Sub Form_Load()
'Creamos el objeto Word y abrimos en el documento
Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open("c:mis documentosadivinanza.doc")
'seleccionamos todo el texto del documento
WordDoc.Select
'lo pasamos a una variable
'Es válida cualquiera de las dos siguientes sentencias.
'cTexto1 = WordApp.Selection.Text
cTexto1 = WordApp.Application.Selection.Text
'le quitamos el cero binario del final (marcador de fin de cadena de c)
cTexto1 = Left(cTexto1, Len(cTexto1) - 1)
Text1.Text = cTexto1
'cerramos el documento sin grabarlo
WordDoc.Close False
'liberamos el objeto
Set WordDoc = Nothing
'cerramos word
WordApp.Quit
'liberamos el objeto
Set WordApp = Nothing
End Sub
'Abrimos un documento Word, seleccionamos todo el texto
'y lo pasamos a una Caja de Texto en nuestro formulario.
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim cTexto1 As String
Private Sub Form_Load()
'Creamos el objeto Word y abrimos en el documento
Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open("c:mis documentosadivinanza.doc")
'seleccionamos todo el texto del documento
WordDoc.Select
'lo pasamos a una variable
'Es válida cualquiera de las dos siguientes sentencias.
'cTexto1 = WordApp.Selection.Text
cTexto1 = WordApp.Application.Selection.Text
'le quitamos el cero binario del final (marcador de fin de cadena de c)
cTexto1 = Left(cTexto1, Len(cTexto1) - 1)
Text1.Text = cTexto1
'cerramos el documento sin grabarlo
WordDoc.Close False
'liberamos el objeto
Set WordDoc = Nothing
'cerramos word
WordApp.Quit
'liberamos el objeto
Set WordApp = Nothing
End Sub
