Excel - Funcion getObject

Sub HelpAndInfo()

    'Open Help and Information Document

    Const strpath = "C:\Users\NAME\Documents\Computer\VBA\SpdSheetNotes.doc"

    Dim Wd As Object

    Dim HelpDoc As Object

    Dim f As Boolean

    On Error Resume Next

    Set HelpDoc = GetObject(strpath)

    If HelpDoc Is Nothing Then

        Set Wd = GetObject(, "Word.Application")

        If Wd Is Nothing Then

            Set Wd = CreateObject("Word.Application")

            If Wd Is Nothing Then

                MsgBox "Failed to start Word!", vbCritical

                Exit Sub

            End If

            f = True

        End If

        Set HelpDoc = Wd.Documents.Open(strpath)

        If HelpDoc Is Nothing Then

            MsgBox "Failed to open help document!", vbCritical

            If f Then

                Wd.Quit

            End If

            Exit Sub

        End If

        Wd.Visible = True

    Else

        With HelpDoc.Parent

            .Visible = True

            .Activate

        End With

    End If

End Sub

Dim Ruta as String

Dim strpath As String

Dim NombreDOCAs String

Ruta  =  "C:\CarpetadondeEstaelArchivo\"

NombreDOC "Nombredelarchivo.doc"

strpath  = Ruta & NombreDOC

Dim strpath As String

strpath  =  "C:\CarpetadondeEstaelArchivo\" &  "Nombredelarchivo.doc"