Nome Na Barra De Títulos Do Word

[Paulo Nobre]

Alguém sabe dizer como seria o código para colocar um nome sempre aparecendo na barra de títulos do word?

No excel parece que é application.caption ="Paulo" no workbook_Open()

Imagino que seria para alterar alguma coisa no normal.dat, mas não tenho certeza. Não tenho experiência com VBA.

Se alguém puder detalhar o código, ficaria muito grato!

[Guest Guest]

Insira um Módulo no Projeto Normal, altere o nome de Módulo1 para AutoExec, no editor digite:

Sub Main()

Application.Caption = "Seu Nome"

End Sub

[Paulo Nobre]

Valeu, obrigado,vou tentar.

[dennisreis]

Boa tarde Pessoal!

Eu utilizei a formula que passaram, funcionou bem. Só que não tem como deixa ela automatica? Sempre quando eu abrir o word ela aciona. Porque toda vez eu tenho que executar ai sim ela fica.

Abraços,

Dennis

[Guest Guest]

Colocando o código no projeto NORMAL (Normal.dot) não tem erro, nem precisa salvar o documento, basta inserir o módulo no projeto NORMAL renomear para AutoExec e colar o código. Sempre que iniciar o word a macro será executada.

[dennisreis]

Valeu Cara!

Vou tentar de novo, acho que estva salvando errado mesmo.

Abraços,

Dennis