Function AbrirArchivo(RutaDoc As String) As Boolean
On Error GoTo xError
Dim Word As Object
Set Word = CreateObject("Word.Application")
Word.Visible = True
Word.Documents.Open (RutaDoc)
Set Word = Nothing
AbrirArchivo = True
xError:
If Err.Number > 0 Then
AbrirArchivo = False
End If
End Function