Na még egyszer...
(Felejtsd el az előzőt, mert nem jó.)


Sub BatchDoc()
Const Exts = "doc-txt-rtf"
Dim D As Document, SrcFldr As String, DstFldr As String, FN As String, Ext As String

MsgBox "Válaszd ki a forrás mappát!"
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
SrcFldr = .SelectedItems(1)
End With
MsgBox "Válaszd ki a cél mappát! (Ide mentem le az rtf-eket.)"
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
SrcFldr = .SelectedItems(1)
End With

FN = Dir(SrcFldr & "\*.*", vbNormal)
Do
Ext = Mid(FN, InStrRev(FN, ".") + 1)
If InStr(Exts, LCase(Ext)) > 0 Then
Set D = Documents.Open(SrcFldr & "\" & FN)
'
'Ide jönnek a formázási utasítások
'
D.SaveAs DstFldr & "\" & Left(FN, Len(FN) - 3) & "rtf", wdFormatRTF
D.Close
End If
FN = Dir()
Loop Until FN = ""
End Sub