OpenOffice - Abrir archivo doc con VBA y OpenOffice

   
Vista:

Abrir archivo doc con VBA y OpenOffice

Publicado por Antonio (3 intervenciones) el 03/12/2013 13:28:22
Hola a todos

Un cliente nuestro quiere pasarse de MS Office a OpenOffice y tenemos que averiguar como abrir, usando scripts de VBA, los documentos que tiene pero en lugar de con MS Word con OpenOffice wRITER. Los scripts están creados desde hace años y funcionan, así que supongo que habrá poco que cambiar. Por si alguien le quiere echar un vistazo esta es la parte del script que abre el doc en Word:

If filesys.FileExists(Archivo) Then
Set appWord = CreateObject("Word.Application")
set docWord = appWord.Documents.Open(Archivo, , True, , "Libertybell")
appWord.Visible = false
For Each parWord In docWord.Paragraphs
Document.Write(parWord.Range.FormattedText)
Document.Write("<br/>")
Next
appWord.quit
else
Document.Write("<br/>")
Document.Write("El Documento no existe:")
Document.Write("<br/>")
Document.Write(Archivo)
Document.Write("<br/>")
End If

Creemos que con cambiar el CreateObject("Word.Application") por su equivalente en OpenOffice será suficiente. Si alguien sabe la solución nos sería de gran ayuda.

Un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder