Office & productivity software forum: Word "Save As" Macro w/Current File Name

Mark,

The process you describe is exactly what I did. The problem is that I have a lot of files that I would like to run this macro on, so I need the filename to be "dynamic"....that is to save each file under it's own name with the new (.rtf) extension.

When I used the Macro Recorder it retained the filename from the original document(22443238-42569.doc). Now every time I run the macro, it saves the file with that same (static) filename.

I would think that all I need to do is replace "2244328-42569.rtf" with the proper syntax in the instructions below to solve the problem....I just can't find what that might be.

ActiveDocument.SaveAs FileName:="2244328-42569.rtf",

Thanks,

Chris

Just curious if you ever found a solution to you problem with the macro for save as. I am having the same issue and have not found any documents to solve it yet. Any help would be appreciated.

Scott

Yes I looked at it, but I am novice at writing scripts and macros. I have done some work with access and filemaker programs, but have just started using macros with excel and word (within the last two days).

Like the person who origionated this post, I also am just looking to replace the recorded macro's file name with the current document filename that is open.

I have found a way to do it with selection.text, but I have to highlight the text that I want to use as the file name. Below is a copy of my current macro.

Sub ConvertToText()
'
' ConvertToText Macro
'
'
ChangeFileOpenDirectory _
"C:\Documents and Settings\Scott\My Documents\PVFPD Fire Prevention\Word converted text files\St 43\"
ActiveDocument.SaveAs FileName:= _
"10544 Spenceville Rd-Galante Orthodontic PP.txt", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=20127, InsertLineBreaks:=False, AllowSubstitutions:= _
False, LineEnding:=wdCRLF
End Sub

So now you save it with the name:
10544 Spenceville Rd-Galante Orthodontic PP.txt
and the format
wdFormatText (which I assume means text).

So you would have to program the macro
(1) to construct another filename (from the current one, by replacing the extension) and use that
and change it
(2) to use the rtf-format in stead of the text format

That's rather basic VBA-programming.

Kees