Word: Игнорировать предупреждение "Файл уже используется"

Программирование на Visual Basic for Applications
alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Word: Игнорировать предупреждение "Файл уже используется"

Сообщение alibek » 05.09.2018 (Ср) 17:18

Есть скрипт VBS, который работает с документами Word, размещенными на сетевом диске.
Если этот документ открыт другим пользователем, то скрипт зависает, т.к. Word перед открытием документа выдает предупреждение о том, что файл уже открыт другим пользователем, и предлагает варианты (по умолчанию — открыть только для чтения).
Можно ли этот диалог как-то погасить?
DisplayAlert=False не помогает.
Lasciate ogni speranza, voi ch'entrate.

ALX_2002
Мега гуру
Мега гуру
 
Сообщения: 2054
Зарегистрирован: 25.11.2002 (Пн) 20:03

Re: Word: Игнорировать предупреждение "Файл уже используется

Сообщение ALX_2002 » 07.09.2018 (Пт) 11:20

Мне помогло использование метода Add вместо Open

Код: Выделить всё
Option Explicit

With CreateObject("Word.Application")
   .Visible = True
   .Documents.Add "\\server\1.doc"
End With

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Re: Word: Игнорировать предупреждение "Файл уже используется

Сообщение alibek » 07.09.2018 (Пт) 11:33

Оригинально.
Правда это не открытие файла, а создание нового (с использованием существующего файла, как шаблона), но мне это подходит.

P.S. Хотя нет, не подойдет.
При таком создании документа обнуляются значения некоторых типов полей.
Lasciate ogni speranza, voi ch'entrate.

ALX_2002
Мега гуру
Мега гуру
 
Сообщения: 2054
Зарегистрирован: 25.11.2002 (Пн) 20:03

Re: Word: Игнорировать предупреждение "Файл уже используется

Сообщение ALX_2002 » 07.09.2018 (Пт) 12:18

alibek, понял. Тогда есть мысль - копировать исходный файл во временный и открывать его.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 21

    TopList