Skip to main content

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

Author: Xiaoyang Last Modified: 2025-06-04

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

Insertar ruta del archivo y nombre o nombre del archivo sin extensión usando código VBA

Herramientas de productividad recomendadas para Word

Kutools para Word: Integrando IA 🤖, más de 100 funciones avanzadas que ahorran el 50% del tiempo en la gestión de documentos.Descarga gratuita

Office Tab: Introduce pestañas similares a las de un navegador en Word (y otras herramientas de Office), simplificando la navegación entre múltiples documentos.Descarga gratuita

Insertar ruta del archivo y nombre o nombre del archivo sin extensión usando código VBA

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

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

2. Luego, mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Después, haz clic en Insertar > Módulo, copia y pega el siguiente código en el módulo en blanco abierto.

Código VBA: Insertar ruta del archivo y 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. Luego presiona la tecla F5 para ejecutar este código y la ruta del archivo y el nombre se habrán insertado en el documento sin la extensión, ver captura de pantalla:

The file path and name are inserted into the document without extension

Nota: Si solo quieres insertar el nombre del archivo sin extensión en el documento, deberías aplicar este código:

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

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Mantener formato) / Super Traducir (Mantener formato) / Redacción AI / Revisión con IA...

📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

✏ Edición de Contenido: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla a texto...

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, visita el grupo Eliminar...

➕ Inserciones creativas: Insertar separadores de miles / Casillas de verificación / Botones de opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Selecciona páginas específicas / Tablas / Formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documentos /11 herramientas de conversión...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Más de 100 herramientas para Word!

Descarga gratuita Comprar ahora Más información sobre Kutools