Word macro question

mpd · #1 08-26-2015, 10:42 AM

I'm putting together a word macro with the ultimate goal of upon execution the macro looping through all rtf files in a folder and saving them as docs. In it's current state the macro loops through the files as expected. However i'm required to click the save button for each file. Ideally it would automatically take care of this. Any guidance would be greatly appreciated. Here's the macro in it's current state:

Code:

Sub RTFtoDOC()
Dim FName As String
Dialogs(wdDialogFileOpen).Show
Application.ScreenUpdating = False
FName = Dir("*.rtf")
While (FName > "")
  Application.Documents.Open FileName:=FName _
  , ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
  PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
  WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
  wdOpenFormatAuto, XMLTransform:="", Encoding:=1252
  ActiveDocument.SaveAs FileName:=FName, FileFormat:=wdFormatDocument
  ActiveDocument.Close
  'SaveChanges:=wdSaveChanges
  FName = Dir()
Wend
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM
Question about macro in word 2013	tombags	Word	1	06-25-2014 04:56 PM
Macro Needed to Insert Asnwer to A Question in Multiple Choice Format Question	rsrasc	Word VBA	7	03-28-2014 12:28 PM
A newbie question: a must to save macro word file as .docm?	tinfanide	Word VBA	6	12-06-2011 03:02 PM
Macro question	PaulY	Word VBA	1	12-22-2010 11:21 PM