спрашивает сохранение в шаблоне normal.dot

[Verbludov]

Из экселя открываю шаблон tml.dot и делаю вставку по закладкам
таким вот методом:

Sub Показать()
Set WA = CreateObject("Word.Application")
WA.Visible = True
ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "templ/tml.dot")
Set wd = WA.Documents.Add(ПутьШаблона): DoEvents
wd.Bookmarks.Item("зкл1").Range.Ins ertAfter Range("Подстановка4!A7").Value
wd.Bookmarks.Item("зкл2").Range.Ins ertAfter Range("Подстановка4!C3").Value
End Sub

Проблема в том, что при открытии нескольких документов ворд из шаблона tml.dot,
после закрытия одного документа появляется сообщение с ошибкой " данный файл
используется другим приложением или пользователем.
(C:\Users.....\Normal.dot)" и предлагает сохранить изменения в шаблоне Normal.dot
Потом опять сообщает, что шаблон Normal.dot был изменен и предлагает сохранить изменения.
Как обойти этот гемор с Normal.dot?

[pashulka]

А если попробовать так :

Private Sub Test() 'https://support.microsoft.com/kb/291352
    Dim objApp As Object, objDoc As Object, iPath$
    
    Set objApp = CreateObject("Word.Application")
    objApp.Visible = True: objApp.Options.SaveNormalPrompt = False
    
    'iPath = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "templ\tml.dot")
    iPath = ThisWorkbook.Path & "\templ\tml.dot"
    
    Set objDoc = objApp.Documents.Open(iPath) 'Or objApp.Documents.Add(iPath)
    
    objDoc.Bookmarks("зкл1").Range.InsertAfter Range("Подстановка4!A7").Value
    objDoc.Bookmarks("зкл2").Range.InsertAfter Range("Подстановка4!C3").Value
    
    'objDoc.Close -1: objApp.Quit
End Sub

[Verbludov]

pashulka, не работает - ворд открывает, вставлять по закладкам не хочет, про normal.dot всё равно спрашивает

[pashulka]

Закладки вообще скопированы из Вашего макроса без изменений, ибо я бы замутил так objDoc.Bookmarks("зкл1").Range.Text = "XXX"

А по поводу Normal.dot рекомендую ознакомиться со ссылкой, ибо там расписываются возможные причины её возникновения и советы по устранению.

[Verbludov]

ух тыж еж 20! вот этого: "objDoc.Bookmarks" я не заметил. но про normal.dot всё равно спрашивает. ссылку причитал, но это не мой случай.

[alex77755]

Это кусок кода и в нём не видно сохранения документа.
Документ со вставленными данными сохраняется?.

[alex77755]

Я такое примерно делал. Только в качестве шаблона использовал простой документ и после вставки данных сразу сохранял с нужным именем.
Проблем с переспросам не было

[Verbludov]

Сообщение от alex77755

Это кусок кода и в нём не видно сохранения документа.
Документ со вставленными данными сохраняется?.

не - не сохраняется. только показывается. потом пользователь сам решает, сохранить куда-нибудь этот файл или просто закрыть. а сам кодом не сохраняется