Guarde um documento do Word com a data atual no nome do ficheiro utilizando código VBA
Para adicionar automaticamente a data atual ao nome do ficheiro ao guardar o documento do Word, siga os passos seguintes:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Em seguida, clique em Inserir > Módulo e copie e cole o código abaixo no módulo em branco aberto:
Código VBA: Guarde um documento do Word com a data atual no nome do ficheiro
Public Sub FileSave1()
Dim xDlg As Dialog
Dim xTitle As String
On Error Resume Next
xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "-" & _
Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
Format((Day(Now()) Mod 100), "0#")
Set xDlg = Dialogs(wdDialogFileSaveAs)
xDlg.Name = xTitle
xDlg.Show
End Sub
3. Após colar o código no módulo, prima a tecla F5 para executar este código. Será apresentada uma janela Guardar Como, com a data atual já inserida automaticamente na caixa de texto Nome do ficheiro, conforme ilustrado na captura de ecrã:
4. Depois, basta introduzir o nome do ficheiro pretendido, tal como mostrado na captura de ecrã:
Faça Mais em Menos Tempo com o Kutools para Word Potenciado por IA
O Kutools para Word não é apenas um conjunto de ferramentas — é uma solução inteligente concebida para potenciar a sua produtividade. Com funcionalidades impulsionadas por IA e as ferramentas mais essenciais, o Kutools permite-lhe fazer mais em menos tempo:
Resuma, reescreva, componha e traduza conteúdos em tempo real.
Revise o seu texto em tempo real, com sugestões de gramática, pontuação e estilo à medida que escreve.
Reformule e traduza conteúdos, mantendo inalterados o esquema, o estilo e a estrutura.
Traduza os seus conteúdos facilmente para mais de 40 idiomas e amplie o seu alcance global.
Obtenha ajuda imediata e informações inteligentes com base no seu Documento Atual.
Pergunte como concluir uma tarefa — por exemplo, remover uma Quebra de Secção — e a IA orientá-lo-á ou executá-la-á por si.
Redija informações sensíveis ou confidenciais em segundos e garanta total privacidade.
Todas as ferramentas funcionam perfeitamente no Word, sempre ao seu alcance.
Crie, aperfeiçoe, traduza, resuma e proteja documentos com facilidade.
Melhore a gramática, a clareza e o tom enquanto escreve, em tempo real.
Reformule e traduza conteúdos sem alterar o esquema ou a formatação.
Pergunte como concluir uma tarefa — por exemplo, remover uma quebra de secção — e a IA orientá-lo-á ou executá-la-á por si.
Todas as ferramentas funcionam perfeitamente no Word, sempre à sua disposição.
✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!
Inclui Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint
📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade
