Vladimir sabe que puede poner el nombre de archivo de un documento en el encabezado de una página. Sin embargo, lo que le gustaría es que solo aparezcan los últimos cinco caracteres del nombre del archivo (sin incluir la extensión del nombre del archivo) en el encabezado. Está buscando la mejor manera de realizar la tarea.

La única forma de hacer esto es usando una macro; no hay ninguna funcionalidad integrada en Word para realizar la tarea. La macro debe determinar el nombre del archivo, tomar los caracteres deseados y luego introducirlos en el encabezado. Sin embargo, existen posibles complicaciones con algo que podría parecer tan simple. Por ejemplo, ¿qué pasa si el documento no se ha guardado y, por lo tanto, aún no tiene un nombre de archivo? ¿Qué pasa si el documento se ha guardado, pero hay menos de cinco caracteres en el nombre del archivo?

¿Qué debe hacer la macro si ya hay algo en el encabezado?

¿Qué debe hacer si el usuario está mirando el documento en una vista que no muestra encabezados?

Para hacer frente a tales preguntas, la macro debe hacer algunas suposiciones.

Para este ejemplo, asumiremos que la macro debería simplemente reemplazar cualquier encabezado existente con la parte deseada del nombre del archivo. Además, la macro puede cambiar el modo de visualización a la vista Diseño de impresión para que sea fácil trabajar con el encabezado. Aquí está el resultado:

Sub PartFilenameInHeader()

Dim sName As String     Dim J As Long

sName = ActiveDocument.Name     J = InStrRev(sName, ".")

If J > 0 Then         sName = Left(sName, J - 1)

If Len(sName) > 5 Then             sName = Right(sName, 5)

End If

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then             ActiveWindow.Panes(2).Close         End If         If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _           ActivePane.View.Type = wdOutlineView Then             ActiveWindow.ActivePane.View.Type = wdPrintView         End If         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader         Selection.WholeStory         Selection.Delete         Selection.TypeText Text:=sName         ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument     Else         MsgBox "Document has no filename extension."

End If End Sub

La macro primero verifica para asegurarse de que el documento tenga un nombre de archivo real (de la propiedad .Name del objeto ActiveDocument). Si es así, extrae cinco (o menos) caracteres del nombre del archivo. Comprueba que no haya varios paneles abiertos y que el documento esté en la vista Diseño de impresión. Luego selecciona lo que esté actualmente en el encabezado y lo reemplaza con los caracteres deseados del nombre del archivo.

Comprenda que la macro debe ejecutarse una vez después de guardar el documento y una vez más si alguna vez guarda el documento con un nombre de archivo diferente.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (13316) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.