¿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 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 for Word: Integrando IA 🤖, más de 100 funciones avanzadas ahorran el 50% de tu tiempo en el manejo 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:
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 extraordinarias!
🤖 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...
📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Exportar rango en varios formatos (PDF/TXT/DOC/HTML...) / Conversión por lote a PDF...
✏ Edición de cuerpo: Buscar y reemplazar en lote en múltiples archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / Convertir tabla a texto...
🧹 Limpieza sin esfuerzo: Elimina espacios extras / Saltos de sección / Cuadro de texto / Hipervínculos / Descubre más herramientas de eliminación en el grupo Eliminar...
➕ Inserciones creativas: Insertar delimitador de miles / Casilla de Verificación / Botón 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 / Forma / Párrafo de Encabezado / Mejora la navegación con más funciones de Seleccionar...
⭐ Mejoras destacadas: Navega a cualquier rango / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documento /11 herramientas de Conversión...
🌍 Compatible con más de40 idiomas: Usa Kutools en tu idioma preferido: ¡soporta inglés, español, alemán, francés, chino y más de40 idiomas adicionales!

✨ Kutools para Office – ¡Una sola instalación, cinco potentes herramientas!
Incluye Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools para Word · Kutools para PowerPoint
📦 Obtén las5 herramientas en una sola suite | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorra tiempo y aumenta tu productividad al instante
Las mejores herramientas de productividad para Office
Kutools para Word - ¡Más de 100 herramientas para Word!
- 🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir / Super Traducir / Redacción AI / Revisión con IA
- 📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Conversión por lote a PDF
- ✏ Edición de cuerpo: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar Saltos de sección
- ➕ Inserciones creativas: Insertar delimitador de miles / Insertar Casilla de Verificación / Crear Códigos QR
- 🌍 Compatible con más de40 idiomas: ¡Kutools habla tu idioma – compatible con más de40 idiomas!