Estimados
por favor su talento en esto que me lleva harto tiempo y sin resolver:

quiero editar un word creado y reemplazar datos que le entregue es un "contrato de trabajo" que quiero dinamizar mediante Visual .net 2012 y offcce 2016

el Error es el siguiente:
NO SE ENCONTRO COMexception
El servidor lanzó una excepción. (Excepción de HRESULT: 0x80010105 (RPC_E_SERVERFAULT))

el error lo marca cuando lo abre... wDoc = wd.Documents.Open(strRutaWord)



el codigo es el siguiente:

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Diagnostics

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim wd As Microsoft.Office.Interop.Word.Application
Dim wDoc As Microsoft.Office.Interop.Word.Document
Dim strRutaWord As String = "C:\FichaMantención.doc"

'El siguiente codigo es para crear la ruta,entre comillas se pone la ruta donde esta el documento
' strRutaWord = "C:\contrato.docx"
wd = CreateObject("Word.Application")

wd.Visible = False
wd.Documents.Add()
wd.Application.Visible = True

wDoc = wd.Documents.Open(strRutaWord) ' aqui marca el error
wDoc.Activate()



wd.Selection.Find.ClearFormatting()
wd.Selection.Find.Replacement.ClearFormatting()
With wd.Selection.Find
.Text = "Marcador"
.Replacement.Text = "Hola este es el nuevo teto"
.Forward = True
.Wrap = WdFindWrap.wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wd.ActiveWindow.Selection.Find.Execute(ReplaceWith :="Hola este es el nuevo wwwteto")
End Sub

gracias