Xÿmox
2024-04-03 07:40:02 UTC
Sto riprendendo a mano un vecchio programma che avevo sviluppato un paio
di decenni fa, se provo a salavare un documento di Word me lo salva
sempre con il vecchio formato doc e non con il nuovo docx, nonostante
gli passo il nome.docx
La funzione che utilizzo è questa:
Set lobjApp = GetObject(, "word.application")
lobjApp.ActiveDocument.SaveAs filename:=lstrPathFile & lstrNomeFile,
FileFormat:=0, _
LockComments:=False, Password:="", AddToRecentFiles:=True,
WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False,
SaveNativePictureFormat:=False, _
SaveFormsData:=False, SaveAsAOCELetter:=False
Mentre per quanto riguarda Excel funziona correttamente salavando in
formato xlsx, ma utilizzo questa funzione che se provo con Word mi
genera errore:
Set lobjApp = GetObject(, "Excel.Application")
lobjApp.activeworkbook.SaveAs filename:=lstrPathFile & lstrNomeFile
consigli su come risolvere il problema anche cambiando la funzione di
salvataggio del documento di word?
grazie
di decenni fa, se provo a salavare un documento di Word me lo salva
sempre con il vecchio formato doc e non con il nuovo docx, nonostante
gli passo il nome.docx
La funzione che utilizzo è questa:
Set lobjApp = GetObject(, "word.application")
lobjApp.ActiveDocument.SaveAs filename:=lstrPathFile & lstrNomeFile,
FileFormat:=0, _
LockComments:=False, Password:="", AddToRecentFiles:=True,
WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False,
SaveNativePictureFormat:=False, _
SaveFormsData:=False, SaveAsAOCELetter:=False
Mentre per quanto riguarda Excel funziona correttamente salavando in
formato xlsx, ma utilizzo questa funzione che se provo con Word mi
genera errore:
Set lobjApp = GetObject(, "Excel.Application")
lobjApp.activeworkbook.SaveAs filename:=lstrPathFile & lstrNomeFile
consigli su come risolvere il problema anche cambiando la funzione di
salvataggio del documento di word?
grazie