*.doc *.dot в чём разница?

[Ципихович Эндрю]

чтобы упоминался шаблон у меня есть только:
Шаблон документа (*.dot)
"Шаблон Word с поддержкой макросов" - у меня такого нет вообще
????
может можно программно две строчки пройти по Эф8 знать бы эти строчки

[Пименов Александр]

Вот сохраненный Ваш файл в формате .dot, у меня фурычит

[Ципихович Эндрю]

хоть в гости езжай - проверяй, у меня не работает, и что это может быть??

[Ципихович Эндрю]

то что я делаю, можно макрорекордером записать, получилось:

Sub Макрос1()

    ActiveDocument.SaveAs fileName:= _
        "C:\Doc1.dot" _
        , FileFormat:=wdFormatTemplate _
        , LockComments:=False _
        , Password:="" _
        , AddToRecentFiles:=True _
        , WritePassword:="" _
        , ReadOnlyRecommended:=False _
        , EmbedTrueTypeFonts:=False _
        , SaveNativePictureFormat:=False _
        , SaveFormsData:=False _
        , SaveAsAOCELetter:=False
        
End Sub

пробую потом вручную - не фурычит, попробуйте пжл Вы проверить этот код, записать свой

[Пименов Александр]

Построчно выполнил Макрос1, открыл "C:\Doc1.dot", все процедуры и события класса работают

[Ципихович Эндрю]

я в шоке
Вы говорите открыл "C:\Doc1.dot"
А мне надо чтобы Вы с него создавали документ, то есть у Вас должно быть Документ1
и вот тогда работает??

[Пименов Александр]

Да я нашел Вашу ошибку.....

Во-первых в модуле ThisDocument шаблона должна быть не только процедура Document_Open, но и Document_New и вызов процедуры следует записать со ссылкой на Module1:

Private Sub Document_Open()

    Call Module1.Запуск_класса_модуля_qwerty

End Sub

Private Sub Document_New()

    Call Module1.Запуск_класса_модуля_qwerty

End Sub

Во-вторых в процедуре Module1.Запуск_класса_модуля_qwerty текст должен быть такой:

Sub Запуск_класса_модуля_qwerty()
    
    Set x.App = ThisDocument.Application
    x.ThisDoc = ActiveDocument.FullName

End Sub

Здесь ссылка должна быть на ActiveDocument.FullName, а не на ThisDocument, как у Вас было ранее.
Теперь при создании Нового документа на основе шалона .dot должны работать все процедуры

[Ципихович Эндрю]

спасибо!!!!!, пробую

[Ципихович Эндрю]

ОКЕЙНО, я в шоколаде, СПАСИБО!!!!!!!!!!!!!!
+100

[Пименов Александр]

Всегда рад помочь