Ошибка VBA 4605 Этот метод или свойство недоступно, так как документ находится в модальном состоянии
Окружающая среда: Word 2016 для Mac.
Следующий код (который отлично работает в Word 2007 и 2010 для ПК и Word 2011 для Mac) выдает ошибку времени выполнения 4605 в точке вставки:
Set oSubRange = wdDoc.Sections(i).Range ' we are in a loop...
oSubRange.End = oSubRange.End - 1
oSubRange.Copy
Set wdSubDoc = Documents.Add
wdSubDoc.Activate
Set oRange = wdSubDoc.Content
oRange.Collapse (wdCollapseEnd)
oRange.PasteAndFormat (wdFormatOriginalFormatting)
Я думал, что, возможно, это была проблема с песочницей, но я так не думаю, потому что у меня не было проблем с сохранением файлов, и это все равно не в точке сохранения. Другие мысли были о том, что буфер обмена не копируется, что, возможно, возникла проблема с синхронизацией. Я попытался вставить DoEvents() после копирования, как я видел, это предлагалось в различных сценариях ошибки 4605 (хотя и в другой ошибке). Также попытался использовать ActiveDocument.Range.PasteAndFormant(wdFormatOriginalFormatting), который был предложен в другом форуме MS MVP (опять же, другая ошибка 4605). Ни одно из этих решений не сработало.
Итак, я застрял.