- Codice: Seleziona tutto
Documents.Open FileName:="C:\Mio.doc", ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", XMLTransform:=""
ActiveDocument.SaveAs FileName:="C:\Mio.txt", FileFormat:=wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=850, InsertLineBreaks:=False, AllowSubstitutions:=True, LineEnding:=wdCRLF
E viene perfettamente convertito in un file testo (tipo Dos)
Il problema nasce se utilizzo la stessa macro posta in excel che chiama l'applicazione di word con i seguenti codici
- Codice: Seleziona tutto
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Documents.Open Filename:="C:\Mio.doc", ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", XMLTransform:=""
oApp.ActiveDocument.SaveAs Filename:="Mio.txt", FileFormat:=wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=850, InsertLineBreaks:=False, AllowSubstitutions:=False, LineEnding:=wdCRLF
oApp.Application.Quit
In questo caso il file testo presenta caratteri non solo testo ma fornisce un file come se fosse convertito da Word in formato testo opzione windows e non dos.
Ho risolto chiamando da excel un file word con all'interno la sua macro ma avrei voluto fare tutto direttamente da excel e non mi sono spiegato il motivo di questa "disfunzione".
Qualcuno sa dirmi qualcosa in merito?
Ciao