|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.12.2013, 16:14 | #1 |
Пользователь
Регистрация: 10.03.2010
Сообщений: 19
|
Усовершенствовать макрос
Здравствуйте, уважаемые профи и любители.
Помогите, пожалуйста, усовершенствовать код. Есть небольшой макрос, проверяющий есть ли определенный файл в папке, если есть, то открывающий его и сохраняющий как текст. Как сделать, чтобы наличие и сохранение файла определялось по его имени в независимости от того, с расширением он doc или docx. Код HTML:
Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FileExists("D:\path\11.doc") Then Documents.Open FileName:="D:\path\11.doc", ConfirmConversions:=False, ReadOnly _ :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _ :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _ , Format:=wdOpenFormatAuto, XMLTransform:="" ActiveDocument.SaveAs FileName:="D:\path\11.txt", FileFormat:=wdFormatText, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False, Encoding:=1251, InsertLineBreaks:=False, AllowSubstitutions:=False _ , LineEnding:=wdCRLF ActiveWindow.Close End If Set FSO = Nothing |
18.12.2013, 17:16 | #2 | |
Форумчанин
Регистрация: 17.11.2010
Сообщений: 222
|
Надо в условие IF (Если) добавить оператор OR (Или):
Цитата:
|
|
19.12.2013, 00:00 | #3 |
Пользователь
Регистрация: 10.03.2010
Сообщений: 19
|
Александр, к сожалению, не срабатывает.
Подозреваю, дело в том, что найденный с одним из расширений файл потом нужно открыть. Код:
Подскажите, пожалуйста, как сделать чтобы открывал именно с найденным расширением? |
19.12.2013, 10:18 | #4 |
Форумчанин
Регистрация: 10.02.2012
Сообщений: 109
|
Так, думаю, будет лучше
Код:
Последний раз редактировалось AndVGri; 19.12.2013 в 10:42. Причина: Опечатка |
19.12.2013, 10:36 | #5 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Код:
|
|
19.12.2013, 15:39 | #6 |
Пользователь
Регистрация: 10.03.2010
Сообщений: 19
|
Друзья, все работает!
Спасибо Вам Огромное! P.S. А что вот эта строка означает? - чтобы для себя понимать Код:
Последний раз редактировалось kain151; 19.12.2013 в 15:43. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Усовершенствовать будильник на Delphi | Opel | Помощь студентам | 2 | 23.05.2011 20:35 |
усовершенствовать програмку маятника | tasty_angel | Помощь студентам | 1 | 01.12.2010 00:26 |
Усовершенствовать макрос собиралки | KlimoDi | Microsoft Office Excel | 8 | 05.07.2010 02:43 |
Помогите усовершенствовать код | xPAL | Общие вопросы Delphi | 6 | 20.09.2008 00:05 |