Abrir cualquier documento word desde VB 6.0

[iaras66]

Se como abrir cualquier documento, lo que ocurre es que me da problemas con el siguiente código:

Parte donde abrimos cualquier Word:

Me.CommonDialog1.ShowOpen
ruta = Me.CommonDialog1.FileName
Set Doc = WordObj.Documents.Open(ruta)

y el parte del código:

.Application.Documents.Open App.Path & "\Trasplante.doc"

'Agregar marcador

'relleno de marcadores

'final del documento
.Application.Selection.EndKey wdStory
'intro
.Application.Selection.TypeParagraph
'introduccion de texto
.Application.Selection.WholeStory
.Application.Selection.Copy
.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

'Para alinear el texto a la derecha

.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Documento.Selection.Font.Name = "Times News Roman"
Documento.Selection.Font.Size = 11


.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
.Application.Selection.TypeText "Nº Página" & vbNewLine

Donde la línea de .Application.Documents.Open App.Path & "\Trasplante.doc"
la quiero cambiar por el código que me deja abrir cualquier documento.

Alguien sabría como????