Макро как открыть txt файлы в word по списку из excel

[PrLio]

Добрый день всем,
Хотелось бы получить помощь специалистов в исправлении следующего макроса. Он работает, но в нем перечислены все документы по списку, которые должны быть обработаны (т.е. много отдельных макро).
Проблема, что их 90 и названия будут менятся, так что возникнет необходимость каждый раз исправлять макро вручную, что нежелательно.

Sub REPORTS_PRINT()
Selection.WholeStory
Selection.DELETE Unit:=wdCharacter, Count:=1
ActiveDocument.Save

ChangeFileOpenDirectory _
"C:\Users\USERNAME\Desktop\TEST "

'****REPORT NO.1****
Documents.Open FileName:="REPORT1.txt", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
Encoding:=1252
Windows("REPORT1.txt").Activate
Selection.WholeStory
Selection.Copy
Windows("TARGET.docm").Activate
Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
ActiveDocument.Save
Windows("REPORT1.txt").Close
....

'****Align all reports****
Call PandLFormat
Selection.HomeKey Unit:=wdStory

End Sub

В excel есть range со списком документов. Все эти документы в текстовом формате скажем в дириктории c:/user/test/
Нужно открыть их в default программе (notepad) в том порядке, в каком они перечислены в excel, скопировать и прикрепить в word за предыдущим документом, добавленым туда раньше и закрыть текстовой файл.

Буду благодарна за любую помощь,
Светлана.

[was3110]

Задача не сложная, но не для форума... Поэтому за две недели никто и не ответил.
Не интересно делать за Вас вашу работу. Но все изменится если обратитесь к фрилансу (или я могу помочь) ...

[PrLio]

Сообщение от was3110

Задача не сложная, но не для форума... Поэтому за две недели никто и не ответил.
Не интересно делать за Вас вашу работу. Но все изменится если обратитесь к фрилансу (или я могу помочь) ...

Откуда ж вы такие вежливые беретесь? Особенно, если учитывать подпись под ответом...
Спасибо, мою работу делать не надо. Боюсь, вы с ней не справитесь.
Эту задачку я уже решила.
И, кстати говоря, это была моя помощь другим людям. Абсолютно бескорыстная. Без подначек и попыток что-то урвать.
Честно говоря, разочарована тоном, а не отсутствием ответа.

Всего хорошего.