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

Normalmente, podemos insertar el nombre del archivo o la ruta del archivo y el nombre en el documento de Word usando la función de campo Nombre de archivo, pero este nombre de archivo insertado incluye la extensión de archivo docx o doc. ¿Cómo podría insertar el nombre del archivo o la ruta del archivo y el nombre sin extensión?

Inserte la ruta del archivo y el nombre o el nombre del archivo sin extensión utilizando el código VBA

---

Inserte la ruta del archivo y el nombre o el nombre del archivo sin extensión utilizando el código VBA

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

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

2. Luego, mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto.

Código VBA: inserte la ruta del archivo y el nombre sin 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. Entonces presione F5 clave para ejecutar este código y la ruta del archivo y el nombre se han insertado en el documento sin extensión, vea la captura de pantalla:

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

Código VBA: inserte el nombre del archivo solo sin 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

---