¿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:
Note: 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
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido / Reescribir texto / Resumir documentos / Solicite información basado en el documento, todo dentro de Word
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de extracción, diríjase a nuestro Quitar grupo...
➕ Inserciones creativas: Insertar Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubre más en el Insertar grupo...
🔍 Selecciones de precisión: Localizar páginas específicas / tablas / formas / párrafos de encabezado / Mejorar la navegación con más, Seleccionar características...
⭐ Mejoras de estrellas: Navegue rápidamente a cualquier ubicación / insertar automáticamente texto repetitivo / alternar sin problemas entre ventanas de documentos / 11 herramientas de conversión...