Auto-save .doc copy of .docx

[akedm]

Is there a way or a third-party method to automatically save a backup copy of
docx files as doc files? Sometimes I work on a differnt system without word
2007 and woudl like to be able to access these files, but I do not want to
set the default filetype for 2007 as .doc

Thanks.

 

[Graham Mayor]

The following macro will save the current document as DOCX and DOC with the
same name in front of the extension in the same folder when you click Save

Sub FileSave()
Dim strDocName As String
Dim strNewName As String
With ActiveDocument
.Save
strDocName = .FullName
intPos = InStrRev(strDocName, ".")
strNewName = Left(strDocName, intPos - 1)
strNewName = strNewName & ".doc"
.SaveAs FileName:=strNewName, _
FileFormat:=wdFormatDocument97
.Close wdDoNotSaveChanges
End With
Documents.Open strDocName
End Sub
http://www.gmayor.com/installing_macro.htm

Alternatively name it something else eg Sub MySave() and add it to a QAT
button then click that when you want a DOC copy.
Note it *requires* that the default save is DOCX.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>