RE:Abrir documentos MOffice desde VB
Aqui te va el codigo para abrir un documento de combinacion de Word, incluyendo la base de datos.
' aplicacion es el objeto word
Set aplicacion = CreateObject("word.application")
' en documento abre el archivo origen
Set documento = aplicacion.Documents.Open(xComboOrigen.Text + xArchivoOrigen)
' Llo hace documento de combinacion
Set Combinar = documento.MailMerge
If zVersion <> "XP" Then ' con XP no funciona el codigo a continuacion
strSql = "Select * from " + xProceso ' sql statement
xtabla = "Table " + xProceso ' aqui es la conexion
Combinar.OpenDataSource Name:=xBaseDocumentos, Format:=0, ConfirmConversions:=True, _
ReadOnly:=False, LinkToSource:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Connection:=xtabla, _
SQLStatement:=strSql, SQLStatement1:=""
End If
' indica que la combinacion se envia a un nuevo
Combinar.Destination = wdsendtonewdocument
Combinar.Execute Pause = True
' nuevo tiene el nombre del nuevo documento combinado
Set nuevo = aplicacion.ActiveDocument
nuevo.SaveAs xComboDestino.Text + xArchivoDestino.Text
nuevo.Application.Visible = True
Espero te sirva