|
при открытии файла в Word копировать его в другое место
|
||
|---|---|---|
Участник
Откуда: Москва, Зеленоград
Сообщения: 367 |
||
| 10.04.2009, 15:49 |
|
|
|
|
|
при открытии файла в Word копировать его в другое место
|
|||
|---|---|---|---|
|
#18+
Помогите пожалуйста разработать макрос, который срабатывает при открытии приложения Word (ну естественно когда оно вызывается открытием файла), данный макрос должен копировать открывающийся файл в определенный каталог, причем проверять его наличие в данном каталоге. Вы очень поможете, заранее спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.04.2009, 10:54 |
|
||
|
при открытии файла в Word копировать его в другое место
|
|||
|---|---|---|---|
|
#18+
как предполагается задавать имя файла для копирования ? как предполагается задавать папку для копирования ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.04.2009, 15:49 |
|
||
|
при открытии файла в Word копировать его в другое место
|
|||
|---|---|---|---|
|
#18+
папка для копирования заранее известна, доступ к записи в нее есть, а копировать файл под именем таким же, с каким файл открывается. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.04.2009, 19:45 |
|
||
|
при открытии файла в 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:25 |
|
||
|
при открытии файла в Word копировать его в другое место
|
|||
|---|---|---|---|
|
#18+
Также все прекрасно работает с FileSystemObject, только порой вкладка References может быть неактивна из-за урезанной версии Word'а и подключить библиотеку Microsoft Scripting не получится. если возможно хотелось бы получить решение без использования данной библиотеки. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.04.2009, 20:55 |
|
||
|
|
start [/forum/topic.php?fid=60&fpage=162&tid=2161145]: |
0ms |
get settings: |
8ms |
get forum list: |
12ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
36ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 204ms |
| total: | 315ms |
| 0 / 0 |
