Macro help in Word 2000 please?

[Guest]

We have hundreds of documents to convert from RFTDCA format to Word format.
What I want to do is open, say 10 documents at once, then go into the first
document, run the macro and have it save that document with the same name but
in Word format. Then go into the second document, run the macro again and
have it save with the second document's name but also in Word format.
However, right now, every time I run the macro, it is always saving whichever
document I am in as SPEC1000.1.doc which was the name of the document I was
working on when I created the macro.

How do I get the macro so save each document under it's own name instead of
continually overwriting SPEC1000.1.doc?


Sub WordSave()
'
' WordSave Macro
' Macro recorded 11/23/2006 by richab
'
ChangeFileOpenDirectory "C:\meanym\"
ActiveDocument.SaveAs FileName:="SPEC1000.1.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.Close
End Sub

 

[Graham Mayor]

Your macro is working correctly - doing what you told it to do
You don't need a macro for this, use the file conversion wizard that came
with Word.

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

My web site www.gmayor.com

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