Blog Archives

Inserindo caminho do Arquivo na Barra de Título do Word


Em Arquivo, Ajuda e Opções em Personalizar Faixa de Opções, Marcar a Guia Desenvolvedor
Na Guia Desenvolvedor você vai criar uma Macro com o Nome que quiser, pode serMostra_Titulo e então nas propriedades da planilha vai inserir o códigos abaixos.
Função 1

 

Sub AutoOpen()
 'Display document name and path in the title bar.
 ActiveWindow.Caption = ActiveDocument.FullName
 End Sub 

Função 2

Sub FileSaveAs()
 'Display document name and path in the title bar.
 If Dialogs(wdDialogFileSaveAs).Show = 0 Then Exit Sub 
System.Cursor = wdCursorNormal 
ActiveWindow.Caption = ActiveDocument.FullName
End Sub