The following code worked perfectly in word 2003, now in word 2007 it doesn't work if the resulting save file is on a network drive, it does however work on a local drive. We are scrathing our heads here if anyone has any ideas we would be happy to try them out.
With Options
.LocalNetworkFile = False
.AllowFastSave = False
.BackgroundSave = False
.CreateBackup = False
.SavePropertiesPrompt = False
.SaveInterval = 10
.SaveNormalPrompt = False
.DisableFeaturesbyDefault = False
End With
With ActiveDocument
.ReadOnlyRecommended = False
.EmbedTrueTypeFonts = False
.SaveFormsData = True
.SaveSubsetFonts = False
.DoNotEmbedSystemFonts = True
.Password = ""
.WritePassword = ""
.DisableFeatures = False
.EmbedSmartTags = True
.SmartTagsAsXMLProps = False
.EmbedLinguisticData = True
End With
Application.DefaultSaveFormat = ""
SaveName = ActiveDocument.FullName
SaveName = Left(SaveName, Len(SaveName) - 3)
SaveName = SaveName & "txt"
ActiveDocument.SaveAs FileName:=SaveName, FileFormat:=wdFormatText, _
LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=True, SaveAsAOCELetter:=False, Encoding:=1252, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF