Salvare file in formato docx

[Xÿmox]

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

[Xÿmox]

Post by Xÿmox
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
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
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

come non detto, ho risolto sempicemente con questa funzione
lobjApp.ActiveDocument.SaveAs filename:=lstrPathFile & lstrNomeFile

se cmq avete altri suggerimenti sono ben accetti
grazie

[Ghost]

Post by Xÿmox

Post by Xÿmox
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
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
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

come non detto, ho risolto sempicemente con questa funzione
lobjApp.ActiveDocument.SaveAs filename:=lstrPathFile & lstrNomeFile
se cmq avete altri suggerimenti sono ben accetti
grazie

In FileFormat:=0 applicherei il parametro 16, in alternativa:

Set lobjApp = GetObject(, "word.application")
With lobjApp.ActiveDocument
.SaveAs2 FileName:=lstrPathFile & lstrNomeFile, _
FileFormat:=wdFormatDocumentDefault, _
LockComments:=False, _
Password:="", _
AddToRecentFiles:=True, _
WritePassword:="", _
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, _
SaveFormsData:=False, _
SaveAsAOCELetter:=False
End With

[Xÿmox]

Post by Xÿmox
Set lobjApp = GetObject(, "word.application")
With lobjApp.ActiveDocument
.SaveAs2 FileName:=lstrPathFile & lstrNomeFile, _
FileFormat:=wdFormatDocumentDefault, _
LockComments:=False, _
Password:="", _
AddToRecentFiles:=True, _
WritePassword:="", _
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, _
SaveFormsData:=False, _
SaveAsAOCELetter:=False
End With

grazie