premesso che ho letto diversi topic per arrivare a questo punto.
sto creando un documento word che unisca i testi di diversi altri documenti word pescati a scelta tramite menu a tendina da un file excell.
il word e l'excell funzionano a dovere, e sono riuscito pure a mettere i percorsi relativi (se così si possono chiamare su vba)
ho pacchetto office 2016.
ora detto ciò, una volta che il word unione manuali.docm tramite la macro mi ha unito i file .doc e .docx presi dalla cartella manuale temporaneo
vorrei che mi salvasse il risultato nella cartella dove è presente il file unione manuali.docm così: data-manuale.docx
ho provato questo comando ma me lo salva nel desktop e anche con un nome non corretto, all'apertura riavvia la macro con errori ovviamente.
Vi ringrazio dell'aiuto
- Codice: Seleziona tutto
Sub AutoOpen()
'
' Document_open Macro
'
'
Dim percorso As String
percorso = ActiveDocument.Path & "\manuale temporaneo"
ChDir percorso
myName = Dir("*.*")
While myName <> ""
With Selection
.InsertFile FileName:=myName, ConfirmConversions:=False
.InsertParagraphAfter
' .InsertBreak Type:=wdSectionBreakNextPage
.Collapse Direction:=wdCollapseEnd
End With
myName = Dir()
Wend
'da qui in poi mi serve il salvataggio ma non me lo fa come vorrei
ActiveDocument.SaveAs FileName:=ActiveDocument.Path & Format(Now(), "yyyy-mm-dd"), FileFormat:=wdFormatDocument
ActiveDocument.Close
End Sub