¿Cómo insertar la ruta del archivo y el nombre del archivo sin su extensión en un documento de Word?

Normalmente, podemos insertar el nombre del archivo o la ruta completa con el nombre en un documento de Word mediante el campo «Nombre de archivo», pero este incluye la extensión (como .docx o .doc). ¿Cómo se puede insertar el nombre del archivo o la ruta y el nombre sin la extensión?

Inserte Ruta de archivo y el nombre o el nombre del archivo sin la extensión mediante código VBA

---

Inserte Ruta de archivo y el nombre o el nombre del archivo sin la extensión mediante código VBA

Para insertar el nombre del archivo sin la extensión en un documento de Word, aplique el siguiente código VBA:

1. Coloque el cursor en el lugar donde quiera insertar la ruta del archivo y el nombre sin la extensión.

2. A continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. A continuación, haga clic en Insertar > Módulo y copie y pegue el siguiente código en el módulo en blanco que se abre.

Código VBA: Insertar Ruta de archivo y el nombre sin la extensión:

Sub InsertFileNameAndPath()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.FullName, ".")
        xPathName = VBA.Left(.FullName, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

4. A continuación, pulse la tecla F5 para ejecutar este código y se insertará la ruta del archivo y su nombre en el documento, sin la extensión; consulte la captura de pantalla:

Nota: Si solo desea insertar el nombre del archivo sin la extensión en el documento, debe aplicar este código:

Código VBA: Insertar únicamente el nombre del archivo sin la extensión:

Sub InsertFileNameOnly()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.Name, ".")
        xPathName = VBA.Left(.Name, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

---