¿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
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
Herramientas de productividad de palabras recomendadas
Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo
- Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
- Inserte varias imágenes en carpetas en un documento de Word a la vez.
- Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
- Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
- Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.