Локальная копия документа Word, загруженная с общего диска, не работает с VBA saveas методом PDF.Не сохраняет документ - PullRequest
Новая
       37

Локальная копия документа Word, загруженная с общего диска, не работает с VBA saveas методом PDF.Не сохраняет документ

0 голосов
/ 26 февраля 2019

У меня есть макрос, который отлично работает на общем диске, когда к нему обращается только один / первый человек.Когда к нему обращается второй человек, в то время как первый человек все еще имеет его открытым, он говорит, что он уже открыт.Когда я нажимаю «создать локальную копию и объединить изменения позже», макрос будет работать до тех пор, пока не сохранит файл.

Макрос в основном вызывает пользовательскую форму для сбора информации, заполнения документа, а затем должен сохранитьдокумент в виде PDF на рабочий стол.PDF почему-то не сохраняется в локальной копии.Когда появляется «Перейти по гиперссылке», появляется сообщение «Ошибка 4198, команда не выполнена».Я проверяю свой рабочий стол, а файла нет, что наводит меня на мысль, что эта ошибка связана с тем, что файл не создается ....

Мне просто нужен макрос, позволяющий сохранить документна рабочий стол в формате PDF, будь то обычная версия или локальная копия, созданная как побочный продукт правил общего диска. 

Main_Form.hide
enviro = CStr(Environ("USERPROFILE"))
sName = Format(Date, "mm-dd-yyyy") & " Denial Letter - Invoice " & Invoice_Text.Value & ".pdf"
sPath = enviro & "\Desktop\"
ThisDocument.SaveAs2 FileName:=sPath & sName, fileformat:=wdFormatPDF
fullName = sPath & sName

ThisDocument.FollowHyperlink fullName
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

1 Ответ

0 голосов
/ 26 февраля 2019

Используйте шаблон (точка), а не документ.Создайте новые документы из шаблона, чтобы не было «блокировки» документов.

Кроме того, не используйте ThisDocument, поскольку это конкретно относится к документу, в котором находится код VBA, вместо него используйте ActiveDocument.

...