Non solo di Excel...
Allora, a parte il fatto che sei uno che ama complicarsi la vita...
, questo dovrebbe fare al caso tuo. Unico limite ( per ora ) è che il nome desiderato deve contenere SOLO caratteri Alfa-Numerici ( niente lineette, punti ecc... ), pena il troncamento brutale del nome ( non ho ancora capito perchè
).
Intanto prova :
Codice:
Dim MioWord As Word.Application
Set MioWord = New Word.Application
MioWord.Visible = True
MioWord.Documents.Add
Dim MioTitolo As String
MioTitolo = "TitoloCheVoglio.doc"
MioWord.ActiveWindow.Caption = MioTitolo
With MioWord.Dialogs(wdDialogFileSummaryInfo)
.Title = MioTitolo
.Execute
End With