Ошибка времени выполнения при вставке фигуры или таблицы из Excel в Word (формат сохранения по умолчанию связан с) - PullRequest
Новая
       18

Ошибка времени выполнения при вставке фигуры или таблицы из Excel в Word (формат сохранения по умолчанию связан с)

0 голосов
/ 21 мая 2019

Наличие сценария Excel, который создает файл PDF (данные из Excel вставляются в слово и сохраняются в формате PDF) Я получаю сообщение об ошибке во время выполнения при попытке вставить что-то из Excel в слово:

Ошибка времени выполнения -2147023170 (800706be) Ошибка удаленного вызова процедуры

enter image description here

Что забавно - всякий раз, когда Word сохраняет формат приложения по умолчанию * .docx - скрипт вылетает. Он отлично работает, когда формат сохранения по умолчанию для приложения Word установлен на * .doc

.

Я попытался установить для MS Word формат сохранения по умолчанию * .docx с VBA, но это только обходной путь. 

set wrdApp = CreateObject("Word.Application")

set xShape = xWSc.Shapes("MOTAEK")  'a png picture from excel
xShape.Copy

With wrdApp
    .Visible = True
    Set wrdDoc = .Documents.Add(, , wdNewBlankDocument)

End With

'Set Document parameters
With wrdApp.ActiveDocument
    .PageSetup.LeftMargin = 36
    .PageSetup.RightMargin = 36 '36
    .PageSetup.BottomMargin = 32
    .PageSetup.TopMargin = 64
End With

With wrdApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)

 Set wrdHRgn = .Range
 wrdHRgn.Paste
...