Salvataggio in formato documento da una macro (Microsoft Word)
Anthony importa regolarmente più report, in file di testo (ad esempio, filename.txt), in Word. Quindi utilizza le macro per formattare queste informazioni importate. Al termine della macro di formattazione, Anthony utilizza manualmente “Salva con nome” per ogni report per salvarlo come documento di Word. Si chiede quali comandi aggiungere alla sua macro per automatizzare l’ultimo passaggio del salvataggio dei dati. Anthony vorrebbe che la macro salvi il file utilizzando lo stesso nome radice del file di testo originale, cambiandolo solo in formato Word, come in filename.docx.
I passaggi per salvare effettivamente il file sono relativamente semplici. Considera il seguente frammento di codice, che salva un documento in formato Word:
ActiveDocument.SaveAs FileName:=sDocName, _ FileFormat:=wdFormatDocument
Il nome del file è memorizzato nella variabile sDocName e l’impostazione per la proprietà FileFormat indica che si desidera salvare il documento nel formato Word. In una macro esistente, l’unica cosa rimasta da fare sarebbe impostare sDocName con il nome file desiderato.
Supponendo che tu abbia salvato il nome del file di testo originale nella variabile sOrigName, potresti usare il seguente codice per cambiare l’estensione in .doc, e quindi salvare il file:
sDocName = Left(sOrigName, Len(sOrigName) - 4) sDocName = sDocName & ".docx" ActiveDocument.SaveAs FileName:=sDocName, _ FileFormat:=wdFormatDocument
Il codice presuppone che gli ultimi quattro caratteri di sOrigName contengano l’estensione del nome del file (il punto più tre caratteri). Questi vengono rimossi e viene aggiunta l’estensione “.docx”. Se non sei sicuro di quanto sarà lunga l’estensione del nome del file originale, puoi fare affidamento sulla funzione Split per separarlo, se lo desideri:
sNameParts = Split(sOrigName, ".") sDocName = sNameParts(0) & ".docx" ActiveDocument.SaveAs FileName:=sDocName, _ FileFormat:=wdFormatDocument
Per far funzionare questa macro, assicurati di dichiarare sNameParts come matrice di stringhe.
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.
WordTips è la tua fonte di formazione economica su Microsoft Word.
(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (404) si applica a Microsoft Word 2007, 2010, 2013 e 2016. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Word qui: