Word Código VBA para usar a primeira linha do texto para nomear arquivo ao Salvar.

[Ewerton de Miranda]

Boa tarde, 

 

Estou usando o seguinte código para salvar alguns arquivos do Word:

Sub ExibeCaixaDialogo()
    Dim CaixaDialogo As FileDialog
    Set CaixaDialogo = Application.FileDialog(msoFileDialogSaveAs)
    With CaixaDialogo
    .InitialFileName = "C:\DOCUMENTOS\2024\"
    .FilterIndex = 17 'Texto do OpenDocument
    .Show
    .Execute
    End With
End Sub

Com este código, me exibe a Caixa de Diálogo no diretório correto onde quero salvar, no entanto, tenho que preencher o nome manualmente.

 

Gostaria de saber se posso acrescentar algo para que, automaticamente, conste como nome do arquivo, o texto escrito na primeira linha do documento.

 

Desde já agradeço.

[Midori]

Na atribuição do nome veja se assim resolve.

 

.InitialFileName = "C:\DOCUMENTOS\2024\" & ThisDocument.Paragraphs(1).Range.Text