1 часть открытие txt

Documents.Open FileName:="c:\1\1.txt", ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=866

2 часть сохранение в docx и закрытие
ChangeFileOpenDirectory "C:\1\"
ActiveDocument.SaveAs FileName:="1.docx", FileFormat:=wdFormatXMLDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveDocument.Close

Предположим есть несколько файлов: на c:\1 и на с:\2 c разными именами но одного формата

Вопрос как можно прописать чтобы макрос открывал все файлы формата txt находяшиеся в директорях и сохранял их под тем именем который открыл но в docx