|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.10.2014, 21:38 | #1 |
Регистрация: 09.03.2013
Сообщений: 4
|
Макро как открыть txt файлы в word по списку из excel
Добрый день всем,
Хотелось бы получить помощь специалистов в исправлении следующего макроса. Он работает, но в нем перечислены все документы по списку, которые должны быть обработаны (т.е. много отдельных макро). Проблема, что их 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 за предыдущим документом, добавленым туда раньше и закрыть текстовой файл. Буду благодарна за любую помощь, Светлана. Последний раз редактировалось PrLio; 14.10.2014 в 21:47. |
03.11.2014, 15:51 | #2 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 254
|
Задача не сложная, но не для форума... Поэтому за две недели никто и не ответил.
Не интересно делать за Вас вашу работу. Но все изменится если обратитесь к фрилансу (или я могу помочь) ...
помогать студентам - моя вторая профессия
|
04.11.2014, 01:50 | #3 | |
Регистрация: 09.03.2013
Сообщений: 4
|
Цитата:
Спасибо, мою работу делать не надо. Боюсь, вы с ней не справитесь. Эту задачку я уже решила. И, кстати говоря, это была моя помощь другим людям. Абсолютно бескорыстная. Без подначек и попыток что-то урвать. Честно говоря, разочарована тоном, а не отсутствием ответа. Всего хорошего. Последний раз редактировалось PrLio; 04.11.2014 в 01:56. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Открыть txt, doc, jpg файлы на С++ Builder | mikisss | Фриланс | 1 | 11.06.2014 14:43 |
Открыть word из excel | Вадим12091965 | Microsoft Office Excel | 4 | 18.10.2013 16:15 |
как открыть файлы excel в разных окнах? | izotop152 | Microsoft Office Excel | 5 | 11.04.2012 13:35 |
Не могу открыть файлы в формате word | aniska | Microsoft Office Word | 1 | 21.05.2009 09:49 |
как открыть файл.txt | Sergeu | Общие вопросы Delphi | 1 | 25.09.2008 13:24 |