|
Действия ...
|
10.04.2009, 15:49
|
|||
|---|---|---|---|
|
|||
при открытии файла в Word копировать его в другое место |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
10.04.2009, 10:54
|
|||
|---|---|---|---|
|
|||
при открытии файла в Word копировать его в другое место |
|||
|
#18+
Помогите пожалуйста разработать макрос, который срабатывает при открытии приложения Word (ну естественно когда оно вызывается открытием файла), данный макрос должен копировать открывающийся файл в определенный каталог, причем проверять его наличие в данном каталоге. Вы очень поможете, заранее спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
10.04.2009, 15:49
|
|||
|---|---|---|---|
при открытии файла в Word копировать его в другое место |
|||
|
#18+
как предполагается задавать имя файла для копирования ? как предполагается задавать папку для копирования ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
10.04.2009, 19:45
|
|||
|---|---|---|---|
|
|||
при открытии файла в Word копировать его в другое место |
|||
|
#18+
папка для копирования заранее известна, доступ к записи в нее есть, а копировать файл под именем таким же, с каким файл открывается. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
10.04.2009, 20:25
|
|||
|---|---|---|---|
|
|||
при открытии файла в Word копировать его в другое место |
|||
|
#18+
Public Sub AutoOpen() Dim a As String a = ActiveDocument.Path & "\" & ActiveDocument.Name 'ActiveDocument.Close FileCopy a, "D:\Masha\" & ActiveDocument.Name Documents.Open a End Sub Конечно, появляется ошибка Permission denied, поскольку файл заблокирован, а вот как избавиться от нее не знаю.:( пыталась закрыть документ перед копированием, но все конечно начинает забавно мигать:)) и после возникает ошибка out of stack и word закрывается :) нужен наверное какой-то флаг или что-то в этом роде :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
10.04.2009, 20:55
|
|||
|---|---|---|---|
|
|||
при открытии файла в Word копировать его в другое место |
|||
|
#18+
Также все прекрасно работает с FileSystemObject, только порой вкладка References может быть неактивна из-за урезанной версии Word'а и подключить библиотеку Microsoft Scripting не получится. если возможно хотелось бы получить решение без использования данной библиотеки. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&tablet=1&tid=2161145]: |
0ms |
get settings: |
8ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
64ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
35ms |
get tp. blocked users: |
1ms |
| others: | 193ms |
| total: | 332ms |
| 0 / 0 |
