J
Joanne
Using MSOffice2003 Pro, I allowed MSWord to install a converter when I
was saving a file to a different format and name. Now, My macro that
does this work for me semi-automatically will no longer work, I assume
because of the converter.
The macro will take the .doc file and save it in the folder I send it
to and save it in 'plain text' format, but it will not rename it in
the naming convention that I have been using for 3 years now, it just
puts the now plain text file in the correct folder but it still
carries the .doc name.
Renaming is an important part of this operation, and I really don't
want to go back to doing this by the hundreds without autmation thru
my macro.
Can someone please tell me how to uninstall the darn converter, or
perhaps bypass it in my code?
Here is the code I use to change the .doc to .txt, rename it and file
it in the correct folder:
Public Sub EML()
Dim Message, Title, NameReplace, Default
Message = "Enter File Name" 'User instructions in message box
Title = "Save File" 'Title of Message Box
Default = "" 'Value of Message Box is null
NameReplace = InputBox(Message, Title, Default)
NameReplace = ActiveDocument.Name
ChangeFileOpenDirectory "C:\renamed\"
Select Case MsgBox(strMsg, vbYesNoCancel + vbExclamation)
Case vbYes
ActiveDocument.SaveAs FileName:=NameReplace, FileFormat:= _
wdFormatText, LockComments:=False, Password:="",
AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:=False
Case vbNo
NameReplace = InputBox(Message, Title, Default, 5500, 6500)
ActiveDocument.SaveAs FileName:=NameReplace, FileFormat:= _
wdFormatText, LockComments:=False, Password:="",
AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:=False
Case vbCancel
ActiveDocument.Close
End Select
End If
End Sub
Thanks for any help you can offer me - it is very appreciated
Joanne
was saving a file to a different format and name. Now, My macro that
does this work for me semi-automatically will no longer work, I assume
because of the converter.
The macro will take the .doc file and save it in the folder I send it
to and save it in 'plain text' format, but it will not rename it in
the naming convention that I have been using for 3 years now, it just
puts the now plain text file in the correct folder but it still
carries the .doc name.
Renaming is an important part of this operation, and I really don't
want to go back to doing this by the hundreds without autmation thru
my macro.
Can someone please tell me how to uninstall the darn converter, or
perhaps bypass it in my code?
Here is the code I use to change the .doc to .txt, rename it and file
it in the correct folder:
Public Sub EML()
Dim Message, Title, NameReplace, Default
Message = "Enter File Name" 'User instructions in message box
Title = "Save File" 'Title of Message Box
Default = "" 'Value of Message Box is null
NameReplace = InputBox(Message, Title, Default)
NameReplace = ActiveDocument.Name
ChangeFileOpenDirectory "C:\renamed\"
Select Case MsgBox(strMsg, vbYesNoCancel + vbExclamation)
Case vbYes
ActiveDocument.SaveAs FileName:=NameReplace, FileFormat:= _
wdFormatText, LockComments:=False, Password:="",
AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:=False
Case vbNo
NameReplace = InputBox(Message, Title, Default, 5500, 6500)
ActiveDocument.SaveAs FileName:=NameReplace, FileFormat:= _
wdFormatText, LockComments:=False, Password:="",
AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:=False
Case vbCancel
ActiveDocument.Close
End Select
End If
End Sub
Thanks for any help you can offer me - it is very appreciated
Joanne