Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

Normalmente, podemos insertar el nombre de archivo o la ruta del archivo y el nombre en el documento de Word utilizando 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 de archivo y el nombre o nombre de archivo sin extensión utilizando el código VBA


Inserte la ruta de archivo y el nombre o nombre de archivo sin extensión utilizando el código VBA

Para insertar el nombre de archivo sin extensión en el documento de Word, aplique el siguiente código de VBA:

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

2. Luego, mantén presionada ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. Y luego, haz clic recuadro > Módulo, copie y pegue el código a continuación en el módulo en blanco abierto.

Código de 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, ver 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 recomendadas de productividad de palabras

Kutools para Word: más que las funciones avanzadas de 100 para Microsoft Word, ahorre su tiempo de 50

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • Divida el documento actual en documentos separados según el encabezado 1, 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, y así...
Say something here...
symbols left.
You are guest ( Sign Up? )
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.