Note: The other languages of the website are Google-translated. Back to English

 ¿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:

doc insertar nombre de archivo sin extensión 1

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.
Comentarios (0)
Aún no hay calificaciones. ¡Sé el primero en calificar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL