Note: The other languages of the website are Google-translated. Back to English
Iniciar sesión  \/ 
x
or
x
Regístrate  \/ 
x

or

 ¿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

<b>Nota</b>: 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.

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.